From 07cba2d376a25f91b0b5e952782daa7d9c094a3d Mon Sep 17 00:00:00 2001 From: "ilya.razievskij" Date: Tue, 20 May 2025 15:54:53 +0300 Subject: [PATCH 1/9] fix: FA1.2 error compliance --- contracts/CToken.py | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/contracts/CToken.py b/contracts/CToken.py index edcbf6df..bb84d1ad 100644 --- a/contracts/CToken.py +++ b/contracts/CToken.py @@ -401,7 +401,8 @@ def transfer(self, params): sp.set_type(params, sp.TRecord(from_=sp.TAddress, to_=sp.TAddress, value=sp.TNat).layout(("from_ as from", ("to_ as to", "value")))) sp.verify((params.from_ == sp.sender) | - (self.data.ledger[params.from_].approvals[sp.sender] >= params.value), EC.CT_TRANSFER_NOT_APPROVED) + (self.data.ledger[params.from_].approvals[sp.sender] >= params.value), + sp.pair("NotEnoughAllowance", sp.pair(params.value, self.data.ledger[params.from_].approvals[sp.sender]))) self.verifyNotInternal() self.verifyTransferAllowed(params.from_, params.to_, params.value) self.transferInternal(sp.record( @@ -411,7 +412,7 @@ def transferInternal(self, params): sp.set_type(params, sp.TRecord(from_=sp.TAddress, to_=sp.TAddress, value=sp.TNat, sender=sp.TAddress)) sp.verify(self.data.ledger[params.from_].balance >= - params.value, EC.CT_INSUFFICIENT_BALANCE) + params.value, sp.pair("NotEnoughBalance", sp.pair(params.value, self.data.ledger[params.from_].balance))) self.data.ledger[params.from_].balance = sp.as_nat( self.data.ledger[params.from_].balance - params.value) self.data.ledger[params.to_].balance += params.value @@ -452,12 +453,12 @@ def approve(self, params): # check if max approvals reached if new entry in approvals sp.verify((self.data.ledger[sp.sender].approvals.contains(params.spender)) | ( - 1000 > sp.len(self.data.ledger[sp.sender].approvals)), EC.CT_MAX_APPROVALS) + 1000 > sp.len(self.data.ledger[sp.sender].approvals)), sp.pair(EC.CT_MAX_APPROVALS, sp.unit)) alreadyApproved = self.data.ledger[sp.sender].approvals.get( params.spender, 0) sp.verify((alreadyApproved == 0) | (params.value == 0), - EC.CT_UNSAFE_ALLOWANCE_CHANGE) + sp.pair("UnsafeAllowanceChange", alreadyApproved)) sp.if params.value == 0: del self.data.ledger[sp.sender].approvals[params.spender] sp.else: From c1256ecf584631527b5aae33fe875cf72abd20e6 Mon Sep 17 00:00:00 2001 From: "ilya.razievskij" Date: Tue, 20 May 2025 16:01:21 +0300 Subject: [PATCH 2/9] fix: approval not possible for new users --- contracts/CToken.py | 2 ++ 1 file changed, 2 insertions(+) diff --git a/contracts/CToken.py b/contracts/CToken.py index bb84d1ad..4527926f 100644 --- a/contracts/CToken.py +++ b/contracts/CToken.py @@ -450,6 +450,8 @@ def approve(self, params): sp.set_type(params, sp.TRecord(spender=sp.TAddress, value=sp.TNat).layout(("spender", "value"))) self.verifyNotInternal() + # Allow approvals for users with zero balance + self.addAddressIfNecessary(sp.sender) # check if max approvals reached if new entry in approvals sp.verify((self.data.ledger[sp.sender].approvals.contains(params.spender)) | ( From c903b028a358278ec1364c392128bbd4d3e834df Mon Sep 17 00:00:00 2001 From: "ilya.razievskij" Date: Tue, 20 May 2025 20:17:10 +0300 Subject: [PATCH 3/9] chore: add freshness indicator to views --- contracts/CToken.py | 36 ++++++++++++------------- contracts/Comptroller.py | 17 +++++++----- contracts/interfaces/CTokenInterface.py | 6 ++--- contracts/tests/CFA12Test.py | 10 ++++--- contracts/tests/CFA2Test.py | 10 ++++--- contracts/tests/CTokenTest.py | 33 ++++++++++++++--------- contracts/tests/CXTZTest.py | 10 ++++--- contracts/tests/utils/ResultViewer.py | 9 +++++++ 8 files changed, 79 insertions(+), 52 deletions(-) diff --git a/contracts/CToken.py b/contracts/CToken.py index 4527926f..13886b6a 100644 --- a/contracts/CToken.py +++ b/contracts/CToken.py @@ -369,9 +369,9 @@ def liquidateBorrowFresh(self, liquidator, borrower, repayAmount, cTokenCollater self.repayBorrowInternal( sp.record(payer=liquidator, borrower=borrower, repayAmount=repayAmount)) - seizeTokens = sp.view("liquidateCalculateSeizeTokens", self.data.comptroller, sp.record( + seizeTokens = sp.fst(sp.view("liquidateCalculateSeizeTokens", self.data.comptroller, sp.record( cTokenBorrowed=sp.self_address, cTokenCollateral=cTokenCollateral, actualRepayAmount=repayAmount), - t=sp.TNat).open_some("INVALID LIQUIDATE CALC SEIZE TOKEN VIEW") + t=sp.TPair(sp.TNat, sp.TNat)).open_some("INVALID LIQUIDATE CALC SEIZE TOKEN VIEW")) borrowerBalance = sp.view("balanceOf", cTokenCollateral, borrower, t=sp.TNat).open_some("INVALID BALANCE OF VIEW") @@ -514,15 +514,15 @@ def balanceOf(self, params): params: TAddress - The address of the account to query - return: The amount of underlying owned by `params` + return: The amount of underlying owned by `params` and the last interest accrual block """ - @sp.utils.view(sp.TNat) + @sp.utils.view(sp.TPair(sp.TNat, sp.TNat)) def getBalanceOfUnderlying(self, params): sp.set_type(params, sp.TAddress) exchangeRate = self.makeExp(self.exchangeRateStoredImpl()) balance = self.mulScalarTruncate( exchangeRate, self.data.ledger[params].balance) - sp.result(balance) + sp.result(sp.pair(balance, self.data.accrualBlockNumber)) """ Get total supply of the CToken @@ -603,12 +603,12 @@ def getAccountSnapshotView(self, params): params: TAddress - The address whose balance should be calculated - return: The calculated balance + return: The calculated balance and last accrual block """ - @sp.utils.view(sp.TNat) + @sp.utils.view(sp.TPair(sp.TNat, sp.TNat)) def borrowBalanceStored(self, params): sp.set_type(params, sp.TAddress) - sp.result(self.getBorrowBalance(params)) + sp.result(sp.pair(self.getBorrowBalance(params), self.data.accrualBlockNumber)) """ Return the borrow balance of account based on stored data @@ -617,12 +617,12 @@ def borrowBalanceStored(self, params): params: TAddress - The address whose balance should be calculated - return: The calculated balance + return: The calculated balance and last accrual block """ @sp.onchain_view() def borrowBalanceStoredView(self, params): sp.set_type(params, sp.TAddress) - sp.result(self.getBorrowBalance(params)) + sp.result(sp.pair(self.getBorrowBalance(params), self.data.accrualBlockNumber)) def getBorrowBalance(self, account): borrowBalance = sp.local('borrowBalance', sp.nat(0)) @@ -642,12 +642,12 @@ def getBorrowBalance(self, account): params: TUnit - return: Calculated exchange rate scaled by 1e18 + return: Calculated exchange rate scaled by 1e18 and last accrual block number """ - @sp.utils.view(sp.TNat) + @sp.utils.view(sp.TPair(sp.TNat, sp.TNat)) def exchangeRateStored(self, params): sp.set_type(params, sp.TUnit) - sp.result(self.exchangeRateStoredImpl()) + sp.result(sp.pair(self.exchangeRateStoredImpl(), self.data.accrualBlockNumber)) """ Calculates the exchange rate from the underlying to the CToken @@ -657,12 +657,12 @@ def exchangeRateStored(self, params): params: TUnit - return: Calculated exchange rate scaled by 1e18 + return: Calculated exchange rate scaled by 1e18 and last accrual block number """ @sp.onchain_view() def exchangeRateStoredView(self, params): sp.set_type(params, sp.TUnit) - sp.result(self.exchangeRateStoredImpl()) + sp.result(sp.pair(self.exchangeRateStoredImpl(), self.data.accrualBlockNumber)) def exchangeRateStoredImpl(self): return self.exchangeRateAdjusted(sp.nat(0)) @@ -696,12 +696,12 @@ def accrualBlockNumber(self, params): params: TUnit - return: The quantity of underlying asset owned by this contract + return: The quantity of underlying asset owned by this contract and the last interest accrual block """ - @sp.utils.view(sp.TNat) + @sp.utils.view(sp.TPair(sp.TNat, sp.TNat)) def getCash(self, params): sp.set_type(params, sp.TUnit) - sp.result(self.getCashImpl()) + sp.result(sp.pair(self.getCashImpl(), self.data.accrualBlockNumber)) """ dev: Do updateCash() before this function to get the up-to-date cash balance diff --git a/contracts/Comptroller.py b/contracts/Comptroller.py index 2446be3c..6fc2ad28 100644 --- a/contracts/Comptroller.py +++ b/contracts/Comptroller.py @@ -386,7 +386,7 @@ def getAccountLiquidityInternal(self, account): updateAccountLiquidityWithView() needs to be called before executing this to get up-to-date results - return: TNat - the no. of collateral tokens that can be seized on repay of the borrowed amount + return: sp.TPair of TNat - the no. of collateral tokens that can be seized on repay of the borrowed amount , TNat - last accrual block number """ @sp.onchain_view() def liquidateCalculateSeizeTokens(self, params): @@ -400,8 +400,11 @@ def liquidateCalculateSeizeTokens(self, params): sp.verify((priceBorrowedMantissa.value.mantissa != sp.nat(0)) & ( priceCollateralMantissa.value.mantissa != sp.nat(0)), EC.CMPT_PRICE_ERROR) - exchangeRateMantissa = sp.view("exchangeRateStoredView", params.cTokenCollateral, sp.unit, - t=sp.TNat).open_some("INVALID EXCHANGE RATE VIEW") + exchangeRateData = sp.view("exchangeRateStoredView", params.cTokenCollateral, sp.unit, + t=sp.TPair(sp.TNat, sp.TNat)).open_some("INVALID EXCHANGE RATE VIEW") + + exchangeRateMantissa = sp.fst(exchangeRateData) + lastAccrual = sp.snd(exchangeRateData) numerator = sp.local("numerator", self.mul_exp_exp(self.makeExp( self.data.liquidationIncentiveMantissa), priceBorrowedMantissa.value)) @@ -411,8 +414,8 @@ def liquidateCalculateSeizeTokens(self, params): ratio = sp.local("ratio", self.div_exp_exp( numerator.value, denominator.value)) - sp.result(self.mulScalarTruncate( - ratio.value, params.actualRepayAmount)) + sp.result(sp.pair(self.mulScalarTruncate( + ratio.value, params.actualRepayAmount), lastAccrual)) """ Determines whether a users position can be liquidated @@ -434,8 +437,8 @@ def liquidateBorrowAllowed(self, params): sp.verify(liquidity.value < 0, EC.CMPT_INSUFFICIENT_SHORTFALL) - borrowBalance = sp.view("borrowBalanceStoredView", params.cTokenBorrowed, params.borrower, - t=sp.TNat).open_some("INVALID ACCOUNT BORROW BALANCE VIEW") + borrowBalance = sp.fst(sp.view("borrowBalanceStoredView", params.cTokenBorrowed, params.borrower, + t=sp.TPair(sp.TNat, sp.TNat)).open_some("INVALID ACCOUNT BORROW BALANCE VIEW")) maxClose = sp.local("maxClose", self.mulScalarTruncate(self.makeExp( self.data.closeFactorMantissa), borrowBalance)) diff --git a/contracts/interfaces/CTokenInterface.py b/contracts/interfaces/CTokenInterface.py index a2771167..d60533bf 100644 --- a/contracts/interfaces/CTokenInterface.py +++ b/contracts/interfaces/CTokenInterface.py @@ -210,7 +210,7 @@ def getBalanceOfUnderlying(self, params): return: The total supply of the CToken """ - @sp.utils.view(sp.TNat) + @sp.utils.view(sp.TPair(sp.TNat, sp.TNat)) def getTotalSupply(self, params): pass @@ -249,7 +249,7 @@ def borrowBalanceStored(self, params): return: Calculated exchange rate scaled by 1e18 """ - @sp.utils.view(sp.TNat) + @sp.utils.view(sp.TPair(sp.TNat, sp.TNat)) def exchangeRateStored(self, params): pass @@ -260,7 +260,7 @@ def exchangeRateStored(self, params): return: The quantity of underlying asset owned by this contract """ - @sp.utils.view(sp.TNat) + @sp.utils.view(sp.TPair(sp.TNat, sp.TNat)) def getCash(self, params): pass diff --git a/contracts/tests/CFA12Test.py b/contracts/tests/CFA12Test.py index 295ab56a..1a75964e 100644 --- a/contracts/tests/CFA12Test.py +++ b/contracts/tests/CFA12Test.py @@ -36,7 +36,9 @@ def test(): fa12 = FA12Mock.FA12Mock() scenario += fa12 view_result = RV.ViewerNat() + view_result_pair = RV.ViewerNatPair() scenario += view_result + scenario += view_result_pair exchange_rate = int(1e18) c1 = CFA12.CFA12(comptroller_=cmpt.address, interestRateModel_=irm.address, @@ -82,13 +84,13 @@ def test(): scenario.h2("Check getCash") scenario.h3("Before accrueInterest") - scenario += c1.getCash(sp.pair(sp.unit, view_result.typed.targetNat)).run(sender=alice, level=bLevel.next()) - scenario.verify_equal(view_result.data.last, sp.some(100)) + scenario += c1.getCash(sp.pair(sp.unit, view_result_pair.typed.targetNatPair)).run(sender=alice, level=bLevel.next()) + scenario.verify_equal(sp.fst(view_result_pair.data.last.open_some()), 100) scenario.h3("After accrueInterest") scenario += c1.accrueInterest().run(sender=alice, level=bLevel.next()) - scenario += c1.getCash(sp.pair(sp.unit, view_result.typed.targetNat)).run(sender=alice, level=bLevel.next()) - scenario.verify_equal(view_result.data.last, sp.some(110)) + scenario += c1.getCash(sp.pair(sp.unit, view_result_pair.typed.targetNatPair)).run(sender=alice, level=bLevel.next()) + scenario.verify_equal(sp.fst(view_result_pair.data.last.open_some()), 110) scenario.h3("getTotalSupply") scenario += c1.getTotalSupply(sp.pair(sp.unit, view_result.typed.targetNat)).run(sender=alice, level=bLevel.next()) diff --git a/contracts/tests/CFA2Test.py b/contracts/tests/CFA2Test.py index dd8e8510..20844d08 100644 --- a/contracts/tests/CFA2Test.py +++ b/contracts/tests/CFA2Test.py @@ -43,7 +43,9 @@ def test(): symbol= "TK0" ) scenario += fa2 view_result = RV.ViewerNat() + view_result_pair = RV.ViewerNatPair() scenario += view_result + scenario += view_result_pair exchange_rate = int(1e18) c1 = CFA2.CFA2(comptroller_=cmpt.address, interestRateModel_=irm.address, @@ -99,13 +101,13 @@ def test(): scenario.h2("Check getCash") scenario.h3("Before accrueInterest") - scenario += c1.getCash(sp.pair(sp.unit, view_result.typed.targetNat)).run(sender=alice, level=bLevel.next()) - scenario.verify_equal(view_result.data.last, sp.some(100)) + scenario += c1.getCash(sp.pair(sp.unit, view_result_pair.typed.targetNatPair)).run(sender=alice, level=bLevel.next()) + scenario.verify_equal(sp.fst(view_result_pair.data.last.open_some()), 100) scenario.h3("After accrueInterest") scenario += c1.accrueInterest().run(sender=alice, level=bLevel.next()) - scenario += c1.getCash(sp.pair(sp.unit, view_result.typed.targetNat)).run(sender=alice, level=bLevel.next()) - scenario.verify_equal(view_result.data.last, sp.some(200)) + scenario += c1.getCash(sp.pair(sp.unit, view_result_pair.typed.targetNatPair)).run(sender=alice, level=bLevel.next()) + scenario.verify_equal(sp.fst(view_result_pair.data.last.open_some()), 200) scenario.h3("getTotalSupply") scenario += c1.getTotalSupply(sp.pair(sp.unit, view_result.typed.targetNat)).run(sender=alice, level=bLevel.next()) diff --git a/contracts/tests/CTokenTest.py b/contracts/tests/CTokenTest.py index 66a29adf..d1295b2c 100644 --- a/contracts/tests/CTokenTest.py +++ b/contracts/tests/CTokenTest.py @@ -37,6 +37,14 @@ def setActiveOp(self, params): sp.set_type(params, sp.TNat) self.activateOp(params) + # After chaning the return type of getCash() to sp.TPair(sp.TNat, sp.TNat) + # the callbacks in some of the test will not work as it expects sp.TNat + # Added this legacy implementation to use for this test + @sp.utils.view(sp.TNat) + def getCashLegacy(self, params): + sp.set_type(params, sp.TUnit) + sp.result(self.getCashImpl()) + @sp.add_test(name = "CToken_Tests") def test(): @@ -63,8 +71,10 @@ def test(): # Contracts scenario.h2("Contracts") view_result = RV.ViewerNat() + view_result_pair = RV.ViewerNatPair() cmpt = CMPT.ComptrollerMock() scenario += view_result + scenario += view_result_pair scenario += cmpt irm = IRM.InterestRateModelMock(borrowRate_=sp.nat(80000000000), supplyRate_=sp.nat(180000000000)) scenario += irm @@ -115,7 +125,7 @@ def test(): scenario += c1.mint(1000).run(sender=bob, level=bLevel.current()) scenario.verify(c1.data.ledger[bob.address].balance == sp.nat(1000 * ctoken_decimals)) scenario.h3("Try mint in callback") - scenario += c1.getCash(sp.pair(sp.unit, c1.typed.mint)).run(sender=alice, level=bLevel.next(), valid=False) + scenario += c1.getCashLegacy(sp.pair(sp.unit, c1.typed.mint)).run(sender=alice, level=bLevel.next(), valid=False) scenario.h2("Test Borrow") scenario.h3("Borrow allowed") @@ -136,7 +146,7 @@ def test(): DataRelevance.updateAccrueInterest(scenario, bLevel, alice, c1) scenario += c1.borrow(1100 * ctoken_decimals + 1).run(sender=carl, level=bLevel.current(), valid=False) scenario.h3("Try borrow in callback") - scenario += c1.getCash(sp.pair(sp.unit, c1.typed.borrow)).run(sender=alice, level=bLevel.current(), valid=False) + scenario += c1.getCashLegacy(sp.pair(sp.unit, c1.typed.borrow)).run(sender=alice, level=bLevel.current(), valid=False) scenario.h2("Test Redeem") scenario.h3("Redeem allowed") @@ -159,9 +169,9 @@ def test(): scenario += c1.redeemUnderlying(10).run(sender=alice, level=bLevel.current()) scenario.verify(c1.data.ledger[alice.address].balance == sp.nat(30188679)) # due to exchange rate changes: 10 underlying < 10 000 000 CToken scenario.h3("Try redeem in callback") - scenario += c1.getCash(sp.pair(sp.unit, c1.typed.redeem)).run(sender=alice, level=bLevel.next(), valid=False) + scenario += c1.getCashLegacy(sp.pair(sp.unit, c1.typed.redeem)).run(sender=alice, level=bLevel.next(), valid=False) scenario.h3("Try redeem underlying in callback") - scenario += c1.getCash(sp.pair(sp.unit, c1.typed.redeemUnderlying)).run(sender=alice, level=bLevel.next(), valid=False) + scenario += c1.getCashLegacy(sp.pair(sp.unit, c1.typed.redeemUnderlying)).run(sender=alice, level=bLevel.next(), valid=False) scenario.h2("Test Repay borrow") scenario.h3("Repay borrow allowed") @@ -186,7 +196,7 @@ def test(): scenario.show(c1.data.borrows[alice.address].principal) scenario.verify(c1.data.borrows[alice.address].principal == sp.nat(0)) scenario.h3("Try repayBorrow in callback") - scenario += c1.getCash(sp.pair(sp.unit, c1.typed.redeem)).run(sender=alice, level=bLevel.current(), valid=False) + scenario += c1.getCashLegacy(sp.pair(sp.unit, c1.typed.redeem)).run(sender=alice, level=bLevel.current(), valid=False) scenario.h2("Test transfer") @@ -244,7 +254,7 @@ def test(): amountArg = sp.nat(10) scenario += c1.addReserves(amountArg).run(sender = alice, level = bLevel.next()) scenario.h4("Try add reserves in callback") - scenario += c1.getCash(sp.pair(sp.unit, c1.typed.addReserves)).run(sender=alice, level=bLevel.next(), valid=False) + scenario += c1.getCashLegacy(sp.pair(sp.unit, c1.typed.addReserves)).run(sender=alice, level=bLevel.next(), valid=False) scenario.h3("Reduce reserves") amountArg = sp.nat(5) @@ -262,16 +272,15 @@ def test(): #Test views scenario.h2("Test getBalanceOfUnderlying") scenario.h3("View stored balance") - scenario += c1.getBalanceOfUnderlying(sp.pair(alice.address, view_result.typed.targetNat)).run(sender = alice, level = bLevel.next()) - scenario.verify_equal(view_result.data.last, sp.some(30)) + scenario += c1.getBalanceOfUnderlying(sp.pair(alice.address, view_result_pair.typed.targetNatPair)).run(sender = alice, level = bLevel.next()) + scenario.verify_equal(sp.fst(view_result_pair.data.last.open_some()), 30) scenario.h3("Mint new tokens and check balance") DataRelevance.updateAccrueInterest(scenario, bLevel, alice, c1) scenario += c1.mint(100).run(sender=alice, level=bLevel.current()) - scenario += c1.getBalanceOfUnderlying(sp.pair(alice.address, view_result.typed.targetNat)).run(sender = alice, level = bLevel.current()) - scenario.verify_equal(view_result.data.last, sp.some(130)) + scenario += c1.getBalanceOfUnderlying(sp.pair(alice.address, view_result_pair.typed.targetNatPair)).run(sender = alice, level = bLevel.current()) + scenario.verify_equal(sp.fst(view_result_pair.data.last.open_some()), 130) scenario.h3("Try with nonexistent account") - scenario += c1.getBalanceOfUnderlying(sp.pair(collateralToken, view_result.typed.targetNat)).run(sender = alice, level = bLevel.current(), valid=False) - + scenario += c1.getBalanceOfUnderlying(sp.pair(collateralToken, view_result_pair.typed.targetNatPair)).run(sender = alice, level = bLevel.current(), valid=False) scenario.h2("Test getAccountSnapshot") DataRelevance.updateAccrueInterest(scenario, bLevel, alice, c1) scenario += c1.updateAccountSnapshot(alice.address).run(sender = alice, level = bLevel.current()) diff --git a/contracts/tests/CXTZTest.py b/contracts/tests/CXTZTest.py index ee74f955..159e3826 100644 --- a/contracts/tests/CXTZTest.py +++ b/contracts/tests/CXTZTest.py @@ -36,7 +36,9 @@ def test(): scenario += irm view_result = RV.ViewerNat() + view_result_pair = RV.ViewerNatPair() scenario += view_result + scenario += view_result_pair c1 = CXTZ.CXTZ(comptroller_=cmpt.address, interestRateModel_=irm.address, @@ -71,8 +73,8 @@ def test(): scenario.verify(c1.data.ledger[admin.address].balance == sp.nat(20)) scenario.h2("getCash") - scenario += c1.getCash(sp.pair(sp.unit, view_result.typed.targetNat)).run(sender=alice, level=bLevel.next()) - scenario.verify_equal(view_result.data.last, sp.some(797)) + scenario += c1.getCash(sp.pair(sp.unit, view_result_pair.typed.targetNatPair)).run(sender=alice, level=bLevel.next()) + scenario.verify_equal(sp.fst(view_result_pair.data.last.open_some()), 797) scenario.h2("getTotalSupply") scenario += c1.getTotalSupply(sp.pair(sp.unit, view_result.typed.targetNat)).run(sender=alice, level=bLevel.next()) @@ -83,8 +85,8 @@ def test(): scenario += c1.borrow(sp.nat(777)).run(sender=alice, level=bLevel.current()) scenario.h2("getCash after transferOut call") - scenario += c1.getCash(sp.pair(sp.unit, view_result.typed.targetNat)).run(sender=alice, level=bLevel.next()) - scenario.verify_equal(view_result.data.last, sp.some(20)) + scenario += c1.getCash(sp.pair(sp.unit, view_result_pair.typed.targetNatPair)).run(sender=alice, level=bLevel.next()) + scenario.verify_equal(sp.fst(view_result_pair.data.last.open_some()), 20) scenario.h2("Try sweepMutez") scenario += c1.sweepMutez(sp.bool(False)).run(sender=admin, level=bLevel.next(), valid=False) diff --git a/contracts/tests/utils/ResultViewer.py b/contracts/tests/utils/ResultViewer.py index 85f9ce49..fbff49d1 100644 --- a/contracts/tests/utils/ResultViewer.py +++ b/contracts/tests/utils/ResultViewer.py @@ -18,6 +18,15 @@ def targetNat(self, params): sp.set_type(params, sp.TNat) self.data.last = sp.some(params) +class ViewerNatPair(Viewer): + def __init__(self): + Viewer.__init__(self, sp.TPair(sp.TNat, sp.TNat)) + + @sp.entry_point + def targetNatPair(self, params): + sp.set_type(params, sp.TPair(sp.TNat, sp.TNat)) + self.data.last = sp.some(params) + class ViewerInt(Viewer): def __init__(self): Viewer.__init__(self, sp.TInt) From f96503a4f92239887b2d95a1abcdd9bb3df970d3 Mon Sep 17 00:00:00 2001 From: "ilya.razievskij" Date: Wed, 21 May 2025 12:41:21 +0300 Subject: [PATCH 4/9] fix: views fail gracefully --- contracts/CToken.py | 8 ++++-- contracts/Comptroller.py | 37 ++++++++++++++++----------- contracts/errors/ComptrollerErrors.py | 1 + contracts/tests/mock/CTokenMock.py | 2 +- 4 files changed, 30 insertions(+), 18 deletions(-) diff --git a/contracts/CToken.py b/contracts/CToken.py index 13886b6a..0522722b 100644 --- a/contracts/CToken.py +++ b/contracts/CToken.py @@ -590,11 +590,15 @@ def getAccountSnapshot(self, params): params: TAddress - The address of the account to snapshot - return: TAccountSnapshot - account balance information + return: some(TAccountSnapshot) - account balance information (the fields will be set to 0 if account does not exist) + or none if the data is not relevant """ @sp.onchain_view() def getAccountSnapshotView(self, params): - sp.result(self.helpAccountSnapshot(params)) + sp.if (self.data.accrualBlockNumber == sp.level) | (~self.data.ledger.contains(params)): + sp.result(sp.some(self.helpAccountSnapshot(params))) + sp.else: + sp.result(sp.none) """ Return the borrow balance of account based on stored data diff --git a/contracts/Comptroller.py b/contracts/Comptroller.py index 6fc2ad28..e183eea1 100644 --- a/contracts/Comptroller.py +++ b/contracts/Comptroller.py @@ -451,26 +451,31 @@ def liquidateBorrowAllowed(self, params): """ Determines whether a seize is allwed - return: TBool - return true if a seize is allowed + return: TBool - return true if a seize is allowed , false otherwise """ @sp.onchain_view() def seizeAllowed(self, params): sp.set_type(params, sp.TRecord(cTokenCollateral=sp.TAddress, cTokenBorrowed=sp.TAddress)) # liquidator is not used, left here for future proofing - self.verifyMarketListed(params.cTokenBorrowed) - self.verifyMarketListed(params.cTokenCollateral) - - borrowComptroller = sp.view("comptroller", params.cTokenBorrowed, sp.unit, - t=sp.TAddress).open_some("INVALID COMPTROLLER VIEW") - - collateralComptroller = sp.view("comptroller", params.cTokenCollateral, sp.unit, - t=sp.TAddress).open_some("INVALID COMPTROLLER VIEW") - - sp.verify(borrowComptroller == collateralComptroller, - EC.CMPT_COMPTROLLER_MISMATCH) + borrowMarketValid = self.data.markets.contains(params.cTokenBorrowed) & \ + self.data.markets[params.cTokenBorrowed].isListed + + collateralMarketValid = self.data.markets.contains(params.cTokenCollateral) & \ + self.data.markets[params.cTokenCollateral].isListed - sp.result(True) + sp.if ~borrowMarketValid | ~collateralMarketValid: + sp.result(False) + sp.else: + borrowComptrollerOpt = sp.view("comptroller", params.cTokenBorrowed, sp.unit, t=sp.TAddress) + collateralComptrollerOpt = sp.view("comptroller", params.cTokenCollateral, sp.unit, t=sp.TAddress) + + sp.if borrowComptrollerOpt.is_none() | collateralComptrollerOpt.is_none(): + sp.result(False) + sp.else: + borrowComptroller = borrowComptrollerOpt.open_some() + collateralComptroller = collateralComptrollerOpt.open_some() + sp.result(borrowComptroller == collateralComptroller) def calculateCurrentAccountLiquidityWithView(self, account): return self.calculateAccountLiquidityWithView(sp.record(account=account)) @@ -508,8 +513,10 @@ def calculateAccountLiquidityWithView(self, params): return calculation def calculateAccountAssetLiquidityView(self, asset, account): - params = sp.view("getAccountSnapshotView", asset, account, - t=CTI.TAccountSnapshot).open_some("INVALID ACCOUNT SNAPSHOT VIEW") + paramsOption = sp.view("getAccountSnapshotView", asset, account, + t=sp.TOption(CTI.TAccountSnapshot)).open_some("INVALID ACCOUNT SNAPSHOT VIEW") + sp.verify(paramsOption.is_some(), EC.CMPT_OUTDATED_ACCOUNT_SNAPSHOT) + params = paramsOption.open_some() exchangeRate = sp.compute(self.makeExp(params.exchangeRateMantissa)) self.checkPriceErrors(asset) priceIndex = self.mul_exp_exp( diff --git a/contracts/errors/ComptrollerErrors.py b/contracts/errors/ComptrollerErrors.py index 88daa2bb..e0b970b4 100644 --- a/contracts/errors/ComptrollerErrors.py +++ b/contracts/errors/ComptrollerErrors.py @@ -51,3 +51,4 @@ class ErrorCodes: CMPT_TOO_MUCH_REPAY = "CMPT_TOO_MUCH_REPAY" # comptroller addresses for collateral token and borrowed token do not match CMPT_COMPTROLLER_MISMATCH = "CMPT_COMPTROLLER_MISMATCH" + CMPT_OUTDATED_ACCOUNT_SNAPSHOT = "CMPT_OUTDATED_ACCOUNT_SNAPHOT" diff --git a/contracts/tests/mock/CTokenMock.py b/contracts/tests/mock/CTokenMock.py index a46b66ef..6593eb82 100644 --- a/contracts/tests/mock/CTokenMock.py +++ b/contracts/tests/mock/CTokenMock.py @@ -20,7 +20,7 @@ def getAccountSnapshot(self, account): @sp.onchain_view() def getAccountSnapshotView(self, account): sp.set_type(account, sp.TAddress) - sp.result(self.data.test_account_snapshot) + sp.result(sp.some(self.data.test_account_snapshot)) @sp.entry_point def accrueInterest(self, params): From 82ee6c1479c6c076d752fcf24f50f939594312ac Mon Sep 17 00:00:00 2001 From: "ilya.razievskij" Date: Wed, 21 May 2025 14:54:53 +0300 Subject: [PATCH 5/9] chore: gas optimisations --- contracts/CToken.py | 8 +++---- contracts/Comptroller.py | 22 ++++++++++-------- contracts/InterestRateModel.py | 23 +++++++++++-------- contracts/TezFinOracle.py | 3 ++- .../interfaces/InterestRateModelInterface.py | 6 +++++ 5 files changed, 37 insertions(+), 25 deletions(-) diff --git a/contracts/CToken.py b/contracts/CToken.py index 0522722b..e995e15e 100644 --- a/contracts/CToken.py +++ b/contracts/CToken.py @@ -258,13 +258,13 @@ def repayBorrowBehalf(self, params): def repayBorrowInternal(self, params): self.verifyAccruedInterestRelevance() accountBorrows = self.getBorrowBalance(params.borrower) - repayAmount = sp.min(accountBorrows, params.repayAmount) - self.doTransferIn(params.payer, repayAmount) + repayAmount = sp.local("repayAmount", sp.min(accountBorrows, params.repayAmount)) + self.doTransferIn(params.payer, repayAmount.value) self.data.borrows[params.borrower].principal = self.sub_nat_nat( - accountBorrows, repayAmount) + accountBorrows, repayAmount.value) self.data.borrows[params.borrower].interestIndex = self.data.borrowIndex self.data.totalBorrows = self.sub_nat_nat( - self.data.totalBorrows, repayAmount) + self.data.totalBorrows, repayAmount.value) sp.if self.data.borrows[params.borrower].principal == 0: c = sp.contract(sp.TAddress, self.data.comptroller, entry_point="removeFromLoans").open_some() diff --git a/contracts/Comptroller.py b/contracts/Comptroller.py index e183eea1..c70e79ce 100644 --- a/contracts/Comptroller.py +++ b/contracts/Comptroller.py @@ -291,13 +291,15 @@ def updateAllAssetPricesWithView(self): def updateAllAssetPrices(self): sp.for asset in self.data.marketNameToAddress.values(): sp.if self.data.markets[asset].updateLevel < sp.level: - pricePair = sp.view("getPrice", self.data.oracleAddress, self.data.markets[asset].name + "-USD", t=sp.TPair( - sp.TTimestamp, sp.TNat)).open_some("invalid oracle view call") + pricePair = sp.local("pricePair", + sp.view("getPrice", self.data.oracleAddress, self.data.markets[asset].name + "-USD", + t=sp.TPair(sp.TTimestamp, sp.TNat)).open_some("invalid oracle view call") + ) sp.if self.data.markets[asset].priceTimestamp!= sp.timestamp(0): - sp.verify(sp.now - sp.fst(pricePair) <= self.data.maxPriceTimeDifference, "STALE_ASSET_PRICE") + sp.verify(sp.now - sp.fst(pricePair.value) <= self.data.maxPriceTimeDifference, "STALE_ASSET_PRICE") self.data.markets[asset].price = self.makeExp( - sp.snd(pricePair)*self.data.markets[asset].priceExp) - self.data.markets[asset].priceTimestamp = sp.fst(pricePair) + sp.snd(pricePair.value)*self.data.markets[asset].priceExp) + self.data.markets[asset].priceTimestamp = sp.fst(pricePair.value) self.data.markets[asset].updateLevel = sp.level def getAssetPrice(self, asset): @@ -516,8 +518,8 @@ def calculateAccountAssetLiquidityView(self, asset, account): paramsOption = sp.view("getAccountSnapshotView", asset, account, t=sp.TOption(CTI.TAccountSnapshot)).open_some("INVALID ACCOUNT SNAPSHOT VIEW") sp.verify(paramsOption.is_some(), EC.CMPT_OUTDATED_ACCOUNT_SNAPSHOT) - params = paramsOption.open_some() - exchangeRate = sp.compute(self.makeExp(params.exchangeRateMantissa)) + params = sp.local("params", paramsOption.open_some()) + exchangeRate = sp.compute(self.makeExp(params.value.exchangeRateMantissa)) self.checkPriceErrors(asset) priceIndex = self.mul_exp_exp( self.data.markets[asset].price, self.data.markets[asset].collateralFactor) @@ -525,11 +527,11 @@ def calculateAccountAssetLiquidityView(self, asset, account): calc = sp.local('calc', sp.record(sumCollateral=sp.nat( 0), sumBorrowPlusEffects=sp.nat(0))).value # incase of only borrow don't consider supply as collateral - sp.if self.data.collaterals.contains(params.account) & self.data.collaterals[params.account].contains(asset): + sp.if self.data.collaterals.contains(params.value.account) & self.data.collaterals[params.value.account].contains(asset): calc.sumCollateral += self.mulScalarTruncate( - tokensToDenom, params.cTokenBalance) + tokensToDenom, params.value.cTokenBalance) calc.sumBorrowPlusEffects += self.mulScalarTruncate( - self.data.markets[asset].price, params.borrowBalance) + self.data.markets[asset].price, params.value.borrowBalance) return calc """ diff --git a/contracts/InterestRateModel.py b/contracts/InterestRateModel.py index 8358b14e..88e6d99f 100644 --- a/contracts/InterestRateModel.py +++ b/contracts/InterestRateModel.py @@ -29,8 +29,8 @@ def __init__(self, multiplierPerBlock_, baseRatePerBlock_, scale_, **extra_stora @sp.entry_point def getBorrowRate(self, params): sp.set_type(params, IRMInterface.TBorrowRateParams) - utRate = self.utilizationRate( - params.cash, params.borrows, params.reserves) + utRate = self.utilizationRate(sp.record( + cash=params.cash, borrows=params.borrows, reserves=params.reserves)) result = self.calculateBorrowRate(utRate) sp.transfer(result, sp.mutez(0), params.cb) @@ -46,20 +46,23 @@ def getSupplyRate(self, params): sp.set_type(params, IRMInterface.TSupplyRateParams) oneMinusReserveFactor = sp.as_nat( self.data.scale - params.reserveFactorMantissa) - utRate = self.utilizationRate( - params.cash, params.borrows, params.reserves) + utRate = self.utilizationRate(sp.record( + cash=params.cash, borrows=params.borrows, reserves=params.reserves)) borrowRate = self.calculateBorrowRate(utRate) rateToPool = borrowRate * oneMinusReserveFactor // self.data.scale result = utRate * rateToPool // self.data.scale sp.transfer(result, sp.mutez(0), params.cb) - def utilizationRate(self, cash, borrows, reserves): + @sp.private_lambda(with_storage="read-only") + def utilizationRate(self, params): + sp.set_type(params, IRMInterface.TUtilizationParams) ur = sp.local('ur', sp.nat(0)) - sp.if borrows > sp.nat(0): - divisor = sp.compute(sp.as_nat(cash + borrows - reserves)) + sp.if params.borrows > sp.nat(0): + divisor = sp.compute(sp.as_nat(params.cash + params.borrows - params.reserves)) sp.verify(divisor > 0, EC.IRM_INSUFFICIENT_CASH) - ur.value = borrows * self.data.scale // divisor - return ur.value + ur.value = params.borrows * self.data.scale // divisor + sp.result(ur.value) + @sp.private_lambda(with_storage="read-only") def calculateBorrowRate(self, utRate): - return sp.compute(utRate * self.data.multiplierPerBlock // self.data.scale + self.data.baseRatePerBlock) + sp.result(sp.compute(utRate * self.data.multiplierPerBlock // self.data.scale + self.data.baseRatePerBlock)) diff --git a/contracts/TezFinOracle.py b/contracts/TezFinOracle.py index afb562d4..80f89655 100644 --- a/contracts/TezFinOracle.py +++ b/contracts/TezFinOracle.py @@ -22,8 +22,9 @@ def __init__(self, admin, oracle): pendingAdmin=sp.none, ) + @sp.private_lambda(with_storage="read-only") def is_admin(self, address): - return address == self.data.admin + sp.result(address == self.data.admin) @sp.entry_point def set_oracle(self, address): diff --git a/contracts/interfaces/InterestRateModelInterface.py b/contracts/interfaces/InterestRateModelInterface.py index 1dd66b8e..0bfa6d7b 100644 --- a/contracts/interfaces/InterestRateModelInterface.py +++ b/contracts/interfaces/InterestRateModelInterface.py @@ -25,6 +25,12 @@ TSupplyRateParams = sp.TRecord(cash=sp.TNat, borrows=sp.TNat, reserves=sp.TNat, reserveFactorMantissa=sp.TNat, cb=TCallback) +TUtilizationParams = sp.TRecord( + cash=sp.TNat, + borrows=sp.TNat, + reserves=sp.TNat +) + class InterestRateModelInterface(sp.Contract): From c884a86bc9922de9d0e14193d18752beea8fbb77 Mon Sep 17 00:00:00 2001 From: "ilya.razievskij" Date: Fri, 23 May 2025 17:49:19 +0300 Subject: [PATCH 6/9] fix: repayBorrow underflow fix --- contracts/CToken.py | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/contracts/CToken.py b/contracts/CToken.py index e995e15e..020811ce 100644 --- a/contracts/CToken.py +++ b/contracts/CToken.py @@ -259,12 +259,15 @@ def repayBorrowInternal(self, params): self.verifyAccruedInterestRelevance() accountBorrows = self.getBorrowBalance(params.borrower) repayAmount = sp.local("repayAmount", sp.min(accountBorrows, params.repayAmount)) + # Underflow protection + actualRepayAmount = sp.local("actualRepayAmount", + sp.min(repayAmount.value, self.data.totalBorrows)) self.doTransferIn(params.payer, repayAmount.value) self.data.borrows[params.borrower].principal = self.sub_nat_nat( accountBorrows, repayAmount.value) self.data.borrows[params.borrower].interestIndex = self.data.borrowIndex self.data.totalBorrows = self.sub_nat_nat( - self.data.totalBorrows, repayAmount.value) + self.data.totalBorrows, actualRepayAmount.value) sp.if self.data.borrows[params.borrower].principal == 0: c = sp.contract(sp.TAddress, self.data.comptroller, entry_point="removeFromLoans").open_some() From 1c7a5bfc65e3b7c0ad561a79c3eb9a68f4f7937d Mon Sep 17 00:00:00 2001 From: "ilya.razievskij" Date: Fri, 23 May 2025 18:08:41 +0300 Subject: [PATCH 7/9] chore: compiled contracts update --- compiled_contracts/CFA12_IRM/log.txt | 18 +- .../CFA12_IRM/step_000_cont_0_contract.json | 241 +- .../CFA12_IRM/step_000_cont_0_contract.py | 37 +- .../CFA12_IRM/step_000_cont_0_contract.tz | 395 +-- .../CFA12_IRM/step_000_cont_0_sizes.csv | 2 +- .../CFA12_IRM/step_000_cont_0_storage.json | 2 +- .../CFA12_IRM/step_000_cont_0_storage.py | 2 +- .../CFA12_IRM/step_000_cont_0_storage.tz | 2 +- .../CFA12_IRM/step_000_cont_0_types.py | 2 +- compiled_contracts/CFA2_IRM/log.txt | 18 +- .../CFA2_IRM/step_000_cont_0_contract.json | 241 +- .../CFA2_IRM/step_000_cont_0_contract.py | 37 +- .../CFA2_IRM/step_000_cont_0_contract.tz | 395 +-- .../CFA2_IRM/step_000_cont_0_sizes.csv | 2 +- .../CFA2_IRM/step_000_cont_0_storage.json | 2 +- .../CFA2_IRM/step_000_cont_0_storage.py | 2 +- .../CFA2_IRM/step_000_cont_0_storage.tz | 2 +- .../CFA2_IRM/step_000_cont_0_types.py | 2 +- compiled_contracts/CUSDt/log.txt | 10 +- .../CUSDt/step_000_cont_0_contract.json | 951 ++++--- .../CUSDt/step_000_cont_0_contract.py | 154 +- .../CUSDt/step_000_cont_0_contract.tz | 2146 ++++++++------- .../CUSDt/step_000_cont_0_sizes.csv | 4 +- .../CUSDt/step_000_cont_0_storage.json | 161 +- .../CUSDt/step_000_cont_0_storage.tz | 2 +- .../CUSDt/step_000_cont_0_types.py | 4 +- compiled_contracts/CUSDtz/log.txt | 10 +- .../CUSDtz/step_000_cont_0_contract.json | 945 ++++--- .../CUSDtz/step_000_cont_0_contract.py | 154 +- .../CUSDtz/step_000_cont_0_contract.tz | 2084 ++++++++------- .../CUSDtz/step_000_cont_0_sizes.csv | 4 +- .../CUSDtz/step_000_cont_0_storage.json | 162 +- .../CUSDtz/step_000_cont_0_storage.tz | 2 +- .../CUSDtz/step_000_cont_0_types.py | 4 +- compiled_contracts/CXTZ/log.txt | 10 +- .../CXTZ/step_000_cont_0_contract.json | 961 +++---- .../CXTZ/step_000_cont_0_contract.py | 166 +- .../CXTZ/step_000_cont_0_contract.tz | 2331 +++++++++-------- .../CXTZ/step_000_cont_0_sizes.csv | 4 +- .../CXTZ/step_000_cont_0_storage.json | 164 +- .../CXTZ/step_000_cont_0_storage.tz | 2 +- .../CXTZ/step_000_cont_0_types.py | 4 +- compiled_contracts/CXTZ_IRM/log.txt | 18 +- .../CXTZ_IRM/step_000_cont_0_contract.json | 241 +- .../CXTZ_IRM/step_000_cont_0_contract.py | 37 +- .../CXTZ_IRM/step_000_cont_0_contract.tz | 395 +-- .../CXTZ_IRM/step_000_cont_0_sizes.csv | 2 +- .../CXTZ_IRM/step_000_cont_0_storage.json | 2 +- .../CXTZ_IRM/step_000_cont_0_storage.py | 2 +- .../CXTZ_IRM/step_000_cont_0_storage.tz | 2 +- .../CXTZ_IRM/step_000_cont_0_types.py | 2 +- compiled_contracts/Comptroller/log.txt | 18 +- .../Comptroller/step_000_cont_0_contract.json | 1126 ++------ .../Comptroller/step_000_cont_0_contract.py | 318 +-- .../Comptroller/step_000_cont_0_contract.tz | 1484 +++++------ .../Comptroller/step_000_cont_0_sizes.csv | 4 +- .../Comptroller/step_000_cont_0_storage.json | 2032 +++++--------- .../Comptroller/step_000_cont_0_storage.py | 2 +- .../Comptroller/step_000_cont_0_storage.tz | 2 +- .../Comptroller/step_000_cont_0_types.py | 2 +- compiled_contracts/CtzBTC/log.txt | 10 +- .../CtzBTC/step_000_cont_0_contract.json | 945 ++++--- .../CtzBTC/step_000_cont_0_contract.py | 154 +- .../CtzBTC/step_000_cont_0_contract.tz | 2084 ++++++++------- .../CtzBTC/step_000_cont_0_sizes.csv | 4 +- .../CtzBTC/step_000_cont_0_storage.json | 162 +- .../CtzBTC/step_000_cont_0_storage.tz | 2 +- .../CtzBTC/step_000_cont_0_types.py | 4 +- compiled_contracts/TezFinOracle/log.txt | 8 +- .../step_000_cont_0_contract.json | 187 +- .../TezFinOracle/step_000_cont_0_contract.py | 18 +- .../TezFinOracle/step_000_cont_0_contract.tz | 357 ++- .../TezFinOracle/step_000_cont_0_sizes.csv | 2 +- .../TezFinOracle/step_000_cont_0_storage.json | 4 +- .../TezFinOracle/step_000_cont_0_storage.py | 2 +- .../TezFinOracle/step_000_cont_0_storage.tz | 2 +- .../TezFinOracle/step_000_cont_0_types.py | 2 +- compiled_contracts/scenario.json | 6 +- compiled_contracts/script_init.py | 33 +- compiled_contracts/script_pure.py | 33 +- 80 files changed, 10685 insertions(+), 10864 deletions(-) diff --git a/compiled_contracts/CFA12_IRM/log.txt b/compiled_contracts/CFA12_IRM/log.txt index 3689f56d..a07ae943 100644 --- a/compiled_contracts/CFA12_IRM/log.txt +++ b/compiled_contracts/CFA12_IRM/log.txt @@ -1,10 +1,10 @@ Creating contract KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 - -> (Pair 950642634 (Pair 76000000000 1000000000000000000)) - => ./TezFinBuild/compiled_contracts/CFA12_IRM/step_000_cont_0_storage.tz 1 - => ./TezFinBuild/compiled_contracts/CFA12_IRM/step_000_cont_0_storage.json 1 - => ./TezFinBuild/compiled_contracts/CFA12_IRM/step_000_cont_0_sizes.csv 2 - => ./TezFinBuild/compiled_contracts/CFA12_IRM/step_000_cont_0_storage.py 1 - => ./TezFinBuild/compiled_contracts/CFA12_IRM/step_000_cont_0_types.py 7 - => ./TezFinBuild/compiled_contracts/CFA12_IRM/step_000_cont_0_contract.tz 240 - => ./TezFinBuild/compiled_contracts/CFA12_IRM/step_000_cont_0_contract.json 217 - => ./TezFinBuild/compiled_contracts/CFA12_IRM/step_000_cont_0_contract.py 32 + -> (Pair 760514107 (Pair 334400000000 1000000000000000000)) + => ./compiled_contracts/CFA12_IRM/step_000_cont_0_storage.tz 1 + => ./compiled_contracts/CFA12_IRM/step_000_cont_0_storage.json 1 + => ./compiled_contracts/CFA12_IRM/step_000_cont_0_sizes.csv 2 + => ./compiled_contracts/CFA12_IRM/step_000_cont_0_storage.py 1 + => ./compiled_contracts/CFA12_IRM/step_000_cont_0_types.py 7 + => ./compiled_contracts/CFA12_IRM/step_000_cont_0_contract.tz 241 + => ./compiled_contracts/CFA12_IRM/step_000_cont_0_contract.json 260 + => ./compiled_contracts/CFA12_IRM/step_000_cont_0_contract.py 35 diff --git a/compiled_contracts/CFA12_IRM/step_000_cont_0_contract.json b/compiled_contracts/CFA12_IRM/step_000_cont_0_contract.json index da7d886a..d2db6b93 100644 --- a/compiled_contracts/CFA12_IRM/step_000_cont_0_contract.json +++ b/compiled_contracts/CFA12_IRM/step_000_cont_0_contract.json @@ -47,84 +47,55 @@ "prim": "code", "args": [ [ - { "prim": "UNPAIR" }, { - "prim": "IF_LEFT", + "prim": "LAMBDA", "args": [ + { + "prim": "pair", + "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ] + }, + { + "prim": "pair", + "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ] + }, [ - { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "UNPAIR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "COMPARE" }, - { "prim": "GT" }, - { - "prim": "IF", - "args": [ - [ - { "prim": "DROP" }, - { "prim": "DUP" }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "3" } ] }, - { "prim": "CAR" }, - { "prim": "CDR" }, - { "prim": "ADD" }, - { "prim": "SUB" }, - { "prim": "ISNAT" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "59" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP" }, - { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "COMPARE" }, - { "prim": "LT" }, - { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "IRM_INSUFFICIENT_CASH" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "MUL" }, - { "prim": "EDIV" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "61" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } - ], - [] - ] - }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, - { "prim": "DUP" }, - { "prim": "CAR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "MUL" }, { "prim": "EDIV" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "65" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "68" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] }, { "prim": "ADD" }, - { "prim": "NIL", "args": [ { "prim": "operation" } ] }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, - { "prim": "DIG", "args": [ { "int": "3" } ] }, - { "prim": "TRANSFER_TOKENS" }, - { "prim": "CONS" } - ], + { "prim": "PAIR" } + ] + ] + }, + { "prim": "SWAP" }, + { + "prim": "LAMBDA", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }, + { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } + ] + }, + { + "prim": "pair", + "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ] + }, [ + { "prim": "UNPAIR" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CAR" }, { "prim": "COMPARE" }, { "prim": "GT" }, { @@ -133,75 +104,147 @@ [ { "prim": "DROP" }, { "prim": "DUP" }, - { "prim": "GET", "args": [ { "int": "6" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, - { "prim": "CDR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "ADD" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "59" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "61" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "COMPARE" }, - { "prim": "LT" }, + { "prim": "GT" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "IRM_INSUFFICIENT_CASH" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "CAR" }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "MUL" }, { "prim": "EDIV" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "61" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "63" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], - [] + [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, - { "prim": "DUP" }, - { "prim": "CAR" }, - { "prim": "SWAP" }, + { "prim": "PAIR" } + ] + ] + }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { + "prim": "IF_LEFT", + "args": [ + [ + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "DIG", "args": [ { "int": "6" } ] }, + { "prim": "DIG", "args": [ { "int": "6" } ] }, + { "prim": "DIG", "args": [ { "int": "5" } ] }, { "prim": "DUP" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SWAP" }, { "prim": "DUP" }, + { "prim": "CAR" }, + { "prim": "CDR" }, + { "prim": "SWAP" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "prim": "SWAP" }, + { "prim": "DIG", "args": [ { "int": "6" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "PAIR" }, + { "prim": "EXEC" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, { "prim": "DUG", "args": [ { "int": "5" } ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, - { "prim": "MUL" }, - { "prim": "EDIV" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "65" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] }, - { "prim": "ADD" }, + { "prim": "SWAP" }, + { "prim": "DIG", "args": [ { "int": "5" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "PAIR" }, + { "prim": "EXEC" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "DUG", "args": [ { "int": "4" } ] }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ], + [ { "prim": "NIL", "args": [ { "prim": "operation" } ] }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, - { "prim": "DIG", "args": [ { "int": "6" } ] }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "8" } ] }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DIG", "args": [ { "int": "7" } ] }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "47" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DIG", "args": [ { "int": "6" } ] }, + { "prim": "DIG", "args": [ { "int": "9" } ] }, + { "prim": "DUP", "args": [ { "int": "10" } ] }, + { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "GET", "args": [ { "int": "6" } ] }, + { "prim": "DUP", "args": [ { "int": "10" } ] }, + { "prim": "CAR" }, + { "prim": "CDR" }, + { "prim": "DUP", "args": [ { "int": "11" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "prim": "SWAP" }, + { "prim": "DIG", "args": [ { "int": "10" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "PAIR" }, + { "prim": "EXEC" }, + { "prim": "UNPAIR" }, + { "prim": "DIG", "args": [ { "int": "10" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "DUG", "args": [ { "int": "10" } ] }, + { "prim": "DUG", "args": [ { "int": "10" } ] }, + { "prim": "SWAP" }, + { "prim": "DIG", "args": [ { "int": "9" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "PAIR" }, + { "prim": "EXEC" }, + { "prim": "UNPAIR" }, + { "prim": "DIG", "args": [ { "int": "9" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "DUG", "args": [ { "int": "9" } ] }, + { "prim": "DUG", "args": [ { "int": "9" } ] }, { "prim": "MUL" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "52" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] }, - { "prim": "DIG", "args": [ { "int": "5" } ] }, + { "prim": "DIG", "args": [ { "int": "7" } ] }, + { "prim": "DIG", "args": [ { "int": "6" } ] }, + { "prim": "DUP" }, + { "prim": "GET", "args": [ { "int": "6" } ] }, + { "prim": "SWAP" }, + { "prim": "DUP" }, + { "prim": "CAR" }, + { "prim": "CDR" }, + { "prim": "SWAP" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "prim": "SWAP" }, + { "prim": "DIG", "args": [ { "int": "7" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "PAIR" }, + { "prim": "EXEC" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "DUG", "args": [ { "int": "6" } ] }, { "prim": "MUL" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "53" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] }, diff --git a/compiled_contracts/CFA12_IRM/step_000_cont_0_contract.py b/compiled_contracts/CFA12_IRM/step_000_cont_0_contract.py index 4b75e3f3..06c2ee51 100644 --- a/compiled_contracts/CFA12_IRM/step_000_cont_0_contract.py +++ b/compiled_contracts/CFA12_IRM/step_000_cont_0_contract.py @@ -3,30 +3,33 @@ class Contract(sp.Contract): def __init__(self): self.init_type(sp.TRecord(baseRatePerBlock = sp.TNat, multiplierPerBlock = sp.TNat, scale = sp.TNat).layout(("baseRatePerBlock", ("multiplierPerBlock", "scale")))) - self.init(baseRatePerBlock = 950642634, - multiplierPerBlock = 76000000000, + self.init(baseRatePerBlock = 760514107, + multiplierPerBlock = 334400000000, scale = 1000000000000000000) - @sp.entry_point + @sp.entrypoint def getBorrowRate(self, params): sp.set_type(params, sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserves = sp.TNat).layout((("borrows", "cash"), ("cb", "reserves")))) - ur = sp.local("ur", 0) - sp.if params.borrows > 0: - compute_InterestRateModel_59 = sp.local("compute_InterestRateModel_59", sp.as_nat((params.cash + params.borrows) - params.reserves)) - sp.verify(compute_InterestRateModel_59.value > 0, 'IRM_INSUFFICIENT_CASH') - ur.value = (params.borrows * self.data.scale) // compute_InterestRateModel_59.value - compute_InterestRateModel_65 = sp.local("compute_InterestRateModel_65", ((ur.value * self.data.multiplierPerBlock) // self.data.scale) + self.data.baseRatePerBlock) - sp.transfer(compute_InterestRateModel_65.value, sp.tez(0), params.cb) + sp.transfer(self.calculateBorrowRate(self.utilizationRate(sp.record(borrows = params.borrows, cash = params.cash, reserves = params.reserves))), sp.tez(0), params.cb) - @sp.entry_point + @sp.entrypoint def getSupplyRate(self, params): sp.set_type(params, sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserveFactorMantissa = sp.TNat, reserves = sp.TNat).layout((("borrows", "cash"), ("cb", ("reserveFactorMantissa", "reserves"))))) + sp.transfer((self.utilizationRate(sp.record(borrows = params.borrows, cash = params.cash, reserves = params.reserves)) * ((self.calculateBorrowRate(self.utilizationRate(sp.record(borrows = params.borrows, cash = params.cash, reserves = params.reserves))) * sp.as_nat(self.data.scale - params.reserveFactorMantissa)) // self.data.scale)) // self.data.scale, sp.tez(0), params.cb) + + @sp.private_lambda() + def calculateBorrowRate(_x0): + compute_InterestRateModel_68 = sp.local("compute_InterestRateModel_68", ((_x0 * self.data.multiplierPerBlock) // self.data.scale) + self.data.baseRatePerBlock) + sp.result(compute_InterestRateModel_68.value) + + @sp.private_lambda() + def utilizationRate(_x2): + sp.set_type(_x2, sp.TRecord(borrows = sp.TNat, cash = sp.TNat, reserves = sp.TNat).layout(("borrows", ("cash", "reserves")))) ur = sp.local("ur", 0) - sp.if params.borrows > 0: - compute_InterestRateModel_59 = sp.local("compute_InterestRateModel_59", sp.as_nat((params.cash + params.borrows) - params.reserves)) - sp.verify(compute_InterestRateModel_59.value > 0, 'IRM_INSUFFICIENT_CASH') - ur.value = (params.borrows * self.data.scale) // compute_InterestRateModel_59.value - compute_InterestRateModel_65 = sp.local("compute_InterestRateModel_65", ((ur.value * self.data.multiplierPerBlock) // self.data.scale) + self.data.baseRatePerBlock) - sp.transfer((ur.value * ((compute_InterestRateModel_65.value * sp.as_nat(self.data.scale - params.reserveFactorMantissa)) // self.data.scale)) // self.data.scale, sp.tez(0), params.cb) + sp.if _x2.borrows > 0: + compute_InterestRateModel_61 = sp.local("compute_InterestRateModel_61", sp.as_nat((_x2.cash + _x2.borrows) - _x2.reserves)) + sp.verify(compute_InterestRateModel_61.value > 0, 'IRM_INSUFFICIENT_CASH') + ur.value = (_x2.borrows * self.data.scale) // compute_InterestRateModel_61.value + sp.result(ur.value) sp.add_compilation_target("test", Contract()) \ No newline at end of file diff --git a/compiled_contracts/CFA12_IRM/step_000_cont_0_contract.tz b/compiled_contracts/CFA12_IRM/step_000_cont_0_contract.tz index aaf5c8b6..3497a27c 100644 --- a/compiled_contracts/CFA12_IRM/step_000_cont_0_contract.tz +++ b/compiled_contracts/CFA12_IRM/step_000_cont_0_contract.tz @@ -2,239 +2,240 @@ parameter (or (pair %getBorrowRate (pair (nat %borrows) (nat %cash)) (pair (cont storage (pair (nat %baseRatePerBlock) (pair (nat %multiplierPerBlock) (nat %scale))); code { - UNPAIR; # @parameter : @storage - IF_LEFT + # Private variable: calculateBorrowRate # pair @parameter @storage + LAMBDA + (pair nat (pair nat (pair nat nat))) + (pair nat (pair nat (pair nat nat))) { - # == getBorrowRate == - # ur = sp.local("ur", 0) # @parameter%getBorrowRate : @storage - PUSH nat 0; # nat : @parameter%getBorrowRate : @storage - # if params.borrows > 0: # nat : @parameter%getBorrowRate : @storage - PUSH nat 0; # nat : nat : @parameter%getBorrowRate : @storage - DUP 3; # @parameter%getBorrowRate : nat : nat : @parameter%getBorrowRate : @storage - CAR; # pair (nat %borrows) (nat %cash) : nat : nat : @parameter%getBorrowRate : @storage - CAR; # nat : nat : nat : @parameter%getBorrowRate : @storage - COMPARE; # int : nat : @parameter%getBorrowRate : @storage - GT; # bool : nat : @parameter%getBorrowRate : @storage - IF - { - DROP; # @parameter%getBorrowRate : @storage - # compute_InterestRateModel_59 = sp.local("compute_InterestRateModel_59", sp.as_nat((params.cash + params.borrows) - params.reserves)) # @parameter%getBorrowRate : @storage - DUP; # @parameter%getBorrowRate : @parameter%getBorrowRate : @storage - GET 4; # nat : @parameter%getBorrowRate : @storage - SWAP; # @parameter%getBorrowRate : nat : @storage - DUP; # @parameter%getBorrowRate : @parameter%getBorrowRate : nat : @storage - CAR; # pair (nat %borrows) (nat %cash) : @parameter%getBorrowRate : nat : @storage - CAR; # nat : @parameter%getBorrowRate : nat : @storage - SWAP; # @parameter%getBorrowRate : nat : nat : @storage - DUP; # @parameter%getBorrowRate : @parameter%getBorrowRate : nat : nat : @storage - DUG 3; # @parameter%getBorrowRate : nat : nat : @parameter%getBorrowRate : @storage - CAR; # pair (nat %borrows) (nat %cash) : nat : nat : @parameter%getBorrowRate : @storage - CDR; # nat : nat : nat : @parameter%getBorrowRate : @storage - ADD; # nat : nat : @parameter%getBorrowRate : @storage - SUB; # int : @parameter%getBorrowRate : @storage - ISNAT; # option nat : @parameter%getBorrowRate : @storage - IF_NONE - { - PUSH int 59; # int : @parameter%getBorrowRate : @storage - FAILWITH; # FAILED - } - {}; # @some : @parameter%getBorrowRate : @storage - # sp.verify(compute_InterestRateModel_59.value > 0, 'IRM_INSUFFICIENT_CASH') # @some : @parameter%getBorrowRate : @storage - DUP; # @some : @some : @parameter%getBorrowRate : @storage - PUSH nat 0; # nat : @some : @some : @parameter%getBorrowRate : @storage - COMPARE; # int : @some : @parameter%getBorrowRate : @storage - LT; # bool : @some : @parameter%getBorrowRate : @storage - IF - {} - { - PUSH string "IRM_INSUFFICIENT_CASH"; # string : @some : @parameter%getBorrowRate : @storage - FAILWITH; # FAILED - }; # @some : @parameter%getBorrowRate : @storage - # ur.value = (params.borrows * self.data.scale) // compute_InterestRateModel_59.value # @some : @parameter%getBorrowRate : @storage - DUP 3; # @storage : @some : @parameter%getBorrowRate : @storage - GET 4; # nat : @some : @parameter%getBorrowRate : @storage - DUP 3; # @parameter%getBorrowRate : nat : @some : @parameter%getBorrowRate : @storage - CAR; # pair (nat %borrows) (nat %cash) : nat : @some : @parameter%getBorrowRate : @storage - CAR; # nat : nat : @some : @parameter%getBorrowRate : @storage - MUL; # nat : @some : @parameter%getBorrowRate : @storage - EDIV; # option (pair nat nat) : @parameter%getBorrowRate : @storage - IF_NONE - { - PUSH int 61; # int : @parameter%getBorrowRate : @storage - FAILWITH; # FAILED - } - { - CAR; # nat : @parameter%getBorrowRate : @storage - }; # nat : @parameter%getBorrowRate : @storage - } - {}; # nat : @parameter%getBorrowRate : @storage - # compute_InterestRateModel_65 = sp.local("compute_InterestRateModel_65", ((ur.value * self.data.multiplierPerBlock) // self.data.scale) + self.data.baseRatePerBlock) # nat : @parameter%getBorrowRate : @storage - DIG 2; # @storage : nat : @parameter%getBorrowRate - DUP; # @storage : @storage : nat : @parameter%getBorrowRate - CAR; # nat : @storage : nat : @parameter%getBorrowRate - SWAP; # @storage : nat : nat : @parameter%getBorrowRate - DUP; # @storage : @storage : nat : nat : @parameter%getBorrowRate - GET 4; # nat : @storage : nat : nat : @parameter%getBorrowRate - SWAP; # @storage : nat : nat : nat : @parameter%getBorrowRate - DUP; # @storage : @storage : nat : nat : nat : @parameter%getBorrowRate - DUG 5; # @storage : nat : nat : nat : @parameter%getBorrowRate : @storage - GET 3; # nat : nat : nat : nat : @parameter%getBorrowRate : @storage - DIG 3; # nat : nat : nat : nat : @parameter%getBorrowRate : @storage - MUL; # nat : nat : nat : @parameter%getBorrowRate : @storage - EDIV; # option (pair nat nat) : nat : @parameter%getBorrowRate : @storage + UNPAIR; # nat : pair nat (pair nat nat) + # compute_InterestRateModel_68 = sp.local("compute_InterestRateModel_68", ((_x0 * self.data.multiplierPerBlock) // self.data.scale) + self.data.baseRatePerBlock) # nat : pair nat (pair nat nat) + DUP 2; # pair nat (pair nat nat) : nat : pair nat (pair nat nat) + CAR; # nat : nat : pair nat (pair nat nat) + DUP 3; # pair nat (pair nat nat) : nat : nat : pair nat (pair nat nat) + GET 4; # nat : nat : nat : pair nat (pair nat nat) + DUP 4; # pair nat (pair nat nat) : nat : nat : nat : pair nat (pair nat nat) + GET 3; # nat : nat : nat : nat : pair nat (pair nat nat) + DIG 3; # nat : nat : nat : nat : pair nat (pair nat nat) + MUL; # nat : nat : nat : pair nat (pair nat nat) + EDIV; # option (pair nat nat) : nat : pair nat (pair nat nat) IF_NONE { - PUSH int 65; # int : nat : @parameter%getBorrowRate : @storage + PUSH int 68; # int : nat : pair nat (pair nat nat) FAILWITH; # FAILED } { - CAR; # nat : nat : @parameter%getBorrowRate : @storage - }; # nat : nat : @parameter%getBorrowRate : @storage - ADD; # nat : @parameter%getBorrowRate : @storage - # sp.transfer(compute_InterestRateModel_65.value, sp.tez(0), params.cb) # nat : @parameter%getBorrowRate : @storage - NIL operation; # list operation : nat : @parameter%getBorrowRate : @storage - DIG 2; # @parameter%getBorrowRate : list operation : nat : @storage - GET 3; # contract nat : list operation : nat : @storage - PUSH mutez 0; # mutez : contract nat : list operation : nat : @storage - DIG 3; # nat : mutez : contract nat : list operation : @storage - TRANSFER_TOKENS; # operation : list operation : @storage - CONS; # list operation : @storage - } + CAR; # nat : nat : pair nat (pair nat nat) + }; # nat : nat : pair nat (pair nat nat) + ADD; # nat : pair nat (pair nat nat) + # sp.result(compute_InterestRateModel_68.value) # nat : pair nat (pair nat nat) + PAIR; # pair nat (pair nat (pair nat nat)) + }; # lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : pair @parameter @storage + SWAP; # pair @parameter @storage : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + # Private variable: utilizationRate # pair @parameter @storage : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + LAMBDA + (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) + (pair nat (pair nat (pair nat nat))) { - # == getSupplyRate == - # ur = sp.local("ur", 0) # @parameter%getSupplyRate : @storage - PUSH nat 0; # nat : @parameter%getSupplyRate : @storage - # if params.borrows > 0: # nat : @parameter%getSupplyRate : @storage - PUSH nat 0; # nat : nat : @parameter%getSupplyRate : @storage - DUP 3; # @parameter%getSupplyRate : nat : nat : @parameter%getSupplyRate : @storage - CAR; # pair (nat %borrows) (nat %cash) : nat : nat : @parameter%getSupplyRate : @storage - CAR; # nat : nat : nat : @parameter%getSupplyRate : @storage - COMPARE; # int : nat : @parameter%getSupplyRate : @storage - GT; # bool : nat : @parameter%getSupplyRate : @storage + UNPAIR; # pair nat (pair nat nat) : pair nat (pair nat nat) + # ur = sp.local("ur", 0) # pair nat (pair nat nat) : pair nat (pair nat nat) + PUSH nat 0; # nat : pair nat (pair nat nat) : pair nat (pair nat nat) + # if _x2.borrows > 0: # nat : pair nat (pair nat nat) : pair nat (pair nat nat) + PUSH nat 0; # nat : nat : pair nat (pair nat nat) : pair nat (pair nat nat) + DUP 3; # pair nat (pair nat nat) : nat : nat : pair nat (pair nat nat) : pair nat (pair nat nat) + CAR; # nat : nat : nat : pair nat (pair nat nat) : pair nat (pair nat nat) + COMPARE; # int : nat : pair nat (pair nat nat) : pair nat (pair nat nat) + GT; # bool : nat : pair nat (pair nat nat) : pair nat (pair nat nat) IF { - DROP; # @parameter%getSupplyRate : @storage - # compute_InterestRateModel_59 = sp.local("compute_InterestRateModel_59", sp.as_nat((params.cash + params.borrows) - params.reserves)) # @parameter%getSupplyRate : @storage - DUP; # @parameter%getSupplyRate : @parameter%getSupplyRate : @storage - GET 6; # nat : @parameter%getSupplyRate : @storage - SWAP; # @parameter%getSupplyRate : nat : @storage - DUP; # @parameter%getSupplyRate : @parameter%getSupplyRate : nat : @storage - CAR; # pair (nat %borrows) (nat %cash) : @parameter%getSupplyRate : nat : @storage - CAR; # nat : @parameter%getSupplyRate : nat : @storage - SWAP; # @parameter%getSupplyRate : nat : nat : @storage - DUP; # @parameter%getSupplyRate : @parameter%getSupplyRate : nat : nat : @storage - DUG 3; # @parameter%getSupplyRate : nat : nat : @parameter%getSupplyRate : @storage - CAR; # pair (nat %borrows) (nat %cash) : nat : nat : @parameter%getSupplyRate : @storage - CDR; # nat : nat : nat : @parameter%getSupplyRate : @storage - ADD; # nat : nat : @parameter%getSupplyRate : @storage - SUB; # int : @parameter%getSupplyRate : @storage - ISNAT; # option nat : @parameter%getSupplyRate : @storage + DROP; # pair nat (pair nat nat) : pair nat (pair nat nat) + # compute_InterestRateModel_61 = sp.local("compute_InterestRateModel_61", sp.as_nat((_x2.cash + _x2.borrows) - _x2.reserves)) # pair nat (pair nat nat) : pair nat (pair nat nat) + DUP; # pair nat (pair nat nat) : pair nat (pair nat nat) : pair nat (pair nat nat) + GET 4; # nat : pair nat (pair nat nat) : pair nat (pair nat nat) + DUP 2; # pair nat (pair nat nat) : nat : pair nat (pair nat nat) : pair nat (pair nat nat) + CAR; # nat : nat : pair nat (pair nat nat) : pair nat (pair nat nat) + DUP 3; # pair nat (pair nat nat) : nat : nat : pair nat (pair nat nat) : pair nat (pair nat nat) + GET 3; # nat : nat : nat : pair nat (pair nat nat) : pair nat (pair nat nat) + ADD; # nat : nat : pair nat (pair nat nat) : pair nat (pair nat nat) + SUB; # int : pair nat (pair nat nat) : pair nat (pair nat nat) + ISNAT; # option nat : pair nat (pair nat nat) : pair nat (pair nat nat) IF_NONE { - PUSH int 59; # int : @parameter%getSupplyRate : @storage + PUSH int 61; # int : pair nat (pair nat nat) : pair nat (pair nat nat) FAILWITH; # FAILED } - {}; # @some : @parameter%getSupplyRate : @storage - # sp.verify(compute_InterestRateModel_59.value > 0, 'IRM_INSUFFICIENT_CASH') # @some : @parameter%getSupplyRate : @storage - DUP; # @some : @some : @parameter%getSupplyRate : @storage - PUSH nat 0; # nat : @some : @some : @parameter%getSupplyRate : @storage - COMPARE; # int : @some : @parameter%getSupplyRate : @storage - LT; # bool : @some : @parameter%getSupplyRate : @storage + {}; # @some : pair nat (pair nat nat) : pair nat (pair nat nat) + # sp.verify(compute_InterestRateModel_61.value > 0, 'IRM_INSUFFICIENT_CASH') # @some : pair nat (pair nat nat) : pair nat (pair nat nat) + PUSH nat 0; # nat : @some : pair nat (pair nat nat) : pair nat (pair nat nat) + DUP 2; # @some : nat : @some : pair nat (pair nat nat) : pair nat (pair nat nat) + COMPARE; # int : @some : pair nat (pair nat nat) : pair nat (pair nat nat) + GT; # bool : @some : pair nat (pair nat nat) : pair nat (pair nat nat) IF {} { - PUSH string "IRM_INSUFFICIENT_CASH"; # string : @some : @parameter%getSupplyRate : @storage + PUSH string "IRM_INSUFFICIENT_CASH"; # string : @some : pair nat (pair nat nat) : pair nat (pair nat nat) FAILWITH; # FAILED - }; # @some : @parameter%getSupplyRate : @storage - # ur.value = (params.borrows * self.data.scale) // compute_InterestRateModel_59.value # @some : @parameter%getSupplyRate : @storage - DUP 3; # @storage : @some : @parameter%getSupplyRate : @storage - GET 4; # nat : @some : @parameter%getSupplyRate : @storage - DUP 3; # @parameter%getSupplyRate : nat : @some : @parameter%getSupplyRate : @storage - CAR; # pair (nat %borrows) (nat %cash) : nat : @some : @parameter%getSupplyRate : @storage - CAR; # nat : nat : @some : @parameter%getSupplyRate : @storage - MUL; # nat : @some : @parameter%getSupplyRate : @storage - EDIV; # option (pair nat nat) : @parameter%getSupplyRate : @storage + }; # @some : pair nat (pair nat nat) : pair nat (pair nat nat) + # ur.value = (_x2.borrows * self.data.scale) // compute_InterestRateModel_61.value # @some : pair nat (pair nat nat) : pair nat (pair nat nat) + DUP 3; # pair nat (pair nat nat) : @some : pair nat (pair nat nat) : pair nat (pair nat nat) + GET 4; # nat : @some : pair nat (pair nat nat) : pair nat (pair nat nat) + DIG 2; # pair nat (pair nat nat) : nat : @some : pair nat (pair nat nat) + CAR; # nat : nat : @some : pair nat (pair nat nat) + MUL; # nat : @some : pair nat (pair nat nat) + EDIV; # option (pair nat nat) : pair nat (pair nat nat) IF_NONE { - PUSH int 61; # int : @parameter%getSupplyRate : @storage + PUSH int 63; # int : pair nat (pair nat nat) FAILWITH; # FAILED } { - CAR; # nat : @parameter%getSupplyRate : @storage - }; # nat : @parameter%getSupplyRate : @storage + CAR; # nat : pair nat (pair nat nat) + }; # nat : pair nat (pair nat nat) } - {}; # nat : @parameter%getSupplyRate : @storage - # compute_InterestRateModel_65 = sp.local("compute_InterestRateModel_65", ((ur.value * self.data.multiplierPerBlock) // self.data.scale) + self.data.baseRatePerBlock) # nat : @parameter%getSupplyRate : @storage - DIG 2; # @storage : nat : @parameter%getSupplyRate - DUP; # @storage : @storage : nat : @parameter%getSupplyRate - CAR; # nat : @storage : nat : @parameter%getSupplyRate - SWAP; # @storage : nat : nat : @parameter%getSupplyRate - DUP; # @storage : @storage : nat : nat : @parameter%getSupplyRate - GET 4; # nat : @storage : nat : nat : @parameter%getSupplyRate - SWAP; # @storage : nat : nat : nat : @parameter%getSupplyRate - DUP; # @storage : @storage : nat : nat : nat : @parameter%getSupplyRate - DUG 5; # @storage : nat : nat : nat : @parameter%getSupplyRate : @storage - GET 3; # nat : nat : nat : nat : @parameter%getSupplyRate : @storage - DUP 4; # nat : nat : nat : nat : nat : @parameter%getSupplyRate : @storage - MUL; # nat : nat : nat : nat : @parameter%getSupplyRate : @storage - EDIV; # option (pair nat nat) : nat : nat : @parameter%getSupplyRate : @storage - IF_NONE { - PUSH int 65; # int : nat : nat : @parameter%getSupplyRate : @storage - FAILWITH; # FAILED - } - { - CAR; # nat : nat : nat : @parameter%getSupplyRate : @storage - }; # nat : nat : nat : @parameter%getSupplyRate : @storage - ADD; # nat : nat : @parameter%getSupplyRate : @storage - # sp.transfer((ur.value * ((compute_InterestRateModel_65.value * sp.as_nat(self.data.scale - params.reserveFactorMantissa)) // self.data.scale)) // self.data.scale, sp.tez(0), params.cb) # nat : nat : @parameter%getSupplyRate : @storage - NIL operation; # list operation : nat : nat : @parameter%getSupplyRate : @storage - DUP 4; # @parameter%getSupplyRate : list operation : nat : nat : @parameter%getSupplyRate : @storage - GET 3; # contract nat : list operation : nat : nat : @parameter%getSupplyRate : @storage - PUSH mutez 0; # mutez : contract nat : list operation : nat : nat : @parameter%getSupplyRate : @storage - DIG 6; # @storage : mutez : contract nat : list operation : nat : nat : @parameter%getSupplyRate - DUP; # @storage : @storage : mutez : contract nat : list operation : nat : nat : @parameter%getSupplyRate - GET 4; # nat : @storage : mutez : contract nat : list operation : nat : nat : @parameter%getSupplyRate - SWAP; # @storage : nat : mutez : contract nat : list operation : nat : nat : @parameter%getSupplyRate - DUP; # @storage : @storage : nat : mutez : contract nat : list operation : nat : nat : @parameter%getSupplyRate - DUG 8; # @storage : nat : mutez : contract nat : list operation : nat : nat : @parameter%getSupplyRate : @storage - GET 4; # nat : nat : mutez : contract nat : list operation : nat : nat : @parameter%getSupplyRate : @storage - DIG 7; # @parameter%getSupplyRate : nat : nat : mutez : contract nat : list operation : nat : nat : @storage - GET 5; # nat : nat : nat : mutez : contract nat : list operation : nat : nat : @storage - DUP 9; # @storage : nat : nat : nat : mutez : contract nat : list operation : nat : nat : @storage - GET 4; # nat : nat : nat : nat : mutez : contract nat : list operation : nat : nat : @storage - SUB; # int : nat : nat : mutez : contract nat : list operation : nat : nat : @storage - ISNAT; # option nat : nat : nat : mutez : contract nat : list operation : nat : nat : @storage + SWAP; # pair nat (pair nat nat) : nat : pair nat (pair nat nat) + DROP; # nat : pair nat (pair nat nat) + }; # nat : pair nat (pair nat nat) + # sp.result(ur.value) # nat : pair nat (pair nat nat) + PAIR; # pair nat (pair nat (pair nat nat)) + }; # lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : pair @parameter @storage : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + SWAP; # pair @parameter @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + UNPAIR; # @parameter : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + IF_LEFT + { + # == getBorrowRate == + # sp.transfer(self.calculateBorrowRate(self.utilizationRate(sp.record(borrows = params.borrows, cash = params.cash, reserves = params.reserves))), sp.tez(0), params.cb) # @parameter%getBorrowRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + NIL operation; # list operation : @parameter%getBorrowRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DUP 2; # @parameter%getBorrowRate : list operation : @parameter%getBorrowRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + GET 3; # contract nat : list operation : @parameter%getBorrowRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + PUSH mutez 0; # mutez : contract nat : list operation : @parameter%getBorrowRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DIG 6; # lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation : @parameter%getBorrowRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DIG 6; # lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation : @parameter%getBorrowRate : @storage + DIG 5; # @parameter%getBorrowRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation : @storage + DUP; # @parameter%getBorrowRate : @parameter%getBorrowRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation : @storage + GET 4; # nat : @parameter%getBorrowRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation : @storage + SWAP; # @parameter%getBorrowRate : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation : @storage + DUP; # @parameter%getBorrowRate : @parameter%getBorrowRate : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation : @storage + CAR; # pair (nat %borrows) (nat %cash) : @parameter%getBorrowRate : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation : @storage + CDR; # nat : @parameter%getBorrowRate : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation : @storage + SWAP; # @parameter%getBorrowRate : nat : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation : @storage + CAR; # pair (nat %borrows) (nat %cash) : nat : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation : @storage + CAR; # nat : nat : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation : @storage + PAIR 3; # pair nat (pair nat nat) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation : @storage + SWAP; # lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : pair nat (pair nat nat) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation : @storage + DIG 6; # @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : pair nat (pair nat nat) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation + DIG 2; # pair nat (pair nat nat) : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation + PAIR; # pair (pair nat (pair nat nat)) @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation + EXEC; # pair nat (pair nat (pair nat nat)) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation + UNPAIR; # nat : pair nat (pair nat nat) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation + SWAP; # pair nat (pair nat nat) : nat : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation + DUG 5; # nat : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation : pair nat (pair nat nat) + SWAP; # lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : mutez : contract nat : list operation : pair nat (pair nat nat) + DIG 5; # pair nat (pair nat nat) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : mutez : contract nat : list operation + DIG 2; # nat : pair nat (pair nat nat) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation + PAIR; # pair nat (pair nat (pair nat nat)) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation + EXEC; # pair nat (pair nat (pair nat nat)) : mutez : contract nat : list operation + UNPAIR; # nat : pair nat (pair nat nat) : mutez : contract nat : list operation + SWAP; # pair nat (pair nat nat) : nat : mutez : contract nat : list operation + DUG 4; # nat : mutez : contract nat : list operation : pair nat (pair nat nat) + TRANSFER_TOKENS; # operation : list operation : pair nat (pair nat nat) + CONS; # list operation : pair nat (pair nat nat) + } + { + # == getSupplyRate == + # sp.transfer((self.utilizationRate(sp.record(borrows = params.borrows, cash = params.cash, reserves = params.reserves)) * ((self.calculateBorrowRate(self.utilizationRate(sp.record(borrows = params.borrows, cash = params.cash, reserves = params.reserves))) * sp.as_nat(self.data.scale - params.reserveFactorMantissa)) // self.data.scale)) // self.data.scale, sp.tez(0), params.cb) # @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + NIL operation; # list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DUP 2; # @parameter%getSupplyRate : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + GET 3; # contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + PUSH mutez 0; # mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DUP 5; # @storage : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + GET 4; # nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DUP 6; # @storage : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + GET 4; # nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DUP 6; # @parameter%getSupplyRate : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + GET 5; # nat : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DUP 8; # @storage : nat : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + GET 4; # nat : nat : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + SUB; # int : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + ISNAT; # option nat : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) IF_NONE { - PUSH int 47; # int : nat : nat : mutez : contract nat : list operation : nat : nat : @storage + PUSH int 47; # int : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) FAILWITH; # FAILED } - {}; # @some : nat : nat : mutez : contract nat : list operation : nat : nat : @storage - DIG 6; # nat : @some : nat : nat : mutez : contract nat : list operation : nat : @storage - MUL; # nat : nat : nat : mutez : contract nat : list operation : nat : @storage - EDIV; # option (pair nat nat) : nat : mutez : contract nat : list operation : nat : @storage + {}; # @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DIG 9; # lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DUP 10; # lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DUP 9; # @parameter%getSupplyRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + GET 6; # nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DUP 10; # @parameter%getSupplyRate : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + CAR; # pair (nat %borrows) (nat %cash) : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + CDR; # nat : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DUP 11; # @parameter%getSupplyRate : nat : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + CAR; # pair (nat %borrows) (nat %cash) : nat : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + CAR; # nat : nat : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + PAIR 3; # pair nat (pair nat nat) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + SWAP; # lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : pair nat (pair nat nat) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DIG 10; # @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : pair nat (pair nat nat) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DIG 2; # pair nat (pair nat nat) : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + PAIR; # pair (pair nat (pair nat nat)) @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + EXEC; # pair nat (pair nat (pair nat nat)) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + UNPAIR; # nat : pair nat (pair nat nat) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DIG 10; # lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : pair nat (pair nat nat) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate + DIG 2; # pair nat (pair nat nat) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate + DUG 10; # lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : pair nat (pair nat nat) + DUG 10; # nat : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : pair nat (pair nat nat) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + SWAP; # lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : pair nat (pair nat nat) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DIG 9; # pair nat (pair nat nat) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DIG 2; # nat : pair nat (pair nat nat) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + PAIR; # pair nat (pair nat (pair nat nat)) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + EXEC; # pair nat (pair nat (pair nat nat)) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + UNPAIR; # nat : pair nat (pair nat nat) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DIG 9; # lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : pair nat (pair nat nat) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate + DIG 2; # pair nat (pair nat nat) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate + DUG 9; # lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : pair nat (pair nat nat) + DUG 9; # nat : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : pair nat (pair nat nat) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + MUL; # nat : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : pair nat (pair nat nat) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + EDIV; # option (pair nat nat) : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : pair nat (pair nat nat) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) IF_NONE { - PUSH int 52; # int : nat : mutez : contract nat : list operation : nat : @storage + PUSH int 52; # int : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : pair nat (pair nat nat) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) FAILWITH; # FAILED } { - CAR; # nat : nat : mutez : contract nat : list operation : nat : @storage - }; # nat : nat : mutez : contract nat : list operation : nat : @storage - DIG 5; # nat : nat : nat : mutez : contract nat : list operation : @storage - MUL; # nat : nat : mutez : contract nat : list operation : @storage - EDIV; # option (pair nat nat) : mutez : contract nat : list operation : @storage + CAR; # nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : pair nat (pair nat nat) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + }; # nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : pair nat (pair nat nat) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DIG 7; # lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : pair nat (pair nat nat) + DIG 6; # @parameter%getSupplyRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : nat : mutez : contract nat : list operation : pair nat (pair nat nat) + DUP; # @parameter%getSupplyRate : @parameter%getSupplyRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : nat : mutez : contract nat : list operation : pair nat (pair nat nat) + GET 6; # nat : @parameter%getSupplyRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : nat : mutez : contract nat : list operation : pair nat (pair nat nat) + SWAP; # @parameter%getSupplyRate : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : nat : mutez : contract nat : list operation : pair nat (pair nat nat) + DUP; # @parameter%getSupplyRate : @parameter%getSupplyRate : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : nat : mutez : contract nat : list operation : pair nat (pair nat nat) + CAR; # pair (nat %borrows) (nat %cash) : @parameter%getSupplyRate : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : nat : mutez : contract nat : list operation : pair nat (pair nat nat) + CDR; # nat : @parameter%getSupplyRate : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : nat : mutez : contract nat : list operation : pair nat (pair nat nat) + SWAP; # @parameter%getSupplyRate : nat : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : nat : mutez : contract nat : list operation : pair nat (pair nat nat) + CAR; # pair (nat %borrows) (nat %cash) : nat : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : nat : mutez : contract nat : list operation : pair nat (pair nat nat) + CAR; # nat : nat : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : nat : mutez : contract nat : list operation : pair nat (pair nat nat) + PAIR 3; # pair nat (pair nat nat) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : nat : mutez : contract nat : list operation : pair nat (pair nat nat) + SWAP; # lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : pair nat (pair nat nat) : nat : nat : mutez : contract nat : list operation : pair nat (pair nat nat) + DIG 7; # pair nat (pair nat nat) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : pair nat (pair nat nat) : nat : nat : mutez : contract nat : list operation + DIG 2; # pair nat (pair nat nat) : pair nat (pair nat nat) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : nat : mutez : contract nat : list operation + PAIR; # pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : nat : mutez : contract nat : list operation + EXEC; # pair nat (pair nat (pair nat nat)) : nat : nat : mutez : contract nat : list operation + UNPAIR; # nat : pair nat (pair nat nat) : nat : nat : mutez : contract nat : list operation + SWAP; # pair nat (pair nat nat) : nat : nat : nat : mutez : contract nat : list operation + DUG 6; # nat : nat : nat : mutez : contract nat : list operation : pair nat (pair nat nat) + MUL; # nat : nat : mutez : contract nat : list operation : pair nat (pair nat nat) + EDIV; # option (pair nat nat) : mutez : contract nat : list operation : pair nat (pair nat nat) IF_NONE { - PUSH int 53; # int : mutez : contract nat : list operation : @storage + PUSH int 53; # int : mutez : contract nat : list operation : pair nat (pair nat nat) FAILWITH; # FAILED } { - CAR; # nat : mutez : contract nat : list operation : @storage - }; # nat : mutez : contract nat : list operation : @storage - TRANSFER_TOKENS; # operation : list operation : @storage - CONS; # list operation : @storage - }; # list operation : @storage - PAIR; # pair (list operation) @storage + CAR; # nat : mutez : contract nat : list operation : pair nat (pair nat nat) + }; # nat : mutez : contract nat : list operation : pair nat (pair nat nat) + TRANSFER_TOKENS; # operation : list operation : pair nat (pair nat nat) + CONS; # list operation : pair nat (pair nat nat) + }; # list operation : pair nat (pair nat nat) + PAIR; # pair (list operation) (pair nat (pair nat nat)) }; \ No newline at end of file diff --git a/compiled_contracts/CFA12_IRM/step_000_cont_0_sizes.csv b/compiled_contracts/CFA12_IRM/step_000_cont_0_sizes.csv index 8d52ff5b..adf16527 100644 --- a/compiled_contracts/CFA12_IRM/step_000_cont_0_sizes.csv +++ b/compiled_contracts/CFA12_IRM/step_000_cont_0_sizes.csv @@ -1,2 +1,2 @@ storage,27 -contract,946 \ No newline at end of file +contract,1009 \ No newline at end of file diff --git a/compiled_contracts/CFA12_IRM/step_000_cont_0_storage.json b/compiled_contracts/CFA12_IRM/step_000_cont_0_storage.json index f7bedb7f..da01122c 100644 --- a/compiled_contracts/CFA12_IRM/step_000_cont_0_storage.json +++ b/compiled_contracts/CFA12_IRM/step_000_cont_0_storage.json @@ -1 +1 @@ -{ "prim": "Pair", "args": [ { "int": "950642634" }, { "prim": "Pair", "args": [ { "int": "76000000000" }, { "int": "1000000000000000000" } ] } ] } \ No newline at end of file +{ "prim": "Pair", "args": [ { "int": "760514107" }, { "prim": "Pair", "args": [ { "int": "334400000000" }, { "int": "1000000000000000000" } ] } ] } \ No newline at end of file diff --git a/compiled_contracts/CFA12_IRM/step_000_cont_0_storage.py b/compiled_contracts/CFA12_IRM/step_000_cont_0_storage.py index c040ddeb..864113b9 100644 --- a/compiled_contracts/CFA12_IRM/step_000_cont_0_storage.py +++ b/compiled_contracts/CFA12_IRM/step_000_cont_0_storage.py @@ -1 +1 @@ -sp.record(baseRatePerBlock = 950642634, multiplierPerBlock = 76000000000, scale = 1000000000000000000) \ No newline at end of file +sp.record(baseRatePerBlock = 760514107, multiplierPerBlock = 334400000000, scale = 1000000000000000000) \ No newline at end of file diff --git a/compiled_contracts/CFA12_IRM/step_000_cont_0_storage.tz b/compiled_contracts/CFA12_IRM/step_000_cont_0_storage.tz index 920b5015..42e07cf1 100644 --- a/compiled_contracts/CFA12_IRM/step_000_cont_0_storage.tz +++ b/compiled_contracts/CFA12_IRM/step_000_cont_0_storage.tz @@ -1 +1 @@ -(Pair 950642634 (Pair 76000000000 1000000000000000000)) \ No newline at end of file +(Pair 760514107 (Pair 334400000000 1000000000000000000)) \ No newline at end of file diff --git a/compiled_contracts/CFA12_IRM/step_000_cont_0_types.py b/compiled_contracts/CFA12_IRM/step_000_cont_0_types.py index 932ad6f5..fe6a460b 100644 --- a/compiled_contracts/CFA12_IRM/step_000_cont_0_types.py +++ b/compiled_contracts/CFA12_IRM/step_000_cont_0_types.py @@ -2,5 +2,5 @@ tstorage = sp.TRecord(baseRatePerBlock = sp.TNat, multiplierPerBlock = sp.TNat, scale = sp.TNat).layout(("baseRatePerBlock", ("multiplierPerBlock", "scale"))) tparameter = sp.TVariant(getBorrowRate = sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserves = sp.TNat).layout((("borrows", "cash"), ("cb", "reserves"))), getSupplyRate = sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserveFactorMantissa = sp.TNat, reserves = sp.TNat).layout((("borrows", "cash"), ("cb", ("reserveFactorMantissa", "reserves"))))).layout(("getBorrowRate", "getSupplyRate")) -tprivates = { } +tprivates = { "calculateBorrowRate": sp.TLambda(sp.TNat, sp.TNat, with_storage="read-only", tstorage=sp.TRecord(baseRatePerBlock = sp.TNat, multiplierPerBlock = sp.TNat, scale = sp.TNat).layout(("baseRatePerBlock", ("multiplierPerBlock", "scale")))), "utilizationRate": sp.TLambda(sp.TRecord(borrows = sp.TNat, cash = sp.TNat, reserves = sp.TNat).layout(("borrows", ("cash", "reserves"))), sp.TNat, with_storage="read-only", tstorage=sp.TRecord(baseRatePerBlock = sp.TNat, multiplierPerBlock = sp.TNat, scale = sp.TNat).layout(("baseRatePerBlock", ("multiplierPerBlock", "scale")))) } tviews = { } diff --git a/compiled_contracts/CFA2_IRM/log.txt b/compiled_contracts/CFA2_IRM/log.txt index 2429ae43..db832107 100644 --- a/compiled_contracts/CFA2_IRM/log.txt +++ b/compiled_contracts/CFA2_IRM/log.txt @@ -1,10 +1,10 @@ Creating contract KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 - -> (Pair 950642634 (Pair 76000000000 1000000000000000000)) - => ./TezFinBuild/compiled_contracts/CFA2_IRM/step_000_cont_0_storage.tz 1 - => ./TezFinBuild/compiled_contracts/CFA2_IRM/step_000_cont_0_storage.json 1 - => ./TezFinBuild/compiled_contracts/CFA2_IRM/step_000_cont_0_sizes.csv 2 - => ./TezFinBuild/compiled_contracts/CFA2_IRM/step_000_cont_0_storage.py 1 - => ./TezFinBuild/compiled_contracts/CFA2_IRM/step_000_cont_0_types.py 7 - => ./TezFinBuild/compiled_contracts/CFA2_IRM/step_000_cont_0_contract.tz 240 - => ./TezFinBuild/compiled_contracts/CFA2_IRM/step_000_cont_0_contract.json 217 - => ./TezFinBuild/compiled_contracts/CFA2_IRM/step_000_cont_0_contract.py 32 + -> (Pair 760514107 (Pair 334400000000 1000000000000000000)) + => ./compiled_contracts/CFA2_IRM/step_000_cont_0_storage.tz 1 + => ./compiled_contracts/CFA2_IRM/step_000_cont_0_storage.json 1 + => ./compiled_contracts/CFA2_IRM/step_000_cont_0_sizes.csv 2 + => ./compiled_contracts/CFA2_IRM/step_000_cont_0_storage.py 1 + => ./compiled_contracts/CFA2_IRM/step_000_cont_0_types.py 7 + => ./compiled_contracts/CFA2_IRM/step_000_cont_0_contract.tz 241 + => ./compiled_contracts/CFA2_IRM/step_000_cont_0_contract.json 260 + => ./compiled_contracts/CFA2_IRM/step_000_cont_0_contract.py 35 diff --git a/compiled_contracts/CFA2_IRM/step_000_cont_0_contract.json b/compiled_contracts/CFA2_IRM/step_000_cont_0_contract.json index da7d886a..d2db6b93 100644 --- a/compiled_contracts/CFA2_IRM/step_000_cont_0_contract.json +++ b/compiled_contracts/CFA2_IRM/step_000_cont_0_contract.json @@ -47,84 +47,55 @@ "prim": "code", "args": [ [ - { "prim": "UNPAIR" }, { - "prim": "IF_LEFT", + "prim": "LAMBDA", "args": [ + { + "prim": "pair", + "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ] + }, + { + "prim": "pair", + "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ] + }, [ - { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "UNPAIR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "COMPARE" }, - { "prim": "GT" }, - { - "prim": "IF", - "args": [ - [ - { "prim": "DROP" }, - { "prim": "DUP" }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "3" } ] }, - { "prim": "CAR" }, - { "prim": "CDR" }, - { "prim": "ADD" }, - { "prim": "SUB" }, - { "prim": "ISNAT" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "59" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP" }, - { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "COMPARE" }, - { "prim": "LT" }, - { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "IRM_INSUFFICIENT_CASH" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "MUL" }, - { "prim": "EDIV" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "61" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } - ], - [] - ] - }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, - { "prim": "DUP" }, - { "prim": "CAR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "MUL" }, { "prim": "EDIV" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "65" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "68" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] }, { "prim": "ADD" }, - { "prim": "NIL", "args": [ { "prim": "operation" } ] }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, - { "prim": "DIG", "args": [ { "int": "3" } ] }, - { "prim": "TRANSFER_TOKENS" }, - { "prim": "CONS" } - ], + { "prim": "PAIR" } + ] + ] + }, + { "prim": "SWAP" }, + { + "prim": "LAMBDA", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }, + { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } + ] + }, + { + "prim": "pair", + "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ] + }, [ + { "prim": "UNPAIR" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CAR" }, { "prim": "COMPARE" }, { "prim": "GT" }, { @@ -133,75 +104,147 @@ [ { "prim": "DROP" }, { "prim": "DUP" }, - { "prim": "GET", "args": [ { "int": "6" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, - { "prim": "CDR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "ADD" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "59" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "61" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "COMPARE" }, - { "prim": "LT" }, + { "prim": "GT" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "IRM_INSUFFICIENT_CASH" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "CAR" }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "MUL" }, { "prim": "EDIV" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "61" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "63" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], - [] + [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, - { "prim": "DUP" }, - { "prim": "CAR" }, - { "prim": "SWAP" }, + { "prim": "PAIR" } + ] + ] + }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { + "prim": "IF_LEFT", + "args": [ + [ + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "DIG", "args": [ { "int": "6" } ] }, + { "prim": "DIG", "args": [ { "int": "6" } ] }, + { "prim": "DIG", "args": [ { "int": "5" } ] }, { "prim": "DUP" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SWAP" }, { "prim": "DUP" }, + { "prim": "CAR" }, + { "prim": "CDR" }, + { "prim": "SWAP" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "prim": "SWAP" }, + { "prim": "DIG", "args": [ { "int": "6" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "PAIR" }, + { "prim": "EXEC" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, { "prim": "DUG", "args": [ { "int": "5" } ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, - { "prim": "MUL" }, - { "prim": "EDIV" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "65" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] }, - { "prim": "ADD" }, + { "prim": "SWAP" }, + { "prim": "DIG", "args": [ { "int": "5" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "PAIR" }, + { "prim": "EXEC" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "DUG", "args": [ { "int": "4" } ] }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ], + [ { "prim": "NIL", "args": [ { "prim": "operation" } ] }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, - { "prim": "DIG", "args": [ { "int": "6" } ] }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "8" } ] }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DIG", "args": [ { "int": "7" } ] }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "47" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DIG", "args": [ { "int": "6" } ] }, + { "prim": "DIG", "args": [ { "int": "9" } ] }, + { "prim": "DUP", "args": [ { "int": "10" } ] }, + { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "GET", "args": [ { "int": "6" } ] }, + { "prim": "DUP", "args": [ { "int": "10" } ] }, + { "prim": "CAR" }, + { "prim": "CDR" }, + { "prim": "DUP", "args": [ { "int": "11" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "prim": "SWAP" }, + { "prim": "DIG", "args": [ { "int": "10" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "PAIR" }, + { "prim": "EXEC" }, + { "prim": "UNPAIR" }, + { "prim": "DIG", "args": [ { "int": "10" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "DUG", "args": [ { "int": "10" } ] }, + { "prim": "DUG", "args": [ { "int": "10" } ] }, + { "prim": "SWAP" }, + { "prim": "DIG", "args": [ { "int": "9" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "PAIR" }, + { "prim": "EXEC" }, + { "prim": "UNPAIR" }, + { "prim": "DIG", "args": [ { "int": "9" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "DUG", "args": [ { "int": "9" } ] }, + { "prim": "DUG", "args": [ { "int": "9" } ] }, { "prim": "MUL" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "52" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] }, - { "prim": "DIG", "args": [ { "int": "5" } ] }, + { "prim": "DIG", "args": [ { "int": "7" } ] }, + { "prim": "DIG", "args": [ { "int": "6" } ] }, + { "prim": "DUP" }, + { "prim": "GET", "args": [ { "int": "6" } ] }, + { "prim": "SWAP" }, + { "prim": "DUP" }, + { "prim": "CAR" }, + { "prim": "CDR" }, + { "prim": "SWAP" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "prim": "SWAP" }, + { "prim": "DIG", "args": [ { "int": "7" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "PAIR" }, + { "prim": "EXEC" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "DUG", "args": [ { "int": "6" } ] }, { "prim": "MUL" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "53" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] }, diff --git a/compiled_contracts/CFA2_IRM/step_000_cont_0_contract.py b/compiled_contracts/CFA2_IRM/step_000_cont_0_contract.py index 4b75e3f3..06c2ee51 100644 --- a/compiled_contracts/CFA2_IRM/step_000_cont_0_contract.py +++ b/compiled_contracts/CFA2_IRM/step_000_cont_0_contract.py @@ -3,30 +3,33 @@ class Contract(sp.Contract): def __init__(self): self.init_type(sp.TRecord(baseRatePerBlock = sp.TNat, multiplierPerBlock = sp.TNat, scale = sp.TNat).layout(("baseRatePerBlock", ("multiplierPerBlock", "scale")))) - self.init(baseRatePerBlock = 950642634, - multiplierPerBlock = 76000000000, + self.init(baseRatePerBlock = 760514107, + multiplierPerBlock = 334400000000, scale = 1000000000000000000) - @sp.entry_point + @sp.entrypoint def getBorrowRate(self, params): sp.set_type(params, sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserves = sp.TNat).layout((("borrows", "cash"), ("cb", "reserves")))) - ur = sp.local("ur", 0) - sp.if params.borrows > 0: - compute_InterestRateModel_59 = sp.local("compute_InterestRateModel_59", sp.as_nat((params.cash + params.borrows) - params.reserves)) - sp.verify(compute_InterestRateModel_59.value > 0, 'IRM_INSUFFICIENT_CASH') - ur.value = (params.borrows * self.data.scale) // compute_InterestRateModel_59.value - compute_InterestRateModel_65 = sp.local("compute_InterestRateModel_65", ((ur.value * self.data.multiplierPerBlock) // self.data.scale) + self.data.baseRatePerBlock) - sp.transfer(compute_InterestRateModel_65.value, sp.tez(0), params.cb) + sp.transfer(self.calculateBorrowRate(self.utilizationRate(sp.record(borrows = params.borrows, cash = params.cash, reserves = params.reserves))), sp.tez(0), params.cb) - @sp.entry_point + @sp.entrypoint def getSupplyRate(self, params): sp.set_type(params, sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserveFactorMantissa = sp.TNat, reserves = sp.TNat).layout((("borrows", "cash"), ("cb", ("reserveFactorMantissa", "reserves"))))) + sp.transfer((self.utilizationRate(sp.record(borrows = params.borrows, cash = params.cash, reserves = params.reserves)) * ((self.calculateBorrowRate(self.utilizationRate(sp.record(borrows = params.borrows, cash = params.cash, reserves = params.reserves))) * sp.as_nat(self.data.scale - params.reserveFactorMantissa)) // self.data.scale)) // self.data.scale, sp.tez(0), params.cb) + + @sp.private_lambda() + def calculateBorrowRate(_x0): + compute_InterestRateModel_68 = sp.local("compute_InterestRateModel_68", ((_x0 * self.data.multiplierPerBlock) // self.data.scale) + self.data.baseRatePerBlock) + sp.result(compute_InterestRateModel_68.value) + + @sp.private_lambda() + def utilizationRate(_x2): + sp.set_type(_x2, sp.TRecord(borrows = sp.TNat, cash = sp.TNat, reserves = sp.TNat).layout(("borrows", ("cash", "reserves")))) ur = sp.local("ur", 0) - sp.if params.borrows > 0: - compute_InterestRateModel_59 = sp.local("compute_InterestRateModel_59", sp.as_nat((params.cash + params.borrows) - params.reserves)) - sp.verify(compute_InterestRateModel_59.value > 0, 'IRM_INSUFFICIENT_CASH') - ur.value = (params.borrows * self.data.scale) // compute_InterestRateModel_59.value - compute_InterestRateModel_65 = sp.local("compute_InterestRateModel_65", ((ur.value * self.data.multiplierPerBlock) // self.data.scale) + self.data.baseRatePerBlock) - sp.transfer((ur.value * ((compute_InterestRateModel_65.value * sp.as_nat(self.data.scale - params.reserveFactorMantissa)) // self.data.scale)) // self.data.scale, sp.tez(0), params.cb) + sp.if _x2.borrows > 0: + compute_InterestRateModel_61 = sp.local("compute_InterestRateModel_61", sp.as_nat((_x2.cash + _x2.borrows) - _x2.reserves)) + sp.verify(compute_InterestRateModel_61.value > 0, 'IRM_INSUFFICIENT_CASH') + ur.value = (_x2.borrows * self.data.scale) // compute_InterestRateModel_61.value + sp.result(ur.value) sp.add_compilation_target("test", Contract()) \ No newline at end of file diff --git a/compiled_contracts/CFA2_IRM/step_000_cont_0_contract.tz b/compiled_contracts/CFA2_IRM/step_000_cont_0_contract.tz index aaf5c8b6..3497a27c 100644 --- a/compiled_contracts/CFA2_IRM/step_000_cont_0_contract.tz +++ b/compiled_contracts/CFA2_IRM/step_000_cont_0_contract.tz @@ -2,239 +2,240 @@ parameter (or (pair %getBorrowRate (pair (nat %borrows) (nat %cash)) (pair (cont storage (pair (nat %baseRatePerBlock) (pair (nat %multiplierPerBlock) (nat %scale))); code { - UNPAIR; # @parameter : @storage - IF_LEFT + # Private variable: calculateBorrowRate # pair @parameter @storage + LAMBDA + (pair nat (pair nat (pair nat nat))) + (pair nat (pair nat (pair nat nat))) { - # == getBorrowRate == - # ur = sp.local("ur", 0) # @parameter%getBorrowRate : @storage - PUSH nat 0; # nat : @parameter%getBorrowRate : @storage - # if params.borrows > 0: # nat : @parameter%getBorrowRate : @storage - PUSH nat 0; # nat : nat : @parameter%getBorrowRate : @storage - DUP 3; # @parameter%getBorrowRate : nat : nat : @parameter%getBorrowRate : @storage - CAR; # pair (nat %borrows) (nat %cash) : nat : nat : @parameter%getBorrowRate : @storage - CAR; # nat : nat : nat : @parameter%getBorrowRate : @storage - COMPARE; # int : nat : @parameter%getBorrowRate : @storage - GT; # bool : nat : @parameter%getBorrowRate : @storage - IF - { - DROP; # @parameter%getBorrowRate : @storage - # compute_InterestRateModel_59 = sp.local("compute_InterestRateModel_59", sp.as_nat((params.cash + params.borrows) - params.reserves)) # @parameter%getBorrowRate : @storage - DUP; # @parameter%getBorrowRate : @parameter%getBorrowRate : @storage - GET 4; # nat : @parameter%getBorrowRate : @storage - SWAP; # @parameter%getBorrowRate : nat : @storage - DUP; # @parameter%getBorrowRate : @parameter%getBorrowRate : nat : @storage - CAR; # pair (nat %borrows) (nat %cash) : @parameter%getBorrowRate : nat : @storage - CAR; # nat : @parameter%getBorrowRate : nat : @storage - SWAP; # @parameter%getBorrowRate : nat : nat : @storage - DUP; # @parameter%getBorrowRate : @parameter%getBorrowRate : nat : nat : @storage - DUG 3; # @parameter%getBorrowRate : nat : nat : @parameter%getBorrowRate : @storage - CAR; # pair (nat %borrows) (nat %cash) : nat : nat : @parameter%getBorrowRate : @storage - CDR; # nat : nat : nat : @parameter%getBorrowRate : @storage - ADD; # nat : nat : @parameter%getBorrowRate : @storage - SUB; # int : @parameter%getBorrowRate : @storage - ISNAT; # option nat : @parameter%getBorrowRate : @storage - IF_NONE - { - PUSH int 59; # int : @parameter%getBorrowRate : @storage - FAILWITH; # FAILED - } - {}; # @some : @parameter%getBorrowRate : @storage - # sp.verify(compute_InterestRateModel_59.value > 0, 'IRM_INSUFFICIENT_CASH') # @some : @parameter%getBorrowRate : @storage - DUP; # @some : @some : @parameter%getBorrowRate : @storage - PUSH nat 0; # nat : @some : @some : @parameter%getBorrowRate : @storage - COMPARE; # int : @some : @parameter%getBorrowRate : @storage - LT; # bool : @some : @parameter%getBorrowRate : @storage - IF - {} - { - PUSH string "IRM_INSUFFICIENT_CASH"; # string : @some : @parameter%getBorrowRate : @storage - FAILWITH; # FAILED - }; # @some : @parameter%getBorrowRate : @storage - # ur.value = (params.borrows * self.data.scale) // compute_InterestRateModel_59.value # @some : @parameter%getBorrowRate : @storage - DUP 3; # @storage : @some : @parameter%getBorrowRate : @storage - GET 4; # nat : @some : @parameter%getBorrowRate : @storage - DUP 3; # @parameter%getBorrowRate : nat : @some : @parameter%getBorrowRate : @storage - CAR; # pair (nat %borrows) (nat %cash) : nat : @some : @parameter%getBorrowRate : @storage - CAR; # nat : nat : @some : @parameter%getBorrowRate : @storage - MUL; # nat : @some : @parameter%getBorrowRate : @storage - EDIV; # option (pair nat nat) : @parameter%getBorrowRate : @storage - IF_NONE - { - PUSH int 61; # int : @parameter%getBorrowRate : @storage - FAILWITH; # FAILED - } - { - CAR; # nat : @parameter%getBorrowRate : @storage - }; # nat : @parameter%getBorrowRate : @storage - } - {}; # nat : @parameter%getBorrowRate : @storage - # compute_InterestRateModel_65 = sp.local("compute_InterestRateModel_65", ((ur.value * self.data.multiplierPerBlock) // self.data.scale) + self.data.baseRatePerBlock) # nat : @parameter%getBorrowRate : @storage - DIG 2; # @storage : nat : @parameter%getBorrowRate - DUP; # @storage : @storage : nat : @parameter%getBorrowRate - CAR; # nat : @storage : nat : @parameter%getBorrowRate - SWAP; # @storage : nat : nat : @parameter%getBorrowRate - DUP; # @storage : @storage : nat : nat : @parameter%getBorrowRate - GET 4; # nat : @storage : nat : nat : @parameter%getBorrowRate - SWAP; # @storage : nat : nat : nat : @parameter%getBorrowRate - DUP; # @storage : @storage : nat : nat : nat : @parameter%getBorrowRate - DUG 5; # @storage : nat : nat : nat : @parameter%getBorrowRate : @storage - GET 3; # nat : nat : nat : nat : @parameter%getBorrowRate : @storage - DIG 3; # nat : nat : nat : nat : @parameter%getBorrowRate : @storage - MUL; # nat : nat : nat : @parameter%getBorrowRate : @storage - EDIV; # option (pair nat nat) : nat : @parameter%getBorrowRate : @storage + UNPAIR; # nat : pair nat (pair nat nat) + # compute_InterestRateModel_68 = sp.local("compute_InterestRateModel_68", ((_x0 * self.data.multiplierPerBlock) // self.data.scale) + self.data.baseRatePerBlock) # nat : pair nat (pair nat nat) + DUP 2; # pair nat (pair nat nat) : nat : pair nat (pair nat nat) + CAR; # nat : nat : pair nat (pair nat nat) + DUP 3; # pair nat (pair nat nat) : nat : nat : pair nat (pair nat nat) + GET 4; # nat : nat : nat : pair nat (pair nat nat) + DUP 4; # pair nat (pair nat nat) : nat : nat : nat : pair nat (pair nat nat) + GET 3; # nat : nat : nat : nat : pair nat (pair nat nat) + DIG 3; # nat : nat : nat : nat : pair nat (pair nat nat) + MUL; # nat : nat : nat : pair nat (pair nat nat) + EDIV; # option (pair nat nat) : nat : pair nat (pair nat nat) IF_NONE { - PUSH int 65; # int : nat : @parameter%getBorrowRate : @storage + PUSH int 68; # int : nat : pair nat (pair nat nat) FAILWITH; # FAILED } { - CAR; # nat : nat : @parameter%getBorrowRate : @storage - }; # nat : nat : @parameter%getBorrowRate : @storage - ADD; # nat : @parameter%getBorrowRate : @storage - # sp.transfer(compute_InterestRateModel_65.value, sp.tez(0), params.cb) # nat : @parameter%getBorrowRate : @storage - NIL operation; # list operation : nat : @parameter%getBorrowRate : @storage - DIG 2; # @parameter%getBorrowRate : list operation : nat : @storage - GET 3; # contract nat : list operation : nat : @storage - PUSH mutez 0; # mutez : contract nat : list operation : nat : @storage - DIG 3; # nat : mutez : contract nat : list operation : @storage - TRANSFER_TOKENS; # operation : list operation : @storage - CONS; # list operation : @storage - } + CAR; # nat : nat : pair nat (pair nat nat) + }; # nat : nat : pair nat (pair nat nat) + ADD; # nat : pair nat (pair nat nat) + # sp.result(compute_InterestRateModel_68.value) # nat : pair nat (pair nat nat) + PAIR; # pair nat (pair nat (pair nat nat)) + }; # lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : pair @parameter @storage + SWAP; # pair @parameter @storage : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + # Private variable: utilizationRate # pair @parameter @storage : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + LAMBDA + (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) + (pair nat (pair nat (pair nat nat))) { - # == getSupplyRate == - # ur = sp.local("ur", 0) # @parameter%getSupplyRate : @storage - PUSH nat 0; # nat : @parameter%getSupplyRate : @storage - # if params.borrows > 0: # nat : @parameter%getSupplyRate : @storage - PUSH nat 0; # nat : nat : @parameter%getSupplyRate : @storage - DUP 3; # @parameter%getSupplyRate : nat : nat : @parameter%getSupplyRate : @storage - CAR; # pair (nat %borrows) (nat %cash) : nat : nat : @parameter%getSupplyRate : @storage - CAR; # nat : nat : nat : @parameter%getSupplyRate : @storage - COMPARE; # int : nat : @parameter%getSupplyRate : @storage - GT; # bool : nat : @parameter%getSupplyRate : @storage + UNPAIR; # pair nat (pair nat nat) : pair nat (pair nat nat) + # ur = sp.local("ur", 0) # pair nat (pair nat nat) : pair nat (pair nat nat) + PUSH nat 0; # nat : pair nat (pair nat nat) : pair nat (pair nat nat) + # if _x2.borrows > 0: # nat : pair nat (pair nat nat) : pair nat (pair nat nat) + PUSH nat 0; # nat : nat : pair nat (pair nat nat) : pair nat (pair nat nat) + DUP 3; # pair nat (pair nat nat) : nat : nat : pair nat (pair nat nat) : pair nat (pair nat nat) + CAR; # nat : nat : nat : pair nat (pair nat nat) : pair nat (pair nat nat) + COMPARE; # int : nat : pair nat (pair nat nat) : pair nat (pair nat nat) + GT; # bool : nat : pair nat (pair nat nat) : pair nat (pair nat nat) IF { - DROP; # @parameter%getSupplyRate : @storage - # compute_InterestRateModel_59 = sp.local("compute_InterestRateModel_59", sp.as_nat((params.cash + params.borrows) - params.reserves)) # @parameter%getSupplyRate : @storage - DUP; # @parameter%getSupplyRate : @parameter%getSupplyRate : @storage - GET 6; # nat : @parameter%getSupplyRate : @storage - SWAP; # @parameter%getSupplyRate : nat : @storage - DUP; # @parameter%getSupplyRate : @parameter%getSupplyRate : nat : @storage - CAR; # pair (nat %borrows) (nat %cash) : @parameter%getSupplyRate : nat : @storage - CAR; # nat : @parameter%getSupplyRate : nat : @storage - SWAP; # @parameter%getSupplyRate : nat : nat : @storage - DUP; # @parameter%getSupplyRate : @parameter%getSupplyRate : nat : nat : @storage - DUG 3; # @parameter%getSupplyRate : nat : nat : @parameter%getSupplyRate : @storage - CAR; # pair (nat %borrows) (nat %cash) : nat : nat : @parameter%getSupplyRate : @storage - CDR; # nat : nat : nat : @parameter%getSupplyRate : @storage - ADD; # nat : nat : @parameter%getSupplyRate : @storage - SUB; # int : @parameter%getSupplyRate : @storage - ISNAT; # option nat : @parameter%getSupplyRate : @storage + DROP; # pair nat (pair nat nat) : pair nat (pair nat nat) + # compute_InterestRateModel_61 = sp.local("compute_InterestRateModel_61", sp.as_nat((_x2.cash + _x2.borrows) - _x2.reserves)) # pair nat (pair nat nat) : pair nat (pair nat nat) + DUP; # pair nat (pair nat nat) : pair nat (pair nat nat) : pair nat (pair nat nat) + GET 4; # nat : pair nat (pair nat nat) : pair nat (pair nat nat) + DUP 2; # pair nat (pair nat nat) : nat : pair nat (pair nat nat) : pair nat (pair nat nat) + CAR; # nat : nat : pair nat (pair nat nat) : pair nat (pair nat nat) + DUP 3; # pair nat (pair nat nat) : nat : nat : pair nat (pair nat nat) : pair nat (pair nat nat) + GET 3; # nat : nat : nat : pair nat (pair nat nat) : pair nat (pair nat nat) + ADD; # nat : nat : pair nat (pair nat nat) : pair nat (pair nat nat) + SUB; # int : pair nat (pair nat nat) : pair nat (pair nat nat) + ISNAT; # option nat : pair nat (pair nat nat) : pair nat (pair nat nat) IF_NONE { - PUSH int 59; # int : @parameter%getSupplyRate : @storage + PUSH int 61; # int : pair nat (pair nat nat) : pair nat (pair nat nat) FAILWITH; # FAILED } - {}; # @some : @parameter%getSupplyRate : @storage - # sp.verify(compute_InterestRateModel_59.value > 0, 'IRM_INSUFFICIENT_CASH') # @some : @parameter%getSupplyRate : @storage - DUP; # @some : @some : @parameter%getSupplyRate : @storage - PUSH nat 0; # nat : @some : @some : @parameter%getSupplyRate : @storage - COMPARE; # int : @some : @parameter%getSupplyRate : @storage - LT; # bool : @some : @parameter%getSupplyRate : @storage + {}; # @some : pair nat (pair nat nat) : pair nat (pair nat nat) + # sp.verify(compute_InterestRateModel_61.value > 0, 'IRM_INSUFFICIENT_CASH') # @some : pair nat (pair nat nat) : pair nat (pair nat nat) + PUSH nat 0; # nat : @some : pair nat (pair nat nat) : pair nat (pair nat nat) + DUP 2; # @some : nat : @some : pair nat (pair nat nat) : pair nat (pair nat nat) + COMPARE; # int : @some : pair nat (pair nat nat) : pair nat (pair nat nat) + GT; # bool : @some : pair nat (pair nat nat) : pair nat (pair nat nat) IF {} { - PUSH string "IRM_INSUFFICIENT_CASH"; # string : @some : @parameter%getSupplyRate : @storage + PUSH string "IRM_INSUFFICIENT_CASH"; # string : @some : pair nat (pair nat nat) : pair nat (pair nat nat) FAILWITH; # FAILED - }; # @some : @parameter%getSupplyRate : @storage - # ur.value = (params.borrows * self.data.scale) // compute_InterestRateModel_59.value # @some : @parameter%getSupplyRate : @storage - DUP 3; # @storage : @some : @parameter%getSupplyRate : @storage - GET 4; # nat : @some : @parameter%getSupplyRate : @storage - DUP 3; # @parameter%getSupplyRate : nat : @some : @parameter%getSupplyRate : @storage - CAR; # pair (nat %borrows) (nat %cash) : nat : @some : @parameter%getSupplyRate : @storage - CAR; # nat : nat : @some : @parameter%getSupplyRate : @storage - MUL; # nat : @some : @parameter%getSupplyRate : @storage - EDIV; # option (pair nat nat) : @parameter%getSupplyRate : @storage + }; # @some : pair nat (pair nat nat) : pair nat (pair nat nat) + # ur.value = (_x2.borrows * self.data.scale) // compute_InterestRateModel_61.value # @some : pair nat (pair nat nat) : pair nat (pair nat nat) + DUP 3; # pair nat (pair nat nat) : @some : pair nat (pair nat nat) : pair nat (pair nat nat) + GET 4; # nat : @some : pair nat (pair nat nat) : pair nat (pair nat nat) + DIG 2; # pair nat (pair nat nat) : nat : @some : pair nat (pair nat nat) + CAR; # nat : nat : @some : pair nat (pair nat nat) + MUL; # nat : @some : pair nat (pair nat nat) + EDIV; # option (pair nat nat) : pair nat (pair nat nat) IF_NONE { - PUSH int 61; # int : @parameter%getSupplyRate : @storage + PUSH int 63; # int : pair nat (pair nat nat) FAILWITH; # FAILED } { - CAR; # nat : @parameter%getSupplyRate : @storage - }; # nat : @parameter%getSupplyRate : @storage + CAR; # nat : pair nat (pair nat nat) + }; # nat : pair nat (pair nat nat) } - {}; # nat : @parameter%getSupplyRate : @storage - # compute_InterestRateModel_65 = sp.local("compute_InterestRateModel_65", ((ur.value * self.data.multiplierPerBlock) // self.data.scale) + self.data.baseRatePerBlock) # nat : @parameter%getSupplyRate : @storage - DIG 2; # @storage : nat : @parameter%getSupplyRate - DUP; # @storage : @storage : nat : @parameter%getSupplyRate - CAR; # nat : @storage : nat : @parameter%getSupplyRate - SWAP; # @storage : nat : nat : @parameter%getSupplyRate - DUP; # @storage : @storage : nat : nat : @parameter%getSupplyRate - GET 4; # nat : @storage : nat : nat : @parameter%getSupplyRate - SWAP; # @storage : nat : nat : nat : @parameter%getSupplyRate - DUP; # @storage : @storage : nat : nat : nat : @parameter%getSupplyRate - DUG 5; # @storage : nat : nat : nat : @parameter%getSupplyRate : @storage - GET 3; # nat : nat : nat : nat : @parameter%getSupplyRate : @storage - DUP 4; # nat : nat : nat : nat : nat : @parameter%getSupplyRate : @storage - MUL; # nat : nat : nat : nat : @parameter%getSupplyRate : @storage - EDIV; # option (pair nat nat) : nat : nat : @parameter%getSupplyRate : @storage - IF_NONE { - PUSH int 65; # int : nat : nat : @parameter%getSupplyRate : @storage - FAILWITH; # FAILED - } - { - CAR; # nat : nat : nat : @parameter%getSupplyRate : @storage - }; # nat : nat : nat : @parameter%getSupplyRate : @storage - ADD; # nat : nat : @parameter%getSupplyRate : @storage - # sp.transfer((ur.value * ((compute_InterestRateModel_65.value * sp.as_nat(self.data.scale - params.reserveFactorMantissa)) // self.data.scale)) // self.data.scale, sp.tez(0), params.cb) # nat : nat : @parameter%getSupplyRate : @storage - NIL operation; # list operation : nat : nat : @parameter%getSupplyRate : @storage - DUP 4; # @parameter%getSupplyRate : list operation : nat : nat : @parameter%getSupplyRate : @storage - GET 3; # contract nat : list operation : nat : nat : @parameter%getSupplyRate : @storage - PUSH mutez 0; # mutez : contract nat : list operation : nat : nat : @parameter%getSupplyRate : @storage - DIG 6; # @storage : mutez : contract nat : list operation : nat : nat : @parameter%getSupplyRate - DUP; # @storage : @storage : mutez : contract nat : list operation : nat : nat : @parameter%getSupplyRate - GET 4; # nat : @storage : mutez : contract nat : list operation : nat : nat : @parameter%getSupplyRate - SWAP; # @storage : nat : mutez : contract nat : list operation : nat : nat : @parameter%getSupplyRate - DUP; # @storage : @storage : nat : mutez : contract nat : list operation : nat : nat : @parameter%getSupplyRate - DUG 8; # @storage : nat : mutez : contract nat : list operation : nat : nat : @parameter%getSupplyRate : @storage - GET 4; # nat : nat : mutez : contract nat : list operation : nat : nat : @parameter%getSupplyRate : @storage - DIG 7; # @parameter%getSupplyRate : nat : nat : mutez : contract nat : list operation : nat : nat : @storage - GET 5; # nat : nat : nat : mutez : contract nat : list operation : nat : nat : @storage - DUP 9; # @storage : nat : nat : nat : mutez : contract nat : list operation : nat : nat : @storage - GET 4; # nat : nat : nat : nat : mutez : contract nat : list operation : nat : nat : @storage - SUB; # int : nat : nat : mutez : contract nat : list operation : nat : nat : @storage - ISNAT; # option nat : nat : nat : mutez : contract nat : list operation : nat : nat : @storage + SWAP; # pair nat (pair nat nat) : nat : pair nat (pair nat nat) + DROP; # nat : pair nat (pair nat nat) + }; # nat : pair nat (pair nat nat) + # sp.result(ur.value) # nat : pair nat (pair nat nat) + PAIR; # pair nat (pair nat (pair nat nat)) + }; # lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : pair @parameter @storage : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + SWAP; # pair @parameter @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + UNPAIR; # @parameter : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + IF_LEFT + { + # == getBorrowRate == + # sp.transfer(self.calculateBorrowRate(self.utilizationRate(sp.record(borrows = params.borrows, cash = params.cash, reserves = params.reserves))), sp.tez(0), params.cb) # @parameter%getBorrowRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + NIL operation; # list operation : @parameter%getBorrowRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DUP 2; # @parameter%getBorrowRate : list operation : @parameter%getBorrowRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + GET 3; # contract nat : list operation : @parameter%getBorrowRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + PUSH mutez 0; # mutez : contract nat : list operation : @parameter%getBorrowRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DIG 6; # lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation : @parameter%getBorrowRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DIG 6; # lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation : @parameter%getBorrowRate : @storage + DIG 5; # @parameter%getBorrowRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation : @storage + DUP; # @parameter%getBorrowRate : @parameter%getBorrowRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation : @storage + GET 4; # nat : @parameter%getBorrowRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation : @storage + SWAP; # @parameter%getBorrowRate : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation : @storage + DUP; # @parameter%getBorrowRate : @parameter%getBorrowRate : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation : @storage + CAR; # pair (nat %borrows) (nat %cash) : @parameter%getBorrowRate : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation : @storage + CDR; # nat : @parameter%getBorrowRate : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation : @storage + SWAP; # @parameter%getBorrowRate : nat : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation : @storage + CAR; # pair (nat %borrows) (nat %cash) : nat : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation : @storage + CAR; # nat : nat : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation : @storage + PAIR 3; # pair nat (pair nat nat) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation : @storage + SWAP; # lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : pair nat (pair nat nat) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation : @storage + DIG 6; # @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : pair nat (pair nat nat) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation + DIG 2; # pair nat (pair nat nat) : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation + PAIR; # pair (pair nat (pair nat nat)) @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation + EXEC; # pair nat (pair nat (pair nat nat)) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation + UNPAIR; # nat : pair nat (pair nat nat) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation + SWAP; # pair nat (pair nat nat) : nat : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation + DUG 5; # nat : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation : pair nat (pair nat nat) + SWAP; # lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : mutez : contract nat : list operation : pair nat (pair nat nat) + DIG 5; # pair nat (pair nat nat) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : mutez : contract nat : list operation + DIG 2; # nat : pair nat (pair nat nat) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation + PAIR; # pair nat (pair nat (pair nat nat)) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation + EXEC; # pair nat (pair nat (pair nat nat)) : mutez : contract nat : list operation + UNPAIR; # nat : pair nat (pair nat nat) : mutez : contract nat : list operation + SWAP; # pair nat (pair nat nat) : nat : mutez : contract nat : list operation + DUG 4; # nat : mutez : contract nat : list operation : pair nat (pair nat nat) + TRANSFER_TOKENS; # operation : list operation : pair nat (pair nat nat) + CONS; # list operation : pair nat (pair nat nat) + } + { + # == getSupplyRate == + # sp.transfer((self.utilizationRate(sp.record(borrows = params.borrows, cash = params.cash, reserves = params.reserves)) * ((self.calculateBorrowRate(self.utilizationRate(sp.record(borrows = params.borrows, cash = params.cash, reserves = params.reserves))) * sp.as_nat(self.data.scale - params.reserveFactorMantissa)) // self.data.scale)) // self.data.scale, sp.tez(0), params.cb) # @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + NIL operation; # list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DUP 2; # @parameter%getSupplyRate : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + GET 3; # contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + PUSH mutez 0; # mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DUP 5; # @storage : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + GET 4; # nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DUP 6; # @storage : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + GET 4; # nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DUP 6; # @parameter%getSupplyRate : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + GET 5; # nat : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DUP 8; # @storage : nat : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + GET 4; # nat : nat : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + SUB; # int : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + ISNAT; # option nat : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) IF_NONE { - PUSH int 47; # int : nat : nat : mutez : contract nat : list operation : nat : nat : @storage + PUSH int 47; # int : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) FAILWITH; # FAILED } - {}; # @some : nat : nat : mutez : contract nat : list operation : nat : nat : @storage - DIG 6; # nat : @some : nat : nat : mutez : contract nat : list operation : nat : @storage - MUL; # nat : nat : nat : mutez : contract nat : list operation : nat : @storage - EDIV; # option (pair nat nat) : nat : mutez : contract nat : list operation : nat : @storage + {}; # @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DIG 9; # lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DUP 10; # lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DUP 9; # @parameter%getSupplyRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + GET 6; # nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DUP 10; # @parameter%getSupplyRate : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + CAR; # pair (nat %borrows) (nat %cash) : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + CDR; # nat : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DUP 11; # @parameter%getSupplyRate : nat : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + CAR; # pair (nat %borrows) (nat %cash) : nat : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + CAR; # nat : nat : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + PAIR 3; # pair nat (pair nat nat) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + SWAP; # lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : pair nat (pair nat nat) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DIG 10; # @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : pair nat (pair nat nat) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DIG 2; # pair nat (pair nat nat) : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + PAIR; # pair (pair nat (pair nat nat)) @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + EXEC; # pair nat (pair nat (pair nat nat)) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + UNPAIR; # nat : pair nat (pair nat nat) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DIG 10; # lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : pair nat (pair nat nat) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate + DIG 2; # pair nat (pair nat nat) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate + DUG 10; # lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : pair nat (pair nat nat) + DUG 10; # nat : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : pair nat (pair nat nat) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + SWAP; # lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : pair nat (pair nat nat) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DIG 9; # pair nat (pair nat nat) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DIG 2; # nat : pair nat (pair nat nat) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + PAIR; # pair nat (pair nat (pair nat nat)) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + EXEC; # pair nat (pair nat (pair nat nat)) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + UNPAIR; # nat : pair nat (pair nat nat) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DIG 9; # lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : pair nat (pair nat nat) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate + DIG 2; # pair nat (pair nat nat) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate + DUG 9; # lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : pair nat (pair nat nat) + DUG 9; # nat : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : pair nat (pair nat nat) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + MUL; # nat : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : pair nat (pair nat nat) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + EDIV; # option (pair nat nat) : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : pair nat (pair nat nat) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) IF_NONE { - PUSH int 52; # int : nat : mutez : contract nat : list operation : nat : @storage + PUSH int 52; # int : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : pair nat (pair nat nat) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) FAILWITH; # FAILED } { - CAR; # nat : nat : mutez : contract nat : list operation : nat : @storage - }; # nat : nat : mutez : contract nat : list operation : nat : @storage - DIG 5; # nat : nat : nat : mutez : contract nat : list operation : @storage - MUL; # nat : nat : mutez : contract nat : list operation : @storage - EDIV; # option (pair nat nat) : mutez : contract nat : list operation : @storage + CAR; # nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : pair nat (pair nat nat) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + }; # nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : pair nat (pair nat nat) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DIG 7; # lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : pair nat (pair nat nat) + DIG 6; # @parameter%getSupplyRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : nat : mutez : contract nat : list operation : pair nat (pair nat nat) + DUP; # @parameter%getSupplyRate : @parameter%getSupplyRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : nat : mutez : contract nat : list operation : pair nat (pair nat nat) + GET 6; # nat : @parameter%getSupplyRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : nat : mutez : contract nat : list operation : pair nat (pair nat nat) + SWAP; # @parameter%getSupplyRate : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : nat : mutez : contract nat : list operation : pair nat (pair nat nat) + DUP; # @parameter%getSupplyRate : @parameter%getSupplyRate : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : nat : mutez : contract nat : list operation : pair nat (pair nat nat) + CAR; # pair (nat %borrows) (nat %cash) : @parameter%getSupplyRate : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : nat : mutez : contract nat : list operation : pair nat (pair nat nat) + CDR; # nat : @parameter%getSupplyRate : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : nat : mutez : contract nat : list operation : pair nat (pair nat nat) + SWAP; # @parameter%getSupplyRate : nat : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : nat : mutez : contract nat : list operation : pair nat (pair nat nat) + CAR; # pair (nat %borrows) (nat %cash) : nat : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : nat : mutez : contract nat : list operation : pair nat (pair nat nat) + CAR; # nat : nat : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : nat : mutez : contract nat : list operation : pair nat (pair nat nat) + PAIR 3; # pair nat (pair nat nat) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : nat : mutez : contract nat : list operation : pair nat (pair nat nat) + SWAP; # lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : pair nat (pair nat nat) : nat : nat : mutez : contract nat : list operation : pair nat (pair nat nat) + DIG 7; # pair nat (pair nat nat) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : pair nat (pair nat nat) : nat : nat : mutez : contract nat : list operation + DIG 2; # pair nat (pair nat nat) : pair nat (pair nat nat) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : nat : mutez : contract nat : list operation + PAIR; # pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : nat : mutez : contract nat : list operation + EXEC; # pair nat (pair nat (pair nat nat)) : nat : nat : mutez : contract nat : list operation + UNPAIR; # nat : pair nat (pair nat nat) : nat : nat : mutez : contract nat : list operation + SWAP; # pair nat (pair nat nat) : nat : nat : nat : mutez : contract nat : list operation + DUG 6; # nat : nat : nat : mutez : contract nat : list operation : pair nat (pair nat nat) + MUL; # nat : nat : mutez : contract nat : list operation : pair nat (pair nat nat) + EDIV; # option (pair nat nat) : mutez : contract nat : list operation : pair nat (pair nat nat) IF_NONE { - PUSH int 53; # int : mutez : contract nat : list operation : @storage + PUSH int 53; # int : mutez : contract nat : list operation : pair nat (pair nat nat) FAILWITH; # FAILED } { - CAR; # nat : mutez : contract nat : list operation : @storage - }; # nat : mutez : contract nat : list operation : @storage - TRANSFER_TOKENS; # operation : list operation : @storage - CONS; # list operation : @storage - }; # list operation : @storage - PAIR; # pair (list operation) @storage + CAR; # nat : mutez : contract nat : list operation : pair nat (pair nat nat) + }; # nat : mutez : contract nat : list operation : pair nat (pair nat nat) + TRANSFER_TOKENS; # operation : list operation : pair nat (pair nat nat) + CONS; # list operation : pair nat (pair nat nat) + }; # list operation : pair nat (pair nat nat) + PAIR; # pair (list operation) (pair nat (pair nat nat)) }; \ No newline at end of file diff --git a/compiled_contracts/CFA2_IRM/step_000_cont_0_sizes.csv b/compiled_contracts/CFA2_IRM/step_000_cont_0_sizes.csv index 8d52ff5b..adf16527 100644 --- a/compiled_contracts/CFA2_IRM/step_000_cont_0_sizes.csv +++ b/compiled_contracts/CFA2_IRM/step_000_cont_0_sizes.csv @@ -1,2 +1,2 @@ storage,27 -contract,946 \ No newline at end of file +contract,1009 \ No newline at end of file diff --git a/compiled_contracts/CFA2_IRM/step_000_cont_0_storage.json b/compiled_contracts/CFA2_IRM/step_000_cont_0_storage.json index f7bedb7f..da01122c 100644 --- a/compiled_contracts/CFA2_IRM/step_000_cont_0_storage.json +++ b/compiled_contracts/CFA2_IRM/step_000_cont_0_storage.json @@ -1 +1 @@ -{ "prim": "Pair", "args": [ { "int": "950642634" }, { "prim": "Pair", "args": [ { "int": "76000000000" }, { "int": "1000000000000000000" } ] } ] } \ No newline at end of file +{ "prim": "Pair", "args": [ { "int": "760514107" }, { "prim": "Pair", "args": [ { "int": "334400000000" }, { "int": "1000000000000000000" } ] } ] } \ No newline at end of file diff --git a/compiled_contracts/CFA2_IRM/step_000_cont_0_storage.py b/compiled_contracts/CFA2_IRM/step_000_cont_0_storage.py index c040ddeb..864113b9 100644 --- a/compiled_contracts/CFA2_IRM/step_000_cont_0_storage.py +++ b/compiled_contracts/CFA2_IRM/step_000_cont_0_storage.py @@ -1 +1 @@ -sp.record(baseRatePerBlock = 950642634, multiplierPerBlock = 76000000000, scale = 1000000000000000000) \ No newline at end of file +sp.record(baseRatePerBlock = 760514107, multiplierPerBlock = 334400000000, scale = 1000000000000000000) \ No newline at end of file diff --git a/compiled_contracts/CFA2_IRM/step_000_cont_0_storage.tz b/compiled_contracts/CFA2_IRM/step_000_cont_0_storage.tz index 920b5015..42e07cf1 100644 --- a/compiled_contracts/CFA2_IRM/step_000_cont_0_storage.tz +++ b/compiled_contracts/CFA2_IRM/step_000_cont_0_storage.tz @@ -1 +1 @@ -(Pair 950642634 (Pair 76000000000 1000000000000000000)) \ No newline at end of file +(Pair 760514107 (Pair 334400000000 1000000000000000000)) \ No newline at end of file diff --git a/compiled_contracts/CFA2_IRM/step_000_cont_0_types.py b/compiled_contracts/CFA2_IRM/step_000_cont_0_types.py index 932ad6f5..fe6a460b 100644 --- a/compiled_contracts/CFA2_IRM/step_000_cont_0_types.py +++ b/compiled_contracts/CFA2_IRM/step_000_cont_0_types.py @@ -2,5 +2,5 @@ tstorage = sp.TRecord(baseRatePerBlock = sp.TNat, multiplierPerBlock = sp.TNat, scale = sp.TNat).layout(("baseRatePerBlock", ("multiplierPerBlock", "scale"))) tparameter = sp.TVariant(getBorrowRate = sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserves = sp.TNat).layout((("borrows", "cash"), ("cb", "reserves"))), getSupplyRate = sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserveFactorMantissa = sp.TNat, reserves = sp.TNat).layout((("borrows", "cash"), ("cb", ("reserveFactorMantissa", "reserves"))))).layout(("getBorrowRate", "getSupplyRate")) -tprivates = { } +tprivates = { "calculateBorrowRate": sp.TLambda(sp.TNat, sp.TNat, with_storage="read-only", tstorage=sp.TRecord(baseRatePerBlock = sp.TNat, multiplierPerBlock = sp.TNat, scale = sp.TNat).layout(("baseRatePerBlock", ("multiplierPerBlock", "scale")))), "utilizationRate": sp.TLambda(sp.TRecord(borrows = sp.TNat, cash = sp.TNat, reserves = sp.TNat).layout(("borrows", ("cash", "reserves"))), sp.TNat, with_storage="read-only", tstorage=sp.TRecord(baseRatePerBlock = sp.TNat, multiplierPerBlock = sp.TNat, scale = sp.TNat).layout(("baseRatePerBlock", ("multiplierPerBlock", "scale")))) } tviews = { } diff --git a/compiled_contracts/CUSDt/log.txt b/compiled_contracts/CUSDt/log.txt index adadf3f5..6dd4c89d 100644 --- a/compiled_contracts/CUSDt/log.txt +++ b/compiled_contracts/CUSDt/log.txt @@ -1,10 +1,10 @@ Creating contract KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 - -> (Pair (Pair (Pair (Pair (Pair 0 (Pair {} "KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2")) (Pair 1000000000000000000 (Pair 800000000000 0))) (Pair (Pair {} (Pair "KT1DiWBT6RBC97iWrvLHRzKL7AWQKorBiuRG" 0)) (Pair (Pair 1000000000000000000 "KT1XnTn74bUtxHfDtBmm2bGZAQfhPbvKWR8o") (Pair 500000000000000000 1000000000000000000)))) (Pair (Pair (Pair "KT1Q2BBtfT9obGMAZ32L6esSjm8FG9NWiBb9" (Pair {} {Elt "" 0x74657a6f732d73746f726167653a64617461; Elt "data" 0x7b226e616d65223a202254657a46696e20496e7465726573742d42656172696e672055534420546574686572222c20226465736372697074696f6e223a2022496e7465726573742d62656172696e6720746f6b656e20666f7220555344205465746865722028555344742920737570706c69656420746f207468652054657a46696e206c656e64696e672070726f746f636f6c2e222c202276657273696f6e223a2022332e30222c2022617574686f7273223a205b2254657a6f732046696e616e63652050726f746f636f6c225d2c2022686f6d6570616765223a202268747470733a2f2f74657a6f732e66696e616e6365222c2022696e7465726661636573223a205b22545a49502d303037222c2022545a49502d303136225d7d})) (Pair None (Pair 100000000000000 50000000000000000))) (Pair (Pair 1000000000000000000 (Pair 0 0)) (Pair (Pair {Elt 0 (Pair 0 {Elt "decimals" 0x36; Elt "name" 0x54657a46696e20496e7465726573742d42656172696e672055534420546574686572; Elt "symbol" 0xea9cb055534474})} 0) (Pair 0 0))))) {Elt 0 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; DUP; GET 3; GET 3; IF_NONE { PUSH string "CT_NOT_SET_PENDING_ADMIN"; FAILWITH } {}; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_PENDING_ADMIN"; FAILWITH }; DUP; GET 3; GET 3; IF_NONE { PUSH int 812; FAILWITH } {}; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 1 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; NIL operation; DUP 3; GET 3; CAR; CAR; CONTRACT %getBorrowRate (pair (pair (nat %borrows) (nat %cash)) (pair (contract %cb nat) (nat %reserves))); IF_NONE { PUSH int 744; FAILWITH } {}; PUSH mutez 0; DUP 5; GET 9; DIG 4; PAIR; DUP 5; CAR; GET 3; GET 4; DUP 6; GET 7; CDR; PAIR; PAIR; TRANSFER_TOKENS; CONS; PAIR }; Elt 2 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; RENAME; SENDER; RENAME; COMPARE; NEQ; IF {} { PUSH string "CT_INTERNAL_CALL"; FAILWITH }; DUP 2; GET 3; CAR; GET 3; SENDER; RENAME; GET; IF_NONE { PUSH int 454; FAILWITH } {}; CAR; DUP 2; CAR; MEM; IF { PUSH bool True } { PUSH nat 1000; DUP 3; GET 3; CAR; GET 3; SENDER; RENAME; GET; IF_NONE { PUSH int 455; FAILWITH } {}; CAR; SIZE; COMPARE; LT }; IF {} { PUSH string "FA1.2_MaxApprovalsReached"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; CAR; GET 3; SENDER; RENAME; GET; IF_NONE { PUSH int 457; FAILWITH } {}; CAR; DUP 3; CAR; GET; IF_NONE { PUSH nat 0 } {}; COMPARE; EQ; IF { PUSH bool True } { PUSH nat 0; DUP 2; CDR; COMPARE; EQ }; IF {} { PUSH string "FA1.2_UnsafeAllowanceChange"; FAILWITH }; PUSH nat 0; DUP 2; CDR; COMPARE; EQ; IF { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; DUP; SENDER; RENAME; DUP; DUG 2; GET; IF_NONE { PUSH int 462; FAILWITH } {}; DUP; CAR; NONE nat; DIG 10; CAR; UPDATE; UPDATE 1; SOME; SWAP; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR } { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; DUP; SENDER; RENAME; DUP; DUG 2; GET; IF_NONE { PUSH int 464; FAILWITH } {}; DUP; CAR; DUP 10; CDR; SOME; DIG 10; CAR; UPDATE; UPDATE 1; SOME; SWAP; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR }; NIL operation; PAIR }; Elt 3 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH }; DUP 2; GET 3; CAR; CAR; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_SENDER_NOT_IRM"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 8; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 8; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; CAR; GET 5; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_BORROW_RATE"; FAILWITH }; DUP 2; CAR; CAR; CAR; CAR; LEVEL; RENAME; SUB; ISNAT; RENAME; IF_NONE { PUSH int 759; FAILWITH } {}; DUP 2; MUL; DUP 3; CAR; GET 5; CAR; DUP 4; GET 7; CDR; DUP 3; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; DUP 4; GET 7; CDR; DUP 2; ADD; DIG 4; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; CAR; DIG 5; SWAP; PAIR; PAIR; SWAP; PAIR; SWAP; PAIR; SWAP; PAIR; DUG 3; DUP 4; GET 9; DUP 5; CAR; GET 5; CAR; DUP 3; DUP 7; GET 3; GET 6; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; DIG 4; SWAP; UPDATE 9; DUG 3; DUP 4; CAR; CAR; GET 3; DUP 5; CAR; GET 5; CAR; DUP 6; CAR; CAR; GET 3; DUP 5; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; DIG 4; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; DIG 4; PAIR; SWAP; CDR; LEVEL; DIG 5; DROP; DIG 5; DROP; DIG 5; DROP; RENAME; PAIR; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 4 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } } } { PUSH int -1; FAILWITH }; DUP; CAR; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; EMPTY_SET nat; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 5 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 12; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 12; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP; DUP 3; CAR; GET 3; GET 4; COMPARE; GE; IF {} { PUSH string "CT_INSUFFICIENT_CASH"; FAILWITH }; DUP 2; GET 9; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_REDUCE_AMOUNT"; FAILWITH }; DUP; DUP 3; GET 9; SUB; ISNAT; RENAME; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; DIG 2; SWAP; UPDATE 9; SWAP; NIL operation; DUP 3; CAR; GET 5; CDR; CONTRACT %transfer (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))); IF_NONE { PUSH int 43; FAILWITH } {}; PUSH mutez 0; NIL (pair address (list (pair address (pair nat nat)))); NIL (pair address (pair nat nat)); DIG 5; DUP 7; GET 5; GET 4; DUP 8; CAR; CAR; CAR; GET 4; PAIR 3; CONS; SELF_ADDRESS; RENAME; PAIR; CONS; TRANSFER_TOKENS; CONS; PAIR }; Elt 6 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } }; DUP; CAR; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 7 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 13; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 13; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; GET 5; CDR; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INVALID_CASH_SENDER"; FAILWITH }; PUSH nat 1; DUP 2; SIZE; COMPARE; EQ; IF {} { PUSH string "CT_INVALID_CASH_DATA"; FAILWITH }; DUP; ITER { DUP 3; GET 5; GET 4; DUP 2; CAR; CDR; COMPARE; EQ; IF {} { PUSH string "CT_INVALID_CASH_DATA"; FAILWITH }; SELF_ADDRESS; RENAME; DUP 2; CAR; CAR; COMPARE; EQ; IF {} { PUSH string "CT_INVALID_CASH_DATA"; FAILWITH }; DIG 2; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CAR; DIG 5; CDR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; SWAP }; DROP; NIL operation; PAIR }; Elt 8 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } }; DUP 2; CAR; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; DIG 5; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; NIL operation; PAIR }; Elt 9 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT {} { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } }; SELF_ADDRESS; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 9; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 9; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; CDR; DIG 4; PAIR; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 10 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } {} } { PUSH int -1; FAILWITH } } }; DUP 2; CAR; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; DIG 4; SOME; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 11 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } }; SELF_ADDRESS; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 10; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 10; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; CAR; CAR; CAR; LEVEL; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTEREST_OLD"; FAILWITH }; DUP 2; GET 5; CAR; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_RESERVE_FACTOR"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 12 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } }; DUP 2; CAR; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; DIG 5; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }}) + -> (Pair (Pair (Pair (Pair (Pair 0 (Pair {} "KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2")) (Pair 1000000000000000000 (Pair 800000000000 0))) (Pair (Pair {} (Pair "KT1DiWBT6RBC97iWrvLHRzKL7AWQKorBiuRG" 0)) (Pair (Pair 1000000000000000000 "KT1XnTn74bUtxHfDtBmm2bGZAQfhPbvKWR8o") (Pair 500000000000000000 1000000000000000000)))) (Pair (Pair (Pair "KT1Q2BBtfT9obGMAZ32L6esSjm8FG9NWiBb9" (Pair {} {Elt "" 0x74657a6f732d73746f726167653a64617461; Elt "data" 0x7b226e616d65223a202254657a46696e20496e7465726573742d42656172696e672055534420546574686572222c20226465736372697074696f6e223a2022496e7465726573742d62656172696e6720746f6b656e20666f7220555344205465746865722028555344742920737570706c69656420746f207468652054657a46696e206c656e64696e672070726f746f636f6c2e222c202276657273696f6e223a2022332e30222c2022617574686f7273223a205b2254657a6f732046696e616e63652050726f746f636f6c225d2c2022686f6d6570616765223a202268747470733a2f2f74657a6f732e66696e616e6365222c2022696e7465726661636573223a205b22545a49502d303037222c2022545a49502d303136225d7d})) (Pair None (Pair 100000000000000 50000000000000000))) (Pair (Pair 1000000000000000000 (Pair 0 0)) (Pair (Pair {Elt 0 (Pair 0 {Elt "decimals" 0x36; Elt "name" 0x54657a46696e20496e7465726573742d42656172696e672055534420546574686572; Elt "symbol" 0xea9cb055534474})} 0) (Pair 0 0))))) {Elt 0 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; DUP; GET 3; GET 3; IF_NONE { PUSH string "CT_NOT_SET_PENDING_ADMIN"; FAILWITH } {}; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_PENDING_ADMIN"; FAILWITH }; DUP; GET 3; GET 3; IF_NONE { PUSH int 822; FAILWITH } {}; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 1 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; NIL operation; DUP 3; GET 3; CAR; CAR; CONTRACT %getBorrowRate (pair (pair (nat %borrows) (nat %cash)) (pair (contract %cb nat) (nat %reserves))); IF_NONE { PUSH int 754; FAILWITH } {}; PUSH mutez 0; DUP 5; GET 9; DIG 4; PAIR; DUP 5; CAR; GET 3; GET 4; DUP 6; GET 7; CDR; PAIR; PAIR; TRANSFER_TOKENS; CONS; PAIR }; Elt 2 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; SENDER; COMPARE; NEQ; IF {} { PUSH string "CT_INTERNAL_CALL"; FAILWITH }; DUP 2; GET 3; CAR; GET 3; SENDER; MEM; IF {} { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH (option (pair (map address nat) nat)) (Some (Pair {} 0)); SENDER; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR; SWAP }; DUP 2; CAR; GET 3; CAR; SENDER; MEM; IF {} { SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; PUSH (option (pair nat nat)) (Some (Pair 0 0)); SENDER; UPDATE; PAIR; PAIR; SWAP; PAIR; PAIR; SWAP }; DUP 2; GET 3; CAR; GET 3; SENDER; GET; IF_NONE { PUSH int 460; FAILWITH } {}; CAR; DUP 2; CAR; MEM; IF { PUSH bool True } { PUSH nat 1000; DUP 3; GET 3; CAR; GET 3; SENDER; GET; IF_NONE { PUSH int 461; FAILWITH } {}; CAR; SIZE; COMPARE; LT }; IF {} { PUSH (pair string unit) (Pair "FA1.2_MaxApprovalsReached" Unit); FAILWITH }; PUSH nat 0; DUP 3; GET 3; CAR; GET 3; SENDER; GET; IF_NONE { PUSH int 463; FAILWITH } {}; CAR; DUP 3; CAR; GET; IF_NONE { PUSH nat 0 } {}; COMPARE; EQ; IF { PUSH bool True } { PUSH nat 0; DUP 2; CDR; COMPARE; EQ }; IF {} { DUP 2; GET 3; CAR; GET 3; SENDER; GET; IF_NONE { PUSH int 463; FAILWITH } {}; CAR; DUP 2; CAR; GET; IF_NONE { PUSH nat 0 } {}; PUSH string "UnsafeAllowanceChange"; PAIR; FAILWITH }; PUSH nat 0; DUP 2; CDR; COMPARE; EQ; IF { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; DUP; SENDER; DUP; DUG 2; GET; IF_NONE { PUSH int 468; FAILWITH } {}; DUP; CAR; NONE nat; DIG 10; CAR; UPDATE; UPDATE 1; SOME; SWAP; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR } { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; DUP; SENDER; DUP; DUG 2; GET; IF_NONE { PUSH int 470; FAILWITH } {}; DUP; CAR; DUP 10; CDR; SOME; DIG 10; CAR; UPDATE; UPDATE 1; SOME; SWAP; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR }; NIL operation; PAIR }; Elt 3 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH }; DUP 2; GET 3; CAR; CAR; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_SENDER_NOT_IRM"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 8; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 8; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; CAR; GET 5; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_BORROW_RATE"; FAILWITH }; DUP 2; CAR; CAR; CAR; CAR; LEVEL; SUB; ISNAT; IF_NONE { PUSH int 769; FAILWITH } {}; DUP 2; MUL; DUP 3; CAR; GET 5; CAR; DUP 4; GET 7; CDR; DUP 3; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; DUP 4; GET 7; CDR; DUP 2; ADD; DIG 4; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; CAR; DIG 5; SWAP; PAIR; PAIR; SWAP; PAIR; SWAP; PAIR; SWAP; PAIR; DUG 3; DUP 4; GET 9; DUP 5; CAR; GET 5; CAR; DUP 3; DUP 7; GET 3; GET 6; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; DIG 4; SWAP; UPDATE 9; DUG 3; DUP 4; CAR; CAR; GET 3; DUP 5; CAR; GET 5; CAR; DUP 6; CAR; CAR; GET 3; DUP 5; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; DIG 4; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; DIG 4; PAIR; SWAP; CDR; LEVEL; DIG 5; DROP; DIG 5; DROP; DIG 5; DROP; PAIR; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 4 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } } } { PUSH int -1; FAILWITH }; DUP; CAR; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; EMPTY_SET nat; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 5 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 12; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 12; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP; DUP 3; CAR; GET 3; GET 4; COMPARE; GE; IF {} { PUSH string "CT_INSUFFICIENT_CASH"; FAILWITH }; DUP 2; GET 9; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_REDUCE_AMOUNT"; FAILWITH }; DUP; DUP 3; GET 9; SUB; ISNAT; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; DIG 2; SWAP; UPDATE 9; SWAP; NIL operation; DUP 3; CAR; GET 5; CDR; CONTRACT %transfer (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))); IF_NONE { PUSH int 43; FAILWITH } {}; PUSH mutez 0; NIL (pair address (list (pair address (pair nat nat)))); NIL (pair address (pair nat nat)); DIG 5; DUP 7; GET 5; GET 4; DUP 8; CAR; CAR; CAR; GET 4; PAIR 3; CONS; SELF_ADDRESS; PAIR; CONS; TRANSFER_TOKENS; CONS; PAIR }; Elt 6 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } }; DUP; CAR; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 7 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 13; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 13; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; GET 5; CDR; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INVALID_CASH_SENDER"; FAILWITH }; PUSH nat 1; DUP 2; SIZE; COMPARE; EQ; IF {} { PUSH string "CT_INVALID_CASH_DATA"; FAILWITH }; DUP; ITER { DUP 3; GET 5; GET 4; DUP 2; CAR; CDR; COMPARE; EQ; IF {} { PUSH string "CT_INVALID_CASH_DATA"; FAILWITH }; SELF_ADDRESS; DUP 2; CAR; CAR; COMPARE; EQ; IF {} { PUSH string "CT_INVALID_CASH_DATA"; FAILWITH }; DIG 2; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CAR; DIG 5; CDR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; SWAP }; DROP; NIL operation; PAIR }; Elt 8 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } }; DUP 2; CAR; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; DIG 5; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; NIL operation; PAIR }; Elt 9 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT {} { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } }; SELF_ADDRESS; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 9; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 9; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; CDR; DIG 4; PAIR; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 10 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } {} } { PUSH int -1; FAILWITH } } }; DUP 2; CAR; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; DIG 4; SOME; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 11 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } }; SELF_ADDRESS; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 10; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 10; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; CAR; CAR; CAR; LEVEL; COMPARE; EQ; IF {} { PUSH string "CT_INTEREST_OLD"; FAILWITH }; DUP 2; GET 5; CAR; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_RESERVE_FACTOR"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 12 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } }; DUP 2; CAR; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; DIG 5; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }}) => ./compiled_contracts/CUSDt/step_000_cont_0_storage.tz 1 - => ./compiled_contracts/CUSDt/step_000_cont_0_storage.json 1352 + => ./compiled_contracts/CUSDt/step_000_cont_0_storage.json 1433 => ./compiled_contracts/CUSDt/step_000_cont_0_sizes.csv 2 => ./compiled_contracts/CUSDt/step_000_cont_0_storage.py 1 => ./compiled_contracts/CUSDt/step_000_cont_0_types.py 7 - => ./compiled_contracts/CUSDt/step_000_cont_0_contract.tz 4929 - => ./compiled_contracts/CUSDt/step_000_cont_0_contract.json 6202 - => ./compiled_contracts/CUSDt/step_000_cont_0_contract.py 752 + => ./compiled_contracts/CUSDt/step_000_cont_0_contract.tz 5161 + => ./compiled_contracts/CUSDt/step_000_cont_0_contract.json 6167 + => ./compiled_contracts/CUSDt/step_000_cont_0_contract.py 762 diff --git a/compiled_contracts/CUSDt/step_000_cont_0_contract.json b/compiled_contracts/CUSDt/step_000_cont_0_contract.json index dedb15b1..768686cf 100644 --- a/compiled_contracts/CUSDt/step_000_cont_0_contract.json +++ b/compiled_contracts/CUSDt/step_000_cont_0_contract.json @@ -525,8 +525,16 @@ { "prim": "or", "args": [ - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ], "annots": [ "%borrowBalanceStored" ] }, - { "prim": "pair", "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ], "annots": [ "%exchangeRateStored" ] } + { + "prim": "pair", + "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ], + "annots": [ "%borrowBalanceStored" ] + }, + { + "prim": "pair", + "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ], + "annots": [ "%exchangeRateStored" ] + } ] } ] @@ -580,8 +588,16 @@ { "prim": "or", "args": [ - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ], "annots": [ "%getBalanceOfUnderlying" ] }, - { "prim": "pair", "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ], "annots": [ "%getCash" ] } + { + "prim": "pair", + "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ], + "annots": [ "%getBalanceOfUnderlying" ] + }, + { + "prim": "pair", + "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ], + "annots": [ "%getCash" ] + } ] }, { @@ -924,13 +940,11 @@ { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "53" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "SELF", "annots": [ "%setCash" ] }, - { "prim": "RENAME" }, { "prim": "NIL", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }, { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR" }, { "prim": "CONS" }, { "prim": "PAIR" }, @@ -946,7 +960,6 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "NEQ" }, { @@ -975,7 +988,6 @@ { "prim": "DROP" }, { "prim": "DIG", "args": [ { "int": "6" } ] }, { "prim": "DROP" }, - { "prim": "RENAME" }, { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "PAIR" }, @@ -1005,7 +1017,6 @@ { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "CONTRACT", "args": [ { "prim": "contract", "args": [ { "prim": "nat" } ] } ], @@ -1013,11 +1024,10 @@ }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "735" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "745" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "SELF", "annots": [ "%doAccrueInterest" ] }, - { "prim": "RENAME" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" } ] @@ -1034,9 +1044,7 @@ "args": [ [ { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "NEQ" }, { @@ -1075,17 +1083,13 @@ { "prim": "SWAP" }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "SELF", "annots": [ "%accrueInterest" ] }, - { "prim": "RENAME" }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "UNIT" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, { "prim": "SELF", "annots": [ "%addReservesInternal" ] }, - { "prim": "RENAME" }, { "prim": "AMOUNT" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DIG", "args": [ { "int": "4" } ] }, { "prim": "PAIR" }, { "prim": "TRANSFER_TOKENS" }, @@ -1093,9 +1097,7 @@ ], [ { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -1138,7 +1140,6 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -1214,7 +1215,6 @@ { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "CONS" }, { "prim": "DUP", "args": [ { "int": "6" } ] }, @@ -1244,9 +1244,7 @@ "args": [ [ { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "NEQ" }, { @@ -1258,13 +1256,11 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -1287,7 +1283,6 @@ ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "SWAP" }, @@ -1297,8 +1292,7 @@ { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -1306,13 +1300,11 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -1328,7 +1320,6 @@ ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "PAIR" }, @@ -1336,8 +1327,7 @@ { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, @@ -1362,9 +1352,7 @@ { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, @@ -1385,7 +1373,6 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -1454,11 +1441,9 @@ { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "CONS" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR" }, { "prim": "CONS" }, { "prim": "TRANSFER_TOKENS" }, @@ -1469,7 +1454,6 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" }, { "prim": "IF", @@ -1480,9 +1464,8 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "638" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, @@ -1507,7 +1490,7 @@ { "prim": "IF_NONE", "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "641" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], @@ -1526,7 +1509,6 @@ { "prim": "UNPAIR" }, { "prim": "DUP" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, @@ -1555,7 +1537,6 @@ { "prim": "UNPAIR" }, { "prim": "DUP" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, @@ -1616,7 +1597,7 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "638" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -1642,7 +1623,7 @@ { "prim": "IF_NONE", "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "641" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], @@ -1653,6 +1634,13 @@ [] ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, @@ -1704,7 +1692,6 @@ { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -1714,10 +1701,9 @@ { "prim": "ADD" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "681" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, @@ -1731,6 +1717,13 @@ [] ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, @@ -1785,7 +1778,6 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -1799,7 +1791,7 @@ { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "573" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "579" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" }, { "prim": "UPDATE", "args": [ { "int": "3" } ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, @@ -1823,7 +1815,7 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "638" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -1849,7 +1841,7 @@ { "prim": "IF_NONE", "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "641" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], @@ -1910,7 +1902,6 @@ { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -1920,10 +1911,9 @@ { "prim": "ADD" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "681" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, @@ -1978,7 +1968,7 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "549" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "555" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, @@ -2000,7 +1990,7 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "550" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "556" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -2009,7 +1999,7 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "550" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "556" } ] }, { "prim": "FAILWITH" } ], [] ] } ], [] @@ -2050,7 +2040,7 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "489" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "495" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" } ], @@ -2122,7 +2112,6 @@ { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -2132,10 +2121,9 @@ { "prim": "ADD" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "681" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, @@ -2151,24 +2139,30 @@ }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "521" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "527" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "MUL" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "61" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] }, + { "prim": "PAIR" }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, @@ -2180,8 +2174,14 @@ [ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "PAIR" }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, @@ -2239,18 +2239,16 @@ ], "annots": [ "%liquidateBorrowAllowed" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "357" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "360" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "PAIR" }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "PAIR" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "CAR" }, { "prim": "PAIR" }, @@ -2258,7 +2256,6 @@ { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "COMPARE" }, @@ -2293,7 +2290,6 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -2321,7 +2317,7 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "638" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -2347,7 +2343,7 @@ { "prim": "IF_NONE", "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "641" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], @@ -2358,8 +2354,25 @@ [] ] }, - { "prim": "SWAP" }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "COMPARE" }, + { "prim": "LE" }, + { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "7" } ] }, + { "prim": "CDR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "COMPARE" }, + { "prim": "LE" }, + { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "CDR" }, @@ -2422,52 +2435,35 @@ ] }, { "prim": "DUP", "args": [ { "int": "7" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "7" } ] }, - { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "COMPARE" }, - { "prim": "LE" }, - { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, - { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "DUP", "args": [ { "int": "11" } ] }, { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "CONS" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "PAIR" }, { "prim": "CONS" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, - { "prim": "SWAP" }, - { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "DUG", "args": [ { "int": "3" } ] }, + { "prim": "DIG", "args": [ { "int": "5" } ] }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "DUP", "args": [ { "int": "11" } ] }, { "prim": "CAR" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "263" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP", "args": [ { "int": "10" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "9" } ] }, - { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "COMPARE" }, - { "prim": "LE" }, - { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, - { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "266" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DIG", "args": [ { "int": "8" } ] }, + { "prim": "DIG", "args": [ { "int": "9" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -2499,7 +2495,7 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "265" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "268" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DIG", "args": [ { "int": "7" } ] }, { "prim": "UPDATE", "args": [ { "int": "1" } ] }, { "prim": "SOME" }, @@ -2511,20 +2507,11 @@ { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "DUG", "args": [ { "int": "3" } ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "COMPARE" }, - { "prim": "LE" }, - { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "7" } ] }, { "prim": "CDR" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -2559,7 +2546,7 @@ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "268" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "271" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" }, { "prim": "COMPARE" }, { "prim": "EQ" }, @@ -2574,7 +2561,7 @@ { "prim": "CONTRACT", "args": [ { "prim": "address" } ], "annots": [ "%removeFromLoans" ] }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "270" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "273" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, @@ -2592,11 +2579,13 @@ { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, - { "prim": "VIEW", "args": [ { "string": "liquidateCalculateSeizeTokens" }, { "prim": "nat" } ] }, + { + "prim": "VIEW", + "args": [ { "string": "liquidateCalculateSeizeTokens" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] + }, { "prim": "IF_NONE", "args": [ @@ -2607,6 +2596,7 @@ [] ] }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, @@ -2644,7 +2634,7 @@ ], "annots": [ "%seize" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "382" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "385" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, @@ -2653,11 +2643,13 @@ { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, - { "prim": "VIEW", "args": [ { "string": "liquidateCalculateSeizeTokens" }, { "prim": "nat" } ] }, + { + "prim": "VIEW", + "args": [ { "string": "liquidateCalculateSeizeTokens" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] + }, { "prim": "IF_NONE", "args": [ @@ -2668,8 +2660,8 @@ [] ] }, + { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DIG", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, @@ -2702,9 +2694,7 @@ "args": [ [ { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "NEQ" }, { @@ -2716,13 +2706,11 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -2745,7 +2733,6 @@ ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "SWAP" }, @@ -2755,8 +2742,7 @@ { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -2764,13 +2750,11 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -2786,7 +2770,6 @@ ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "PAIR" }, @@ -2794,8 +2777,7 @@ { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, @@ -2820,9 +2802,7 @@ { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, @@ -2832,7 +2812,6 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -2901,11 +2880,9 @@ { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "CONS" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "PAIR" }, { "prim": "CONS" }, { "prim": "TRANSFER_TOKENS" }, @@ -2950,7 +2927,6 @@ { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -2960,8 +2936,7 @@ { "prim": "ADD" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "681" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, { @@ -3014,7 +2989,6 @@ { "prim": "UNPAIR" }, { "prim": "DUP" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, @@ -3042,9 +3016,7 @@ "args": [ [ { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "NEQ" }, { @@ -3076,9 +3048,7 @@ { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, @@ -3125,7 +3095,6 @@ { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -3135,10 +3104,9 @@ { "prim": "ADD" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "681" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, @@ -3206,7 +3174,6 @@ { "prim": "LEVEL" }, { "prim": "DIG", "args": [ { "int": "5" } ] }, { "prim": "DROP" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -3220,7 +3187,6 @@ { "prim": "GET", "args": [ { "int": "10" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -3236,7 +3202,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "GET" }, { "prim": "IF_NONE", @@ -3245,7 +3210,6 @@ { "prim": "CDR" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -3262,7 +3226,6 @@ { "prim": "UNPAIR" }, { "prim": "DUP" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, @@ -3357,11 +3320,9 @@ { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "CONS" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR" }, { "prim": "CONS" }, { "prim": "TRANSFER_TOKENS" }, @@ -3373,9 +3334,7 @@ ], [ { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "NEQ" }, { @@ -3407,9 +3366,7 @@ { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, @@ -3457,7 +3414,6 @@ { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -3467,10 +3423,9 @@ { "prim": "ADD" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "681" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, @@ -3485,7 +3440,7 @@ ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "DUP" }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "COMPARE" }, { "prim": "GT" }, @@ -3570,7 +3525,6 @@ { "prim": "LEVEL" }, { "prim": "DIG", "args": [ { "int": "5" } ] }, { "prim": "DROP" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -3584,7 +3538,6 @@ { "prim": "GET", "args": [ { "int": "10" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -3600,7 +3553,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "GET" }, { "prim": "IF_NONE", @@ -3609,7 +3561,6 @@ { "prim": "CDR" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -3626,7 +3577,6 @@ { "prim": "UNPAIR" }, { "prim": "DUP" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, @@ -3721,11 +3671,9 @@ { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "CONS" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR" }, { "prim": "CONS" }, { "prim": "TRANSFER_TOKENS" }, @@ -3756,7 +3704,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -3795,24 +3742,19 @@ { "prim": "SWAP" }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "SELF", "annots": [ "%accrueInterest" ] }, - { "prim": "RENAME" }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "UNIT" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, { "prim": "SELF", "annots": [ "%reduceReservesInternal" ] }, - { "prim": "RENAME" }, { "prim": "AMOUNT" }, - { "prim": "RENAME" }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" } ], [ { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "NEQ" }, { @@ -3824,13 +3766,11 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -3856,7 +3796,6 @@ ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "SWAP" }, @@ -3866,8 +3805,7 @@ { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -3875,13 +3813,11 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -3897,7 +3833,6 @@ ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "PAIR" }, @@ -3905,8 +3840,7 @@ { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, @@ -3937,15 +3871,12 @@ ], "annots": [ "%repayBorrowAllowed" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "276" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "279" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "4" } ] }, { "prim": "DIG", "args": [ { "int": "4" } ] }, { "prim": "DROP" }, @@ -3957,7 +3888,6 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -3970,7 +3900,6 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" }, { "prim": "IF", @@ -3981,11 +3910,10 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "638" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -4011,7 +3939,7 @@ { "prim": "IF_NONE", "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "641" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], @@ -4022,8 +3950,24 @@ [] ] }, - { "prim": "SWAP" }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "COMPARE" }, + { "prim": "LE" }, + { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "7" } ] }, + { "prim": "CDR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "COMPARE" }, + { "prim": "LE" }, + { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "CDR" }, @@ -4086,27 +4030,19 @@ ] }, { "prim": "DUP", "args": [ { "int": "7" } ] }, - { "prim": "DUP", "args": [ { "int": "7" } ] }, - { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "COMPARE" }, - { "prim": "LE" }, - { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, - { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "DUP", "args": [ { "int": "10" } ] }, { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "CONS" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "PAIR" }, { "prim": "CONS" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, - { "prim": "SWAP" }, - { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "DUG", "args": [ { "int": "3" } ] }, + { "prim": "DIG", "args": [ { "int": "4" } ] }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, @@ -4114,22 +4050,14 @@ { "prim": "UNPAIR" }, { "prim": "DUP" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "263" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP", "args": [ { "int": "10" } ] }, - { "prim": "DUP", "args": [ { "int": "9" } ] }, - { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "COMPARE" }, - { "prim": "LE" }, - { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, - { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "266" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DIG", "args": [ { "int": "8" } ] }, + { "prim": "DIG", "args": [ { "int": "9" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -4157,11 +4085,10 @@ { "prim": "UNPAIR" }, { "prim": "DUP" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "265" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "268" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DIG", "args": [ { "int": "7" } ] }, { "prim": "UPDATE", "args": [ { "int": "1" } ] }, { "prim": "SOME" }, @@ -4172,20 +4099,12 @@ { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, - { "prim": "DUG", "args": [ { "int": "3" } ] }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "COMPARE" }, - { "prim": "LE" }, - { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "7" } ] }, { "prim": "CDR" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -4218,9 +4137,8 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "268" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "271" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" }, { "prim": "COMPARE" }, { "prim": "EQ" }, @@ -4235,11 +4153,10 @@ { "prim": "CONTRACT", "args": [ { "prim": "address" } ], "annots": [ "%removeFromLoans" ] }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "270" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "273" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" } ], @@ -4256,9 +4173,7 @@ "args": [ [ { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "NEQ" }, { @@ -4270,13 +4185,11 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -4302,7 +4215,6 @@ ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "SWAP" }, @@ -4312,8 +4224,7 @@ { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -4321,13 +4232,11 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -4343,7 +4252,6 @@ ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "PAIR" }, @@ -4351,8 +4259,7 @@ { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, @@ -4383,16 +4290,14 @@ ], "annots": [ "%repayBorrowAllowed" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "276" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "279" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "4" } ] }, { "prim": "DIG", "args": [ { "int": "4" } ] }, { "prim": "DROP" }, @@ -4404,7 +4309,6 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -4432,7 +4336,7 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "638" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -4458,7 +4362,7 @@ { "prim": "IF_NONE", "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "641" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], @@ -4469,8 +4373,25 @@ [] ] }, - { "prim": "SWAP" }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CDR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "COMPARE" }, + { "prim": "LE" }, + { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "7" } ] }, + { "prim": "CDR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "COMPARE" }, + { "prim": "LE" }, + { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "CDR" }, @@ -4533,52 +4454,35 @@ ] }, { "prim": "DUP", "args": [ { "int": "7" } ] }, - { "prim": "CDR" }, - { "prim": "DUP", "args": [ { "int": "7" } ] }, - { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "COMPARE" }, - { "prim": "LE" }, - { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, - { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "DUP", "args": [ { "int": "11" } ] }, { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "CONS" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "PAIR" }, { "prim": "CONS" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, - { "prim": "SWAP" }, - { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "DUG", "args": [ { "int": "3" } ] }, + { "prim": "DIG", "args": [ { "int": "5" } ] }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "DUP", "args": [ { "int": "11" } ] }, { "prim": "CAR" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "263" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP", "args": [ { "int": "10" } ] }, - { "prim": "CDR" }, - { "prim": "DUP", "args": [ { "int": "9" } ] }, - { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "COMPARE" }, - { "prim": "LE" }, - { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, - { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "266" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DIG", "args": [ { "int": "8" } ] }, + { "prim": "DIG", "args": [ { "int": "9" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -4610,7 +4514,7 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "265" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "268" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DIG", "args": [ { "int": "7" } ] }, { "prim": "UPDATE", "args": [ { "int": "1" } ] }, { "prim": "SOME" }, @@ -4622,20 +4526,11 @@ { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "DUG", "args": [ { "int": "3" } ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "CDR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "COMPARE" }, - { "prim": "LE" }, - { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "7" } ] }, { "prim": "CDR" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -4670,7 +4565,7 @@ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "268" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "271" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" }, { "prim": "COMPARE" }, { "prim": "EQ" }, @@ -4685,7 +4580,7 @@ { "prim": "CONTRACT", "args": [ { "prim": "address" } ], "annots": [ "%removeFromLoans" ] }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "270" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "273" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, @@ -4705,11 +4600,10 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -4745,8 +4639,7 @@ { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -4756,11 +4649,10 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -4784,8 +4676,7 @@ { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -4793,9 +4684,7 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "PAIR" }, { "prim": "VIEW", "args": [ { "string": "seizeAllowed" }, { "prim": "bool" } ] }, { @@ -4836,7 +4725,6 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -4900,7 +4788,6 @@ { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -4910,10 +4797,9 @@ { "prim": "ADD" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "681" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, @@ -4950,7 +4836,6 @@ { "prim": "GET", "args": [ { "int": "10" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -4970,11 +4855,10 @@ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "307" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "310" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -4995,7 +4879,7 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "334" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "337" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DIG", "args": [ { "int": "8" } ] }, { "prim": "UPDATE", "args": [ { "int": "2" } ] }, { "prim": "SOME" }, @@ -5007,7 +4891,7 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "335" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "338" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP" }, { "prim": "CDR" }, { "prim": "DIG", "args": [ { "int": "9" } ] }, @@ -5015,7 +4899,6 @@ { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -5060,7 +4943,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -5099,13 +4981,11 @@ { "prim": "SWAP" }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "SELF", "annots": [ "%accrueInterest" ] }, - { "prim": "RENAME" }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "UNIT" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, { "prim": "SELF", "annots": [ "%setInterestRateModelInternal" ] }, - { "prim": "RENAME" }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, @@ -5122,7 +5002,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -5161,13 +5040,11 @@ { "prim": "SWAP" }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "SELF", "annots": [ "%accrueInterest" ] }, - { "prim": "RENAME" }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "UNIT" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, { "prim": "SELF", "annots": [ "%setReserveFactorInternal" ] }, - { "prim": "RENAME" }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, @@ -5200,7 +5077,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" } @@ -5321,7 +5197,6 @@ { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "CONS" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR" }, { "prim": "CONS" }, { "prim": "TRANSFER_TOKENS" }, @@ -5344,7 +5219,6 @@ "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "21" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "BALANCE" }, - { "prim": "RENAME" }, { "prim": "UNIT" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" } @@ -5362,7 +5236,6 @@ "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "24" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "BALANCE" }, - { "prim": "RENAME" }, { "prim": "UNIT" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" } @@ -5379,7 +5252,6 @@ "args": [ [ { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "COMPARE" }, @@ -5400,15 +5272,14 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "404" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "407" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "404" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "407" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "COMPARE" }, { "prim": "GE" } @@ -5417,12 +5288,38 @@ }, { "prim": "IF", - "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA1.2_NotAllowed" } ] }, { "prim": "FAILWITH" } ] ] + "args": [ + [], + [ + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "408" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "CAR" }, + { "prim": "SENDER" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "408" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "PAIR" }, + { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "NotEnoughAllowance" } ] }, + { "prim": "PAIR" }, + { "prim": "FAILWITH" } + ] + ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "NEQ" }, { @@ -5436,11 +5333,10 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -5476,8 +5372,7 @@ { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -5487,11 +5382,10 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -5515,8 +5409,7 @@ { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, @@ -5537,7 +5430,7 @@ ], "annots": [ "%transferAllowed" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "427" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "431" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, @@ -5547,7 +5440,6 @@ { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "TRANSFER_TOKENS" }, @@ -5561,14 +5453,34 @@ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "413" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "417" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" }, { "prim": "COMPARE" }, { "prim": "GE" }, { "prim": "IF", "args": [ - [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA1.2_InsufficientBalance" } ] }, { "prim": "FAILWITH" } ] + [], + [ + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "418" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "CDR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "PAIR" }, + { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "NotEnoughBalance" } ] }, + { "prim": "PAIR" }, + { "prim": "FAILWITH" } + ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -5580,12 +5492,11 @@ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "416" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "420" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "415" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "419" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, @@ -5600,7 +5511,7 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "415" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "419" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DIG", "args": [ { "int": "8" } ] }, { "prim": "UPDATE", "args": [ { "int": "2" } ] }, { "prim": "SOME" }, @@ -5612,7 +5523,7 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "417" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "421" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP" }, { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "11" } ] }, @@ -5631,7 +5542,6 @@ { "prim": "PAIR" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "COMPARE" }, @@ -5656,7 +5566,7 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "419" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "423" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP" }, { "prim": "CAR" }, @@ -5671,26 +5581,23 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "420" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "424" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "420" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "424" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "419" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "423" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "SOME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "UPDATE" }, { "prim": "UPDATE", "args": [ { "int": "1" } ] }, { "prim": "SOME" }, @@ -5714,15 +5621,14 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "421" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "425" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "421" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "425" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "COMPARE" }, { "prim": "EQ" }, @@ -5746,13 +5652,12 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "422" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "426" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP" }, { "prim": "CAR" }, { "prim": "NONE", "args": [ { "prim": "nat" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "UPDATE" }, { "prim": "UPDATE", "args": [ { "int": "1" } ] }, { "prim": "SOME" }, @@ -5782,7 +5687,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -5878,7 +5782,7 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SWAP" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "503" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "509" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" } ], [ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ] @@ -5892,7 +5796,7 @@ "args": [ { "string": "borrowBalanceStoredView" }, { "prim": "address" }, - { "prim": "nat" }, + { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, [ { "prim": "UNPAIR", "args": [ { "int": "3" } ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, @@ -5912,7 +5816,7 @@ { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "638" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, @@ -5930,7 +5834,7 @@ { "prim": "DROP" }, { "prim": "DUP" }, { "prim": "CAR" }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, @@ -5938,15 +5842,22 @@ { "prim": "CDR" }, { "prim": "MUL" }, { "prim": "EDIV" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "641" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], - [ { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ] + [ { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "DROP" } ] ] } ], - [ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ] + [ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "DROP" } ] ] - } + }, + { "prim": "SWAP" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" } ] ] }, @@ -5964,7 +5875,7 @@ "args": [ { "string": "exchangeRateStoredView" }, { "prim": "unit" }, - { "prim": "nat" }, + { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, [ { "prim": "UNPAIR", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -6000,26 +5911,31 @@ { "prim": "GET", "args": [ { "int": "7" } ] }, { "prim": "CDR" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "DIG", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "ADD" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "681" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "257" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], - [ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ] + [ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "DROP" } ] ] - } + }, + { "prim": "SWAP" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" } ] ] }, @@ -6029,171 +5945,220 @@ { "string": "getAccountSnapshotView" }, { "prim": "address" }, { - "prim": "pair", + "prim": "option", "args": [ - { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, - { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] } + { + "prim": "pair", + "args": [ + { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, + { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] } + ] + } ] }, [ { "prim": "UNPAIR", "args": [ { "int": "3" } ] }, - { "prim": "PUSH", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } ] }, - { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "LEVEL" }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "DROP" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "PAIR" }, - { "prim": "PAIR" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "MEM" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, { "prim": "IF", "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] } ], [ - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "LEVEL" }, - { "prim": "RENAME" }, - { "prim": "COMPARE" }, - { "prim": "EQ" }, - { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "573" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "CDR" }, - { "prim": "UPDATE", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "MEM" }, + { "prim": "NOT" } + ] + ] + }, + { + "prim": "IF", + "args": [ + [ + { "prim": "PUSH", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, - { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, { "prim": "IF", "args": [ [ + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "LEVEL" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "579" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CDR" }, + { "prim": "UPDATE", "args": [ { "int": "3" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, - { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "638" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, + { "prim": "COMPARE" }, + { "prim": "GT" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "SWAP" }, + { "prim": "DROP" }, + { "prim": "DUP" }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, + { "prim": "MUL" }, + { "prim": "EDIV" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "641" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] + } + ], + [ { "prim": "DROP" } ] + ] + } + ], + [] + ] + }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "8" } ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "DUP", "args": [ { "int": "2" } ] }, - { "prim": "CDR" }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "GET", "args": [ { "int": "10" } ] }, { "prim": "COMPARE" }, { "prim": "GT" }, { "prim": "IF", "args": [ [ + { "prim": "DROP", "args": [ { "int": "2" } ] }, { "prim": "SWAP" }, { "prim": "DROP" }, - { "prim": "DUP" }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "10" } ] }, + { "prim": "COMPARE" }, + { "prim": "GT" }, + { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "10" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "9" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "7" } ] }, + { "prim": "CDR" }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DIG", "args": [ { "int": "6" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, - { "prim": "CDR" }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "ADD" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "681" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "257" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], - [ { "prim": "DROP" } ] + [ + { "prim": "SWAP" }, + { "prim": "DROP" }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "DROP" }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "DROP" } + ] ] - } + }, + { "prim": "UPDATE", "args": [ { "int": "4" } ] } ], - [] + [ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, - { "prim": "SWAP" }, - { "prim": "UNPAIR" }, - { "prim": "CAR" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "SWAP" }, - { "prim": "PAIR" }, - { "prim": "PAIR" }, - { "prim": "SWAP" }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "8" } ] }, - { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "DUP", "args": [ { "int": "6" } ] }, - { "prim": "GET", "args": [ { "int": "10" } ] }, - { "prim": "COMPARE" }, - { "prim": "GT" }, + { "prim": "SOME" } + ], + [ + { "prim": "DROP", "args": [ { "int": "2" } ] }, { - "prim": "IF", + "prim": "NONE", "args": [ - [ - { "prim": "DROP", "args": [ { "int": "2" } ] }, - { "prim": "SWAP" }, - { "prim": "DROP" }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, - { "prim": "DROP" }, - { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "10" } ] }, - { "prim": "COMPARE" }, - { "prim": "GT" }, - { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP", "args": [ { "int": "2" } ] }, - { "prim": "GET", "args": [ { "int": "10" } ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "CAR" }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, - { "prim": "GET", "args": [ { "int": "9" } ] }, - { "prim": "DUP", "args": [ { "int": "5" } ] }, - { "prim": "GET", "args": [ { "int": "7" } ] }, - { "prim": "CDR" }, - { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "DIG", "args": [ { "int": "6" } ] }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SUB" }, - { "prim": "ISNAT" }, - { "prim": "RENAME" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "ADD" }, - { "prim": "SUB" }, - { "prim": "ISNAT" }, - { "prim": "RENAME" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "MUL" }, - { "prim": "EDIV" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "257" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } - ], - [ - { "prim": "SWAP" }, - { "prim": "DROP" }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, - { "prim": "DROP" }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, - { "prim": "DROP" }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, - { "prim": "DROP" } - ] + { + "prim": "pair", + "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] + } ] - }, - { "prim": "UPDATE", "args": [ { "int": "4" } ] } - ], - [ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ] + } + ] ] } ] diff --git a/compiled_contracts/CUSDt/step_000_cont_0_contract.py b/compiled_contracts/CUSDt/step_000_cont_0_contract.py index 76c06058..da47b278 100644 --- a/compiled_contracts/CUSDt/step_000_cont_0_contract.py +++ b/compiled_contracts/CUSDt/step_000_cont_0_contract.py @@ -79,8 +79,12 @@ def addReservesInternal(self, params): def approve(self, params): sp.set_type(params, sp.TRecord(spender = sp.TAddress, value = sp.TNat).layout(("spender", "value"))) sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') - sp.verify((self.data.ledger[sp.sender].approvals.contains(params.spender)) | (sp.len(self.data.ledger[sp.sender].approvals) < 1000), 'FA1.2_MaxApprovalsReached') - sp.verify((self.data.ledger[sp.sender].approvals.get(params.spender, default_value = 0) == 0) | (params.value == 0), 'FA1.2_UnsafeAllowanceChange') + sp.if ~ (self.data.ledger.contains(sp.sender)): + self.data.ledger[sp.sender] = sp.record(approvals = {}, balance = 0) + sp.if ~ (self.data.borrows.contains(sp.sender)): + self.data.borrows[sp.sender] = sp.record(interestIndex = 0, principal = 0) + sp.verify((self.data.ledger[sp.sender].approvals.contains(params.spender)) | (sp.len(self.data.ledger[sp.sender].approvals) < 1000), ('FA1.2_MaxApprovalsReached', sp.unit)) + sp.verify((self.data.ledger[sp.sender].approvals.get(params.spender, default_value = 0) == 0) | (params.value == 0), ('UnsafeAllowanceChange', self.data.ledger[sp.sender].approvals.get(params.spender, default_value = 0))) sp.if params.value == 0: del self.data.ledger[sp.sender].approvals[params.spender] sp.else: @@ -117,8 +121,8 @@ def borrowBalanceStored(self, params): borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[sp.fst(params)]) sp.if borrowSnapshot.value.principal > 0: borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex - sp.result(borrowBalance.value) - sp.set_type(sp.snd(params), sp.TContract(sp.TNat)) + sp.result((borrowBalance.value, self.data.accrualBlockNumber)) + sp.set_type(sp.snd(params), sp.TContract(sp.TPair(sp.TNat, sp.TNat))) sp.transfer(__s1.value, sp.tez(0), sp.snd(params)) @sp.entrypoint @@ -132,32 +136,32 @@ def doAccrueInterest(self, params): sp.set_type(sp.record(mantissa = params), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(sp.as_nat(sp.level - self.data.accrualBlockNumber), sp.TNat) sp.set_type(params * sp.as_nat(sp.level - self.data.accrualBlockNumber), sp.TNat) - compute_CToken_761 = sp.local("compute_CToken_761", sp.record(mantissa = params * sp.as_nat(sp.level - self.data.accrualBlockNumber))) - sp.set_type(compute_CToken_761.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(compute_CToken_761.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + compute_CToken_771 = sp.local("compute_CToken_771", sp.record(mantissa = params * sp.as_nat(sp.level - self.data.accrualBlockNumber))) + sp.set_type(compute_CToken_771.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_CToken_771.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(self.data.totalBorrows, sp.TNat) - sp.set_type(compute_CToken_761.value.mantissa * self.data.totalBorrows, sp.TNat) - sp.set_type(sp.record(mantissa = compute_CToken_761.value.mantissa * self.data.totalBorrows), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - compute_CToken_763 = sp.local("compute_CToken_763", (compute_CToken_761.value.mantissa * self.data.totalBorrows) // self.data.expScale) - self.data.totalBorrows = compute_CToken_763.value + self.data.totalBorrows + sp.set_type(compute_CToken_771.value.mantissa * self.data.totalBorrows, sp.TNat) + sp.set_type(sp.record(mantissa = compute_CToken_771.value.mantissa * self.data.totalBorrows), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + compute_CToken_773 = sp.local("compute_CToken_773", (compute_CToken_771.value.mantissa * self.data.totalBorrows) // self.data.expScale) + self.data.totalBorrows = compute_CToken_773.value + self.data.totalBorrows sp.set_type(sp.record(mantissa = self.data.reserveFactorMantissa), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(compute_CToken_763.value, sp.TNat) + sp.set_type(compute_CToken_773.value, sp.TNat) sp.set_type(self.data.totalReserves, sp.TNat) sp.set_type(sp.record(mantissa = self.data.reserveFactorMantissa), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(sp.record(mantissa = self.data.reserveFactorMantissa), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(compute_CToken_763.value, sp.TNat) - sp.set_type(self.data.reserveFactorMantissa * compute_CToken_763.value, sp.TNat) - sp.set_type(sp.record(mantissa = self.data.reserveFactorMantissa * compute_CToken_763.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - self.data.totalReserves = ((self.data.reserveFactorMantissa * compute_CToken_763.value) // self.data.expScale) + self.data.totalReserves - sp.set_type(compute_CToken_761.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_CToken_773.value, sp.TNat) + sp.set_type(self.data.reserveFactorMantissa * compute_CToken_773.value, sp.TNat) + sp.set_type(sp.record(mantissa = self.data.reserveFactorMantissa * compute_CToken_773.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + self.data.totalReserves = ((self.data.reserveFactorMantissa * compute_CToken_773.value) // self.data.expScale) + self.data.totalReserves + sp.set_type(compute_CToken_771.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(self.data.borrowIndex, sp.TNat) sp.set_type(self.data.borrowIndex, sp.TNat) - sp.set_type(compute_CToken_761.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(compute_CToken_761.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_CToken_771.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_CToken_771.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(self.data.borrowIndex, sp.TNat) - sp.set_type(compute_CToken_761.value.mantissa * self.data.borrowIndex, sp.TNat) - sp.set_type(sp.record(mantissa = compute_CToken_761.value.mantissa * self.data.borrowIndex), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - self.data.borrowIndex = ((compute_CToken_761.value.mantissa * self.data.borrowIndex) // self.data.expScale) + self.data.borrowIndex + sp.set_type(compute_CToken_771.value.mantissa * self.data.borrowIndex, sp.TNat) + sp.set_type(sp.record(mantissa = compute_CToken_771.value.mantissa * self.data.borrowIndex), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + self.data.borrowIndex = ((compute_CToken_771.value.mantissa * self.data.borrowIndex) // self.data.expScale) + self.data.borrowIndex self.data.accrualBlockNumber = sp.level @sp.entrypoint @@ -176,24 +180,24 @@ def exchangeRateStored(self, params): sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') sp.set_type((sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat) excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply - sp.result(excRate.value) - sp.set_type(sp.snd(params), sp.TContract(sp.TNat)) + sp.result((excRate.value, self.data.accrualBlockNumber)) + sp.set_type(sp.snd(params), sp.TContract(sp.TPair(sp.TNat, sp.TNat))) sp.transfer(__s2.value, sp.tez(0), sp.snd(params)) @sp.entrypoint def getAccountSnapshot(self, params): __s3 = sp.bind_block("__s3"): with __s3: - compute_CToken_565 = sp.local("compute_CToken_565", sp.record(account = sp.fst(params), borrowBalance = 0, cTokenBalance = 0, exchangeRateMantissa = 0)) + compute_CToken_571 = sp.local("compute_CToken_571", sp.record(account = sp.fst(params), borrowBalance = 0, cTokenBalance = 0, exchangeRateMantissa = 0)) sp.if self.data.ledger.contains(sp.fst(params)): sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') - compute_CToken_565.value.cTokenBalance = self.data.ledger[sp.fst(params)].balance + compute_CToken_571.value.cTokenBalance = self.data.ledger[sp.fst(params)].balance borrowBalance = sp.local("borrowBalance", 0) sp.if self.data.borrows.contains(sp.fst(params)): borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[sp.fst(params)]) sp.if borrowSnapshot.value.principal > 0: borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex - compute_CToken_565.value.borrowBalance = borrowBalance.value + compute_CToken_571.value.borrowBalance = borrowBalance.value excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) sp.if self.data.totalSupply > 0: sp.set_type(self.data.currentCash, sp.TNat) @@ -205,8 +209,8 @@ def getAccountSnapshot(self, params): sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') sp.set_type((sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat) excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply - compute_CToken_565.value.exchangeRateMantissa = excRate.value - sp.result(compute_CToken_565.value) + compute_CToken_571.value.exchangeRateMantissa = excRate.value + sp.result(compute_CToken_571.value) sp.set_type(sp.snd(params), sp.TContract(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))) sp.transfer(__s3.value, sp.tez(0), sp.snd(params)) @@ -255,8 +259,8 @@ def getBalanceOfUnderlying(self, params): sp.set_type(self.data.ledger[sp.fst(params)].balance, sp.TNat) sp.set_type(excRate.value * self.data.ledger[sp.fst(params)].balance, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value * self.data.ledger[sp.fst(params)].balance), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.result((excRate.value * self.data.ledger[sp.fst(params)].balance) // self.data.expScale) - sp.set_type(sp.snd(params), sp.TContract(sp.TNat)) + sp.result(((excRate.value * self.data.ledger[sp.fst(params)].balance) // self.data.expScale, self.data.accrualBlockNumber)) + sp.set_type(sp.snd(params), sp.TContract(sp.TPair(sp.TNat, sp.TNat))) sp.transfer(__s6.value, sp.tez(0), sp.snd(params)) @sp.entrypoint @@ -264,8 +268,8 @@ def getCash(self, params): __s7 = sp.bind_block("__s7"): with __s7: sp.set_type(sp.fst(params), sp.TUnit) - sp.result(self.data.currentCash) - sp.set_type(sp.snd(params), sp.TContract(sp.TNat)) + sp.result((self.data.currentCash, self.data.accrualBlockNumber)) + sp.set_type(sp.snd(params), sp.TContract(sp.TPair(sp.TNat, sp.TNat))) sp.transfer(__s7.value, sp.tez(0), sp.snd(params)) @sp.entrypoint @@ -295,18 +299,20 @@ def liquidateBorrow(self, params): borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[params.borrower]) sp.if borrowSnapshot.value.principal > 0: borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex - sp.transfer(sp.list([sp.record(from_ = sp.sender, txs = sp.list([sp.record(amount = sp.min(borrowBalance.value, params.repayAmount), to_ = sp.self_address, token_id = self.data.tokenId)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entrypoint='transfer').open_some()) + repayAmount = sp.local("repayAmount", sp.min(borrowBalance.value, params.repayAmount)) + actualRepayAmount = sp.local("actualRepayAmount", sp.min(repayAmount.value, self.data.totalBorrows)) + sp.transfer(sp.list([sp.record(from_ = sp.sender, txs = sp.list([sp.record(amount = repayAmount.value, to_ = sp.self_address, token_id = self.data.tokenId)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entrypoint='transfer').open_some()) sp.set_type(borrowBalance.value, sp.TNat) - sp.set_type(sp.min(borrowBalance.value, params.repayAmount), sp.TNat) - self.data.borrows[params.borrower].principal = sp.as_nat(borrowBalance.value - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW') + sp.set_type(repayAmount.value, sp.TNat) + self.data.borrows[params.borrower].principal = sp.as_nat(borrowBalance.value - repayAmount.value, message = 'SUBTRACTION_UNDERFLOW') self.data.borrows[params.borrower].interestIndex = self.data.borrowIndex sp.set_type(self.data.totalBorrows, sp.TNat) - sp.set_type(sp.min(borrowBalance.value, params.repayAmount), sp.TNat) - self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW') + sp.set_type(actualRepayAmount.value, sp.TNat) + self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - actualRepayAmount.value, message = 'SUBTRACTION_UNDERFLOW') sp.if self.data.borrows[params.borrower].principal == 0: sp.transfer(params.borrower, sp.tez(0), sp.contract(sp.TAddress, self.data.comptroller, entrypoint='removeFromLoans').open_some()) - sp.verify(sp.view("balanceOf", params.borrower, params.cTokenCollateral, sp.TNat).open_some(message = 'INVALID BALANCE OF VIEW') >= sp.view("liquidateCalculateSeizeTokens", sp.record(actualRepayAmount = params.repayAmount, cTokenBorrowed = sp.self_address, cTokenCollateral = params.cTokenCollateral), self.data.comptroller, sp.TNat).open_some(message = 'INVALID LIQUIDATE CALC SEIZE TOKEN VIEW'), 'LIQUIDATE_SEIZE_TOO_MUCH') - sp.transfer(sp.record(borrower = params.borrower, liquidator = sp.sender, seizeTokens = sp.view("liquidateCalculateSeizeTokens", sp.record(actualRepayAmount = params.repayAmount, cTokenBorrowed = sp.self_address, cTokenCollateral = params.cTokenCollateral), self.data.comptroller, sp.TNat).open_some(message = 'INVALID LIQUIDATE CALC SEIZE TOKEN VIEW')), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, liquidator = sp.TAddress, seizeTokens = sp.TNat).layout(("borrower", ("liquidator", "seizeTokens"))), params.cTokenCollateral, entrypoint='seize').open_some()) + sp.verify(sp.view("balanceOf", params.borrower, params.cTokenCollateral, sp.TNat).open_some(message = 'INVALID BALANCE OF VIEW') >= sp.fst(sp.view("liquidateCalculateSeizeTokens", sp.record(actualRepayAmount = params.repayAmount, cTokenBorrowed = sp.self_address, cTokenCollateral = params.cTokenCollateral), self.data.comptroller, sp.TPair(sp.TNat, sp.TNat)).open_some(message = 'INVALID LIQUIDATE CALC SEIZE TOKEN VIEW')), 'LIQUIDATE_SEIZE_TOO_MUCH') + sp.transfer(sp.record(borrower = params.borrower, liquidator = sp.sender, seizeTokens = sp.fst(sp.view("liquidateCalculateSeizeTokens", sp.record(actualRepayAmount = params.repayAmount, cTokenBorrowed = sp.self_address, cTokenCollateral = params.cTokenCollateral), self.data.comptroller, sp.TPair(sp.TNat, sp.TNat)).open_some(message = 'INVALID LIQUIDATE CALC SEIZE TOKEN VIEW'))), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, liquidator = sp.TAddress, seizeTokens = sp.TNat).layout(("borrower", ("liquidator", "seizeTokens"))), params.cTokenCollateral, entrypoint='seize').open_some()) @sp.entrypoint def mint(self, params): @@ -336,8 +342,8 @@ def mint(self, params): sp.set_type(params, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO') - compute_CToken_965 = sp.local("compute_CToken_965", (params * self.data.expScale) // excRate.value) - amount.value = compute_CToken_965.value + compute_CToken_975 = sp.local("compute_CToken_975", (params * self.data.expScale) // excRate.value) + amount.value = compute_CToken_975.value sp.else: sp.set_type(excRate.value, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) @@ -345,8 +351,8 @@ def mint(self, params): sp.set_type(params, sp.TNat) sp.set_type(excRate.value * params, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value * params), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - compute_CToken_968 = sp.local("compute_CToken_968", (excRate.value * params) // self.data.expScale) - amount.value = compute_CToken_968.value + compute_CToken_978 = sp.local("compute_CToken_978", (excRate.value * params) // self.data.expScale) + amount.value = compute_CToken_978.value sp.verify(amount.value > 0, 'CT_MINT_AMOUNT_IS_INVALID') self.data.totalSupply += amount.value self.data.ledger[sp.sender].balance += amount.value @@ -377,8 +383,8 @@ def redeem(self, params): sp.set_type(params, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO') - compute_CToken_965 = sp.local("compute_CToken_965", (params * self.data.expScale) // excRate.value) - amount.value = compute_CToken_965.value + compute_CToken_975 = sp.local("compute_CToken_975", (params * self.data.expScale) // excRate.value) + amount.value = compute_CToken_975.value sp.else: sp.set_type(excRate.value, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) @@ -386,8 +392,8 @@ def redeem(self, params): sp.set_type(params, sp.TNat) sp.set_type(excRate.value * params, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value * params), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - compute_CToken_968 = sp.local("compute_CToken_968", (excRate.value * params) // self.data.expScale) - amount.value = compute_CToken_968.value + compute_CToken_978 = sp.local("compute_CToken_978", (excRate.value * params) // self.data.expScale) + amount.value = compute_CToken_978.value redeem_amount.value = amount.value redeem_tokens = sp.local("redeem_tokens", 0) sp.if False: @@ -412,8 +418,8 @@ def redeem(self, params): compute_Exponential_280 = sp.local("compute_Exponential_280", compute_Exponential_277.value // excRate.value) sp.if (compute_Exponential_277.value % excRate.value) > 0: pass - compute_CToken_976 = sp.local("compute_CToken_976", compute_Exponential_280.value + 1) - amount.value = compute_CToken_976.value + compute_CToken_986 = sp.local("compute_CToken_986", compute_Exponential_280.value + 1) + amount.value = compute_CToken_986.value sp.else: sp.set_type(excRate.value, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) @@ -421,8 +427,8 @@ def redeem(self, params): sp.set_type(params, sp.TNat) sp.set_type(excRate.value * params, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value * params), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - compute_CToken_979 = sp.local("compute_CToken_979", (excRate.value * params) // self.data.expScale) - amount.value = compute_CToken_979.value + compute_CToken_989 = sp.local("compute_CToken_989", (excRate.value * params) // self.data.expScale) + amount.value = compute_CToken_989.value redeem_tokens.value = amount.value sp.else: redeem_tokens.value = params @@ -459,8 +465,8 @@ def redeemUnderlying(self, params): sp.set_type(params, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO') - compute_CToken_965 = sp.local("compute_CToken_965", (params * self.data.expScale) // excRate.value) - amount.value = compute_CToken_965.value + compute_CToken_975 = sp.local("compute_CToken_975", (params * self.data.expScale) // excRate.value) + amount.value = compute_CToken_975.value sp.else: sp.set_type(excRate.value, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) @@ -468,8 +474,8 @@ def redeemUnderlying(self, params): sp.set_type(params, sp.TNat) sp.set_type(excRate.value * params, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value * params), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - compute_CToken_968 = sp.local("compute_CToken_968", (excRate.value * params) // self.data.expScale) - amount.value = compute_CToken_968.value + compute_CToken_978 = sp.local("compute_CToken_978", (excRate.value * params) // self.data.expScale) + amount.value = compute_CToken_978.value redeem_amount.value = amount.value redeem_tokens = sp.local("redeem_tokens", 0) sp.if True: @@ -494,8 +500,8 @@ def redeemUnderlying(self, params): compute_Exponential_280 = sp.local("compute_Exponential_280", compute_Exponential_277.value // excRate.value) sp.if (compute_Exponential_277.value % excRate.value) > 0: pass - compute_CToken_976 = sp.local("compute_CToken_976", compute_Exponential_280.value + 1) - amount.value = compute_CToken_976.value + compute_CToken_986 = sp.local("compute_CToken_986", compute_Exponential_280.value + 1) + amount.value = compute_CToken_986.value sp.else: sp.set_type(excRate.value, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) @@ -503,8 +509,8 @@ def redeemUnderlying(self, params): sp.set_type(params, sp.TNat) sp.set_type(excRate.value * params, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value * params), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - compute_CToken_979 = sp.local("compute_CToken_979", (excRate.value * params) // self.data.expScale) - amount.value = compute_CToken_979.value + compute_CToken_989 = sp.local("compute_CToken_989", (excRate.value * params) // self.data.expScale) + amount.value = compute_CToken_989.value redeem_tokens.value = amount.value sp.else: redeem_tokens.value = params @@ -557,14 +563,16 @@ def repayBorrow(self, params): borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[sp.sender]) sp.if borrowSnapshot.value.principal > 0: borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex - sp.transfer(sp.list([sp.record(from_ = sp.sender, txs = sp.list([sp.record(amount = sp.min(borrowBalance.value, params), to_ = sp.self_address, token_id = self.data.tokenId)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entrypoint='transfer').open_some()) + repayAmount = sp.local("repayAmount", sp.min(borrowBalance.value, params)) + actualRepayAmount = sp.local("actualRepayAmount", sp.min(repayAmount.value, self.data.totalBorrows)) + sp.transfer(sp.list([sp.record(from_ = sp.sender, txs = sp.list([sp.record(amount = repayAmount.value, to_ = sp.self_address, token_id = self.data.tokenId)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entrypoint='transfer').open_some()) sp.set_type(borrowBalance.value, sp.TNat) - sp.set_type(sp.min(borrowBalance.value, params), sp.TNat) - self.data.borrows[sp.sender].principal = sp.as_nat(borrowBalance.value - sp.min(borrowBalance.value, params), message = 'SUBTRACTION_UNDERFLOW') + sp.set_type(repayAmount.value, sp.TNat) + self.data.borrows[sp.sender].principal = sp.as_nat(borrowBalance.value - repayAmount.value, message = 'SUBTRACTION_UNDERFLOW') self.data.borrows[sp.sender].interestIndex = self.data.borrowIndex sp.set_type(self.data.totalBorrows, sp.TNat) - sp.set_type(sp.min(borrowBalance.value, params), sp.TNat) - self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - sp.min(borrowBalance.value, params), message = 'SUBTRACTION_UNDERFLOW') + sp.set_type(actualRepayAmount.value, sp.TNat) + self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - actualRepayAmount.value, message = 'SUBTRACTION_UNDERFLOW') sp.if self.data.borrows[sp.sender].principal == 0: sp.transfer(sp.sender, sp.tez(0), sp.contract(sp.TAddress, self.data.comptroller, entrypoint='removeFromLoans').open_some()) @@ -583,14 +591,16 @@ def repayBorrowBehalf(self, params): borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[params.borrower]) sp.if borrowSnapshot.value.principal > 0: borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex - sp.transfer(sp.list([sp.record(from_ = sp.sender, txs = sp.list([sp.record(amount = sp.min(borrowBalance.value, params.repayAmount), to_ = sp.self_address, token_id = self.data.tokenId)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entrypoint='transfer').open_some()) + repayAmount = sp.local("repayAmount", sp.min(borrowBalance.value, params.repayAmount)) + actualRepayAmount = sp.local("actualRepayAmount", sp.min(repayAmount.value, self.data.totalBorrows)) + sp.transfer(sp.list([sp.record(from_ = sp.sender, txs = sp.list([sp.record(amount = repayAmount.value, to_ = sp.self_address, token_id = self.data.tokenId)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entrypoint='transfer').open_some()) sp.set_type(borrowBalance.value, sp.TNat) - sp.set_type(sp.min(borrowBalance.value, params.repayAmount), sp.TNat) - self.data.borrows[params.borrower].principal = sp.as_nat(borrowBalance.value - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW') + sp.set_type(repayAmount.value, sp.TNat) + self.data.borrows[params.borrower].principal = sp.as_nat(borrowBalance.value - repayAmount.value, message = 'SUBTRACTION_UNDERFLOW') self.data.borrows[params.borrower].interestIndex = self.data.borrowIndex sp.set_type(self.data.totalBorrows, sp.TNat) - sp.set_type(sp.min(borrowBalance.value, params.repayAmount), sp.TNat) - self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW') + sp.set_type(actualRepayAmount.value, sp.TNat) + self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - actualRepayAmount.value, message = 'SUBTRACTION_UNDERFLOW') sp.if self.data.borrows[params.borrower].principal == 0: sp.transfer(params.borrower, sp.tez(0), sp.contract(sp.TAddress, self.data.comptroller, entrypoint='removeFromLoans').open_some()) @@ -721,7 +731,7 @@ def sweepMutez(self, params): @sp.entrypoint def transfer(self, params): sp.set_type(params, sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value")))) - sp.verify((params.from_ == sp.sender) | (self.data.ledger[params.from_].approvals[sp.sender] >= params.value), 'FA1.2_NotAllowed') + sp.verify((params.from_ == sp.sender) | (self.data.ledger[params.from_].approvals[sp.sender] >= params.value), ('NotEnoughAllowance', (params.value, self.data.ledger[params.from_].approvals[sp.sender]))) sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') sp.if ~ (self.data.ledger.contains(params.to_)): self.data.ledger[params.to_] = sp.record(approvals = {}, balance = 0) @@ -729,7 +739,7 @@ def transfer(self, params): self.data.borrows[params.to_] = sp.record(interestIndex = 0, principal = 0) sp.transfer(sp.record(cToken = sp.self_address, dst = params.to_, src = params.from_, transferTokens = params.value), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, dst = sp.TAddress, src = sp.TAddress, transferTokens = sp.TNat).layout((("cToken", "src"), ("dst", "transferTokens"))), self.data.comptroller, entrypoint='transferAllowed').open_some()) sp.set_type(sp.record(from_ = params.from_, sender = sp.sender, to_ = params.to_, value = params.value), sp.TRecord(from_ = sp.TAddress, sender = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout((("from_", "sender"), ("to_", "value")))) - sp.verify(self.data.ledger[params.from_].balance >= params.value, 'FA1.2_InsufficientBalance') + sp.verify(self.data.ledger[params.from_].balance >= params.value, ('NotEnoughBalance', (params.value, self.data.ledger[params.from_].balance))) self.data.ledger[params.from_].balance = sp.as_nat(self.data.ledger[params.from_].balance - params.value) self.data.ledger[params.to_].balance += params.value sp.if params.from_ != sp.sender: diff --git a/compiled_contracts/CUSDt/step_000_cont_0_contract.tz b/compiled_contracts/CUSDt/step_000_cont_0_contract.tz index 4ad04fd3..4b0b39bf 100644 --- a/compiled_contracts/CUSDt/step_000_cont_0_contract.tz +++ b/compiled_contracts/CUSDt/step_000_cont_0_contract.tz @@ -1,4 +1,4 @@ -parameter (or (or (or (or (unit %acceptGovernance) (or (contract %accrueInterestInternal nat) (pair %approve (address %spender) (nat %value)))) (or (nat %doAccrueInterest) (or (unit %hardResetOp) (nat %reduceReservesInternal)))) (or (or (unit %removePendingGovernance) (or (list %setCash (pair (pair %request (address %owner) (nat %token_id)) (nat %balance))) (address %setComptroller))) (or (or (address %setInterestRateModelInternal) (address %setPendingGovernance)) (or (nat %setReserveFactorInternal) (nat %updateProtocolSeizeShare))))) (or (or (or (or (unit %accrueInterest) (or (nat %addReserves) (pair %addReservesInternal (nat %addAmount) (address %originalSender)))) (or (nat %borrow) (or (pair %borrowBalanceStored address (contract nat)) (pair %exchangeRateStored unit (contract nat))))) (or (or (pair %getAccountSnapshot address (contract (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))))) (or (pair %getAllowance (pair (address %owner) (address %spender)) (contract nat)) (pair %getBalance address (contract nat)))) (or (or (pair %getBalanceOfUnderlying address (contract nat)) (pair %getCash unit (contract nat))) (or (pair %getTotalSupply unit (contract nat)) (pair %liquidateBorrow (address %borrower) (pair (address %cTokenCollateral) (nat %repayAmount))))))) (or (or (or (nat %mint) (or (nat %redeem) (nat %redeemUnderlying))) (or (or (nat %reduceReserves) (nat %repayBorrow)) (or (pair %repayBorrowBehalf (address %borrower) (nat %repayAmount)) (pair %seize (address %borrower) (pair (address %liquidator) (nat %seizeTokens)))))) (or (or (address %setInterestRateModel) (or (nat %setReserveFactor) (pair %sweepFA12 (nat %amount) (address %tokenAddress)))) (or (or (pair %sweepFA2 (nat %amount) (pair (nat %id) (address %tokenAddress))) (bool %sweepMutez)) (or (pair %transfer (address %from) (pair (address %to) (nat %value))) (pair %updateMetadata (string %key) (bytes %value)))))))); +parameter (or (or (or (or (unit %acceptGovernance) (or (contract %accrueInterestInternal nat) (pair %approve (address %spender) (nat %value)))) (or (nat %doAccrueInterest) (or (unit %hardResetOp) (nat %reduceReservesInternal)))) (or (or (unit %removePendingGovernance) (or (list %setCash (pair (pair %request (address %owner) (nat %token_id)) (nat %balance))) (address %setComptroller))) (or (or (address %setInterestRateModelInternal) (address %setPendingGovernance)) (or (nat %setReserveFactorInternal) (nat %updateProtocolSeizeShare))))) (or (or (or (or (unit %accrueInterest) (or (nat %addReserves) (pair %addReservesInternal (nat %addAmount) (address %originalSender)))) (or (nat %borrow) (or (pair %borrowBalanceStored address (contract (pair nat nat))) (pair %exchangeRateStored unit (contract (pair nat nat)))))) (or (or (pair %getAccountSnapshot address (contract (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))))) (or (pair %getAllowance (pair (address %owner) (address %spender)) (contract nat)) (pair %getBalance address (contract nat)))) (or (or (pair %getBalanceOfUnderlying address (contract (pair nat nat))) (pair %getCash unit (contract (pair nat nat)))) (or (pair %getTotalSupply unit (contract nat)) (pair %liquidateBorrow (address %borrower) (pair (address %cTokenCollateral) (nat %repayAmount))))))) (or (or (or (nat %mint) (or (nat %redeem) (nat %redeemUnderlying))) (or (or (nat %reduceReserves) (nat %repayBorrow)) (or (pair %repayBorrowBehalf (address %borrower) (nat %repayAmount)) (pair %seize (address %borrower) (pair (address %liquidator) (nat %seizeTokens)))))) (or (or (address %setInterestRateModel) (or (nat %setReserveFactor) (pair %sweepFA12 (nat %amount) (address %tokenAddress)))) (or (or (pair %sweepFA2 (nat %amount) (pair (nat %id) (address %tokenAddress))) (bool %sweepMutez)) (or (pair %transfer (address %from) (pair (address %to) (nat %value))) (pair %updateMetadata (string %key) (bytes %value)))))))); storage (pair (pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))))) (big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))))); code { @@ -13,16 +13,19 @@ code IF_LEFT { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == acceptGovernance == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { IF_LEFT { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == accrueInterestInternal == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 1; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == approve == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 2; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -31,16 +34,19 @@ code IF_LEFT { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == doAccrueInterest == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 3; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { IF_LEFT { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == hardResetOp == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 4; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == reduceReservesInternal == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 5; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -52,16 +58,19 @@ code IF_LEFT { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == removePendingGovernance == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 6; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { IF_LEFT { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == setCash == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 7; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == setComptroller == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 8; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -72,10 +81,12 @@ code IF_LEFT { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == setInterestRateModelInternal == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 9; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == setPendingGovernance == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 10; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } @@ -83,10 +94,12 @@ code IF_LEFT { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == setReserveFactorInternal == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 11; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == updateProtocolSeizeShare == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 12; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -100,7 +113,9 @@ code PUSH int -1; # int : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + { + # missing entrypoint # @some : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @some : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUG 2; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @some : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair @parameter.left (pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))))) : @some : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EXEC; # pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -115,6 +130,8 @@ code { IF_LEFT { + # == accrueInterest == + # compute_CFA2_47 = sp.local("compute_CFA2_47", (self.data.currentCash + self.data.totalSupply) + self.data.totalReserves) # @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 9; # nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -125,12 +142,14 @@ code GET 4; # nat : nat : nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ADD; # nat : nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ADD; # nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if compute_CFA2_47.value > 0: # nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # nat : nat : nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GT; # bool : nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # self.data.activeOperations.add(13) # nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DIG 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -148,6 +167,7 @@ code PAIR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUG 2; # nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(callback = sp.self_entrypoint('setCash'), requests = sp.list([sp.record(owner = sp.self_address, token_id = self.data.tokenId)])), sp.tez(0), sp.contract(sp.TRecord(callback = sp.TContract(sp.TList(sp.TRecord(balance = sp.TNat, request = sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id"))).layout(("request", "balance")))), requests = sp.TList(sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id")))).layout(("requests", "callback")), self.data.fa2_TokenAddress, entrypoint='balance_of').open_some()) # nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -162,33 +182,32 @@ code {}; # @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH mutez 0; # mutez : @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF %setCash; # @self : mutez : @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # contract (list (pair (pair %request (address %owner) (nat %token_id)) (nat %balance))) : mutez : @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NIL (pair address nat); # list (pair address nat) : contract (list (pair (pair %request (address %owner) (nat %token_id)) (nat %balance))) : mutez : @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 8; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list (pair address nat) : contract (list (pair (pair %request (address %owner) (nat %token_id)) (nat %balance))) : mutez : @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 5; # pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : list (pair address nat) : contract (list (pair (pair %request (address %owner) (nat %token_id)) (nat %balance))) : mutez : @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 4; # nat : list (pair address nat) : contract (list (pair (pair %request (address %owner) (nat %token_id)) (nat %balance))) : mutez : @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SELF_ADDRESS; # @self : nat : list (pair address nat) : contract (list (pair (pair %request (address %owner) (nat %token_id)) (nat %balance))) : mutez : @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : nat : list (pair address nat) : contract (list (pair (pair %request (address %owner) (nat %token_id)) (nat %balance))) : mutez : @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair address nat : list (pair address nat) : contract (list (pair (pair %request (address %owner) (nat %token_id)) (nat %balance))) : mutez : @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CONS; # list (pair address nat) : contract (list (pair (pair %request (address %owner) (nat %token_id)) (nat %balance))) : mutez : @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair (list (pair address nat)) (contract (list (pair (pair %request (address %owner) (nat %token_id)) (nat %balance)))) : mutez : @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL (pair address nat); # list (pair address nat) : @self : mutez : @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 8; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list (pair address nat) : @self : mutez : @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 5; # pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : list (pair address nat) : @self : mutez : @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : list (pair address nat) : @self : mutez : @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : nat : list (pair address nat) : @self : mutez : @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair @self nat : list (pair address nat) : @self : mutez : @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list (pair address nat) : @self : mutez : @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (list (pair address nat)) @self : mutez : @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { NIL operation; # list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if sp.level != self.data.accrualBlockNumber: # list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair nat (pair (set nat) address) : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) LEVEL; # @level : nat : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # nat : nat : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NEQ; # bool : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # if self.data.accrualBlockNumber == 0: # list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -199,6 +218,7 @@ code EQ; # bool : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # self.data.accrualBlockNumber = sp.level # list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DIG 3; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : nat : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : nat : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : nat : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -209,12 +229,11 @@ code DROP; # @level : pair (set nat) address : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DIG 6; # @parameter%accrueInterest : @level : pair (set nat) address : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # @level : pair (set nat) address : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # nat : pair (set nat) address : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair nat (pair (set nat) address) : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair @level (pair (set nat) address) : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair @level (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair @level (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair @level (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # list operation : pair (pair (pair (pair @level (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { SWAP; # nat : list operation : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -222,6 +241,7 @@ code SWAP; # @parameter%accrueInterest : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.activeOperations.add(8) # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair nat (pair (set nat) address) : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -238,18 +258,17 @@ code PAIR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.self_entrypoint('doAccrueInterest'), sp.tez(0), sp.contract(sp.TContract(sp.TNat), sp.self_address, entrypoint='accrueInterestInternal').open_some()) # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONTRACT %accrueInterestInternal (contract nat); # option (contract (contract nat)) : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 735; # int : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 745; # int : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH mutez 0; # mutez : @some : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF %doAccrueInterest; # @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # contract nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -264,10 +283,10 @@ code { IF_LEFT { + # == addReserves == + # sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : address : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NEQ; # bool : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -276,6 +295,7 @@ code PUSH string "CT_INTERNAL_CALL"; # string : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') # @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -292,6 +312,7 @@ code FAILWITH; # FAILED }; # @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%addReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.activeOperations.add(11) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%addReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -308,29 +329,27 @@ code PAIR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%addReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.unit, sp.tez(0), sp.self_entrypoint('accrueInterest')) # @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF %accrueInterest; # @self : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # contract unit : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH mutez 0; # mutez : contract unit : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNIT; # unit : mutez : contract unit : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @self : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNIT; # unit : mutez : @self : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(addAmount = params, originalSender = sp.sender), sp.amount, sp.self_entrypoint('addReservesInternal')) # list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF %addReservesInternal; # @self : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # contract (pair (nat %addAmount) (address %originalSender)) : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - AMOUNT; # @amount : contract (pair (nat %addAmount) (address %originalSender)) : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # mutez : contract (pair (nat %addAmount) (address %originalSender)) : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : mutez : contract (pair (nat %addAmount) (address %originalSender)) : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : mutez : contract (pair (nat %addAmount) (address %originalSender)) : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 4; # @parameter%addReserves : address : mutez : contract (pair (nat %addAmount) (address %originalSender)) : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair @parameter%addReserves address : mutez : contract (pair (nat %addAmount) (address %originalSender)) : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + AMOUNT; # @amount : @self : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @amount : @self : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 4; # @parameter%addReserves : @sender : @amount : @self : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair @parameter%addReserves @sender : @amount : @self : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { + # == addReservesInternal == + # sp.verify(sp.sender == sp.self_address, 'CT_INTERNAL_FUNCTION') # @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : address : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -339,6 +358,7 @@ code PUSH string "CT_INTERNAL_FUNCTION"; # string : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(self.data.activeOperations.contains(11), 'OP_NOT_ACTIVE') # @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -353,6 +373,7 @@ code FAILWITH; # FAILED }; # @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.activeOperations.remove(11) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -369,13 +390,13 @@ code PAIR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair nat (pair (set nat) address) : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) LEVEL; # @level : nat : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # nat : nat : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -384,6 +405,7 @@ code PUSH string "CT_INTEREST_OLD"; # string : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.list([sp.record(from_ = params.originalSender, txs = sp.list([sp.record(amount = params.addAmount, to_ = sp.self_address, token_id = self.data.tokenId)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entrypoint='transfer').open_some()) # @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -405,8 +427,7 @@ code GET 5; # pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair address (pair nat nat) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @self (pair nat nat) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 6; # @parameter%addReservesInternal : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # address : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -414,6 +435,7 @@ code CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.totalReserves += params.addAmount # list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DIG 2; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 9; # nat : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -428,10 +450,10 @@ code { IF_LEFT { + # == borrow == + # sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : address : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NEQ; # bool : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -440,18 +462,18 @@ code PUSH string "CT_INTERNAL_CALL"; # string : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if ~ (self.data.ledger.contains(sp.sender)): # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) MEM; # bool : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NOT; # bool : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # bool : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[sp.sender] = sp.record(approvals = {}, balance = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -461,7 +483,6 @@ code UNPAIR; # big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH (option (pair (map address nat) nat)) (Some (Pair {} 0)); # option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # address : pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -471,20 +492,19 @@ code SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - {}; # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if ~ (self.data.borrows.contains(sp.sender)): # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) MEM; # bool : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NOT; # bool : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # bool : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[sp.sender] = sp.record(interestIndex = 0, principal = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -492,7 +512,6 @@ code UNPAIR; # big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH (option (pair nat nat)) (Some (Pair 0 0)); # option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -500,8 +519,8 @@ code PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - {}; # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(borrowAmount = params, borrower = sp.sender, cToken = sp.self_address), sp.tez(0), sp.contract(sp.TRecord(borrowAmount = sp.TNat, borrower = sp.TAddress, cToken = sp.TAddress).layout(("cToken", ("borrower", "borrowAmount"))), self.data.comptroller, entrypoint='borrowAllowed').open_some()) # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -517,12 +536,11 @@ code PUSH mutez 0; # mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # @parameter%borrow : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : @parameter%borrow : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%borrow : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SELF_ADDRESS; # @self : address : @parameter%borrow : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%borrow : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair address (pair address @parameter%borrow) : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : @sender : @parameter%borrow : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @self (pair @sender @parameter%borrow) : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(self.data.currentCash >= params, 'CT_INSUFFICIENT_CASH') # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @parameter%borrow : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%borrow : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%borrow : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -536,13 +554,13 @@ code PUSH string "CT_INSUFFICIENT_CASH"; # string : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) LEVEL; # @level : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # nat : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -551,6 +569,7 @@ code PUSH string "CT_INTEREST_OLD"; # string : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(amount = params, to_ = sp.sender, token_id = self.data.tokenId)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entrypoint='transfer').open_some()) # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 5; # pair (nat %expScale) (address %fa2_TokenAddress) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -570,38 +589,38 @@ code GET 5; # pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : @parameter%borrow : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # nat : @parameter%borrow : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : nat : @parameter%borrow : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : nat : @parameter%borrow : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair address (pair nat @parameter%borrow) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @sender (pair nat @parameter%borrow) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair @self (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance = sp.local("borrowBalance", 0) # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.borrows.contains(sp.sender): # nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # big_map address (pair nat nat) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair nat nat) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair nat nat) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) MEM; # bool : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[sp.sender]) # nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # big_map address (pair nat nat) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair nat nat) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair nat nat) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET; # option (pair nat nat) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 628; # int : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 638; # int : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if borrowSnapshot.value.principal > 0: # @some : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @some : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @some : nat : @some : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # nat : nat : @some : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -611,6 +630,7 @@ code { SWAP; # nat : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # @some : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -623,7 +643,7 @@ code EDIV; # option (pair nat nat) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 631; # int : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 641; # int : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } { @@ -635,6 +655,7 @@ code }; # nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } {}; # nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[sp.sender].principal = borrowBalance.value + params # nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DIG 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -643,28 +664,28 @@ code UNPAIR; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # address : address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUG 2; # address : big_map address (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET; # option (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # @sender : @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # @sender : big_map address (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 210; # int : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 210; # int : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 10; # @parameter%borrow : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 8; # nat : @parameter%borrow : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - ADD; # nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UPDATE 2; # @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SOME; # option (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # address : option (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + {}; # @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 10; # @parameter%borrow : @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 8; # nat : @parameter%borrow : @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ADD; # nat : @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE 2; # @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SOME; # option (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @sender : option (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[sp.sender].interestIndex = self.data.borrowIndex # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -677,26 +698,26 @@ code UNPAIR; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # address : address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUG 2; # address : big_map address (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET; # option (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # @sender : @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # @sender : big_map address (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 211; # int : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 211; # int : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 7; # nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UPDATE 1; # @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SOME; # option (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # address : option (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + {}; # @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 7; # nat : @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE 1; # @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SOME; # option (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @sender : option (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.totalBorrows += params # pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)) : pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -720,7 +741,10 @@ code { IF_LEFT { + # == borrowBalanceStored == + # borrowBalance = sp.local("borrowBalance", 0) # @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.borrows.contains(sp.fst(params)): # nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -730,6 +754,7 @@ code MEM; # bool : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[sp.fst(params)]) # nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -739,10 +764,11 @@ code GET; # option (pair (nat %interestIndex) (nat %principal)) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 628; # int : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 638; # int : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if borrowSnapshot.value.principal > 0: # @some : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @some : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @some : nat : @some : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # nat : nat : @some : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -752,6 +778,7 @@ code { SWAP; # nat : @some : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # @some : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # @some : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # @some : @some : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : @some : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -764,7 +791,7 @@ code EDIV; # option (pair nat nat) : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 631; # int : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 641; # int : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } { @@ -776,18 +803,30 @@ code }; # nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } {}; # nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NIL operation; # list operation : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 2; # @parameter%borrowBalanceStored : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CDR; # contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.result((borrowBalance.value, self.data.accrualBlockNumber)) # nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair nat nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(__s1.value, sp.tez(0), sp.snd(params)) # pair nat nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL operation; # list operation : pair nat nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 2; # @parameter%borrowBalanceStored : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # contract (pair nat nat) : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : contract (pair nat nat) : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # pair nat nat : mutez : contract (pair nat nat) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { + # == exchangeRateStored == + # excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 8; # nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.totalSupply > 0: # nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -796,6 +835,7 @@ code IF { DROP; # @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -807,6 +847,7 @@ code PUSH string "DIVISION_BY_ZERO"; # string : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -825,7 +866,6 @@ code GET 4; # nat : nat : nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -835,10 +875,9 @@ code ADD; # nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 671; # int : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 681; # int : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -854,11 +893,20 @@ code }; # nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } {}; # nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NIL operation; # list operation : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 2; # @parameter%exchangeRateStored : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CDR; # contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.result((excRate.value, self.data.accrualBlockNumber)) # nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair nat nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(__s2.value, sp.tez(0), sp.snd(params)) # pair nat nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL operation; # list operation : pair nat nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 2; # @parameter%exchangeRateStored : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # contract (pair nat nat) : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : contract (pair nat nat) : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # pair nat nat : mutez : contract (pair nat nat) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -870,12 +918,15 @@ code { IF_LEFT { + # == getAccountSnapshot == + # compute_CToken_571 = sp.local("compute_CToken_571", sp.record(account = sp.fst(params), borrowBalance = 0, cTokenBalance = 0, exchangeRateMantissa = 0)) # @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH (pair nat nat) (Pair 0 0); # pair nat nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : pair nat nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # @parameter%getAccountSnapshot : nat : pair nat nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # address : nat : pair nat nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair address nat : pair nat nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.ledger.contains(sp.fst(params)): # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -885,13 +936,13 @@ code MEM; # bool : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) LEVEL; # @level : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -900,6 +951,7 @@ code PUSH string "CT_INTEREST_OLD"; # string : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # compute_CToken_571.value.cTokenBalance = self.data.ledger[sp.fst(params)].balance # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -909,13 +961,15 @@ code GET; # option (pair (map %approvals address nat) (nat %balance)) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 573; # int : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 579; # int : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE 3; # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance = sp.local("borrowBalance", 0) # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.borrows.contains(sp.fst(params)): # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -925,6 +979,7 @@ code MEM; # bool : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[sp.fst(params)]) # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -934,10 +989,11 @@ code GET; # option (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 628; # int : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 638; # int : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if borrowSnapshot.value.principal > 0: # @some : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @some : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @some : nat : @some : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # nat : nat : @some : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -947,6 +1003,7 @@ code { SWAP; # nat : @some : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # @some : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # @some : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # @some : @some : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : @some : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -959,7 +1016,7 @@ code EDIV; # option (pair nat nat) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 631; # int : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 641; # int : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } { @@ -972,6 +1029,7 @@ code } {}; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair address nat) (pair nat nat) : nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # compute_CToken_571.value.borrowBalance = borrowBalance.value # pair (pair address nat) (pair nat nat) : nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair address nat : pair nat nat : nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # address : pair nat nat : nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # nat : address : pair nat nat : nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -979,9 +1037,11 @@ code PAIR; # pair address nat : pair nat nat : nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair address nat) (pair nat nat) : nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 8; # nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.totalSupply > 0: # nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -990,6 +1050,7 @@ code IF { DROP 2; # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1001,6 +1062,7 @@ code PUSH string "DIVISION_BY_ZERO"; # string : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1019,7 +1081,6 @@ code GET 4; # nat : nat : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1029,10 +1090,9 @@ code ADD; # nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 671; # int : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 681; # int : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1051,9 +1111,12 @@ code SWAP; # nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # compute_CToken_571.value.exchangeRateMantissa = excRate.value # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE 4; # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } {}; # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.result(compute_CToken_571.value) + # sp.transfer(__s3.value, sp.tez(0), sp.snd(params)) # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DIG 2; # @parameter%getAccountSnapshot : list operation : pair (pair address nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # contract (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))) : list operation : pair (pair address nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1065,7 +1128,10 @@ code { IF_LEFT { + # == getAllowance == + # result = sp.local("result", 0) # @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.ledger.contains(sp.fst(params).owner): # nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1076,6 +1142,7 @@ code MEM; # bool : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # if self.data.ledger[sp.fst(params).owner].approvals.contains(sp.fst(params).spender): # nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1086,7 +1153,7 @@ code GET; # option (pair (map %approvals address nat) (nat %balance)) : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 549; # int : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 555; # int : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1098,6 +1165,7 @@ code IF { DROP; # @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # result.value = self.data.ledger[sp.fst(params).owner].approvals[sp.fst(params).spender] # @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1108,7 +1176,7 @@ code GET; # option (pair (map %approvals address nat) (nat %balance)) : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 550; # int : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 556; # int : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1119,7 +1187,7 @@ code GET; # option nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 550; # int : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 556; # int : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1127,6 +1195,8 @@ code {}; # nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } {}; # nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.result(result.value) + # sp.transfer(__s4.value, sp.tez(0), sp.snd(params)) # nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DIG 2; # @parameter%getAllowance : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1136,7 +1206,10 @@ code CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { + # == getBalance == + # result = sp.local("result", 0) # @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.ledger.contains(sp.fst(params)): # nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1147,6 +1220,7 @@ code IF { DROP; # @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # result.value = self.data.ledger[sp.fst(params)].balance # @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1156,13 +1230,15 @@ code GET; # option (pair (map %approvals address nat) (nat %balance)) : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 489; # int : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 495; # int : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } {}; # nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.result(result.value) + # sp.transfer(__s5.value, sp.tez(0), sp.snd(params)) # nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DIG 2; # @parameter%getBalance : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1178,9 +1254,12 @@ code { IF_LEFT { + # == getBalanceOfUnderlying == + # excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 8; # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.totalSupply > 0: # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1189,6 +1268,7 @@ code IF { DROP; # @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1200,6 +1280,7 @@ code PUSH string "DIVISION_BY_ZERO"; # string : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1218,7 +1299,6 @@ code GET 4; # nat : nat : nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1228,10 +1308,9 @@ code ADD; # nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 671; # int : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 681; # int : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1247,53 +1326,70 @@ code }; # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } {}; # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.result(((excRate.value * self.data.ledger[sp.fst(params)].balance) // self.data.expScale, self.data.accrualBlockNumber)) # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 5; # pair (nat %expScale) (address %fa2_TokenAddress) : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 4; # @parameter%getBalanceOfUnderlying : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET; # option (pair (map %approvals address nat) (nat %balance)) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 5; # pair (nat %expScale) (address %fa2_TokenAddress) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # @parameter%getBalanceOfUnderlying : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (map %approvals address nat) (nat %balance)) : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 521; # int : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 527; # int : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CDR; # nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 2; # nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - MUL; # nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - EDIV; # option (pair nat nat) : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + {}; # @some : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + MUL; # nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EDIV; # option (pair nat nat) : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 61; # int : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 61; # int : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } { - CAR; # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - }; # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NIL operation; # list operation : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 2; # @parameter%getBalanceOfUnderlying : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CDR; # contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair nat nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(__s6.value, sp.tez(0), sp.snd(params)) # pair nat nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL operation; # list operation : pair nat nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 2; # @parameter%getBalanceOfUnderlying : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # contract (pair nat nat) : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : contract (pair nat nat) : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # pair nat nat : mutez : contract (pair nat nat) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { + # == getCash == + # sp.result((self.data.currentCash, self.data.accrualBlockNumber)) # @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 4; # nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NIL operation; # list operation : nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 2; # @parameter%getCash : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CDR; # contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair nat nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(__s7.value, sp.tez(0), sp.snd(params)) # pair nat nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL operation; # list operation : pair nat nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 2; # @parameter%getCash : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # contract (pair nat nat) : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : contract (pair nat nat) : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # pair nat nat : mutez : contract (pair nat nat) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1301,8 +1397,11 @@ code { IF_LEFT { + # == getTotalSupply == + # sp.result(self.data.totalSupply) # @parameter%getTotalSupply : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%getTotalSupply : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : @parameter%getTotalSupply : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(__s8.value, sp.tez(0), sp.snd(params)) # nat : @parameter%getTotalSupply : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : nat : @parameter%getTotalSupply : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DIG 2; # @parameter%getTotalSupply : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1312,6 +1411,8 @@ code CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { + # == liquidateBorrow == + # sp.transfer(sp.record(borrower = params.borrower, cTokenBorrowed = sp.self_address, cTokenCollateral = params.cTokenCollateral, liquidator = sp.sender, repayAmount = params.repayAmount), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, cTokenBorrowed = sp.TAddress, cTokenCollateral = sp.TAddress, liquidator = sp.TAddress, repayAmount = sp.TNat).layout((("borrower", "cTokenBorrowed"), ("cTokenCollateral", ("liquidator", "repayAmount")))), self.data.comptroller, entrypoint='liquidateBorrowAllowed').open_some()) # @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1320,7 +1421,7 @@ code CONTRACT %liquidateBorrowAllowed (pair (pair (address %borrower) (address %cTokenBorrowed)) (pair (address %cTokenCollateral) (pair (address %liquidator) (nat %repayAmount)))); # option (contract (pair (pair (address %borrower) (address %cTokenBorrowed)) (pair (address %cTokenCollateral) (pair (address %liquidator) (nat %repayAmount))))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 357; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 360; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1328,23 +1429,21 @@ code DUP 4; # @parameter%liquidateBorrow : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair address nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 5; # @parameter%liquidateBorrow : pair address nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 3; # address : pair address nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair address (pair address nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SELF_ADDRESS; # @self : pair address (pair address nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : pair address (pair address nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 6; # @parameter%liquidateBorrow : address : pair address (pair address nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # address : address : pair address (pair address nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair address address : pair address (pair address nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair (pair address address) (pair address (pair address nat)) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair @sender nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # @parameter%liquidateBorrow : pair @sender nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # address : pair @sender nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address (pair @sender nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : pair address (pair @sender nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 6; # @parameter%liquidateBorrow : @self : pair address (pair @sender nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : @self : pair address (pair @sender nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address @self : pair address (pair @sender nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair address @self) (pair address (pair @sender nat)) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(params.borrower != sp.sender, 'CT_LIQUIDATE_LIQUIDATOR_IS_BORROWER') # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # @parameter%liquidateBorrow : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # address : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter%liquidateBorrow : @sender : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : @sender : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NEQ; # bool : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -1353,6 +1452,7 @@ code PUSH string "CT_LIQUIDATE_LIQUIDATOR_IS_BORROWER"; # string : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(params.repayAmount > 0, 'CT_LIQUIDATE_CLOSE_AMOUNT_IS_INVALID') # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # @parameter%liquidateBorrow : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1364,13 +1464,13 @@ code PUSH string "CT_LIQUIDATE_CLOSE_AMOUNT_IS_INVALID"; # string : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) LEVEL; # @level : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -1379,7 +1479,9 @@ code PUSH string "CT_INTEREST_OLD"; # string : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance = sp.local("borrowBalance", 0) # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.borrows.contains(params.borrower): # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1389,6 +1491,7 @@ code MEM; # bool : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[params.borrower]) # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1398,10 +1501,11 @@ code GET; # option (pair (nat %interestIndex) (nat %principal)) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 628; # int : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 638; # int : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if borrowSnapshot.value.principal > 0: # @some : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @some : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @some : nat : @some : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # nat : nat : @some : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1411,6 +1515,7 @@ code { SWAP; # nat : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # @some : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1423,7 +1528,7 @@ code EDIV; # option (pair nat nat) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 631; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 641; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } { @@ -1435,87 +1540,91 @@ code }; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } {}; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 5; # pair (nat %expScale) (address %fa2_TokenAddress) : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CDR; # address : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CONTRACT %transfer (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))); # option (contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount))))))) : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - IF_NONE + # repayAmount = sp.local("repayAmount", sp.min(borrowBalance.value, params.repayAmount)) # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter%liquidateBorrow : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # nat : nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + LE; # bool : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF { - PUSH int 43; # int : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - FAILWITH; # FAILED + DROP; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } - {}; # @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NIL (pair address (list (pair address (pair nat nat)))); # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NIL (pair address (pair nat nat)); # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 7; # @parameter%liquidateBorrow : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 4; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 7; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # nat : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - COMPARE; # int : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - LE; # bool : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + { + SWAP; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # actualRepayAmount = sp.local("actualRepayAmount", sp.min(repayAmount.value, self.data.totalBorrows)) # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows) : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # nat : nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # nat : nat : nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + LE; # bool : nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - DROP; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { - SWAP; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - }; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 9; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 5; # pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 4; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SELF_ADDRESS; # @self : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair address (pair nat nat) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CONS; # list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 9; # @parameter%liquidateBorrow : big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # address : address : big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUG 2; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET; # option (pair (nat %interestIndex) (nat %principal)) : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.list([sp.record(from_ = sp.sender, txs = sp.list([sp.record(amount = repayAmount.value, to_ = sp.self_address, token_id = self.data.tokenId)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entrypoint='transfer').open_some()) # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 5; # pair (nat %expScale) (address %fa2_TokenAddress) : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # address : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONTRACT %transfer (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))); # option (contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount))))))) : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 263; # int : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 43; # int : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 10; # @parameter%liquidateBorrow : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 4; # nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 9; # nat : nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # nat : nat : nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - COMPARE; # int : nat : nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - LE; # bool : nat : nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - IF + {}; # @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL (pair address (list (pair address (pair nat nat)))); # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL (pair address (pair nat nat)); # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 7; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 11; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 5; # pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @self (pair nat nat) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair @sender (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 3; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[params.borrower].principal = sp.as_nat(borrowBalance.value - repayAmount.value, message = 'SUBTRACTION_UNDERFLOW') # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 11; # @parameter%liquidateBorrow : big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # address : address : big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (nat %interestIndex) (nat %principal)) : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE { - DROP; # nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 266; # int : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED } - { - SWAP; # nat : nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - }; # nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 9; # nat : nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + {}; # @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 8; # nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 9; # nat : nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1531,6 +1640,7 @@ code SWAP; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[params.borrower].interestIndex = self.data.borrowIndex # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1549,7 +1659,7 @@ code GET; # option (pair (nat %interestIndex) (nat %principal)) : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 265; # int : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 268; # int : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1564,27 +1674,12 @@ code PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUG 3; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # @parameter%liquidateBorrow : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 4; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - COMPARE; # int : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - LE; # bool : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - IF - { - DROP; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - { - SWAP; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - }; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - actualRepayAmount.value, message = 'SUBTRACTION_UNDERFLOW') # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 7; # pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1611,6 +1706,7 @@ code SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUG 2; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.borrows[params.borrower].principal == 0: # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1621,7 +1717,7 @@ code GET; # option (pair (nat %interestIndex) (nat %principal)) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 268; # int : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 271; # int : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1630,6 +1726,7 @@ code EQ; # bool : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # sp.transfer(params.borrower, sp.tez(0), sp.contract(sp.TAddress, self.data.comptroller, entrypoint='removeFromLoans').open_some()) # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1637,7 +1734,7 @@ code CONTRACT %removeFromLoans address; # option (contract address) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 270; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 273; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1648,6 +1745,7 @@ code CONS; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } {}; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.view("balanceOf", params.borrower, params.cTokenCollateral, sp.TNat).open_some(message = 'INVALID BALANCE OF VIEW') >= sp.fst(sp.view("liquidateCalculateSeizeTokens", sp.record(actualRepayAmount = params.repayAmount, cTokenBorrowed = sp.self_address, cTokenCollateral = params.cTokenCollateral), self.data.comptroller, sp.TPair(sp.TNat, sp.TNat)).open_some(message = 'INVALID LIQUIDATE CALC SEIZE TOKEN VIEW')), 'LIQUIDATE_SEIZE_TOO_MUCH') # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1655,28 +1753,28 @@ code DUP 3; # @parameter%liquidateBorrow : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # address : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : address : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 5; # @parameter%liquidateBorrow : address : address : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 4; # nat : address : address : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair nat (pair address address) : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - VIEW "liquidateCalculateSeizeTokens" nat; # option nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # @parameter%liquidateBorrow : @self : address : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : @self : address : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair nat (pair @self address) : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + VIEW "liquidateCalculateSeizeTokens" (pair nat nat); # option (pair nat nat) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "INVALID LIQUIDATE CALC SEIZE TOKEN VIEW"; # string : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # @parameter%liquidateBorrow : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 3; # address : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 4; # @parameter%liquidateBorrow : address : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # address : address : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - VIEW "balanceOf" nat; # option nat : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter%liquidateBorrow : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # address : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # @parameter%liquidateBorrow : address : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : address : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + VIEW "balanceOf" nat; # option nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH string "INVALID BALANCE OF VIEW"; # string : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH string "INVALID BALANCE OF VIEW"; # string : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + {}; # @some : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GE; # bool : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -1685,12 +1783,13 @@ code PUSH string "LIQUIDATE_SEIZE_TOO_MUCH"; # string : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(borrower = params.borrower, liquidator = sp.sender, seizeTokens = sp.fst(sp.view("liquidateCalculateSeizeTokens", sp.record(actualRepayAmount = params.repayAmount, cTokenBorrowed = sp.self_address, cTokenCollateral = params.cTokenCollateral), self.data.comptroller, sp.TPair(sp.TNat, sp.TNat)).open_some(message = 'INVALID LIQUIDATE CALC SEIZE TOKEN VIEW'))), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, liquidator = sp.TAddress, seizeTokens = sp.TNat).layout(("borrower", ("liquidator", "seizeTokens"))), params.cTokenCollateral, entrypoint='seize').open_some()) # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @parameter%liquidateBorrow : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONTRACT %seize (pair (address %borrower) (pair (address %liquidator) (nat %seizeTokens))); # option (contract (pair (address %borrower) (pair (address %liquidator) (nat %seizeTokens)))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 382; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 385; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1702,22 +1801,21 @@ code DUP 5; # @parameter%liquidateBorrow : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # address : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : address : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 7; # @parameter%liquidateBorrow : address : address : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 4; # nat : address : address : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair nat (pair address address) : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - VIEW "liquidateCalculateSeizeTokens" nat; # option nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 7; # @parameter%liquidateBorrow : @self : address : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : @self : address : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair nat (pair @self address) : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + VIEW "liquidateCalculateSeizeTokens" (pair nat nat); # option (pair nat nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "INVALID LIQUIDATE CALC SEIZE TOKEN VIEW"; # string : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : @some : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @some : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 5; # @parameter%liquidateBorrow : address : @some : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # address : address : @some : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair address (pair address @some) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 5; # @parameter%liquidateBorrow : @sender : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : @sender : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair address (pair @sender nat) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) nat) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1732,10 +1830,10 @@ code { IF_LEFT { + # == mint == + # sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : address : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NEQ; # bool : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -1744,18 +1842,18 @@ code PUSH string "CT_INTERNAL_CALL"; # string : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if ~ (self.data.ledger.contains(sp.sender)): # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) MEM; # bool : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NOT; # bool : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # bool : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[sp.sender] = sp.record(approvals = {}, balance = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1765,7 +1863,6 @@ code UNPAIR; # big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH (option (pair (map address nat) nat)) (Some (Pair {} 0)); # option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # address : pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1775,20 +1872,19 @@ code SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - {}; # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if ~ (self.data.borrows.contains(sp.sender)): # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) MEM; # bool : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NOT; # bool : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # bool : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[sp.sender] = sp.record(interestIndex = 0, principal = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1796,7 +1892,6 @@ code UNPAIR; # big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH (option (pair nat nat)) (Some (Pair 0 0)); # option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1804,8 +1899,8 @@ code PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - {}; # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(cToken = sp.self_address, mintAmount = params, minter = sp.sender), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, mintAmount = sp.TNat, minter = sp.TAddress).layout(("cToken", ("minter", "mintAmount"))), self.data.comptroller, entrypoint='mintAllowed').open_some()) # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1821,19 +1916,17 @@ code PUSH mutez 0; # mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SELF_ADDRESS; # @self : address : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair address (pair address @parameter%mint) : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : @sender : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @self (pair @sender @parameter%mint) : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) LEVEL; # @level : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -1842,6 +1935,7 @@ code PUSH string "CT_INTEREST_OLD"; # string : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.list([sp.record(from_ = sp.sender, txs = sp.list([sp.record(amount = params, to_ = sp.self_address, token_id = self.data.tokenId)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entrypoint='transfer').open_some()) # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 5; # pair (nat %expScale) (address %fa2_TokenAddress) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1861,18 +1955,18 @@ code GET 5; # pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : @parameter%mint : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # nat : @parameter%mint : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : nat : @parameter%mint : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : nat : @parameter%mint : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair address (pair nat @parameter%mint) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @self (pair nat @parameter%mint) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair @sender (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 8; # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.totalSupply > 0: # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1881,6 +1975,7 @@ code IF { DROP; # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1892,6 +1987,7 @@ code PUSH string "DIVISION_BY_ZERO"; # string : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1910,7 +2006,6 @@ code GET 4; # nat : nat : nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1920,10 +2015,9 @@ code ADD; # nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 671; # int : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 681; # int : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1939,6 +2033,9 @@ code }; # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } {}; # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # amount = sp.local("amount", 0) + # if True: + # sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO') # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1949,6 +2046,7 @@ code PUSH string "DIVISION_BY_ZERO"; # string : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # compute_CToken_975 = sp.local("compute_CToken_975", (params * self.data.expScale) // excRate.value) # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 5; # pair (nat %expScale) (address %fa2_TokenAddress) : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1964,6 +2062,8 @@ code { CAR; # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # amount.value = compute_CToken_975.value + # sp.verify(amount.value > 0, 'CT_MINT_AMOUNT_IS_INVALID') # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1974,12 +2074,14 @@ code PUSH string "CT_MINT_AMOUNT_IS_INVALID"; # string : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.totalSupply += amount.value # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DIG 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ADD; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE 10; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[sp.sender].balance += amount.value # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1989,23 +2091,22 @@ code UNPAIR; # big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # address : address : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUG 2; # address : big_map address (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # @sender : @sender : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # @sender : big_map address (pair (map address nat) nat) : @sender : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (map address nat) nat) : @sender : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 99; # int : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 99; # int : @sender : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # @some : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CDR; # nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 9; # nat : nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - ADD; # nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UPDATE 2; # @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SOME; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # address : option (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + {}; # @some : @sender : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # @some : @some : @sender : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : @some : @sender : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 9; # nat : nat : @some : @sender : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ADD; # nat : @some : @sender : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE 2; # @some : @sender : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SOME; # option (pair (map address nat) nat) : @sender : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @sender : option (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # address : pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2019,10 +2120,10 @@ code { IF_LEFT { + # == redeem == + # sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : address : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NEQ; # bool : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -2031,6 +2132,7 @@ code PUSH string "CT_INTERNAL_CALL"; # string : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(cToken = sp.self_address, redeemAmount = params, redeemer = sp.sender), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, redeemAmount = sp.TNat, redeemer = sp.TAddress).layout(("cToken", ("redeemer", "redeemAmount"))), self.data.comptroller, entrypoint='redeemAllowed').open_some()) # @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2046,16 +2148,18 @@ code PUSH mutez 0; # mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # @parameter%redeem : mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : @parameter%redeem : mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%redeem : mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SELF_ADDRESS; # @self : address : @parameter%redeem : mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%redeem : mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair address (pair address @parameter%redeem) : mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : @sender : @parameter%redeem : mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @self (pair @sender @parameter%redeem) : mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # redeem_amount = sp.local("redeem_amount", 0) # list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if False: + # excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 8; # nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.totalSupply > 0: # nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2064,6 +2168,7 @@ code IF { DROP 2; # list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2075,6 +2180,7 @@ code PUSH string "DIVISION_BY_ZERO"; # string : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2093,7 +2199,6 @@ code GET 4; # nat : nat : nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2103,10 +2208,9 @@ code ADD; # nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 671; # int : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 681; # int : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2125,6 +2229,9 @@ code SWAP; # nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # amount = sp.local("amount", 0) + # if False: + # compute_CToken_978 = sp.local("compute_CToken_978", (excRate.value * params) // self.data.expScale) # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 5; # pair (nat %expScale) (address %fa2_TokenAddress) : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2141,7 +2248,13 @@ code { CAR; # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # amount.value = compute_CToken_978.value + # redeem_amount.value = amount.value + # redeem_tokens = sp.local("redeem_tokens", 0) + # if False: + # redeem_tokens.value = params # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if (redeem_amount.value > 0) & (redeem_tokens.value > 0): # @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # nat : nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2158,6 +2271,7 @@ code }; # bool : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # sp.verify(self.data.currentCash >= redeem_amount.value, 'CT_INSUFFICIENT_CASH') # @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2171,6 +2285,7 @@ code PUSH string "CT_INSUFFICIENT_CASH"; # string : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2179,7 +2294,6 @@ code LEVEL; # @level : nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DIG 5; # @parameter%redeem : @level : nat : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # @level : nat : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # nat : nat : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -2188,12 +2302,12 @@ code PUSH string "CT_INTEREST_OLD"; # string : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.totalSupply = sp.as_nat(self.data.totalSupply - redeem_tokens.value, message = 'Insufficient supply') # @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # @parameter%redeem : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%redeem : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : @parameter%redeem : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "Insufficient supply"; # string : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2204,12 +2318,12 @@ code SWAP; # @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%redeem : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE 10; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%redeem : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUG 3; # @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[sp.sender].balance = sp.as_nat(self.data.ledger[sp.sender].balance - redeem_tokens.value, message = 'Insufficient balance') # @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET; # option (pair (map %approvals address nat) (nat %balance)) : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { @@ -2220,7 +2334,6 @@ code CDR; # nat : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "Insufficient balance"; # string : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2237,20 +2350,19 @@ code UNPAIR; # big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # address : address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUG 2; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET; # option (pair (map %approvals address nat) (nat %balance)) : address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # @sender : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (map %approvals address nat) (nat %balance)) : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 171; # int : address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 171; # int : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 8; # @some : @some : address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UPDATE 2; # @some : address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SOME; # option (pair (map %approvals address nat) (nat %balance)) : address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # address : option (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + {}; # @some : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 8; # @some : @some : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE 2; # @some : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SOME; # option (pair (map %approvals address nat) (nat %balance)) : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @sender : option (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # address : pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2261,6 +2373,7 @@ code PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUG 2; # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(amount = redeem_amount.value, to_ = sp.sender, token_id = self.data.tokenId)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entrypoint='transfer').open_some()) # list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 5; # pair (nat %expScale) (address %fa2_TokenAddress) : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2280,12 +2393,10 @@ code GET 5; # pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair address (pair nat nat) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @sender (pair nat nat) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair @self (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2297,10 +2408,10 @@ code }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { + # == redeemUnderlying == + # sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : address : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NEQ; # bool : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -2309,6 +2420,7 @@ code PUSH string "CT_INTERNAL_CALL"; # string : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(cToken = sp.self_address, redeemAmount = params, redeemer = sp.sender), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, redeemAmount = sp.TNat, redeemer = sp.TAddress).layout(("cToken", ("redeemer", "redeemAmount"))), self.data.comptroller, entrypoint='redeemAllowed').open_some()) # @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2324,17 +2436,22 @@ code PUSH mutez 0; # mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # @parameter%redeemUnderlying : mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : @parameter%redeemUnderlying : mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%redeemUnderlying : mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SELF_ADDRESS; # @self : address : @parameter%redeemUnderlying : mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%redeemUnderlying : mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair address (pair address @parameter%redeemUnderlying) : mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : @sender : @parameter%redeemUnderlying : mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @self (pair @sender @parameter%redeemUnderlying) : mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # redeem_amount = sp.local("redeem_amount", 0) + # if True: + # redeem_amount.value = params # list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # redeem_tokens = sp.local("redeem_tokens", 0) # @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if True: + # excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 8; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.totalSupply > 0: # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 7; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2343,6 +2460,7 @@ code IF { DROP; # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2354,6 +2472,7 @@ code PUSH string "DIVISION_BY_ZERO"; # string : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2372,7 +2491,6 @@ code GET 4; # nat : nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2382,10 +2500,9 @@ code ADD; # nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 671; # int : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 681; # int : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2401,8 +2518,11 @@ code }; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } {}; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # amount = sp.local("amount", 0) # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if True: + # sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO') # nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GT; # bool : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2412,12 +2532,14 @@ code PUSH string "DIVISION_BY_ZERO"; # string : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # compute_Exponential_277 = sp.local("compute_Exponential_277", params * self.data.expScale) # nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 7; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 5; # pair (nat %expScale) (address %fa2_TokenAddress) : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 7; # @parameter%redeemUnderlying : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) MUL; # nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # compute_Exponential_280 = sp.local("compute_Exponential_280", compute_Exponential_277.value // excRate.value) # nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EDIV; # option (pair nat nat) : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2429,6 +2551,7 @@ code { CAR; # nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if (compute_Exponential_277.value % excRate.value) > 0: # nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # nat : nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # nat : nat : nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2449,8 +2572,12 @@ code SWAP; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # compute_CToken_986 = sp.local("compute_CToken_986", compute_Exponential_280.value + 1) # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 1; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ADD; # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # amount.value = compute_CToken_986.value + # redeem_tokens.value = amount.value + # if (redeem_amount.value > 0) & (redeem_tokens.value > 0): # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # @parameter%redeemUnderlying : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2467,6 +2594,7 @@ code }; # bool : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # sp.verify(self.data.currentCash >= redeem_amount.value, 'CT_INSUFFICIENT_CASH') # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @parameter%redeemUnderlying : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%redeemUnderlying : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%redeemUnderlying : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2480,6 +2608,7 @@ code PUSH string "CT_INSUFFICIENT_CASH"; # string : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2488,7 +2617,6 @@ code LEVEL; # @level : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DIG 5; # @parameter%redeemUnderlying : @level : nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # @level : nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # nat : nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -2497,12 +2625,12 @@ code PUSH string "CT_INTEREST_OLD"; # string : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.totalSupply = sp.as_nat(self.data.totalSupply - redeem_tokens.value, message = 'Insufficient supply') # nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "Insufficient supply"; # string : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2513,12 +2641,12 @@ code SWAP; # @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE 10; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUG 3; # nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[sp.sender].balance = sp.as_nat(self.data.ledger[sp.sender].balance - redeem_tokens.value, message = 'Insufficient balance') # nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET; # option (pair (map %approvals address nat) (nat %balance)) : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { @@ -2529,7 +2657,6 @@ code CDR; # nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "Insufficient balance"; # string : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2546,20 +2673,19 @@ code UNPAIR; # big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # address : address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUG 2; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET; # option (pair (map %approvals address nat) (nat %balance)) : address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # @sender : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (map %approvals address nat) (nat %balance)) : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 171; # int : address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 171; # int : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 8; # @some : @some : address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UPDATE 2; # @some : address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SOME; # option (pair (map %approvals address nat) (nat %balance)) : address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # address : option (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + {}; # @some : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 8; # @some : @some : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE 2; # @some : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SOME; # option (pair (map %approvals address nat) (nat %balance)) : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @sender : option (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # address : pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2570,6 +2696,7 @@ code PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUG 2; # @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(amount = redeem_amount.value, to_ = sp.sender, token_id = self.data.tokenId)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entrypoint='transfer').open_some()) # list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 5; # pair (nat %expScale) (address %fa2_TokenAddress) : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2589,12 +2716,10 @@ code GET 5; # pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : @parameter%redeemUnderlying : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # nat : @parameter%redeemUnderlying : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : nat : @parameter%redeemUnderlying : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : nat : @parameter%redeemUnderlying : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair address (pair nat @parameter%redeemUnderlying) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @sender (pair nat @parameter%redeemUnderlying) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair @self (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2612,13 +2737,14 @@ code { IF_LEFT { + # == reduceReserves == + # sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN') # @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # address : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : address : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -2627,6 +2753,7 @@ code PUSH string "CT_NOT_ADMIN"; # string : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') # @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2643,6 +2770,7 @@ code FAILWITH; # FAILED }; # @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.activeOperations.add(12) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2659,26 +2787,25 @@ code PAIR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.unit, sp.tez(0), sp.self_entrypoint('accrueInterest')) # @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF %accrueInterest; # @self : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # contract unit : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH mutez 0; # mutez : contract unit : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNIT; # unit : mutez : contract unit : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @self : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNIT; # unit : mutez : @self : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(params, sp.amount, sp.self_entrypoint('reduceReservesInternal')) # list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF %reduceReservesInternal; # @self : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # contract nat : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - AMOUNT; # @amount : contract nat : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # mutez : contract nat : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 3; # @parameter%reduceReserves : mutez : contract nat : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + AMOUNT; # @amount : @self : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # @parameter%reduceReserves : @amount : @self : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { + # == repayBorrow == + # sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : address : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NEQ; # bool : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -2687,18 +2814,18 @@ code PUSH string "CT_INTERNAL_CALL"; # string : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if ~ (self.data.ledger.contains(sp.sender)): # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) MEM; # bool : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NOT; # bool : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # bool : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[sp.sender] = sp.record(approvals = {}, balance = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2708,7 +2835,6 @@ code UNPAIR; # big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH (option (pair (map address nat) nat)) (Some (Pair {} 0)); # option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # address : pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2718,20 +2844,19 @@ code SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - {}; # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if ~ (self.data.borrows.contains(sp.sender)): # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) MEM; # bool : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NOT; # bool : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # bool : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[sp.sender] = sp.record(interestIndex = 0, principal = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2739,7 +2864,6 @@ code UNPAIR; # big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH (option (pair nat nat)) (Some (Pair 0 0)); # option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2747,8 +2871,8 @@ code PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - {}; # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(borrower = sp.sender, cToken = sp.self_address, payer = sp.sender, repayAmount = params), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, cToken = sp.TAddress, payer = sp.TAddress, repayAmount = sp.TNat).layout(("cToken", ("payer", ("borrower", "repayAmount")))), self.data.comptroller, entrypoint='repayBorrowAllowed').open_some()) # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2758,30 +2882,27 @@ code CONTRACT %repayBorrowAllowed (pair (address %cToken) (pair (address %payer) (pair (address %borrower) (nat %repayAmount)))); # option (contract (pair (address %cToken) (pair (address %payer) (pair (address %borrower) (nat %repayAmount))))) : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 276; # int : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 279; # int : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH mutez 0; # mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # @parameter%repayBorrow : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : @parameter%repayBorrow : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%repayBorrow : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : address : @parameter%repayBorrow : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%repayBorrow : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SELF_ADDRESS; # @self : address : address : @parameter%repayBorrow : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : address : @parameter%repayBorrow : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 4; # pair address (pair address (pair address @parameter%repayBorrow)) : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 4; # list operation : pair address (pair address (pair address @parameter%repayBorrow)) : mutez : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # pair address (pair address (pair address @parameter%repayBorrow)) : mutez : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @sender : @parameter%repayBorrow : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : @sender : @sender : @parameter%repayBorrow : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 4; # pair @self (pair @sender (pair @sender @parameter%repayBorrow)) : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 4; # list operation : pair @self (pair @sender (pair @sender @parameter%repayBorrow)) : mutez : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # pair @self (pair @sender (pair @sender @parameter%repayBorrow)) : mutez : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) LEVEL; # @level : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -2790,29 +2911,31 @@ code PUSH string "CT_INTEREST_OLD"; # string : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance = sp.local("borrowBalance", 0) # list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.borrows.contains(sp.sender): # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) MEM; # bool : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[sp.sender]) # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET; # option (pair nat nat) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 628; # int : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 638; # int : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if borrowSnapshot.value.principal > 0: # @some : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @some : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @some : nat : @some : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # nat : nat : @some : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2822,6 +2945,7 @@ code { SWAP; # nat : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # @some : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2834,7 +2958,7 @@ code EDIV; # option (pair nat nat) : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 631; # int : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 641; # int : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } { @@ -2846,153 +2970,143 @@ code }; # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } {}; # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 5; # pair (nat %expScale) (address %fa2_TokenAddress) : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CDR; # address : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CONTRACT %transfer (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))); # option (contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount))))))) : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - IF_NONE + # repayAmount = sp.local("repayAmount", sp.min(borrowBalance.value, params)) # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 2; # @parameter%repayBorrow : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # nat : @parameter%repayBorrow : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # nat : nat : @parameter%repayBorrow : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter%repayBorrow : nat : nat : @parameter%repayBorrow : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : nat : @parameter%repayBorrow : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + LE; # bool : nat : @parameter%repayBorrow : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF { - PUSH int 43; # int : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - FAILWITH; # FAILED + DROP; # @parameter%repayBorrow : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } - {}; # @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NIL (pair address (list (pair address (pair nat nat)))); # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NIL (pair address (pair nat nat)); # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 7; # @parameter%repayBorrow : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 7; # nat : @parameter%repayBorrow : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # nat : nat : @parameter%repayBorrow : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # @parameter%repayBorrow : nat : nat : @parameter%repayBorrow : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - COMPARE; # int : nat : @parameter%repayBorrow : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - LE; # bool : nat : @parameter%repayBorrow : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + { + SWAP; # @parameter%repayBorrow : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # actualRepayAmount = sp.local("actualRepayAmount", sp.min(repayAmount.value, self.data.totalBorrows)) # nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows) : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # nat : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # nat : nat : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # nat : nat : nat : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : nat : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + LE; # bool : nat : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - DROP; # @parameter%repayBorrow : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { - SWAP; # @parameter%repayBorrow : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - }; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 9; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 5; # pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 4; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SELF_ADDRESS; # @self : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair address (pair nat nat) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CONS; # list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # address : address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUG 2; # address : big_map address (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET; # option (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.list([sp.record(from_ = sp.sender, txs = sp.list([sp.record(amount = repayAmount.value, to_ = sp.self_address, token_id = self.data.tokenId)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entrypoint='transfer').open_some()) # nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 5; # pair (nat %expScale) (address %fa2_TokenAddress) : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # address : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONTRACT %transfer (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))); # option (contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount))))))) : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 263; # int : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 43; # int : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 10; # @parameter%repayBorrow : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 9; # nat : @parameter%repayBorrow : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # nat : nat : @parameter%repayBorrow : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # @parameter%repayBorrow : nat : nat : @parameter%repayBorrow : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - COMPARE; # int : nat : @parameter%repayBorrow : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - LE; # bool : nat : @parameter%repayBorrow : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - IF - { - DROP; # @parameter%repayBorrow : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - { - SWAP; # @parameter%repayBorrow : nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - }; # nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 9; # nat : nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SUB; # int : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - ISNAT; # option nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + {}; # @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL (pair address (list (pair address (pair nat nat)))); # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL (pair address (pair nat nat)); # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 7; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 10; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 5; # pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @self (pair nat nat) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair @sender (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 3; # nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[sp.sender].principal = sp.as_nat(borrowBalance.value - repayAmount.value, message = 'SUBTRACTION_UNDERFLOW') # nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # @sender : @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # @sender : big_map address (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH string "SUBTRACTION_UNDERFLOW"; # string : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 266; # int : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UPDATE 2; # @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SOME; # option (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # address : option (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UPDATE; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 3; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # address : address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUG 2; # address : big_map address (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET; # option (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + {}; # @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 8; # nat : @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 9; # nat : nat : @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SUB; # int : @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ISNAT; # option nat : @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 265; # int : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH string "SUBTRACTION_UNDERFLOW"; # string : @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 7; # nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UPDATE 1; # @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SOME; # option (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # address : option (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UPDATE; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUG 3; # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 2; # @parameter%repayBorrow : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # nat : @parameter%repayBorrow : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # nat : nat : @parameter%repayBorrow : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # @parameter%repayBorrow : nat : nat : @parameter%repayBorrow : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - COMPARE; # int : nat : @parameter%repayBorrow : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - LE; # bool : nat : @parameter%repayBorrow : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - IF + {}; # @some : @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE 2; # @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SOME; # option (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @sender : option (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[sp.sender].interestIndex = self.data.borrowIndex # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # @sender : @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # @sender : big_map address (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE { - DROP; # @parameter%repayBorrow : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 268; # int : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED } - { - SWAP; # @parameter%repayBorrow : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - }; # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + {}; # @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 7; # nat : @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE 1; # @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SOME; # option (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @sender : option (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - actualRepayAmount.value, message = 'SUBTRACTION_UNDERFLOW') # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 7; # pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3019,17 +3133,17 @@ code SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.borrows[sp.sender].principal == 0: # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # big_map address (pair nat nat) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair nat nat) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair nat nat) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET; # option (pair nat nat) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 268; # int : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 271; # int : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3038,6 +3152,7 @@ code EQ; # bool : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # sp.transfer(sp.sender, sp.tez(0), sp.contract(sp.TAddress, self.data.comptroller, entrypoint='removeFromLoans').open_some()) # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3045,13 +3160,12 @@ code CONTRACT %removeFromLoans address; # option (contract address) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 270; # int : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 273; # int : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH mutez 0; # mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } @@ -3061,10 +3175,10 @@ code { IF_LEFT { + # == repayBorrowBehalf == + # sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : address : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NEQ; # bool : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -3073,18 +3187,18 @@ code PUSH string "CT_INTERNAL_CALL"; # string : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if ~ (self.data.ledger.contains(sp.sender)): # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) MEM; # bool : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NOT; # bool : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # bool : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[sp.sender] = sp.record(approvals = {}, balance = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3094,7 +3208,6 @@ code UNPAIR; # big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH (option (pair (map address nat) nat)) (Some (Pair {} 0)); # option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # address : pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3104,20 +3217,19 @@ code SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - {}; # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if ~ (self.data.borrows.contains(sp.sender)): # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) MEM; # bool : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NOT; # bool : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # bool : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[sp.sender] = sp.record(interestIndex = 0, principal = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3125,7 +3237,6 @@ code UNPAIR; # big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH (option (pair nat nat)) (Some (Pair 0 0)); # option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3133,8 +3244,8 @@ code PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - {}; # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(borrower = params.borrower, cToken = sp.self_address, payer = sp.sender, repayAmount = params.repayAmount), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, cToken = sp.TAddress, payer = sp.TAddress, repayAmount = sp.TNat).layout(("cToken", ("payer", ("borrower", "repayAmount")))), self.data.comptroller, entrypoint='repayBorrowAllowed').open_some()) # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3144,7 +3255,7 @@ code CONTRACT %repayBorrowAllowed (pair (address %cToken) (pair (address %payer) (pair (address %borrower) (nat %repayAmount)))); # option (contract (pair (address %cToken) (pair (address %payer) (pair (address %borrower) (nat %repayAmount))))) : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 276; # int : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 279; # int : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3154,21 +3265,19 @@ code DUP 6; # @parameter%repayBorrowBehalf : nat : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # address : nat : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : address : nat : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : nat : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SELF_ADDRESS; # @self : address : address : nat : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : address : nat : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 4; # pair address (pair address (pair address nat)) : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 4; # list operation : pair address (pair address (pair address nat)) : mutez : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # pair address (pair address (pair address nat)) : mutez : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : @sender : address : nat : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 4; # pair @self (pair @sender (pair address nat)) : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 4; # list operation : pair @self (pair @sender (pair address nat)) : mutez : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # pair @self (pair @sender (pair address nat)) : mutez : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) LEVEL; # @level : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -3177,7 +3286,9 @@ code PUSH string "CT_INTEREST_OLD"; # string : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance = sp.local("borrowBalance", 0) # list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.borrows.contains(params.borrower): # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3187,6 +3298,7 @@ code MEM; # bool : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[params.borrower]) # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3196,10 +3308,11 @@ code GET; # option (pair nat nat) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 628; # int : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 638; # int : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if borrowSnapshot.value.principal > 0: # @some : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @some : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @some : nat : @some : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # nat : nat : @some : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3209,6 +3322,7 @@ code { SWAP; # nat : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # @some : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3221,7 +3335,7 @@ code EDIV; # option (pair nat nat) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 631; # int : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 641; # int : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } { @@ -3233,87 +3347,91 @@ code }; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } {}; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 5; # pair (nat %expScale) (address %fa2_TokenAddress) : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CDR; # address : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CONTRACT %transfer (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))); # option (contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount))))))) : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - IF_NONE + # repayAmount = sp.local("repayAmount", sp.min(borrowBalance.value, params.repayAmount)) # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter%repayBorrowBehalf : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # nat : nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + LE; # bool : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF { - PUSH int 43; # int : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - FAILWITH; # FAILED + DROP; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } - {}; # @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NIL (pair address (list (pair address (pair nat nat)))); # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NIL (pair address (pair nat nat)); # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 7; # @parameter%repayBorrowBehalf : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CDR; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 7; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # nat : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - COMPARE; # int : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - LE; # bool : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + { + SWAP; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # actualRepayAmount = sp.local("actualRepayAmount", sp.min(repayAmount.value, self.data.totalBorrows)) # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows) : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # nat : nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # nat : nat : nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + LE; # bool : nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - DROP; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { - SWAP; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - }; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 9; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 5; # pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 4; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SELF_ADDRESS; # @self : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair address (pair nat nat) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))) : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CONS; # list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 9; # @parameter%repayBorrowBehalf : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # address : address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUG 2; # address : big_map address (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET; # option (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.list([sp.record(from_ = sp.sender, txs = sp.list([sp.record(amount = repayAmount.value, to_ = sp.self_address, token_id = self.data.tokenId)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), self.data.fa2_TokenAddress, entrypoint='transfer').open_some()) # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 5; # pair (nat %expScale) (address %fa2_TokenAddress) : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # address : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONTRACT %transfer (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))); # option (contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount))))))) : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 263; # int : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 43; # int : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 10; # @parameter%repayBorrowBehalf : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CDR; # nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 9; # nat : nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # nat : nat : nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - COMPARE; # int : nat : nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - LE; # bool : nat : nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - IF + {}; # @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL (pair address (list (pair address (pair nat nat)))); # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL (pair address (pair nat nat)); # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 7; # nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 11; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 5; # pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId)) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @self (pair nat nat) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair @sender (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 3; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[params.borrower].principal = sp.as_nat(borrowBalance.value - repayAmount.value, message = 'SUBTRACTION_UNDERFLOW') # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 11; # @parameter%repayBorrowBehalf : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # address : address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # address : big_map address (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE { - DROP; # nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 266; # int : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED } - { - SWAP; # nat : nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - }; # nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 9; # nat : nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + {}; # @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 8; # nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 9; # nat : nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3329,6 +3447,7 @@ code SWAP; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[params.borrower].interestIndex = self.data.borrowIndex # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3347,7 +3466,7 @@ code GET; # option (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 265; # int : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 268; # int : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3362,27 +3481,12 @@ code PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUG 3; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # @parameter%repayBorrowBehalf : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CDR; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - COMPARE; # int : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - LE; # bool : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - IF - { - DROP; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - { - SWAP; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - }; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - actualRepayAmount.value, message = 'SUBTRACTION_UNDERFLOW') # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 7; # pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3409,6 +3513,7 @@ code SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUG 2; # list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.borrows[params.borrower].principal == 0: # list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3419,7 +3524,7 @@ code GET; # option (pair nat nat) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 268; # int : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 271; # int : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3428,6 +3533,7 @@ code EQ; # bool : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # sp.transfer(params.borrower, sp.tez(0), sp.contract(sp.TAddress, self.data.comptroller, entrypoint='removeFromLoans').open_some()) # list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3435,7 +3541,7 @@ code CONTRACT %removeFromLoans address; # option (contract address) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 270; # int : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 273; # int : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3451,6 +3557,8 @@ code }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { + # == seize == + # if ~ (self.data.ledger.contains(params.liquidator)): # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3458,11 +3566,11 @@ code DUP 2; # @parameter%seize : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) MEM; # bool : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NOT; # bool : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # bool : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[params.liquidator] = sp.record(approvals = {}, balance = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3482,8 +3590,8 @@ code SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - {}; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if ~ (self.data.borrows.contains(params.liquidator)): # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3491,11 +3599,11 @@ code DUP 2; # @parameter%seize : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) MEM; # bool : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NOT; # bool : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # bool : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[params.liquidator] = sp.record(interestIndex = 0, principal = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3511,17 +3619,15 @@ code PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - {}; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.view("seizeAllowed", sp.record(cTokenBorrowed = sp.sender, cTokenCollateral = sp.self_address), self.data.comptroller, sp.TBool).open_some(message = 'INVALID SEIZE ALLOWED VIEW'), 'CT_LIQUIDATE_SEIZE_COMPTROLLER_REJECTION') # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : address : address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair address address : address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair @sender @self : address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) VIEW "seizeAllowed" bool; # option bool : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { @@ -3535,6 +3641,7 @@ code PUSH string "CT_LIQUIDATE_SEIZE_COMPTROLLER_REJECTION"; # string : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(params.borrower != params.liquidator, 'CT_LIQUIDATE_SEIZE_LIQUIDATOR_IS_BORROWER') # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # @parameter%seize : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @parameter%seize : address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3547,13 +3654,13 @@ code PUSH string "CT_LIQUIDATE_SEIZE_LIQUIDATOR_IS_BORROWER"; # string : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) LEVEL; # @level : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -3562,6 +3669,7 @@ code PUSH string "CT_INTEREST_OLD"; # string : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # protocolSeizeTokens = sp.local("protocolSeizeTokens", (params.seizeTokens * self.data.protocolSeizeShareMantissa) // self.data.expScale) # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 5; # pair (nat %expScale) (address %fa2_TokenAddress) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3581,9 +3689,11 @@ code { CAR; # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 8; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.totalSupply > 0: # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3592,6 +3702,7 @@ code IF { DROP; # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3603,6 +3714,7 @@ code PUSH string "DIVISION_BY_ZERO"; # string : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3621,7 +3733,6 @@ code GET 4; # nat : nat : nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3631,10 +3742,9 @@ code ADD; # nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 671; # int : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 681; # int : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3650,6 +3760,7 @@ code }; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } {}; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.totalReserves += (excRate.value * protocolSeizeTokens.value) // self.data.expScale # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 9; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3672,12 +3783,12 @@ code ADD; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE 9; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUG 2; # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.totalSupply = sp.as_nat(self.data.totalSupply - protocolSeizeTokens.value, message = 'SUBTRACTION_UNDERFLOW') # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3688,6 +3799,7 @@ code SWAP; # @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE 10; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUG 2; # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[params.borrower].balance = sp.as_nat(self.data.ledger[params.borrower].balance - params.seizeTokens, message = 'SUBTRACTION_UNDERFLOW') # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @parameter%seize : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3699,14 +3811,13 @@ code GET; # option (pair (map address nat) nat) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 307; # int : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 310; # int : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3729,7 +3840,7 @@ code GET; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 334; # int : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 337; # int : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3738,6 +3849,7 @@ code SOME; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # address : option (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[params.liquidator].balance += sp.as_nat(params.seizeTokens - protocolSeizeTokens.value, message = 'SUBTRACTION_UNDERFLOW') # big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 9; # @parameter%seize : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # address : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3746,7 +3858,7 @@ code GET; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 335; # int : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 338; # int : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3757,7 +3869,6 @@ code GET 4; # nat : nat : nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3786,13 +3897,14 @@ code { IF_LEFT { + # == setInterestRateModel == + # sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN') # @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # address : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : address : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -3801,6 +3913,7 @@ code PUSH string "CT_NOT_ADMIN"; # string : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') # @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3817,6 +3930,7 @@ code FAILWITH; # FAILED }; # @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.activeOperations.add(9) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3833,30 +3947,31 @@ code PAIR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.unit, sp.tez(0), sp.self_entrypoint('accrueInterest')) # @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF %accrueInterest; # @self : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # contract unit : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH mutez 0; # mutez : contract unit : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNIT; # unit : mutez : contract unit : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @self : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNIT; # unit : mutez : @self : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(params, sp.tez(0), sp.self_entrypoint('setInterestRateModelInternal')) # list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF %setInterestRateModelInternal; # @self : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # contract address : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH mutez 0; # mutez : contract address : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 3; # @parameter%setInterestRateModel : mutez : contract address : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @self : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # @parameter%setInterestRateModel : mutez : @self : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { IF_LEFT { + # == setReserveFactor == + # sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN') # @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # address : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : address : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -3865,6 +3980,7 @@ code PUSH string "CT_NOT_ADMIN"; # string : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') # @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3881,6 +3997,7 @@ code FAILWITH; # FAILED }; # @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.activeOperations.add(10) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3897,21 +4014,23 @@ code PAIR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.unit, sp.tez(0), sp.self_entrypoint('accrueInterest')) # @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF %accrueInterest; # @self : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # contract unit : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH mutez 0; # mutez : contract unit : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNIT; # unit : mutez : contract unit : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @self : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNIT; # unit : mutez : @self : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(params, sp.tez(0), sp.self_entrypoint('setReserveFactorInternal')) # list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF %setReserveFactorInternal; # @self : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # contract nat : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH mutez 0; # mutez : contract nat : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 3; # @parameter%setReserveFactor : mutez : contract nat : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @self : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # @parameter%setReserveFactor : mutez : @self : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { + # == sweepFA12 == + # sp.transfer(sp.record(from_ = sp.self_address, to_ = self.data.administrator, value = params.amount), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), params.tokenAddress, entrypoint='transfer').open_some()) # @parameter%sweepFA12 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : @parameter%sweepFA12 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @parameter%sweepFA12 : list operation : @parameter%sweepFA12 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # address : list operation : @parameter%sweepFA12 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3931,8 +4050,7 @@ code CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # address : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : address : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair address (pair address nat) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @self (pair address nat) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3943,6 +4061,8 @@ code { IF_LEFT { + # == sweepFA2 == + # sp.verify((params.tokenAddress != self.data.fa2_TokenAddress) | (params.id != self.data.tokenId), 'CT_SWEEP_UNDERLYING') # @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 5; # pair (nat %expScale) (address %fa2_TokenAddress) : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3970,6 +4090,7 @@ code PUSH string "CT_SWEEP_UNDERLYING"; # string : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(amount = params.amount, to_ = self.data.administrator, token_id = params.id)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), params.tokenAddress, entrypoint='transfer').open_some()) # @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @parameter%sweepFA2 : list operation : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # address : list operation : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3996,15 +4117,17 @@ code PAIR 3; # pair address (pair nat nat) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair @self (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { + # == sweepMutez == + # if params: # @parameter%sweepMutez : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # sp.send(self.data.administrator, sp.balance) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4019,12 +4142,12 @@ code } {}; # @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) BALANCE; # @balance : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNIT; # unit : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNIT; # unit : @balance : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { + # sp.send(self.data.administrator, sp.balance) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4039,8 +4162,7 @@ code } {}; # @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) BALANCE; # @balance : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNIT; # unit : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNIT; # unit : @balance : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4049,10 +4171,11 @@ code { IF_LEFT { + # == transfer == + # sp.verify((params.from_ == sp.sender) | (self.data.ledger[params.from_].approvals[sp.sender] >= params.value), ('NotEnoughAllowance', (params.value, self.data.ledger[params.from_].approvals[sp.sender]))) # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 2; # @parameter%transfer : address : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # address : address : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # @parameter%transfer : @sender : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : @sender : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -4071,17 +4194,16 @@ code GET; # option (pair (map %approvals address nat) (nat %balance)) : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 404; # int : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 407; # int : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # map address nat : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : map address nat : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : map address nat : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET; # option nat : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 404; # int : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 407; # int : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4091,13 +4213,39 @@ code IF {} { - PUSH string "FA1.2_NotAllowed"; # string : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # verify # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # @parameter%transfer : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (map %approvals address nat) (nat %balance)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 408; # int : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # map address nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : map address nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 408; # int : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # @parameter%transfer : @some : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : @some : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair nat @some : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH string "NotEnoughAllowance"; # string : pair nat @some : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair string (pair nat @some) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : address : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NEQ; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -4106,6 +4254,7 @@ code PUSH string "CT_INTERNAL_CALL"; # string : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if ~ (self.data.ledger.contains(params.to_)): # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4113,11 +4262,11 @@ code DUP 2; # @parameter%transfer : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) MEM; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NOT; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[params.to_] = sp.record(approvals = {}, balance = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4137,8 +4286,8 @@ code SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - {}; # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if ~ (self.data.borrows.contains(params.to_)): # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4146,11 +4295,11 @@ code DUP 2; # @parameter%transfer : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) MEM; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NOT; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[params.to_] = sp.record(interestIndex = 0, principal = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4166,8 +4315,8 @@ code PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - {}; # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(cToken = sp.self_address, dst = params.to_, src = params.from_, transferTokens = params.value), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, dst = sp.TAddress, src = sp.TAddress, transferTokens = sp.TNat).layout((("cToken", "src"), ("dst", "transferTokens"))), self.data.comptroller, entrypoint='transferAllowed').open_some()) # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4176,7 +4325,7 @@ code CONTRACT %transferAllowed (pair (pair (address %cToken) (address %src)) (pair (address %dst) (nat %transferTokens))); # option (contract (pair (pair (address %cToken) (address %src)) (pair (address %dst) (nat %transferTokens)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 427; # int : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 431; # int : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4189,11 +4338,11 @@ code DUP 5; # @parameter%transfer : pair address nat : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # address : pair address nat : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : address : pair address nat : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : pair address nat : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair address address : pair address nat : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair (pair address address) (pair address nat) : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair @self address : pair address nat : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair @self address) (pair address nat) : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(self.data.ledger[params.from_].balance >= params.value, ('NotEnoughBalance', (params.value, self.data.ledger[params.from_].balance))) # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @parameter%transfer : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4205,7 +4354,7 @@ code GET; # option (pair (map address nat) nat) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 413; # int : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 417; # int : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4215,9 +4364,29 @@ code IF {} { - PUSH string "FA1.2_InsufficientBalance"; # string : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # verify # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes)) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # big_map address (pair (map address nat) nat) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter%transfer : big_map address (pair (map address nat) nat) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair (map address nat) nat) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (map address nat) nat) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 418; # int : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter%transfer : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair nat nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH string "NotEnoughBalance"; # string : pair nat nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair string (pair nat nat) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[params.from_].balance = sp.as_nat(self.data.ledger[params.from_].balance - params.value) # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @parameter%transfer : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4229,17 +4398,16 @@ code GET; # option (pair (map address nat) nat) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 416; # int : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 420; # int : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # nat : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 415; # int : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 419; # int : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4259,7 +4427,7 @@ code GET; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 415; # int : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 419; # int : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4268,6 +4436,7 @@ code SOME; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # address : option (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[params.to_].balance += params.value # big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 9; # @parameter%transfer : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # address : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4276,7 +4445,7 @@ code GET; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 417; # int : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 421; # int : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4297,14 +4466,15 @@ code SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUG 2; # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if params.from_ != sp.sender: # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # @parameter%transfer : address : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # address : address : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter%transfer : @sender : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : @sender : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NEQ; # bool : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # self.data.ledger[params.from_].approvals[sp.sender] = sp.as_nat(self.data.ledger[params.from_].approvals[sp.sender] - params.value) # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4321,7 +4491,7 @@ code GET; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 419; # int : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 423; # int : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4338,32 +4508,29 @@ code GET; # option (pair (map address nat) nat) : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 420; # int : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 424; # int : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # map address nat : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : map address nat : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : map address nat : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET; # option nat : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 420; # int : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 424; # int : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 419; # int : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 423; # int : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SOME; # option nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : option nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : option nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE 1; # @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SOME; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4377,6 +4544,7 @@ code SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUG 2; # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.ledger[params.from_].approvals[sp.sender] == 0: # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4387,17 +4555,16 @@ code GET; # option (pair (map address nat) nat) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 421; # int : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 425; # int : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # map address nat : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : map address nat : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : map address nat : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET; # option nat : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 421; # int : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 425; # int : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4405,6 +4572,7 @@ code EQ; # bool : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # del self.data.ledger[params.from_].approvals[sp.sender] # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DIG 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4421,7 +4589,7 @@ code GET; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 422; # int : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 426; # int : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4429,7 +4597,6 @@ code CAR; # map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NONE nat; # option nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : option nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : option nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE 1; # @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SOME; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4455,13 +4622,14 @@ code }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { + # == updateMetadata == + # sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN') # @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # address : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : address : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -4471,6 +4639,7 @@ code FAILWITH; # FAILED }; # @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%updateMetadata : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.metadata[params.key] = params.value # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%updateMetadata : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%updateMetadata : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%updateMetadata : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%updateMetadata : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4515,6 +4684,7 @@ view "accrualBlockNumber" unit nat { GET 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # sp.result(self.data.accrualBlockNumber) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) @@ -4524,7 +4694,9 @@ view "balanceOf" address nat { UNPAIR 3; # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # result = sp.local("result", 0) # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.ledger.contains(params): # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4537,6 +4709,7 @@ view DIG 2; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) DROP; # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter + # result.value = self.data.ledger[params].balance # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : @parameter CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : @parameter GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter @@ -4544,7 +4717,7 @@ view GET; # option (pair (map %approvals address nat) (nat %balance)) IF_NONE { - PUSH int 503; # int + PUSH int 509; # int FAILWITH; # FAILED } {}; # @some @@ -4558,12 +4731,15 @@ view SWAP; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : nat DROP; # nat }; # nat + # sp.result(result.value) # nat }; view - "borrowBalanceStoredView" address nat + "borrowBalanceStoredView" address (pair nat nat) { UNPAIR 3; # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance = sp.local("borrowBalance", 0) # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.borrows.contains(params): # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4572,6 +4748,7 @@ view MEM; # bool : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[params]) # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4580,10 +4757,11 @@ view GET; # option (pair (nat %interestIndex) (nat %principal)) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 628; # int : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 638; # int : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if borrowSnapshot.value.principal > 0: # @some : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @some : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @some : nat : @some : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # nat : nat : @some : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4597,59 +4775,67 @@ view DROP; # @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DIG 2; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) DROP; # @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) DUP; # @some : @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) CAR; # nat : @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - DIG 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some - CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @some - CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat : @some - GET 3; # nat : nat : @some - DIG 2; # @some : nat : nat - CDR; # nat : nat : nat - MUL; # nat : nat - EDIV; # option (pair nat nat) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat : @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # nat : nat : @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DIG 2; # @some : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CDR; # nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + MUL; # nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + EDIV; # option (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) IF_NONE { - PUSH int 631; # int + PUSH int 641; # int : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) FAILWITH; # FAILED } { - CAR; # nat - }; # nat + CAR; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + }; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) } { DROP; # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # nat : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : nat - DROP; # nat - }; # nat + DIG 2; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + }; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) } { SWAP; # @parameter : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # nat : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : nat - DROP; # nat - }; # nat + DIG 2; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + }; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat + # sp.result((borrowBalance.value, self.data.accrualBlockNumber)) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : nat + CAR; # nat : nat + SWAP; # nat : nat + PAIR; # pair nat nat }; view "comptroller" unit address { GET 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # sp.result(self.data.comptroller) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) GET 3; # address }; view - "exchangeRateStoredView" unit nat + "exchangeRateStoredView" unit (pair nat nat) { UNPAIR 3; # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 8; # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.totalSupply > 0: # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4660,6 +4846,7 @@ view DROP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) DROP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) PUSH nat 0; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) GET 10; # nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) @@ -4671,6 +4858,7 @@ view PUSH string "DIVISION_BY_ZERO"; # string : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) FAILWITH; # FAILED }; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) GET 10; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) @@ -4683,247 +4871,291 @@ view GET 7; # pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows) : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) CDR; # nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) PUSH nat 0; # nat : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - DIG 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : nat : nat - CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : nat : nat : nat : nat - GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : nat : nat : nat : nat - GET 4; # nat : nat : nat : nat : nat : nat - SUB; # int : nat : nat : nat : nat - ISNAT; # option nat : nat : nat : nat : nat - RENAME; # option nat : nat : nat : nat : nat + DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 4; # nat : nat : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + SUB; # int : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + ISNAT; # option nat : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) IF_NONE { - PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat + PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) FAILWITH; # FAILED } - {}; # @some : nat : nat : nat : nat - ADD; # nat : nat : nat : nat - SUB; # int : nat : nat - ISNAT; # option nat : nat : nat - RENAME; # option nat : nat : nat + {}; # @some : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + ADD; # nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + SUB; # int : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + ISNAT; # option nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) IF_NONE { - PUSH int 671; # int : nat : nat + PUSH int 681; # int : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) FAILWITH; # FAILED } - {}; # @some : nat : nat - MUL; # nat : nat - EDIV; # option (pair nat nat) + {}; # @some : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + MUL; # nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + EDIV; # option (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) IF_NONE { - PUSH int 257; # int + PUSH int 257; # int : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) FAILWITH; # FAILED } { - CAR; # nat - }; # nat + CAR; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + }; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) } { SWAP; # @parameter : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # nat : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : nat - DROP; # nat - }; # nat + DIG 2; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + }; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat + # sp.result((excRate.value, self.data.accrualBlockNumber)) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : nat + CAR; # nat : nat + SWAP; # nat : nat + PAIR; # pair nat nat }; view - "getAccountSnapshotView" address (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))) + "getAccountSnapshotView" address (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))) { UNPAIR 3; # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH (pair nat nat) (Pair 0 0); # pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH nat 0; # nat : pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # @parameter : nat : pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair @parameter nat : pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # @parameter : big_map address (pair (map %approvals address nat) (nat %balance)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - MEM; # bool : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if (self.data.accrualBlockNumber == sp.level) | (~ (self.data.ledger.contains(params))): # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + LEVEL; # @level : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : @level : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # @level : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @level : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @level : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : @level : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : @level : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # nat : @level : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + COMPARE; # int : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + EQ; # bool : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) IF { - DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - LEVEL; # @level : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - COMPARE; # int : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - EQ; # bool : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - IF - {} - { - PUSH string "CT_INTEREST_OLD"; # string : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - FAILWITH; # FAILED - }; # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # @parameter : big_map address (pair (map %approvals address nat) (nat %balance)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET; # option (pair (map %approvals address nat) (nat %balance)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - IF_NONE - { - PUSH int 573; # int : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - FAILWITH; # FAILED - } - {}; # @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CDR; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UPDATE 3; # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH nat 0; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # big_map address (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 4; # @parameter : big_map address (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - MEM; # bool : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH bool True; # bool : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + } + { + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 2; # @parameter : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + MEM; # bool : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + NOT; # bool : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + }; # bool : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + IF + { + # compute_CToken_571 = sp.local("compute_CToken_571", sp.record(account = params, borrowBalance = 0, cTokenBalance = 0, exchangeRateMantissa = 0)) # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + PUSH (pair nat nat) (Pair 0 0); # pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + PUSH nat 0; # nat : pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # @parameter : nat : pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + PAIR; # pair @parameter nat : pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + PAIR; # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # if self.data.ledger.contains(params): # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # @parameter : big_map address (pair (map %approvals address nat) (nat %balance)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + MEM; # bool : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) IF { - DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # big_map address (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 4; # @parameter : big_map address (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET; # option (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + LEVEL; # @level : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + COMPARE; # int : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + EQ; # bool : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + IF + {} + { + PUSH string "CT_INTEREST_OLD"; # string : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + FAILWITH; # FAILED + }; # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # compute_CToken_571.value.cTokenBalance = self.data.ledger[params].balance # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # @parameter : big_map address (pair (map %approvals address nat) (nat %balance)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET; # option (pair (map %approvals address nat) (nat %balance)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) IF_NONE { - PUSH int 628; # int : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 579; # int : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) FAILWITH; # FAILED } - {}; # @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH nat 0; # nat : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 2; # @some : nat : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CDR; # nat : nat : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - COMPARE; # int : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GT; # bool : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + {}; # @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CDR; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + UPDATE 3; # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # borrowBalance = sp.local("borrowBalance", 0) # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + PUSH nat 0; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # if self.data.borrows.contains(params): # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # big_map address (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 4; # @parameter : big_map address (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + MEM; # bool : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) IF { - SWAP; # nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # @some : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 3; # nat : nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 2; # @some : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CDR; # nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - MUL; # nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - EDIV; # option (pair nat nat) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[params]) # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # big_map address (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 4; # @parameter : big_map address (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET; # option (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) IF_NONE { - PUSH int 631; # int : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 638; # int : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) FAILWITH; # FAILED } + {}; # @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # if borrowSnapshot.value.principal > 0: # @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + PUSH nat 0; # nat : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 2; # @some : nat : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CDR; # nat : nat : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + COMPARE; # int : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GT; # bool : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + IF { - CAR; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - }; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP; # @some : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # nat : nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DIG 2; # @some : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CDR; # nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + MUL; # nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + EDIV; # option (pair nat nat) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + IF_NONE + { + PUSH int 641; # int : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + FAILWITH; # FAILED + } + { + CAR; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + }; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + } + { + DROP; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + }; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) } - { - DROP; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - }; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - {}; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # pair (pair @parameter nat) (pair nat nat) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # pair @parameter nat : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # @parameter : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # nat : @parameter : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # @parameter : nat : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair @parameter nat : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair (pair @parameter nat) (pair nat nat) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 8; # nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH nat 0; # nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 10; # nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - COMPARE; # int : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GT; # bool : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - IF - { - DROP 2; # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # @parameter : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 2; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - DROP; # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - PUSH nat 0; # nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - GET 10; # nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - COMPARE; # int : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - GT; # bool : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + {}; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + SWAP; # pair (pair @parameter nat) (pair nat nat) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # compute_CToken_571.value.borrowBalance = borrowBalance.value # pair (pair @parameter nat) (pair nat nat) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + UNPAIR; # pair @parameter nat : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # @parameter : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # nat : @parameter : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + SWAP; # @parameter : nat : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + PAIR; # pair @parameter nat : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + PAIR; # pair (pair @parameter nat) (pair nat nat) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + SWAP; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 8; # nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # if self.data.totalSupply > 0: # nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + PUSH nat 0; # nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 10; # nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + COMPARE; # int : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GT; # bool : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) IF - {} - { - PUSH string "DIVISION_BY_ZERO"; # string : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - FAILWITH; # FAILED - }; # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - GET 10; # nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - GET 5; # pair (nat %expScale) (address %fa2_TokenAddress) : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - CAR; # nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - GET 9; # nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - GET 7; # pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows) : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - CDR; # nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - PUSH nat 0; # nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - DIG 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - GET 4; # nat : nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - SUB; # int : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - ISNAT; # option nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - RENAME; # option nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - IF_NONE - { - PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - FAILWITH; # FAILED - } - {}; # @some : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - ADD; # nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - SUB; # int : nat : nat : pair (pair @parameter nat) (pair nat nat) - ISNAT; # option nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - RENAME; # option nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - IF_NONE { - PUSH int 671; # int : nat : nat : pair (pair @parameter nat) (pair nat nat) - FAILWITH; # FAILED - } - {}; # @some : nat : nat : pair (pair @parameter nat) (pair nat nat) - MUL; # nat : nat : pair (pair @parameter nat) (pair nat nat) - EDIV; # option (pair nat nat) : pair (pair @parameter nat) (pair nat nat) - IF_NONE - { - PUSH int 257; # int : pair (pair @parameter nat) (pair nat nat) - FAILWITH; # FAILED + DROP 2; # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + SWAP; # @parameter : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + PUSH nat 0; # nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 10; # nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + COMPARE; # int : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GT; # bool : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + IF + {} + { + PUSH string "DIVISION_BY_ZERO"; # string : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + FAILWITH; # FAILED + }; # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 10; # nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 5; # pair (nat %expScale) (address %fa2_TokenAddress) : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 9; # nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 7; # pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows) : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CDR; # nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + PUSH nat 0; # nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DIG 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + GET 4; # nat : nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + SUB; # int : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + ISNAT; # option nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + IF_NONE + { + PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + FAILWITH; # FAILED + } + {}; # @some : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + ADD; # nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + SUB; # int : nat : nat : pair (pair @parameter nat) (pair nat nat) + ISNAT; # option nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + IF_NONE + { + PUSH int 681; # int : nat : nat : pair (pair @parameter nat) (pair nat nat) + FAILWITH; # FAILED + } + {}; # @some : nat : nat : pair (pair @parameter nat) (pair nat nat) + MUL; # nat : nat : pair (pair @parameter nat) (pair nat nat) + EDIV; # option (pair nat nat) : pair (pair @parameter nat) (pair nat nat) + IF_NONE + { + PUSH int 257; # int : pair (pair @parameter nat) (pair nat nat) + FAILWITH; # FAILED + } + { + CAR; # nat : pair (pair @parameter nat) (pair nat nat) + }; # nat : pair (pair @parameter nat) (pair nat nat) } { - CAR; # nat : pair (pair @parameter nat) (pair nat nat) + SWAP; # nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DIG 2; # @parameter : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DIG 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) + DROP; # nat : pair (pair @parameter nat) (pair nat nat) }; # nat : pair (pair @parameter nat) (pair nat nat) + # compute_CToken_571.value.exchangeRateMantissa = excRate.value # nat : pair (pair @parameter nat) (pair nat nat) + UPDATE 4; # pair (pair @parameter nat) (pair nat nat) } { - SWAP; # nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 2; # @parameter : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # nat : pair (pair @parameter nat) (pair nat nat) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 2; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : nat : pair (pair @parameter nat) (pair nat nat) - DROP; # nat : pair (pair @parameter nat) (pair nat nat) - }; # nat : pair (pair @parameter nat) (pair nat nat) - UPDATE 4; # pair (pair @parameter nat) (pair nat nat) + SWAP; # @parameter : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) + DROP; # pair (pair @parameter nat) (pair nat nat) + }; # pair (pair @parameter nat) (pair nat nat) + # sp.result(sp.some(compute_CToken_571.value)) # pair (pair @parameter nat) (pair nat nat) + SOME; # option (pair (pair @parameter nat) (pair nat nat)) } { - SWAP; # @parameter : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (pair (nat %expScale) (address %fa2_TokenAddress)) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (nat %tokenId))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # pair (pair @parameter nat) (pair nat nat) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or (list (pair (pair address nat) nat)) address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair (pair nat address) (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : pair (pair @parameter nat) (pair nat nat) - DROP; # pair (pair @parameter nat) (pair nat nat) - }; # pair (pair @parameter nat) (pair nat nat) + DROP 2; # + # sp.result(sp.none) # + NONE (pair (pair address nat) (pair nat nat)); # option (pair (pair address nat) (pair nat nat)) + }; # option (pair (pair address nat) (pair nat nat)) }; \ No newline at end of file diff --git a/compiled_contracts/CUSDt/step_000_cont_0_sizes.csv b/compiled_contracts/CUSDt/step_000_cont_0_sizes.csv index 6d0e2af4..d0205912 100644 --- a/compiled_contracts/CUSDt/step_000_cont_0_sizes.csv +++ b/compiled_contracts/CUSDt/step_000_cont_0_sizes.csv @@ -1,2 +1,2 @@ -storage,5466 -contract,21211 \ No newline at end of file +storage,5642 +contract,21117 \ No newline at end of file diff --git a/compiled_contracts/CUSDt/step_000_cont_0_storage.json b/compiled_contracts/CUSDt/step_000_cont_0_storage.json index dd3167d0..8d9dc645 100644 --- a/compiled_contracts/CUSDt/step_000_cont_0_storage.json +++ b/compiled_contracts/CUSDt/step_000_cont_0_storage.json @@ -130,14 +130,13 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_SET_PENDING_ADMIN" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_PENDING_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "DUP" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "812" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "822" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, @@ -199,9 +198,7 @@ ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -223,7 +220,7 @@ ], "annots": [ "%getBorrowRate" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "744" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "754" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "9" } ] }, @@ -274,9 +271,7 @@ ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "NEQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -285,9 +280,82 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [], + [ + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { + "prim": "PUSH", + "args": [ + { "prim": "option", "args": [ { "prim": "pair", "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] } ] }, + { "prim": "Some", "args": [ { "prim": "Pair", "args": [ [], { "int": "0" } ] } ] } + ] + }, + { "prim": "SENDER" }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "SWAP" } + ] + ] + }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "SENDER" }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [], + [ + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { + "prim": "PUSH", + "args": [ + { "prim": "option", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }, + { "prim": "Some", "args": [ { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } ] } + ] + }, + { "prim": "SENDER" }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" } + ] + ] + }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "SENDER" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "454" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "460" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, @@ -303,9 +371,8 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "455" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "461" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "SIZE" }, { "prim": "COMPARE" }, @@ -313,16 +380,30 @@ ] ] }, - { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA1.2_MaxApprovalsReached" } ] }, { "prim": "FAILWITH" } ] ] }, + { + "prim": "IF", + "args": [ + [], + [ + { + "prim": "PUSH", + "args": [ + { "prim": "pair", "args": [ { "prim": "string" }, { "prim": "unit" } ] }, + { "prim": "Pair", "args": [ { "string": "FA1.2_MaxApprovalsReached" }, { "prim": "Unit" } ] } + ] + }, + { "prim": "FAILWITH" } + ] + ] + }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "457" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "463" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, @@ -343,7 +424,29 @@ ] ] }, - { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA1.2_UnsafeAllowanceChange" } ] }, { "prim": "FAILWITH" } ] ] }, + { + "prim": "IF", + "args": [ + [], + [ + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "SENDER" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "463" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] } ], [] ] }, + { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "UnsafeAllowanceChange" } ] }, + { "prim": "PAIR" }, + { "prim": "FAILWITH" } + ] + ] + }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, @@ -363,11 +466,10 @@ { "prim": "UNPAIR" }, { "prim": "DUP" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "462" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "468" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP" }, { "prim": "CAR" }, { "prim": "NONE", "args": [ { "prim": "nat" } ] }, @@ -397,11 +499,10 @@ { "prim": "UNPAIR" }, { "prim": "DUP" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "464" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "470" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP" }, { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "10" } ] }, @@ -455,7 +556,6 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_SENDER_NOT_IRM" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -498,11 +598,9 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "759" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "769" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "MUL" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, @@ -593,7 +691,6 @@ { "prim": "DROP" }, { "prim": "DIG", "args": [ { "int": "5" } ] }, { "prim": "DROP" }, - { "prim": "RENAME" }, { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "PAIR" }, @@ -643,7 +740,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -695,9 +791,7 @@ ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -745,7 +839,6 @@ { "prim": "GET", "args": [ { "int": "9" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "SWAP" }, @@ -813,7 +906,6 @@ { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "CONS" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR" }, { "prim": "CONS" }, { "prim": "TRANSFER_TOKENS" }, @@ -849,7 +941,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -930,7 +1021,6 @@ { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "CDR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INVALID_CASH_SENDER" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -955,7 +1045,6 @@ { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INVALID_CASH_DATA" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, @@ -1025,7 +1114,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -1080,9 +1168,7 @@ ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -1159,7 +1245,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -1213,9 +1298,7 @@ ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -1250,7 +1333,6 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -1320,7 +1402,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, diff --git a/compiled_contracts/CUSDt/step_000_cont_0_storage.tz b/compiled_contracts/CUSDt/step_000_cont_0_storage.tz index 5d71ae94..880a993d 100644 --- a/compiled_contracts/CUSDt/step_000_cont_0_storage.tz +++ b/compiled_contracts/CUSDt/step_000_cont_0_storage.tz @@ -1 +1 @@ -(Pair (Pair (Pair (Pair (Pair 0 (Pair {} "KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2")) (Pair 1000000000000000000 (Pair 800000000000 0))) (Pair (Pair {} (Pair "KT1DiWBT6RBC97iWrvLHRzKL7AWQKorBiuRG" 0)) (Pair (Pair 1000000000000000000 "KT1XnTn74bUtxHfDtBmm2bGZAQfhPbvKWR8o") (Pair 500000000000000000 1000000000000000000)))) (Pair (Pair (Pair "KT1Q2BBtfT9obGMAZ32L6esSjm8FG9NWiBb9" (Pair {} {Elt "" 0x74657a6f732d73746f726167653a64617461; Elt "data" 0x7b226e616d65223a202254657a46696e20496e7465726573742d42656172696e672055534420546574686572222c20226465736372697074696f6e223a2022496e7465726573742d62656172696e6720746f6b656e20666f7220555344205465746865722028555344742920737570706c69656420746f207468652054657a46696e206c656e64696e672070726f746f636f6c2e222c202276657273696f6e223a2022332e30222c2022617574686f7273223a205b2254657a6f732046696e616e63652050726f746f636f6c225d2c2022686f6d6570616765223a202268747470733a2f2f74657a6f732e66696e616e6365222c2022696e7465726661636573223a205b22545a49502d303037222c2022545a49502d303136225d7d})) (Pair None (Pair 100000000000000 50000000000000000))) (Pair (Pair 1000000000000000000 (Pair 0 0)) (Pair (Pair {Elt 0 (Pair 0 {Elt "decimals" 0x36; Elt "name" 0x54657a46696e20496e7465726573742d42656172696e672055534420546574686572; Elt "symbol" 0xea9cb055534474})} 0) (Pair 0 0))))) {Elt 0 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; DUP; GET 3; GET 3; IF_NONE { PUSH string "CT_NOT_SET_PENDING_ADMIN"; FAILWITH } {}; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_PENDING_ADMIN"; FAILWITH }; DUP; GET 3; GET 3; IF_NONE { PUSH int 812; FAILWITH } {}; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 1 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; NIL operation; DUP 3; GET 3; CAR; CAR; CONTRACT %getBorrowRate (pair (pair (nat %borrows) (nat %cash)) (pair (contract %cb nat) (nat %reserves))); IF_NONE { PUSH int 744; FAILWITH } {}; PUSH mutez 0; DUP 5; GET 9; DIG 4; PAIR; DUP 5; CAR; GET 3; GET 4; DUP 6; GET 7; CDR; PAIR; PAIR; TRANSFER_TOKENS; CONS; PAIR }; Elt 2 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; RENAME; SENDER; RENAME; COMPARE; NEQ; IF {} { PUSH string "CT_INTERNAL_CALL"; FAILWITH }; DUP 2; GET 3; CAR; GET 3; SENDER; RENAME; GET; IF_NONE { PUSH int 454; FAILWITH } {}; CAR; DUP 2; CAR; MEM; IF { PUSH bool True } { PUSH nat 1000; DUP 3; GET 3; CAR; GET 3; SENDER; RENAME; GET; IF_NONE { PUSH int 455; FAILWITH } {}; CAR; SIZE; COMPARE; LT }; IF {} { PUSH string "FA1.2_MaxApprovalsReached"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; CAR; GET 3; SENDER; RENAME; GET; IF_NONE { PUSH int 457; FAILWITH } {}; CAR; DUP 3; CAR; GET; IF_NONE { PUSH nat 0 } {}; COMPARE; EQ; IF { PUSH bool True } { PUSH nat 0; DUP 2; CDR; COMPARE; EQ }; IF {} { PUSH string "FA1.2_UnsafeAllowanceChange"; FAILWITH }; PUSH nat 0; DUP 2; CDR; COMPARE; EQ; IF { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; DUP; SENDER; RENAME; DUP; DUG 2; GET; IF_NONE { PUSH int 462; FAILWITH } {}; DUP; CAR; NONE nat; DIG 10; CAR; UPDATE; UPDATE 1; SOME; SWAP; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR } { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; DUP; SENDER; RENAME; DUP; DUG 2; GET; IF_NONE { PUSH int 464; FAILWITH } {}; DUP; CAR; DUP 10; CDR; SOME; DIG 10; CAR; UPDATE; UPDATE 1; SOME; SWAP; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR }; NIL operation; PAIR }; Elt 3 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH }; DUP 2; GET 3; CAR; CAR; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_SENDER_NOT_IRM"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 8; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 8; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; CAR; GET 5; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_BORROW_RATE"; FAILWITH }; DUP 2; CAR; CAR; CAR; CAR; LEVEL; RENAME; SUB; ISNAT; RENAME; IF_NONE { PUSH int 759; FAILWITH } {}; DUP 2; MUL; DUP 3; CAR; GET 5; CAR; DUP 4; GET 7; CDR; DUP 3; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; DUP 4; GET 7; CDR; DUP 2; ADD; DIG 4; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; CAR; DIG 5; SWAP; PAIR; PAIR; SWAP; PAIR; SWAP; PAIR; SWAP; PAIR; DUG 3; DUP 4; GET 9; DUP 5; CAR; GET 5; CAR; DUP 3; DUP 7; GET 3; GET 6; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; DIG 4; SWAP; UPDATE 9; DUG 3; DUP 4; CAR; CAR; GET 3; DUP 5; CAR; GET 5; CAR; DUP 6; CAR; CAR; GET 3; DUP 5; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; DIG 4; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; DIG 4; PAIR; SWAP; CDR; LEVEL; DIG 5; DROP; DIG 5; DROP; DIG 5; DROP; RENAME; PAIR; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 4 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } } } { PUSH int -1; FAILWITH }; DUP; CAR; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; EMPTY_SET nat; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 5 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 12; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 12; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP; DUP 3; CAR; GET 3; GET 4; COMPARE; GE; IF {} { PUSH string "CT_INSUFFICIENT_CASH"; FAILWITH }; DUP 2; GET 9; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_REDUCE_AMOUNT"; FAILWITH }; DUP; DUP 3; GET 9; SUB; ISNAT; RENAME; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; DIG 2; SWAP; UPDATE 9; SWAP; NIL operation; DUP 3; CAR; GET 5; CDR; CONTRACT %transfer (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))); IF_NONE { PUSH int 43; FAILWITH } {}; PUSH mutez 0; NIL (pair address (list (pair address (pair nat nat)))); NIL (pair address (pair nat nat)); DIG 5; DUP 7; GET 5; GET 4; DUP 8; CAR; CAR; CAR; GET 4; PAIR 3; CONS; SELF_ADDRESS; RENAME; PAIR; CONS; TRANSFER_TOKENS; CONS; PAIR }; Elt 6 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } }; DUP; CAR; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 7 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 13; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 13; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; GET 5; CDR; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INVALID_CASH_SENDER"; FAILWITH }; PUSH nat 1; DUP 2; SIZE; COMPARE; EQ; IF {} { PUSH string "CT_INVALID_CASH_DATA"; FAILWITH }; DUP; ITER { DUP 3; GET 5; GET 4; DUP 2; CAR; CDR; COMPARE; EQ; IF {} { PUSH string "CT_INVALID_CASH_DATA"; FAILWITH }; SELF_ADDRESS; RENAME; DUP 2; CAR; CAR; COMPARE; EQ; IF {} { PUSH string "CT_INVALID_CASH_DATA"; FAILWITH }; DIG 2; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CAR; DIG 5; CDR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; SWAP }; DROP; NIL operation; PAIR }; Elt 8 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } }; DUP 2; CAR; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; DIG 5; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; NIL operation; PAIR }; Elt 9 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT {} { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } }; SELF_ADDRESS; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 9; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 9; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; CDR; DIG 4; PAIR; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 10 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } {} } { PUSH int -1; FAILWITH } } }; DUP 2; CAR; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; DIG 4; SOME; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 11 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } }; SELF_ADDRESS; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 10; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 10; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; CAR; CAR; CAR; LEVEL; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTEREST_OLD"; FAILWITH }; DUP 2; GET 5; CAR; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_RESERVE_FACTOR"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 12 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } }; DUP 2; CAR; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; DIG 5; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }}) \ No newline at end of file +(Pair (Pair (Pair (Pair (Pair 0 (Pair {} "KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2")) (Pair 1000000000000000000 (Pair 800000000000 0))) (Pair (Pair {} (Pair "KT1DiWBT6RBC97iWrvLHRzKL7AWQKorBiuRG" 0)) (Pair (Pair 1000000000000000000 "KT1XnTn74bUtxHfDtBmm2bGZAQfhPbvKWR8o") (Pair 500000000000000000 1000000000000000000)))) (Pair (Pair (Pair "KT1Q2BBtfT9obGMAZ32L6esSjm8FG9NWiBb9" (Pair {} {Elt "" 0x74657a6f732d73746f726167653a64617461; Elt "data" 0x7b226e616d65223a202254657a46696e20496e7465726573742d42656172696e672055534420546574686572222c20226465736372697074696f6e223a2022496e7465726573742d62656172696e6720746f6b656e20666f7220555344205465746865722028555344742920737570706c69656420746f207468652054657a46696e206c656e64696e672070726f746f636f6c2e222c202276657273696f6e223a2022332e30222c2022617574686f7273223a205b2254657a6f732046696e616e63652050726f746f636f6c225d2c2022686f6d6570616765223a202268747470733a2f2f74657a6f732e66696e616e6365222c2022696e7465726661636573223a205b22545a49502d303037222c2022545a49502d303136225d7d})) (Pair None (Pair 100000000000000 50000000000000000))) (Pair (Pair 1000000000000000000 (Pair 0 0)) (Pair (Pair {Elt 0 (Pair 0 {Elt "decimals" 0x36; Elt "name" 0x54657a46696e20496e7465726573742d42656172696e672055534420546574686572; Elt "symbol" 0xea9cb055534474})} 0) (Pair 0 0))))) {Elt 0 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; DUP; GET 3; GET 3; IF_NONE { PUSH string "CT_NOT_SET_PENDING_ADMIN"; FAILWITH } {}; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_PENDING_ADMIN"; FAILWITH }; DUP; GET 3; GET 3; IF_NONE { PUSH int 822; FAILWITH } {}; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 1 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; NIL operation; DUP 3; GET 3; CAR; CAR; CONTRACT %getBorrowRate (pair (pair (nat %borrows) (nat %cash)) (pair (contract %cb nat) (nat %reserves))); IF_NONE { PUSH int 754; FAILWITH } {}; PUSH mutez 0; DUP 5; GET 9; DIG 4; PAIR; DUP 5; CAR; GET 3; GET 4; DUP 6; GET 7; CDR; PAIR; PAIR; TRANSFER_TOKENS; CONS; PAIR }; Elt 2 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; SENDER; COMPARE; NEQ; IF {} { PUSH string "CT_INTERNAL_CALL"; FAILWITH }; DUP 2; GET 3; CAR; GET 3; SENDER; MEM; IF {} { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH (option (pair (map address nat) nat)) (Some (Pair {} 0)); SENDER; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR; SWAP }; DUP 2; CAR; GET 3; CAR; SENDER; MEM; IF {} { SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; PUSH (option (pair nat nat)) (Some (Pair 0 0)); SENDER; UPDATE; PAIR; PAIR; SWAP; PAIR; PAIR; SWAP }; DUP 2; GET 3; CAR; GET 3; SENDER; GET; IF_NONE { PUSH int 460; FAILWITH } {}; CAR; DUP 2; CAR; MEM; IF { PUSH bool True } { PUSH nat 1000; DUP 3; GET 3; CAR; GET 3; SENDER; GET; IF_NONE { PUSH int 461; FAILWITH } {}; CAR; SIZE; COMPARE; LT }; IF {} { PUSH (pair string unit) (Pair "FA1.2_MaxApprovalsReached" Unit); FAILWITH }; PUSH nat 0; DUP 3; GET 3; CAR; GET 3; SENDER; GET; IF_NONE { PUSH int 463; FAILWITH } {}; CAR; DUP 3; CAR; GET; IF_NONE { PUSH nat 0 } {}; COMPARE; EQ; IF { PUSH bool True } { PUSH nat 0; DUP 2; CDR; COMPARE; EQ }; IF {} { DUP 2; GET 3; CAR; GET 3; SENDER; GET; IF_NONE { PUSH int 463; FAILWITH } {}; CAR; DUP 2; CAR; GET; IF_NONE { PUSH nat 0 } {}; PUSH string "UnsafeAllowanceChange"; PAIR; FAILWITH }; PUSH nat 0; DUP 2; CDR; COMPARE; EQ; IF { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; DUP; SENDER; DUP; DUG 2; GET; IF_NONE { PUSH int 468; FAILWITH } {}; DUP; CAR; NONE nat; DIG 10; CAR; UPDATE; UPDATE 1; SOME; SWAP; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR } { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; DUP; SENDER; DUP; DUG 2; GET; IF_NONE { PUSH int 470; FAILWITH } {}; DUP; CAR; DUP 10; CDR; SOME; DIG 10; CAR; UPDATE; UPDATE 1; SOME; SWAP; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR }; NIL operation; PAIR }; Elt 3 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH }; DUP 2; GET 3; CAR; CAR; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_SENDER_NOT_IRM"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 8; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 8; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; CAR; GET 5; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_BORROW_RATE"; FAILWITH }; DUP 2; CAR; CAR; CAR; CAR; LEVEL; SUB; ISNAT; IF_NONE { PUSH int 769; FAILWITH } {}; DUP 2; MUL; DUP 3; CAR; GET 5; CAR; DUP 4; GET 7; CDR; DUP 3; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; DUP 4; GET 7; CDR; DUP 2; ADD; DIG 4; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; CAR; DIG 5; SWAP; PAIR; PAIR; SWAP; PAIR; SWAP; PAIR; SWAP; PAIR; DUG 3; DUP 4; GET 9; DUP 5; CAR; GET 5; CAR; DUP 3; DUP 7; GET 3; GET 6; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; DIG 4; SWAP; UPDATE 9; DUG 3; DUP 4; CAR; CAR; GET 3; DUP 5; CAR; GET 5; CAR; DUP 6; CAR; CAR; GET 3; DUP 5; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; DIG 4; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; DIG 4; PAIR; SWAP; CDR; LEVEL; DIG 5; DROP; DIG 5; DROP; DIG 5; DROP; PAIR; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 4 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } } } { PUSH int -1; FAILWITH }; DUP; CAR; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; EMPTY_SET nat; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 5 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 12; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 12; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP; DUP 3; CAR; GET 3; GET 4; COMPARE; GE; IF {} { PUSH string "CT_INSUFFICIENT_CASH"; FAILWITH }; DUP 2; GET 9; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_REDUCE_AMOUNT"; FAILWITH }; DUP; DUP 3; GET 9; SUB; ISNAT; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; DIG 2; SWAP; UPDATE 9; SWAP; NIL operation; DUP 3; CAR; GET 5; CDR; CONTRACT %transfer (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))); IF_NONE { PUSH int 43; FAILWITH } {}; PUSH mutez 0; NIL (pair address (list (pair address (pair nat nat)))); NIL (pair address (pair nat nat)); DIG 5; DUP 7; GET 5; GET 4; DUP 8; CAR; CAR; CAR; GET 4; PAIR 3; CONS; SELF_ADDRESS; PAIR; CONS; TRANSFER_TOKENS; CONS; PAIR }; Elt 6 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } }; DUP; CAR; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 7 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 13; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 13; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; GET 5; CDR; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INVALID_CASH_SENDER"; FAILWITH }; PUSH nat 1; DUP 2; SIZE; COMPARE; EQ; IF {} { PUSH string "CT_INVALID_CASH_DATA"; FAILWITH }; DUP; ITER { DUP 3; GET 5; GET 4; DUP 2; CAR; CDR; COMPARE; EQ; IF {} { PUSH string "CT_INVALID_CASH_DATA"; FAILWITH }; SELF_ADDRESS; DUP 2; CAR; CAR; COMPARE; EQ; IF {} { PUSH string "CT_INVALID_CASH_DATA"; FAILWITH }; DIG 2; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CAR; DIG 5; CDR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; SWAP }; DROP; NIL operation; PAIR }; Elt 8 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } }; DUP 2; CAR; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; DIG 5; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; NIL operation; PAIR }; Elt 9 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT {} { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } }; SELF_ADDRESS; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 9; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 9; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; CDR; DIG 4; PAIR; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 10 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } {} } { PUSH int -1; FAILWITH } } }; DUP 2; CAR; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; DIG 4; SOME; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 11 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } }; SELF_ADDRESS; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 10; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 10; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; CAR; CAR; CAR; LEVEL; COMPARE; EQ; IF {} { PUSH string "CT_INTEREST_OLD"; FAILWITH }; DUP 2; GET 5; CAR; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_RESERVE_FACTOR"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 12 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } }; DUP 2; CAR; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; DIG 5; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }}) \ No newline at end of file diff --git a/compiled_contracts/CUSDt/step_000_cont_0_types.py b/compiled_contracts/CUSDt/step_000_cont_0_types.py index 1f124713..40c08e8b 100644 --- a/compiled_contracts/CUSDt/step_000_cont_0_types.py +++ b/compiled_contracts/CUSDt/step_000_cont_0_types.py @@ -1,6 +1,6 @@ import smartpy as sp tstorage = sp.TRecord(accrualBlockNumber = sp.TNat, activeOperations = sp.TSet(sp.TNat), administrator = sp.TAddress, borrowIndex = sp.TNat, borrowRateMaxMantissa = sp.TNat, borrowRatePerBlock = sp.TNat, borrows = sp.TBigMap(sp.TAddress, sp.TRecord(interestIndex = sp.TNat, principal = sp.TNat).layout(("interestIndex", "principal"))), comptroller = sp.TAddress, currentCash = sp.TNat, expScale = sp.TNat, fa2_TokenAddress = sp.TAddress, halfExpScale = sp.TNat, initialExchangeRateMantissa = sp.TNat, interestRateModel = sp.TAddress, ledger = sp.TBigMap(sp.TAddress, sp.TRecord(approvals = sp.TMap(sp.TAddress, sp.TNat), balance = sp.TNat).layout(("approvals", "balance"))), metadata = sp.TBigMap(sp.TString, sp.TBytes), pendingAdministrator = sp.TOption(sp.TAddress), protocolSeizeShareMantissa = sp.TNat, reserveFactorMantissa = sp.TNat, reserveFactorMaxMantissa = sp.TNat, supplyRatePerBlock = sp.TNat, tokenId = sp.TNat, token_metadata = sp.TBigMap(sp.TNat, sp.TRecord(token_id = sp.TNat, token_info = sp.TMap(sp.TString, sp.TBytes)).layout(("token_id", "token_info"))), totalBorrows = sp.TNat, totalReserves = sp.TNat, totalSupply = sp.TNat).layout((((("accrualBlockNumber", ("activeOperations", "administrator")), ("borrowIndex", ("borrowRateMaxMantissa", "borrowRatePerBlock"))), (("borrows", ("comptroller", "currentCash")), (("expScale", "fa2_TokenAddress"), ("halfExpScale", "initialExchangeRateMantissa")))), ((("interestRateModel", ("ledger", "metadata")), ("pendingAdministrator", ("protocolSeizeShareMantissa", "reserveFactorMantissa"))), (("reserveFactorMaxMantissa", ("supplyRatePerBlock", "tokenId")), (("token_metadata", "totalBorrows"), ("totalReserves", "totalSupply")))))) -tparameter = sp.TVariant(acceptGovernance = sp.TUnit, accrueInterest = sp.TUnit, accrueInterestInternal = sp.TContract(sp.TNat), addReserves = sp.TNat, addReservesInternal = sp.TRecord(addAmount = sp.TNat, originalSender = sp.TAddress).layout(("addAmount", "originalSender")), approve = sp.TRecord(spender = sp.TAddress, value = sp.TNat).layout(("spender", "value")), borrow = sp.TNat, borrowBalanceStored = sp.TPair(sp.TAddress, sp.TContract(sp.TNat)), doAccrueInterest = sp.TNat, exchangeRateStored = sp.TPair(sp.TUnit, sp.TContract(sp.TNat)), getAccountSnapshot = sp.TPair(sp.TAddress, sp.TContract(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))), getAllowance = sp.TPair(sp.TRecord(owner = sp.TAddress, spender = sp.TAddress).layout(("owner", "spender")), sp.TContract(sp.TNat)), getBalance = sp.TPair(sp.TAddress, sp.TContract(sp.TNat)), getBalanceOfUnderlying = sp.TPair(sp.TAddress, sp.TContract(sp.TNat)), getCash = sp.TPair(sp.TUnit, sp.TContract(sp.TNat)), getTotalSupply = sp.TPair(sp.TUnit, sp.TContract(sp.TNat)), hardResetOp = sp.TUnit, liquidateBorrow = sp.TRecord(borrower = sp.TAddress, cTokenCollateral = sp.TAddress, repayAmount = sp.TNat).layout(("borrower", ("cTokenCollateral", "repayAmount"))), mint = sp.TNat, redeem = sp.TNat, redeemUnderlying = sp.TNat, reduceReserves = sp.TNat, reduceReservesInternal = sp.TNat, removePendingGovernance = sp.TUnit, repayBorrow = sp.TNat, repayBorrowBehalf = sp.TRecord(borrower = sp.TAddress, repayAmount = sp.TNat).layout(("borrower", "repayAmount")), seize = sp.TRecord(borrower = sp.TAddress, liquidator = sp.TAddress, seizeTokens = sp.TNat).layout(("borrower", ("liquidator", "seizeTokens"))), setCash = sp.TList(sp.TRecord(balance = sp.TNat, request = sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id"))).layout(("request", "balance"))), setComptroller = sp.TAddress, setInterestRateModel = sp.TAddress, setInterestRateModelInternal = sp.TAddress, setPendingGovernance = sp.TAddress, setReserveFactor = sp.TNat, setReserveFactorInternal = sp.TNat, sweepFA12 = sp.TRecord(amount = sp.TNat, tokenAddress = sp.TAddress).layout(("amount", "tokenAddress")), sweepFA2 = sp.TRecord(amount = sp.TNat, id = sp.TNat, tokenAddress = sp.TAddress).layout(("amount", ("id", "tokenAddress"))), sweepMutez = sp.TBool, transfer = sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), updateMetadata = sp.TRecord(key = sp.TString, value = sp.TBytes).layout(("key", "value")), updateProtocolSeizeShare = sp.TNat).layout(((((("acceptGovernance", "accrueInterest"), ("accrueInterestInternal", ("addReserves", "addReservesInternal"))), (("approve", "borrow"), ("borrowBalanceStored", ("doAccrueInterest", "exchangeRateStored")))), ((("getAccountSnapshot", "getAllowance"), ("getBalance", ("getBalanceOfUnderlying", "getCash"))), (("getTotalSupply", "hardResetOp"), ("liquidateBorrow", ("mint", "redeem"))))), (((("redeemUnderlying", "reduceReserves"), ("reduceReservesInternal", ("removePendingGovernance", "repayBorrow"))), (("repayBorrowBehalf", "seize"), ("setCash", ("setComptroller", "setInterestRateModel")))), ((("setInterestRateModelInternal", "setPendingGovernance"), ("setReserveFactor", ("setReserveFactorInternal", "sweepFA12"))), (("sweepFA2", "sweepMutez"), ("transfer", ("updateMetadata", "updateProtocolSeizeShare"))))))) +tparameter = sp.TVariant(acceptGovernance = sp.TUnit, accrueInterest = sp.TUnit, accrueInterestInternal = sp.TContract(sp.TNat), addReserves = sp.TNat, addReservesInternal = sp.TRecord(addAmount = sp.TNat, originalSender = sp.TAddress).layout(("addAmount", "originalSender")), approve = sp.TRecord(spender = sp.TAddress, value = sp.TNat).layout(("spender", "value")), borrow = sp.TNat, borrowBalanceStored = sp.TPair(sp.TAddress, sp.TContract(sp.TPair(sp.TNat, sp.TNat))), doAccrueInterest = sp.TNat, exchangeRateStored = sp.TPair(sp.TUnit, sp.TContract(sp.TPair(sp.TNat, sp.TNat))), getAccountSnapshot = sp.TPair(sp.TAddress, sp.TContract(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))), getAllowance = sp.TPair(sp.TRecord(owner = sp.TAddress, spender = sp.TAddress).layout(("owner", "spender")), sp.TContract(sp.TNat)), getBalance = sp.TPair(sp.TAddress, sp.TContract(sp.TNat)), getBalanceOfUnderlying = sp.TPair(sp.TAddress, sp.TContract(sp.TPair(sp.TNat, sp.TNat))), getCash = sp.TPair(sp.TUnit, sp.TContract(sp.TPair(sp.TNat, sp.TNat))), getTotalSupply = sp.TPair(sp.TUnit, sp.TContract(sp.TNat)), hardResetOp = sp.TUnit, liquidateBorrow = sp.TRecord(borrower = sp.TAddress, cTokenCollateral = sp.TAddress, repayAmount = sp.TNat).layout(("borrower", ("cTokenCollateral", "repayAmount"))), mint = sp.TNat, redeem = sp.TNat, redeemUnderlying = sp.TNat, reduceReserves = sp.TNat, reduceReservesInternal = sp.TNat, removePendingGovernance = sp.TUnit, repayBorrow = sp.TNat, repayBorrowBehalf = sp.TRecord(borrower = sp.TAddress, repayAmount = sp.TNat).layout(("borrower", "repayAmount")), seize = sp.TRecord(borrower = sp.TAddress, liquidator = sp.TAddress, seizeTokens = sp.TNat).layout(("borrower", ("liquidator", "seizeTokens"))), setCash = sp.TList(sp.TRecord(balance = sp.TNat, request = sp.TRecord(owner = sp.TAddress, token_id = sp.TNat).layout(("owner", "token_id"))).layout(("request", "balance"))), setComptroller = sp.TAddress, setInterestRateModel = sp.TAddress, setInterestRateModelInternal = sp.TAddress, setPendingGovernance = sp.TAddress, setReserveFactor = sp.TNat, setReserveFactorInternal = sp.TNat, sweepFA12 = sp.TRecord(amount = sp.TNat, tokenAddress = sp.TAddress).layout(("amount", "tokenAddress")), sweepFA2 = sp.TRecord(amount = sp.TNat, id = sp.TNat, tokenAddress = sp.TAddress).layout(("amount", ("id", "tokenAddress"))), sweepMutez = sp.TBool, transfer = sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), updateMetadata = sp.TRecord(key = sp.TString, value = sp.TBytes).layout(("key", "value")), updateProtocolSeizeShare = sp.TNat).layout(((((("acceptGovernance", "accrueInterest"), ("accrueInterestInternal", ("addReserves", "addReservesInternal"))), (("approve", "borrow"), ("borrowBalanceStored", ("doAccrueInterest", "exchangeRateStored")))), ((("getAccountSnapshot", "getAllowance"), ("getBalance", ("getBalanceOfUnderlying", "getCash"))), (("getTotalSupply", "hardResetOp"), ("liquidateBorrow", ("mint", "redeem"))))), (((("redeemUnderlying", "reduceReserves"), ("reduceReservesInternal", ("removePendingGovernance", "repayBorrow"))), (("repayBorrowBehalf", "seize"), ("setCash", ("setComptroller", "setInterestRateModel")))), ((("setInterestRateModelInternal", "setPendingGovernance"), ("setReserveFactor", ("setReserveFactorInternal", "sweepFA12"))), (("sweepFA2", "sweepMutez"), ("transfer", ("updateMetadata", "updateProtocolSeizeShare"))))))) tprivates = { } -tviews = { "accrualBlockNumber": (sp.TUnit, sp.TNat), "balanceOf": (sp.TAddress, sp.TNat), "borrowBalanceStoredView": (sp.TAddress, sp.TNat), "comptroller": (sp.TUnit, sp.TAddress), "exchangeRateStoredView": (sp.TUnit, sp.TNat), "getAccountSnapshotView": (sp.TAddress, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))) } +tviews = { "accrualBlockNumber": (sp.TUnit, sp.TNat), "balanceOf": (sp.TAddress, sp.TNat), "borrowBalanceStoredView": (sp.TAddress, sp.TPair(sp.TNat, sp.TNat)), "comptroller": (sp.TUnit, sp.TAddress), "exchangeRateStoredView": (sp.TUnit, sp.TPair(sp.TNat, sp.TNat)), "getAccountSnapshotView": (sp.TAddress, sp.TOption(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))) } diff --git a/compiled_contracts/CUSDtz/log.txt b/compiled_contracts/CUSDtz/log.txt index 5e918b87..730bec33 100644 --- a/compiled_contracts/CUSDtz/log.txt +++ b/compiled_contracts/CUSDtz/log.txt @@ -1,10 +1,10 @@ Creating contract KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 - -> (Pair (Pair (Pair (Pair (Pair 0 (Pair {} "KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2")) (Pair 1000000000000000000 (Pair 800000000000 0))) (Pair (Pair {} (Pair "KT1DiWBT6RBC97iWrvLHRzKL7AWQKorBiuRG" 0)) (Pair 1000000000000000000 (Pair "KT1LN4LPSqTMS7Sd2CJw4bbDGRkMv2t68Fy9" 500000000000000000)))) (Pair (Pair (Pair 1000000000000000000 (Pair "KT1Vzf3fXVBry4TDxWAfYzsn6ZPyMroMKUdW" {})) (Pair {Elt "" 0x74657a6f732d73746f726167653a64617461; Elt "data" 0x7b226e616d65223a202254657a46696e20496e7465726573742d42656172696e67205553442054657a222c20226465736372697074696f6e223a2022496e7465726573742d62656172696e6720746f6b656e20666f72205553442054657a2028555344747a2920737570706c69656420746f207468652054657a46696e206c656e64696e672070726f746f636f6c2e222c202276657273696f6e223a2022332e30222c2022617574686f7273223a205b2254657a6f732046696e616e63652050726f746f636f6c225d2c2022686f6d6570616765223a202268747470733a2f2f74657a6f732e66696e616e6365222c2022696e7465726661636573223a205b22545a49502d303037222c2022545a49502d303136225d7d} (Pair None 100000000000000))) (Pair (Pair 50000000000000000 (Pair 1000000000000000000 0)) (Pair (Pair {Elt 0 (Pair 0 {Elt "decimals" 0x36; Elt "name" 0x54657a46696e20496e7465726573742d42656172696e67205553442054657a; Elt "symbol" 0xea9cb0555344747a})} 0) (Pair 0 0))))) {Elt 0 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; DUP; GET 3; GET 5; IF_NONE { PUSH string "CT_NOT_SET_PENDING_ADMIN"; FAILWITH } {}; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_PENDING_ADMIN"; FAILWITH }; DUP; GET 3; GET 5; IF_NONE { PUSH int 812; FAILWITH } {}; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 1 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; NIL operation; DUP 3; GET 3; CAR; GET 3; CONTRACT %getBorrowRate (pair (pair (nat %borrows) (nat %cash)) (pair (contract %cb nat) (nat %reserves))); IF_NONE { PUSH int 744; FAILWITH } {}; PUSH mutez 0; DUP 5; GET 9; DIG 4; PAIR; DUP 5; CAR; GET 3; GET 4; DUP 6; GET 7; CDR; PAIR; PAIR; TRANSFER_TOKENS; CONS; PAIR }; Elt 2 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; RENAME; SENDER; RENAME; COMPARE; NEQ; IF {} { PUSH string "CT_INTERNAL_CALL"; FAILWITH }; DUP 2; GET 3; CAR; GET 4; SENDER; RENAME; GET; IF_NONE { PUSH int 454; FAILWITH } {}; CAR; DUP 2; CAR; MEM; IF { PUSH bool True } { PUSH nat 1000; DUP 3; GET 3; CAR; GET 4; SENDER; RENAME; GET; IF_NONE { PUSH int 455; FAILWITH } {}; CAR; SIZE; COMPARE; LT }; IF {} { PUSH string "FA1.2_MaxApprovalsReached"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; CAR; GET 4; SENDER; RENAME; GET; IF_NONE { PUSH int 457; FAILWITH } {}; CAR; DUP 3; CAR; GET; IF_NONE { PUSH nat 0 } {}; COMPARE; EQ; IF { PUSH bool True } { PUSH nat 0; DUP 2; CDR; COMPARE; EQ }; IF {} { PUSH string "FA1.2_UnsafeAllowanceChange"; FAILWITH }; PUSH nat 0; DUP 2; CDR; COMPARE; EQ; IF { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; SENDER; RENAME; DUP; DUG 2; GET; IF_NONE { PUSH int 462; FAILWITH } {}; DUP; CAR; NONE nat; DIG 10; CAR; UPDATE; UPDATE 1; SOME; SWAP; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR } { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; SENDER; RENAME; DUP; DUG 2; GET; IF_NONE { PUSH int 464; FAILWITH } {}; DUP; CAR; DUP 10; CDR; SOME; DIG 10; CAR; UPDATE; UPDATE 1; SOME; SWAP; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR }; NIL operation; PAIR }; Elt 3 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH }; DUP 2; GET 3; CAR; GET 3; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_SENDER_NOT_IRM"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 8; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 8; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; CAR; GET 5; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_BORROW_RATE"; FAILWITH }; DUP 2; CAR; CAR; CAR; CAR; LEVEL; RENAME; SUB; ISNAT; RENAME; IF_NONE { PUSH int 759; FAILWITH } {}; DUP 2; MUL; DUP 3; CAR; GET 5; DUP 4; GET 7; CDR; DUP 3; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; DUP 4; GET 7; CDR; DUP 2; ADD; DIG 4; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; CAR; DIG 5; SWAP; PAIR; PAIR; SWAP; PAIR; SWAP; PAIR; SWAP; PAIR; DUG 3; DUP 4; GET 9; DUP 5; CAR; GET 5; DUP 3; DUP 7; GET 5; CAR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; DIG 4; SWAP; UPDATE 9; DUG 3; DUP 4; CAR; CAR; GET 3; DUP 5; CAR; GET 5; DUP 6; CAR; CAR; GET 3; DUP 5; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; DIG 4; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; DIG 4; PAIR; SWAP; CDR; LEVEL; DIG 5; DROP; DIG 5; DROP; DIG 5; DROP; RENAME; PAIR; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 4 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } } } { PUSH int -1; FAILWITH }; DUP; CAR; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; EMPTY_SET nat; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 5 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 12; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 12; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP; DUP 3; CAR; GET 3; GET 4; COMPARE; GE; IF {} { PUSH string "CT_INSUFFICIENT_CASH"; FAILWITH }; DUP 2; GET 9; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_REDUCE_AMOUNT"; FAILWITH }; DUP; DUP 3; GET 9; SUB; ISNAT; RENAME; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; DIG 2; SWAP; UPDATE 9; SWAP; NIL operation; DUP 3; CAR; GET 7; CONTRACT %transfer (pair (address %from) (pair (address %to) (nat %value))); IF_NONE { PUSH int 17; FAILWITH } {}; PUSH mutez 0; DIG 3; DUP 5; CAR; CAR; CAR; GET 4; SELF_ADDRESS; RENAME; PAIR 3; TRANSFER_TOKENS; CONS; PAIR }; Elt 6 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } }; DUP; CAR; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 7 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 13; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 13; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; GET 7; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INVALID_CASH_SENDER"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; NIL operation; PAIR }; Elt 8 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } }; DUP 2; CAR; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; DIG 5; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; NIL operation; PAIR }; Elt 9 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT {} { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } }; SELF_ADDRESS; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 9; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 9; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; DIG 5; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 10 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } {} } { PUSH int -1; FAILWITH } } }; DUP 2; CAR; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; DIG 5; SOME; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 11 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } }; SELF_ADDRESS; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 10; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 10; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; CAR; CAR; CAR; LEVEL; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTEREST_OLD"; FAILWITH }; DUP 2; GET 5; GET 3; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_RESERVE_FACTOR"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; CDR; DIG 4; PAIR; PAIR; SWAP; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 12 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } }; DUP 2; CAR; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }}) + -> (Pair (Pair (Pair (Pair (Pair 0 (Pair {} "KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2")) (Pair 1000000000000000000 (Pair 800000000000 0))) (Pair (Pair {} (Pair "KT1DiWBT6RBC97iWrvLHRzKL7AWQKorBiuRG" 0)) (Pair 1000000000000000000 (Pair "KT1LN4LPSqTMS7Sd2CJw4bbDGRkMv2t68Fy9" 500000000000000000)))) (Pair (Pair (Pair 1000000000000000000 (Pair "KT1Vzf3fXVBry4TDxWAfYzsn6ZPyMroMKUdW" {})) (Pair {Elt "" 0x74657a6f732d73746f726167653a64617461; Elt "data" 0x7b226e616d65223a202254657a46696e20496e7465726573742d42656172696e67205553442054657a222c20226465736372697074696f6e223a2022496e7465726573742d62656172696e6720746f6b656e20666f72205553442054657a2028555344747a2920737570706c69656420746f207468652054657a46696e206c656e64696e672070726f746f636f6c2e222c202276657273696f6e223a2022332e30222c2022617574686f7273223a205b2254657a6f732046696e616e63652050726f746f636f6c225d2c2022686f6d6570616765223a202268747470733a2f2f74657a6f732e66696e616e6365222c2022696e7465726661636573223a205b22545a49502d303037222c2022545a49502d303136225d7d} (Pair None 100000000000000))) (Pair (Pair 50000000000000000 (Pair 1000000000000000000 0)) (Pair (Pair {Elt 0 (Pair 0 {Elt "decimals" 0x36; Elt "name" 0x54657a46696e20496e7465726573742d42656172696e67205553442054657a; Elt "symbol" 0xea9cb0555344747a})} 0) (Pair 0 0))))) {Elt 0 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; DUP; GET 3; GET 5; IF_NONE { PUSH string "CT_NOT_SET_PENDING_ADMIN"; FAILWITH } {}; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_PENDING_ADMIN"; FAILWITH }; DUP; GET 3; GET 5; IF_NONE { PUSH int 822; FAILWITH } {}; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 1 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; NIL operation; DUP 3; GET 3; CAR; GET 3; CONTRACT %getBorrowRate (pair (pair (nat %borrows) (nat %cash)) (pair (contract %cb nat) (nat %reserves))); IF_NONE { PUSH int 754; FAILWITH } {}; PUSH mutez 0; DUP 5; GET 9; DIG 4; PAIR; DUP 5; CAR; GET 3; GET 4; DUP 6; GET 7; CDR; PAIR; PAIR; TRANSFER_TOKENS; CONS; PAIR }; Elt 2 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; SENDER; COMPARE; NEQ; IF {} { PUSH string "CT_INTERNAL_CALL"; FAILWITH }; DUP 2; GET 3; CAR; GET 4; SENDER; MEM; IF {} { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; PUSH (option (pair (map address nat) nat)) (Some (Pair {} 0)); SENDER; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR; SWAP }; DUP 2; CAR; GET 3; CAR; SENDER; MEM; IF {} { SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; PUSH (option (pair nat nat)) (Some (Pair 0 0)); SENDER; UPDATE; PAIR; PAIR; SWAP; PAIR; PAIR; SWAP }; DUP 2; GET 3; CAR; GET 4; SENDER; GET; IF_NONE { PUSH int 460; FAILWITH } {}; CAR; DUP 2; CAR; MEM; IF { PUSH bool True } { PUSH nat 1000; DUP 3; GET 3; CAR; GET 4; SENDER; GET; IF_NONE { PUSH int 461; FAILWITH } {}; CAR; SIZE; COMPARE; LT }; IF {} { PUSH (pair string unit) (Pair "FA1.2_MaxApprovalsReached" Unit); FAILWITH }; PUSH nat 0; DUP 3; GET 3; CAR; GET 4; SENDER; GET; IF_NONE { PUSH int 463; FAILWITH } {}; CAR; DUP 3; CAR; GET; IF_NONE { PUSH nat 0 } {}; COMPARE; EQ; IF { PUSH bool True } { PUSH nat 0; DUP 2; CDR; COMPARE; EQ }; IF {} { DUP 2; GET 3; CAR; GET 4; SENDER; GET; IF_NONE { PUSH int 463; FAILWITH } {}; CAR; DUP 2; CAR; GET; IF_NONE { PUSH nat 0 } {}; PUSH string "UnsafeAllowanceChange"; PAIR; FAILWITH }; PUSH nat 0; DUP 2; CDR; COMPARE; EQ; IF { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; SENDER; DUP; DUG 2; GET; IF_NONE { PUSH int 468; FAILWITH } {}; DUP; CAR; NONE nat; DIG 10; CAR; UPDATE; UPDATE 1; SOME; SWAP; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR } { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; SENDER; DUP; DUG 2; GET; IF_NONE { PUSH int 470; FAILWITH } {}; DUP; CAR; DUP 10; CDR; SOME; DIG 10; CAR; UPDATE; UPDATE 1; SOME; SWAP; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR }; NIL operation; PAIR }; Elt 3 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH }; DUP 2; GET 3; CAR; GET 3; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_SENDER_NOT_IRM"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 8; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 8; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; CAR; GET 5; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_BORROW_RATE"; FAILWITH }; DUP 2; CAR; CAR; CAR; CAR; LEVEL; SUB; ISNAT; IF_NONE { PUSH int 769; FAILWITH } {}; DUP 2; MUL; DUP 3; CAR; GET 5; DUP 4; GET 7; CDR; DUP 3; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; DUP 4; GET 7; CDR; DUP 2; ADD; DIG 4; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; CAR; DIG 5; SWAP; PAIR; PAIR; SWAP; PAIR; SWAP; PAIR; SWAP; PAIR; DUG 3; DUP 4; GET 9; DUP 5; CAR; GET 5; DUP 3; DUP 7; GET 5; CAR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; DIG 4; SWAP; UPDATE 9; DUG 3; DUP 4; CAR; CAR; GET 3; DUP 5; CAR; GET 5; DUP 6; CAR; CAR; GET 3; DUP 5; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; DIG 4; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; DIG 4; PAIR; SWAP; CDR; LEVEL; DIG 5; DROP; DIG 5; DROP; DIG 5; DROP; PAIR; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 4 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } } } { PUSH int -1; FAILWITH }; DUP; CAR; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; EMPTY_SET nat; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 5 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 12; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 12; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP; DUP 3; CAR; GET 3; GET 4; COMPARE; GE; IF {} { PUSH string "CT_INSUFFICIENT_CASH"; FAILWITH }; DUP 2; GET 9; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_REDUCE_AMOUNT"; FAILWITH }; DUP; DUP 3; GET 9; SUB; ISNAT; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; DIG 2; SWAP; UPDATE 9; SWAP; NIL operation; DUP 3; CAR; GET 7; CONTRACT %transfer (pair (address %from) (pair (address %to) (nat %value))); IF_NONE { PUSH int 17; FAILWITH } {}; PUSH mutez 0; DIG 3; DUP 5; CAR; CAR; CAR; GET 4; SELF_ADDRESS; PAIR 3; TRANSFER_TOKENS; CONS; PAIR }; Elt 6 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } }; DUP; CAR; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 7 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 13; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 13; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; GET 7; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INVALID_CASH_SENDER"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; NIL operation; PAIR }; Elt 8 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } }; DUP 2; CAR; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; DIG 5; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; NIL operation; PAIR }; Elt 9 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT {} { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } }; SELF_ADDRESS; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 9; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 9; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; DIG 5; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 10 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } {} } { PUSH int -1; FAILWITH } } }; DUP 2; CAR; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; DIG 5; SOME; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 11 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } }; SELF_ADDRESS; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 10; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 10; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; CAR; CAR; CAR; LEVEL; COMPARE; EQ; IF {} { PUSH string "CT_INTEREST_OLD"; FAILWITH }; DUP 2; GET 5; GET 3; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_RESERVE_FACTOR"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; CDR; DIG 4; PAIR; PAIR; SWAP; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 12 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } }; DUP 2; CAR; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }}) => ./compiled_contracts/CUSDtz/step_000_cont_0_storage.tz 1 - => ./compiled_contracts/CUSDtz/step_000_cont_0_storage.json 1286 + => ./compiled_contracts/CUSDtz/step_000_cont_0_storage.json 1370 => ./compiled_contracts/CUSDtz/step_000_cont_0_sizes.csv 2 => ./compiled_contracts/CUSDtz/step_000_cont_0_storage.py 1 => ./compiled_contracts/CUSDtz/step_000_cont_0_types.py 7 - => ./compiled_contracts/CUSDtz/step_000_cont_0_contract.tz 4852 - => ./compiled_contracts/CUSDtz/step_000_cont_0_contract.json 5727 - => ./compiled_contracts/CUSDtz/step_000_cont_0_contract.py 747 + => ./compiled_contracts/CUSDtz/step_000_cont_0_contract.tz 5084 + => ./compiled_contracts/CUSDtz/step_000_cont_0_contract.json 5692 + => ./compiled_contracts/CUSDtz/step_000_cont_0_contract.py 757 diff --git a/compiled_contracts/CUSDtz/step_000_cont_0_contract.json b/compiled_contracts/CUSDtz/step_000_cont_0_contract.json index a6de46a4..864115bf 100644 --- a/compiled_contracts/CUSDtz/step_000_cont_0_contract.json +++ b/compiled_contracts/CUSDtz/step_000_cont_0_contract.json @@ -488,8 +488,16 @@ { "prim": "or", "args": [ - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ], "annots": [ "%borrowBalanceStored" ] }, - { "prim": "pair", "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ], "annots": [ "%exchangeRateStored" ] } + { + "prim": "pair", + "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ], + "annots": [ "%borrowBalanceStored" ] + }, + { + "prim": "pair", + "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ], + "annots": [ "%exchangeRateStored" ] + } ] } ] @@ -543,8 +551,16 @@ { "prim": "or", "args": [ - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ], "annots": [ "%getBalanceOfUnderlying" ] }, - { "prim": "pair", "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ], "annots": [ "%getCash" ] } + { + "prim": "pair", + "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ], + "annots": [ "%getBalanceOfUnderlying" ] + }, + { + "prim": "pair", + "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ], + "annots": [ "%getCash" ] + } ] }, { @@ -851,9 +867,7 @@ { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "33" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "SELF", "annots": [ "%setCash" ] }, - { "prim": "RENAME" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" } @@ -867,7 +881,6 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "NEQ" }, { @@ -896,7 +909,6 @@ { "prim": "DROP" }, { "prim": "DIG", "args": [ { "int": "6" } ] }, { "prim": "DROP" }, - { "prim": "RENAME" }, { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "PAIR" }, @@ -926,7 +938,6 @@ { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "CONTRACT", "args": [ { "prim": "contract", "args": [ { "prim": "nat" } ] } ], @@ -934,11 +945,10 @@ }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "735" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "745" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "SELF", "annots": [ "%doAccrueInterest" ] }, - { "prim": "RENAME" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" } ] @@ -955,9 +965,7 @@ "args": [ [ { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "NEQ" }, { @@ -996,17 +1004,13 @@ { "prim": "SWAP" }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "SELF", "annots": [ "%accrueInterest" ] }, - { "prim": "RENAME" }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "UNIT" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, { "prim": "SELF", "annots": [ "%addReservesInternal" ] }, - { "prim": "RENAME" }, { "prim": "AMOUNT" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DIG", "args": [ { "int": "4" } ] }, { "prim": "PAIR" }, { "prim": "TRANSFER_TOKENS" }, @@ -1014,9 +1018,7 @@ ], [ { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -1059,7 +1061,6 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -1088,7 +1089,6 @@ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "CDR" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, @@ -1115,9 +1115,7 @@ "args": [ [ { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "NEQ" }, { @@ -1129,13 +1127,11 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -1159,7 +1155,6 @@ ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "UPDATE" }, { "prim": "SWAP" }, { "prim": "PAIR" }, @@ -1170,8 +1165,7 @@ { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -1179,13 +1173,11 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -1201,7 +1193,6 @@ ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "PAIR" }, @@ -1209,8 +1200,7 @@ { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, @@ -1235,9 +1225,7 @@ { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, @@ -1258,7 +1246,6 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -1285,9 +1272,7 @@ { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, @@ -1297,7 +1282,6 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" }, { "prim": "IF", @@ -1308,9 +1292,8 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "638" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, @@ -1335,7 +1318,7 @@ { "prim": "IF_NONE", "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "641" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], @@ -1354,7 +1337,6 @@ { "prim": "UNPAIR" }, { "prim": "DUP" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, @@ -1383,7 +1365,6 @@ { "prim": "UNPAIR" }, { "prim": "DUP" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, @@ -1444,7 +1425,7 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "638" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -1470,7 +1451,7 @@ { "prim": "IF_NONE", "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "641" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], @@ -1481,6 +1462,13 @@ [] ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, @@ -1532,7 +1520,6 @@ { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -1542,10 +1529,9 @@ { "prim": "ADD" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "681" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, @@ -1559,6 +1545,13 @@ [] ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, @@ -1613,7 +1606,6 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -1627,7 +1619,7 @@ { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "573" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "579" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" }, { "prim": "UPDATE", "args": [ { "int": "3" } ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, @@ -1651,7 +1643,7 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "638" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -1677,7 +1669,7 @@ { "prim": "IF_NONE", "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "641" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], @@ -1738,7 +1730,6 @@ { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -1748,10 +1739,9 @@ { "prim": "ADD" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "681" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, @@ -1806,7 +1796,7 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "549" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "555" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, @@ -1828,7 +1818,7 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "550" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "556" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -1837,7 +1827,7 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "550" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "556" } ] }, { "prim": "FAILWITH" } ], [] ] } ], [] @@ -1878,7 +1868,7 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "489" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "495" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" } ], @@ -1950,7 +1940,6 @@ { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -1960,10 +1949,9 @@ { "prim": "ADD" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "681" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, @@ -1979,23 +1967,29 @@ }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "521" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "527" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "MUL" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "61" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] }, + { "prim": "PAIR" }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, @@ -2007,8 +2001,14 @@ [ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "PAIR" }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, @@ -2066,18 +2066,16 @@ ], "annots": [ "%liquidateBorrowAllowed" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "357" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "360" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "PAIR" }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "PAIR" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "CAR" }, { "prim": "PAIR" }, @@ -2085,7 +2083,6 @@ { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "COMPARE" }, @@ -2120,7 +2117,6 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -2148,7 +2144,7 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "638" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -2174,7 +2170,7 @@ { "prim": "IF_NONE", "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "641" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], @@ -2185,8 +2181,25 @@ [] ] }, - { "prim": "SWAP" }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "COMPARE" }, + { "prim": "LE" }, + { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "7" } ] }, + { "prim": "CDR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "COMPARE" }, + { "prim": "LE" }, + { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "7" } ] }, { @@ -2205,46 +2218,29 @@ { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "17" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "5" } ] }, - { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "COMPARE" }, - { "prim": "LE" }, - { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, - { "prim": "SWAP" }, - { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "DUG", "args": [ { "int": "3" } ] }, + { "prim": "DIG", "args": [ { "int": "5" } ] }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "DUP", "args": [ { "int": "11" } ] }, { "prim": "CAR" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "263" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP", "args": [ { "int": "10" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "9" } ] }, - { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "COMPARE" }, - { "prim": "LE" }, - { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, - { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "266" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DIG", "args": [ { "int": "8" } ] }, + { "prim": "DIG", "args": [ { "int": "9" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -2276,7 +2272,7 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "265" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "268" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DIG", "args": [ { "int": "7" } ] }, { "prim": "UPDATE", "args": [ { "int": "1" } ] }, { "prim": "SOME" }, @@ -2288,20 +2284,11 @@ { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "DUG", "args": [ { "int": "3" } ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "COMPARE" }, - { "prim": "LE" }, - { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "7" } ] }, { "prim": "CDR" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -2336,7 +2323,7 @@ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "268" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "271" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" }, { "prim": "COMPARE" }, { "prim": "EQ" }, @@ -2351,7 +2338,7 @@ { "prim": "CONTRACT", "args": [ { "prim": "address" } ], "annots": [ "%removeFromLoans" ] }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "270" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "273" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, @@ -2369,11 +2356,13 @@ { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, - { "prim": "VIEW", "args": [ { "string": "liquidateCalculateSeizeTokens" }, { "prim": "nat" } ] }, + { + "prim": "VIEW", + "args": [ { "string": "liquidateCalculateSeizeTokens" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] + }, { "prim": "IF_NONE", "args": [ @@ -2384,6 +2373,7 @@ [] ] }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, @@ -2421,7 +2411,7 @@ ], "annots": [ "%seize" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "382" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "385" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, @@ -2430,11 +2420,13 @@ { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, - { "prim": "VIEW", "args": [ { "string": "liquidateCalculateSeizeTokens" }, { "prim": "nat" } ] }, + { + "prim": "VIEW", + "args": [ { "string": "liquidateCalculateSeizeTokens" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] + }, { "prim": "IF_NONE", "args": [ @@ -2445,8 +2437,8 @@ [] ] }, + { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DIG", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, @@ -2479,9 +2471,7 @@ "args": [ [ { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "NEQ" }, { @@ -2493,13 +2483,11 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -2523,7 +2511,6 @@ ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "UPDATE" }, { "prim": "SWAP" }, { "prim": "PAIR" }, @@ -2534,8 +2521,7 @@ { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -2543,13 +2529,11 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -2565,7 +2549,6 @@ ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "PAIR" }, @@ -2573,8 +2556,7 @@ { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, @@ -2599,9 +2581,7 @@ { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, @@ -2611,7 +2591,6 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -2638,9 +2617,7 @@ { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, @@ -2684,7 +2661,6 @@ { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -2694,8 +2670,7 @@ { "prim": "ADD" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "681" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, { @@ -2748,7 +2723,6 @@ { "prim": "SWAP" }, { "prim": "DUP" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, @@ -2777,9 +2751,7 @@ "args": [ [ { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "NEQ" }, { @@ -2811,9 +2783,7 @@ { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, @@ -2860,7 +2830,6 @@ { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -2870,10 +2839,9 @@ { "prim": "ADD" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "681" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, @@ -2940,7 +2908,6 @@ { "prim": "LEVEL" }, { "prim": "DIG", "args": [ { "int": "5" } ] }, { "prim": "DROP" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -2954,7 +2921,6 @@ { "prim": "GET", "args": [ { "int": "10" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -2970,7 +2936,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "GET" }, { "prim": "IF_NONE", @@ -2979,7 +2944,6 @@ { "prim": "CDR" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -2997,7 +2961,6 @@ { "prim": "SWAP" }, { "prim": "DUP" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, @@ -3043,9 +3006,7 @@ { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" } @@ -3056,9 +3017,7 @@ ], [ { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "NEQ" }, { @@ -3090,9 +3049,7 @@ { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, @@ -3140,7 +3097,6 @@ { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -3150,10 +3106,9 @@ { "prim": "ADD" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "681" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, @@ -3168,7 +3123,7 @@ ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "DUP" }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "COMPARE" }, { "prim": "GT" }, @@ -3252,7 +3207,6 @@ { "prim": "LEVEL" }, { "prim": "DIG", "args": [ { "int": "5" } ] }, { "prim": "DROP" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -3266,7 +3220,6 @@ { "prim": "GET", "args": [ { "int": "10" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -3282,7 +3235,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "GET" }, { "prim": "IF_NONE", @@ -3291,7 +3243,6 @@ { "prim": "CDR" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -3309,7 +3260,6 @@ { "prim": "SWAP" }, { "prim": "DUP" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, @@ -3355,9 +3305,7 @@ { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" } @@ -3387,7 +3335,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -3426,24 +3373,19 @@ { "prim": "SWAP" }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "SELF", "annots": [ "%accrueInterest" ] }, - { "prim": "RENAME" }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "UNIT" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, { "prim": "SELF", "annots": [ "%reduceReservesInternal" ] }, - { "prim": "RENAME" }, { "prim": "AMOUNT" }, - { "prim": "RENAME" }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" } ], [ { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "NEQ" }, { @@ -3455,13 +3397,11 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -3488,7 +3428,6 @@ ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "UPDATE" }, { "prim": "SWAP" }, { "prim": "PAIR" }, @@ -3499,8 +3438,7 @@ { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -3508,13 +3446,11 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -3530,7 +3466,6 @@ ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "PAIR" }, @@ -3538,8 +3473,7 @@ { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, @@ -3570,15 +3504,12 @@ ], "annots": [ "%repayBorrowAllowed" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "276" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "279" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "4" } ] }, { "prim": "DIG", "args": [ { "int": "4" } ] }, { "prim": "DROP" }, @@ -3590,7 +3521,6 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -3603,7 +3533,6 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" }, { "prim": "IF", @@ -3614,11 +3543,10 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "638" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -3644,7 +3572,7 @@ { "prim": "IF_NONE", "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "641" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], @@ -3655,8 +3583,24 @@ [] ] }, - { "prim": "SWAP" }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "COMPARE" }, + { "prim": "LE" }, + { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "7" } ] }, + { "prim": "CDR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "COMPARE" }, + { "prim": "LE" }, + { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "7" } ] }, { @@ -3675,21 +3619,13 @@ { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "17" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, - { "prim": "DUP", "args": [ { "int": "5" } ] }, - { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "COMPARE" }, - { "prim": "LE" }, - { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, - { "prim": "SWAP" }, - { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "DUG", "args": [ { "int": "3" } ] }, + { "prim": "DIG", "args": [ { "int": "4" } ] }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, @@ -3697,22 +3633,14 @@ { "prim": "UNPAIR" }, { "prim": "DUP" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "263" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP", "args": [ { "int": "10" } ] }, - { "prim": "DUP", "args": [ { "int": "9" } ] }, - { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "COMPARE" }, - { "prim": "LE" }, - { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, - { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "266" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DIG", "args": [ { "int": "8" } ] }, + { "prim": "DIG", "args": [ { "int": "9" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -3740,11 +3668,10 @@ { "prim": "UNPAIR" }, { "prim": "DUP" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "265" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "268" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DIG", "args": [ { "int": "7" } ] }, { "prim": "UPDATE", "args": [ { "int": "1" } ] }, { "prim": "SOME" }, @@ -3755,20 +3682,12 @@ { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, - { "prim": "DUG", "args": [ { "int": "3" } ] }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "COMPARE" }, - { "prim": "LE" }, - { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "7" } ] }, { "prim": "CDR" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -3801,9 +3720,8 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "268" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "271" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" }, { "prim": "COMPARE" }, { "prim": "EQ" }, @@ -3818,11 +3736,10 @@ { "prim": "CONTRACT", "args": [ { "prim": "address" } ], "annots": [ "%removeFromLoans" ] }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "270" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "273" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" } ], @@ -3839,9 +3756,7 @@ "args": [ [ { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "NEQ" }, { @@ -3853,13 +3768,11 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -3886,7 +3799,6 @@ ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "UPDATE" }, { "prim": "SWAP" }, { "prim": "PAIR" }, @@ -3897,8 +3809,7 @@ { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -3906,13 +3817,11 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -3928,7 +3837,6 @@ ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "PAIR" }, @@ -3936,8 +3844,7 @@ { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, @@ -3968,16 +3875,14 @@ ], "annots": [ "%repayBorrowAllowed" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "276" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "279" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "4" } ] }, { "prim": "DIG", "args": [ { "int": "4" } ] }, { "prim": "DROP" }, @@ -3989,7 +3894,6 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -4017,7 +3921,7 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "638" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -4043,7 +3947,7 @@ { "prim": "IF_NONE", "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "641" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], @@ -4054,8 +3958,25 @@ [] ] }, - { "prim": "SWAP" }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CDR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "COMPARE" }, + { "prim": "LE" }, + { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "7" } ] }, + { "prim": "CDR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "COMPARE" }, + { "prim": "LE" }, + { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "7" } ] }, { @@ -4074,46 +3995,29 @@ { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "17" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, - { "prim": "CDR" }, - { "prim": "DUP", "args": [ { "int": "5" } ] }, - { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "COMPARE" }, - { "prim": "LE" }, - { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, - { "prim": "SWAP" }, - { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "DUG", "args": [ { "int": "3" } ] }, + { "prim": "DIG", "args": [ { "int": "5" } ] }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "DUP", "args": [ { "int": "11" } ] }, { "prim": "CAR" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "263" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP", "args": [ { "int": "10" } ] }, - { "prim": "CDR" }, - { "prim": "DUP", "args": [ { "int": "9" } ] }, - { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "COMPARE" }, - { "prim": "LE" }, - { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, - { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "266" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DIG", "args": [ { "int": "8" } ] }, + { "prim": "DIG", "args": [ { "int": "9" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -4145,7 +4049,7 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "265" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "268" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DIG", "args": [ { "int": "7" } ] }, { "prim": "UPDATE", "args": [ { "int": "1" } ] }, { "prim": "SOME" }, @@ -4157,20 +4061,11 @@ { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "DUG", "args": [ { "int": "3" } ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "CDR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "COMPARE" }, - { "prim": "LE" }, - { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "7" } ] }, { "prim": "CDR" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -4205,7 +4100,7 @@ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "268" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "271" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" }, { "prim": "COMPARE" }, { "prim": "EQ" }, @@ -4220,7 +4115,7 @@ { "prim": "CONTRACT", "args": [ { "prim": "address" } ], "annots": [ "%removeFromLoans" ] }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "270" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "273" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, @@ -4240,11 +4135,10 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -4282,8 +4176,7 @@ { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -4293,11 +4186,10 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -4321,8 +4213,7 @@ { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -4330,9 +4221,7 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "PAIR" }, { "prim": "VIEW", "args": [ { "string": "seizeAllowed" }, { "prim": "bool" } ] }, { @@ -4373,7 +4262,6 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -4436,7 +4324,6 @@ { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -4446,10 +4333,9 @@ { "prim": "ADD" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "681" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, @@ -4485,7 +4371,6 @@ { "prim": "GET", "args": [ { "int": "10" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -4505,11 +4390,10 @@ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "307" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "310" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -4531,7 +4415,7 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "334" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "337" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DIG", "args": [ { "int": "8" } ] }, { "prim": "UPDATE", "args": [ { "int": "2" } ] }, { "prim": "SOME" }, @@ -4543,7 +4427,7 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "335" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "338" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP" }, { "prim": "CDR" }, { "prim": "DIG", "args": [ { "int": "9" } ] }, @@ -4551,7 +4435,6 @@ { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -4597,7 +4480,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -4636,13 +4518,11 @@ { "prim": "SWAP" }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "SELF", "annots": [ "%accrueInterest" ] }, - { "prim": "RENAME" }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "UNIT" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, { "prim": "SELF", "annots": [ "%setInterestRateModelInternal" ] }, - { "prim": "RENAME" }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, @@ -4659,7 +4539,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -4698,13 +4577,11 @@ { "prim": "SWAP" }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "SELF", "annots": [ "%accrueInterest" ] }, - { "prim": "RENAME" }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "UNIT" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, { "prim": "SELF", "annots": [ "%setReserveFactorInternal" ] }, - { "prim": "RENAME" }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, @@ -4748,7 +4625,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" } @@ -4842,7 +4718,6 @@ { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "CONS" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR" }, { "prim": "CONS" }, { "prim": "TRANSFER_TOKENS" }, @@ -4865,7 +4740,6 @@ "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "21" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "BALANCE" }, - { "prim": "RENAME" }, { "prim": "UNIT" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" } @@ -4883,7 +4757,6 @@ "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "24" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "BALANCE" }, - { "prim": "RENAME" }, { "prim": "UNIT" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" } @@ -4900,7 +4773,6 @@ "args": [ [ { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "COMPARE" }, @@ -4921,15 +4793,14 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "404" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "407" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "404" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "407" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "COMPARE" }, { "prim": "GE" } @@ -4938,12 +4809,38 @@ }, { "prim": "IF", - "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA1.2_NotAllowed" } ] }, { "prim": "FAILWITH" } ] ] + "args": [ + [], + [ + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "408" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "CAR" }, + { "prim": "SENDER" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "408" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "PAIR" }, + { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "NotEnoughAllowance" } ] }, + { "prim": "PAIR" }, + { "prim": "FAILWITH" } + ] + ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "NEQ" }, { @@ -4957,11 +4854,10 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -4999,8 +4895,7 @@ { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -5010,11 +4905,10 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -5038,8 +4932,7 @@ { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, @@ -5060,7 +4953,7 @@ ], "annots": [ "%transferAllowed" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "427" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "431" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, @@ -5070,7 +4963,6 @@ { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "TRANSFER_TOKENS" }, @@ -5084,14 +4976,34 @@ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "413" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "417" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" }, { "prim": "COMPARE" }, { "prim": "GE" }, { "prim": "IF", "args": [ - [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA1.2_InsufficientBalance" } ] }, { "prim": "FAILWITH" } ] + [], + [ + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "418" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "CDR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "PAIR" }, + { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "NotEnoughBalance" } ] }, + { "prim": "PAIR" }, + { "prim": "FAILWITH" } + ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -5103,12 +5015,11 @@ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "416" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "420" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "415" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "419" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, @@ -5124,7 +5035,7 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "415" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "419" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DIG", "args": [ { "int": "8" } ] }, { "prim": "UPDATE", "args": [ { "int": "2" } ] }, { "prim": "SOME" }, @@ -5136,7 +5047,7 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "417" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "421" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP" }, { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "11" } ] }, @@ -5156,7 +5067,6 @@ { "prim": "PAIR" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "COMPARE" }, @@ -5182,7 +5092,7 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "419" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "423" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP" }, { "prim": "CAR" }, @@ -5197,26 +5107,23 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "420" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "424" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "420" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "424" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "419" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "423" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "SOME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "UPDATE" }, { "prim": "UPDATE", "args": [ { "int": "1" } ] }, { "prim": "SOME" }, @@ -5241,15 +5148,14 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "421" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "425" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "421" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "425" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "COMPARE" }, { "prim": "EQ" }, @@ -5274,13 +5180,12 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "422" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "426" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP" }, { "prim": "CAR" }, { "prim": "NONE", "args": [ { "prim": "nat" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "UPDATE" }, { "prim": "UPDATE", "args": [ { "int": "1" } ] }, { "prim": "SOME" }, @@ -5311,7 +5216,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -5403,7 +5307,7 @@ { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SWAP" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "503" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "509" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" } ], [ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ] @@ -5417,7 +5321,7 @@ "args": [ { "string": "borrowBalanceStoredView" }, { "prim": "address" }, - { "prim": "nat" }, + { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, [ { "prim": "UNPAIR", "args": [ { "int": "3" } ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, @@ -5437,7 +5341,7 @@ { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "638" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, @@ -5455,7 +5359,7 @@ { "prim": "DROP" }, { "prim": "DUP" }, { "prim": "CAR" }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, @@ -5463,15 +5367,22 @@ { "prim": "CDR" }, { "prim": "MUL" }, { "prim": "EDIV" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "641" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], - [ { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ] + [ { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "DROP" } ] ] } ], - [ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ] + [ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "DROP" } ] ] - } + }, + { "prim": "SWAP" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" } ] ] }, @@ -5489,7 +5400,7 @@ "args": [ { "string": "exchangeRateStoredView" }, { "prim": "unit" }, - { "prim": "nat" }, + { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, [ { "prim": "UNPAIR", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -5525,26 +5436,31 @@ { "prim": "GET", "args": [ { "int": "7" } ] }, { "prim": "CDR" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "DIG", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "ADD" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "681" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "257" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], - [ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ] + [ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "DROP" } ] ] - } + }, + { "prim": "SWAP" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" } ] ] }, @@ -5554,171 +5470,220 @@ { "string": "getAccountSnapshotView" }, { "prim": "address" }, { - "prim": "pair", + "prim": "option", "args": [ - { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, - { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] } + { + "prim": "pair", + "args": [ + { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, + { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] } + ] + } ] }, [ { "prim": "UNPAIR", "args": [ { "int": "3" } ] }, - { "prim": "PUSH", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } ] }, - { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "LEVEL" }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "DROP" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "PAIR" }, - { "prim": "PAIR" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "MEM" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, { "prim": "IF", "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] } ], [ - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "LEVEL" }, - { "prim": "RENAME" }, - { "prim": "COMPARE" }, - { "prim": "EQ" }, - { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "573" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "CDR" }, - { "prim": "UPDATE", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "MEM" }, + { "prim": "NOT" } + ] + ] + }, + { + "prim": "IF", + "args": [ + [ + { "prim": "PUSH", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, - { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, { "prim": "IF", "args": [ [ + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "LEVEL" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "579" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CDR" }, + { "prim": "UPDATE", "args": [ { "int": "3" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, - { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "638" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, + { "prim": "COMPARE" }, + { "prim": "GT" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "SWAP" }, + { "prim": "DROP" }, + { "prim": "DUP" }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, + { "prim": "MUL" }, + { "prim": "EDIV" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "641" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] + } + ], + [ { "prim": "DROP" } ] + ] + } + ], + [] + ] + }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "DUP", "args": [ { "int": "2" } ] }, - { "prim": "CDR" }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "GET", "args": [ { "int": "10" } ] }, { "prim": "COMPARE" }, { "prim": "GT" }, { "prim": "IF", "args": [ [ + { "prim": "DROP", "args": [ { "int": "2" } ] }, { "prim": "SWAP" }, { "prim": "DROP" }, - { "prim": "DUP" }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "10" } ] }, + { "prim": "COMPARE" }, + { "prim": "GT" }, + { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "10" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "9" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, - { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "7" } ] }, + { "prim": "CDR" }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DIG", "args": [ { "int": "6" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, - { "prim": "CDR" }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "ADD" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "681" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "257" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], - [ { "prim": "DROP" } ] + [ + { "prim": "SWAP" }, + { "prim": "DROP" }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "DROP" }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "DROP" } + ] ] - } + }, + { "prim": "UPDATE", "args": [ { "int": "4" } ] } ], - [] + [ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, - { "prim": "SWAP" }, - { "prim": "UNPAIR" }, - { "prim": "CAR" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "SWAP" }, - { "prim": "PAIR" }, - { "prim": "PAIR" }, - { "prim": "SWAP" }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "DUP", "args": [ { "int": "6" } ] }, - { "prim": "GET", "args": [ { "int": "10" } ] }, - { "prim": "COMPARE" }, - { "prim": "GT" }, + { "prim": "SOME" } + ], + [ + { "prim": "DROP", "args": [ { "int": "2" } ] }, { - "prim": "IF", + "prim": "NONE", "args": [ - [ - { "prim": "DROP", "args": [ { "int": "2" } ] }, - { "prim": "SWAP" }, - { "prim": "DROP" }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, - { "prim": "DROP" }, - { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "10" } ] }, - { "prim": "COMPARE" }, - { "prim": "GT" }, - { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP", "args": [ { "int": "2" } ] }, - { "prim": "GET", "args": [ { "int": "10" } ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, - { "prim": "GET", "args": [ { "int": "9" } ] }, - { "prim": "DUP", "args": [ { "int": "5" } ] }, - { "prim": "GET", "args": [ { "int": "7" } ] }, - { "prim": "CDR" }, - { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "DIG", "args": [ { "int": "6" } ] }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SUB" }, - { "prim": "ISNAT" }, - { "prim": "RENAME" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "ADD" }, - { "prim": "SUB" }, - { "prim": "ISNAT" }, - { "prim": "RENAME" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "MUL" }, - { "prim": "EDIV" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "257" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } - ], - [ - { "prim": "SWAP" }, - { "prim": "DROP" }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, - { "prim": "DROP" }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, - { "prim": "DROP" }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, - { "prim": "DROP" } - ] + { + "prim": "pair", + "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] + } ] - }, - { "prim": "UPDATE", "args": [ { "int": "4" } ] } - ], - [ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ] + } + ] ] } ] diff --git a/compiled_contracts/CUSDtz/step_000_cont_0_contract.py b/compiled_contracts/CUSDtz/step_000_cont_0_contract.py index 39f22d3f..8ee15873 100644 --- a/compiled_contracts/CUSDtz/step_000_cont_0_contract.py +++ b/compiled_contracts/CUSDtz/step_000_cont_0_contract.py @@ -78,8 +78,12 @@ def addReservesInternal(self, params): def approve(self, params): sp.set_type(params, sp.TRecord(spender = sp.TAddress, value = sp.TNat).layout(("spender", "value"))) sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') - sp.verify((self.data.ledger[sp.sender].approvals.contains(params.spender)) | (sp.len(self.data.ledger[sp.sender].approvals) < 1000), 'FA1.2_MaxApprovalsReached') - sp.verify((self.data.ledger[sp.sender].approvals.get(params.spender, default_value = 0) == 0) | (params.value == 0), 'FA1.2_UnsafeAllowanceChange') + sp.if ~ (self.data.ledger.contains(sp.sender)): + self.data.ledger[sp.sender] = sp.record(approvals = {}, balance = 0) + sp.if ~ (self.data.borrows.contains(sp.sender)): + self.data.borrows[sp.sender] = sp.record(interestIndex = 0, principal = 0) + sp.verify((self.data.ledger[sp.sender].approvals.contains(params.spender)) | (sp.len(self.data.ledger[sp.sender].approvals) < 1000), ('FA1.2_MaxApprovalsReached', sp.unit)) + sp.verify((self.data.ledger[sp.sender].approvals.get(params.spender, default_value = 0) == 0) | (params.value == 0), ('UnsafeAllowanceChange', self.data.ledger[sp.sender].approvals.get(params.spender, default_value = 0))) sp.if params.value == 0: del self.data.ledger[sp.sender].approvals[params.spender] sp.else: @@ -116,8 +120,8 @@ def borrowBalanceStored(self, params): borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[sp.fst(params)]) sp.if borrowSnapshot.value.principal > 0: borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex - sp.result(borrowBalance.value) - sp.set_type(sp.snd(params), sp.TContract(sp.TNat)) + sp.result((borrowBalance.value, self.data.accrualBlockNumber)) + sp.set_type(sp.snd(params), sp.TContract(sp.TPair(sp.TNat, sp.TNat))) sp.transfer(__s1.value, sp.tez(0), sp.snd(params)) @sp.entrypoint @@ -131,32 +135,32 @@ def doAccrueInterest(self, params): sp.set_type(sp.record(mantissa = params), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(sp.as_nat(sp.level - self.data.accrualBlockNumber), sp.TNat) sp.set_type(params * sp.as_nat(sp.level - self.data.accrualBlockNumber), sp.TNat) - compute_CToken_761 = sp.local("compute_CToken_761", sp.record(mantissa = params * sp.as_nat(sp.level - self.data.accrualBlockNumber))) - sp.set_type(compute_CToken_761.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(compute_CToken_761.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + compute_CToken_771 = sp.local("compute_CToken_771", sp.record(mantissa = params * sp.as_nat(sp.level - self.data.accrualBlockNumber))) + sp.set_type(compute_CToken_771.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_CToken_771.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(self.data.totalBorrows, sp.TNat) - sp.set_type(compute_CToken_761.value.mantissa * self.data.totalBorrows, sp.TNat) - sp.set_type(sp.record(mantissa = compute_CToken_761.value.mantissa * self.data.totalBorrows), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - compute_CToken_763 = sp.local("compute_CToken_763", (compute_CToken_761.value.mantissa * self.data.totalBorrows) // self.data.expScale) - self.data.totalBorrows = compute_CToken_763.value + self.data.totalBorrows + sp.set_type(compute_CToken_771.value.mantissa * self.data.totalBorrows, sp.TNat) + sp.set_type(sp.record(mantissa = compute_CToken_771.value.mantissa * self.data.totalBorrows), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + compute_CToken_773 = sp.local("compute_CToken_773", (compute_CToken_771.value.mantissa * self.data.totalBorrows) // self.data.expScale) + self.data.totalBorrows = compute_CToken_773.value + self.data.totalBorrows sp.set_type(sp.record(mantissa = self.data.reserveFactorMantissa), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(compute_CToken_763.value, sp.TNat) + sp.set_type(compute_CToken_773.value, sp.TNat) sp.set_type(self.data.totalReserves, sp.TNat) sp.set_type(sp.record(mantissa = self.data.reserveFactorMantissa), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(sp.record(mantissa = self.data.reserveFactorMantissa), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(compute_CToken_763.value, sp.TNat) - sp.set_type(self.data.reserveFactorMantissa * compute_CToken_763.value, sp.TNat) - sp.set_type(sp.record(mantissa = self.data.reserveFactorMantissa * compute_CToken_763.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - self.data.totalReserves = ((self.data.reserveFactorMantissa * compute_CToken_763.value) // self.data.expScale) + self.data.totalReserves - sp.set_type(compute_CToken_761.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_CToken_773.value, sp.TNat) + sp.set_type(self.data.reserveFactorMantissa * compute_CToken_773.value, sp.TNat) + sp.set_type(sp.record(mantissa = self.data.reserveFactorMantissa * compute_CToken_773.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + self.data.totalReserves = ((self.data.reserveFactorMantissa * compute_CToken_773.value) // self.data.expScale) + self.data.totalReserves + sp.set_type(compute_CToken_771.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(self.data.borrowIndex, sp.TNat) sp.set_type(self.data.borrowIndex, sp.TNat) - sp.set_type(compute_CToken_761.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(compute_CToken_761.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_CToken_771.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_CToken_771.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(self.data.borrowIndex, sp.TNat) - sp.set_type(compute_CToken_761.value.mantissa * self.data.borrowIndex, sp.TNat) - sp.set_type(sp.record(mantissa = compute_CToken_761.value.mantissa * self.data.borrowIndex), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - self.data.borrowIndex = ((compute_CToken_761.value.mantissa * self.data.borrowIndex) // self.data.expScale) + self.data.borrowIndex + sp.set_type(compute_CToken_771.value.mantissa * self.data.borrowIndex, sp.TNat) + sp.set_type(sp.record(mantissa = compute_CToken_771.value.mantissa * self.data.borrowIndex), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + self.data.borrowIndex = ((compute_CToken_771.value.mantissa * self.data.borrowIndex) // self.data.expScale) + self.data.borrowIndex self.data.accrualBlockNumber = sp.level @sp.entrypoint @@ -175,24 +179,24 @@ def exchangeRateStored(self, params): sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') sp.set_type((sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat) excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply - sp.result(excRate.value) - sp.set_type(sp.snd(params), sp.TContract(sp.TNat)) + sp.result((excRate.value, self.data.accrualBlockNumber)) + sp.set_type(sp.snd(params), sp.TContract(sp.TPair(sp.TNat, sp.TNat))) sp.transfer(__s2.value, sp.tez(0), sp.snd(params)) @sp.entrypoint def getAccountSnapshot(self, params): __s3 = sp.bind_block("__s3"): with __s3: - compute_CToken_565 = sp.local("compute_CToken_565", sp.record(account = sp.fst(params), borrowBalance = 0, cTokenBalance = 0, exchangeRateMantissa = 0)) + compute_CToken_571 = sp.local("compute_CToken_571", sp.record(account = sp.fst(params), borrowBalance = 0, cTokenBalance = 0, exchangeRateMantissa = 0)) sp.if self.data.ledger.contains(sp.fst(params)): sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') - compute_CToken_565.value.cTokenBalance = self.data.ledger[sp.fst(params)].balance + compute_CToken_571.value.cTokenBalance = self.data.ledger[sp.fst(params)].balance borrowBalance = sp.local("borrowBalance", 0) sp.if self.data.borrows.contains(sp.fst(params)): borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[sp.fst(params)]) sp.if borrowSnapshot.value.principal > 0: borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex - compute_CToken_565.value.borrowBalance = borrowBalance.value + compute_CToken_571.value.borrowBalance = borrowBalance.value excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) sp.if self.data.totalSupply > 0: sp.set_type(self.data.currentCash, sp.TNat) @@ -204,8 +208,8 @@ def getAccountSnapshot(self, params): sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') sp.set_type((sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat) excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply - compute_CToken_565.value.exchangeRateMantissa = excRate.value - sp.result(compute_CToken_565.value) + compute_CToken_571.value.exchangeRateMantissa = excRate.value + sp.result(compute_CToken_571.value) sp.set_type(sp.snd(params), sp.TContract(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))) sp.transfer(__s3.value, sp.tez(0), sp.snd(params)) @@ -254,8 +258,8 @@ def getBalanceOfUnderlying(self, params): sp.set_type(self.data.ledger[sp.fst(params)].balance, sp.TNat) sp.set_type(excRate.value * self.data.ledger[sp.fst(params)].balance, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value * self.data.ledger[sp.fst(params)].balance), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.result((excRate.value * self.data.ledger[sp.fst(params)].balance) // self.data.expScale) - sp.set_type(sp.snd(params), sp.TContract(sp.TNat)) + sp.result(((excRate.value * self.data.ledger[sp.fst(params)].balance) // self.data.expScale, self.data.accrualBlockNumber)) + sp.set_type(sp.snd(params), sp.TContract(sp.TPair(sp.TNat, sp.TNat))) sp.transfer(__s6.value, sp.tez(0), sp.snd(params)) @sp.entrypoint @@ -263,8 +267,8 @@ def getCash(self, params): __s7 = sp.bind_block("__s7"): with __s7: sp.set_type(sp.fst(params), sp.TUnit) - sp.result(self.data.currentCash) - sp.set_type(sp.snd(params), sp.TContract(sp.TNat)) + sp.result((self.data.currentCash, self.data.accrualBlockNumber)) + sp.set_type(sp.snd(params), sp.TContract(sp.TPair(sp.TNat, sp.TNat))) sp.transfer(__s7.value, sp.tez(0), sp.snd(params)) @sp.entrypoint @@ -294,18 +298,20 @@ def liquidateBorrow(self, params): borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[params.borrower]) sp.if borrowSnapshot.value.principal > 0: borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex - sp.transfer(sp.record(from_ = sp.sender, to_ = sp.self_address, value = sp.min(borrowBalance.value, params.repayAmount)), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entrypoint='transfer').open_some()) + repayAmount = sp.local("repayAmount", sp.min(borrowBalance.value, params.repayAmount)) + actualRepayAmount = sp.local("actualRepayAmount", sp.min(repayAmount.value, self.data.totalBorrows)) + sp.transfer(sp.record(from_ = sp.sender, to_ = sp.self_address, value = repayAmount.value), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entrypoint='transfer').open_some()) sp.set_type(borrowBalance.value, sp.TNat) - sp.set_type(sp.min(borrowBalance.value, params.repayAmount), sp.TNat) - self.data.borrows[params.borrower].principal = sp.as_nat(borrowBalance.value - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW') + sp.set_type(repayAmount.value, sp.TNat) + self.data.borrows[params.borrower].principal = sp.as_nat(borrowBalance.value - repayAmount.value, message = 'SUBTRACTION_UNDERFLOW') self.data.borrows[params.borrower].interestIndex = self.data.borrowIndex sp.set_type(self.data.totalBorrows, sp.TNat) - sp.set_type(sp.min(borrowBalance.value, params.repayAmount), sp.TNat) - self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW') + sp.set_type(actualRepayAmount.value, sp.TNat) + self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - actualRepayAmount.value, message = 'SUBTRACTION_UNDERFLOW') sp.if self.data.borrows[params.borrower].principal == 0: sp.transfer(params.borrower, sp.tez(0), sp.contract(sp.TAddress, self.data.comptroller, entrypoint='removeFromLoans').open_some()) - sp.verify(sp.view("balanceOf", params.borrower, params.cTokenCollateral, sp.TNat).open_some(message = 'INVALID BALANCE OF VIEW') >= sp.view("liquidateCalculateSeizeTokens", sp.record(actualRepayAmount = params.repayAmount, cTokenBorrowed = sp.self_address, cTokenCollateral = params.cTokenCollateral), self.data.comptroller, sp.TNat).open_some(message = 'INVALID LIQUIDATE CALC SEIZE TOKEN VIEW'), 'LIQUIDATE_SEIZE_TOO_MUCH') - sp.transfer(sp.record(borrower = params.borrower, liquidator = sp.sender, seizeTokens = sp.view("liquidateCalculateSeizeTokens", sp.record(actualRepayAmount = params.repayAmount, cTokenBorrowed = sp.self_address, cTokenCollateral = params.cTokenCollateral), self.data.comptroller, sp.TNat).open_some(message = 'INVALID LIQUIDATE CALC SEIZE TOKEN VIEW')), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, liquidator = sp.TAddress, seizeTokens = sp.TNat).layout(("borrower", ("liquidator", "seizeTokens"))), params.cTokenCollateral, entrypoint='seize').open_some()) + sp.verify(sp.view("balanceOf", params.borrower, params.cTokenCollateral, sp.TNat).open_some(message = 'INVALID BALANCE OF VIEW') >= sp.fst(sp.view("liquidateCalculateSeizeTokens", sp.record(actualRepayAmount = params.repayAmount, cTokenBorrowed = sp.self_address, cTokenCollateral = params.cTokenCollateral), self.data.comptroller, sp.TPair(sp.TNat, sp.TNat)).open_some(message = 'INVALID LIQUIDATE CALC SEIZE TOKEN VIEW')), 'LIQUIDATE_SEIZE_TOO_MUCH') + sp.transfer(sp.record(borrower = params.borrower, liquidator = sp.sender, seizeTokens = sp.fst(sp.view("liquidateCalculateSeizeTokens", sp.record(actualRepayAmount = params.repayAmount, cTokenBorrowed = sp.self_address, cTokenCollateral = params.cTokenCollateral), self.data.comptroller, sp.TPair(sp.TNat, sp.TNat)).open_some(message = 'INVALID LIQUIDATE CALC SEIZE TOKEN VIEW'))), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, liquidator = sp.TAddress, seizeTokens = sp.TNat).layout(("borrower", ("liquidator", "seizeTokens"))), params.cTokenCollateral, entrypoint='seize').open_some()) @sp.entrypoint def mint(self, params): @@ -335,8 +341,8 @@ def mint(self, params): sp.set_type(params, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO') - compute_CToken_965 = sp.local("compute_CToken_965", (params * self.data.expScale) // excRate.value) - amount.value = compute_CToken_965.value + compute_CToken_975 = sp.local("compute_CToken_975", (params * self.data.expScale) // excRate.value) + amount.value = compute_CToken_975.value sp.else: sp.set_type(excRate.value, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) @@ -344,8 +350,8 @@ def mint(self, params): sp.set_type(params, sp.TNat) sp.set_type(excRate.value * params, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value * params), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - compute_CToken_968 = sp.local("compute_CToken_968", (excRate.value * params) // self.data.expScale) - amount.value = compute_CToken_968.value + compute_CToken_978 = sp.local("compute_CToken_978", (excRate.value * params) // self.data.expScale) + amount.value = compute_CToken_978.value sp.verify(amount.value > 0, 'CT_MINT_AMOUNT_IS_INVALID') self.data.totalSupply += amount.value self.data.ledger[sp.sender].balance += amount.value @@ -376,8 +382,8 @@ def redeem(self, params): sp.set_type(params, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO') - compute_CToken_965 = sp.local("compute_CToken_965", (params * self.data.expScale) // excRate.value) - amount.value = compute_CToken_965.value + compute_CToken_975 = sp.local("compute_CToken_975", (params * self.data.expScale) // excRate.value) + amount.value = compute_CToken_975.value sp.else: sp.set_type(excRate.value, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) @@ -385,8 +391,8 @@ def redeem(self, params): sp.set_type(params, sp.TNat) sp.set_type(excRate.value * params, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value * params), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - compute_CToken_968 = sp.local("compute_CToken_968", (excRate.value * params) // self.data.expScale) - amount.value = compute_CToken_968.value + compute_CToken_978 = sp.local("compute_CToken_978", (excRate.value * params) // self.data.expScale) + amount.value = compute_CToken_978.value redeem_amount.value = amount.value redeem_tokens = sp.local("redeem_tokens", 0) sp.if False: @@ -411,8 +417,8 @@ def redeem(self, params): compute_Exponential_280 = sp.local("compute_Exponential_280", compute_Exponential_277.value // excRate.value) sp.if (compute_Exponential_277.value % excRate.value) > 0: pass - compute_CToken_976 = sp.local("compute_CToken_976", compute_Exponential_280.value + 1) - amount.value = compute_CToken_976.value + compute_CToken_986 = sp.local("compute_CToken_986", compute_Exponential_280.value + 1) + amount.value = compute_CToken_986.value sp.else: sp.set_type(excRate.value, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) @@ -420,8 +426,8 @@ def redeem(self, params): sp.set_type(params, sp.TNat) sp.set_type(excRate.value * params, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value * params), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - compute_CToken_979 = sp.local("compute_CToken_979", (excRate.value * params) // self.data.expScale) - amount.value = compute_CToken_979.value + compute_CToken_989 = sp.local("compute_CToken_989", (excRate.value * params) // self.data.expScale) + amount.value = compute_CToken_989.value redeem_tokens.value = amount.value sp.else: redeem_tokens.value = params @@ -458,8 +464,8 @@ def redeemUnderlying(self, params): sp.set_type(params, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO') - compute_CToken_965 = sp.local("compute_CToken_965", (params * self.data.expScale) // excRate.value) - amount.value = compute_CToken_965.value + compute_CToken_975 = sp.local("compute_CToken_975", (params * self.data.expScale) // excRate.value) + amount.value = compute_CToken_975.value sp.else: sp.set_type(excRate.value, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) @@ -467,8 +473,8 @@ def redeemUnderlying(self, params): sp.set_type(params, sp.TNat) sp.set_type(excRate.value * params, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value * params), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - compute_CToken_968 = sp.local("compute_CToken_968", (excRate.value * params) // self.data.expScale) - amount.value = compute_CToken_968.value + compute_CToken_978 = sp.local("compute_CToken_978", (excRate.value * params) // self.data.expScale) + amount.value = compute_CToken_978.value redeem_amount.value = amount.value redeem_tokens = sp.local("redeem_tokens", 0) sp.if True: @@ -493,8 +499,8 @@ def redeemUnderlying(self, params): compute_Exponential_280 = sp.local("compute_Exponential_280", compute_Exponential_277.value // excRate.value) sp.if (compute_Exponential_277.value % excRate.value) > 0: pass - compute_CToken_976 = sp.local("compute_CToken_976", compute_Exponential_280.value + 1) - amount.value = compute_CToken_976.value + compute_CToken_986 = sp.local("compute_CToken_986", compute_Exponential_280.value + 1) + amount.value = compute_CToken_986.value sp.else: sp.set_type(excRate.value, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) @@ -502,8 +508,8 @@ def redeemUnderlying(self, params): sp.set_type(params, sp.TNat) sp.set_type(excRate.value * params, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value * params), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - compute_CToken_979 = sp.local("compute_CToken_979", (excRate.value * params) // self.data.expScale) - amount.value = compute_CToken_979.value + compute_CToken_989 = sp.local("compute_CToken_989", (excRate.value * params) // self.data.expScale) + amount.value = compute_CToken_989.value redeem_tokens.value = amount.value sp.else: redeem_tokens.value = params @@ -556,14 +562,16 @@ def repayBorrow(self, params): borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[sp.sender]) sp.if borrowSnapshot.value.principal > 0: borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex - sp.transfer(sp.record(from_ = sp.sender, to_ = sp.self_address, value = sp.min(borrowBalance.value, params)), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entrypoint='transfer').open_some()) + repayAmount = sp.local("repayAmount", sp.min(borrowBalance.value, params)) + actualRepayAmount = sp.local("actualRepayAmount", sp.min(repayAmount.value, self.data.totalBorrows)) + sp.transfer(sp.record(from_ = sp.sender, to_ = sp.self_address, value = repayAmount.value), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entrypoint='transfer').open_some()) sp.set_type(borrowBalance.value, sp.TNat) - sp.set_type(sp.min(borrowBalance.value, params), sp.TNat) - self.data.borrows[sp.sender].principal = sp.as_nat(borrowBalance.value - sp.min(borrowBalance.value, params), message = 'SUBTRACTION_UNDERFLOW') + sp.set_type(repayAmount.value, sp.TNat) + self.data.borrows[sp.sender].principal = sp.as_nat(borrowBalance.value - repayAmount.value, message = 'SUBTRACTION_UNDERFLOW') self.data.borrows[sp.sender].interestIndex = self.data.borrowIndex sp.set_type(self.data.totalBorrows, sp.TNat) - sp.set_type(sp.min(borrowBalance.value, params), sp.TNat) - self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - sp.min(borrowBalance.value, params), message = 'SUBTRACTION_UNDERFLOW') + sp.set_type(actualRepayAmount.value, sp.TNat) + self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - actualRepayAmount.value, message = 'SUBTRACTION_UNDERFLOW') sp.if self.data.borrows[sp.sender].principal == 0: sp.transfer(sp.sender, sp.tez(0), sp.contract(sp.TAddress, self.data.comptroller, entrypoint='removeFromLoans').open_some()) @@ -582,14 +590,16 @@ def repayBorrowBehalf(self, params): borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[params.borrower]) sp.if borrowSnapshot.value.principal > 0: borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex - sp.transfer(sp.record(from_ = sp.sender, to_ = sp.self_address, value = sp.min(borrowBalance.value, params.repayAmount)), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entrypoint='transfer').open_some()) + repayAmount = sp.local("repayAmount", sp.min(borrowBalance.value, params.repayAmount)) + actualRepayAmount = sp.local("actualRepayAmount", sp.min(repayAmount.value, self.data.totalBorrows)) + sp.transfer(sp.record(from_ = sp.sender, to_ = sp.self_address, value = repayAmount.value), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entrypoint='transfer').open_some()) sp.set_type(borrowBalance.value, sp.TNat) - sp.set_type(sp.min(borrowBalance.value, params.repayAmount), sp.TNat) - self.data.borrows[params.borrower].principal = sp.as_nat(borrowBalance.value - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW') + sp.set_type(repayAmount.value, sp.TNat) + self.data.borrows[params.borrower].principal = sp.as_nat(borrowBalance.value - repayAmount.value, message = 'SUBTRACTION_UNDERFLOW') self.data.borrows[params.borrower].interestIndex = self.data.borrowIndex sp.set_type(self.data.totalBorrows, sp.TNat) - sp.set_type(sp.min(borrowBalance.value, params.repayAmount), sp.TNat) - self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW') + sp.set_type(actualRepayAmount.value, sp.TNat) + self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - actualRepayAmount.value, message = 'SUBTRACTION_UNDERFLOW') sp.if self.data.borrows[params.borrower].principal == 0: sp.transfer(params.borrower, sp.tez(0), sp.contract(sp.TAddress, self.data.comptroller, entrypoint='removeFromLoans').open_some()) @@ -716,7 +726,7 @@ def sweepMutez(self, params): @sp.entrypoint def transfer(self, params): sp.set_type(params, sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value")))) - sp.verify((params.from_ == sp.sender) | (self.data.ledger[params.from_].approvals[sp.sender] >= params.value), 'FA1.2_NotAllowed') + sp.verify((params.from_ == sp.sender) | (self.data.ledger[params.from_].approvals[sp.sender] >= params.value), ('NotEnoughAllowance', (params.value, self.data.ledger[params.from_].approvals[sp.sender]))) sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') sp.if ~ (self.data.ledger.contains(params.to_)): self.data.ledger[params.to_] = sp.record(approvals = {}, balance = 0) @@ -724,7 +734,7 @@ def transfer(self, params): self.data.borrows[params.to_] = sp.record(interestIndex = 0, principal = 0) sp.transfer(sp.record(cToken = sp.self_address, dst = params.to_, src = params.from_, transferTokens = params.value), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, dst = sp.TAddress, src = sp.TAddress, transferTokens = sp.TNat).layout((("cToken", "src"), ("dst", "transferTokens"))), self.data.comptroller, entrypoint='transferAllowed').open_some()) sp.set_type(sp.record(from_ = params.from_, sender = sp.sender, to_ = params.to_, value = params.value), sp.TRecord(from_ = sp.TAddress, sender = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout((("from_", "sender"), ("to_", "value")))) - sp.verify(self.data.ledger[params.from_].balance >= params.value, 'FA1.2_InsufficientBalance') + sp.verify(self.data.ledger[params.from_].balance >= params.value, ('NotEnoughBalance', (params.value, self.data.ledger[params.from_].balance))) self.data.ledger[params.from_].balance = sp.as_nat(self.data.ledger[params.from_].balance - params.value) self.data.ledger[params.to_].balance += params.value sp.if params.from_ != sp.sender: diff --git a/compiled_contracts/CUSDtz/step_000_cont_0_contract.tz b/compiled_contracts/CUSDtz/step_000_cont_0_contract.tz index 64eac756..60362680 100644 --- a/compiled_contracts/CUSDtz/step_000_cont_0_contract.tz +++ b/compiled_contracts/CUSDtz/step_000_cont_0_contract.tz @@ -1,4 +1,4 @@ -parameter (or (or (or (or (unit %acceptGovernance) (or (contract %accrueInterestInternal nat) (pair %approve (address %spender) (nat %value)))) (or (nat %doAccrueInterest) (or (unit %hardResetOp) (nat %reduceReservesInternal)))) (or (or (unit %removePendingGovernance) (or (nat %setCash) (address %setComptroller))) (or (or (address %setInterestRateModelInternal) (address %setPendingGovernance)) (or (nat %setReserveFactorInternal) (nat %updateProtocolSeizeShare))))) (or (or (or (or (unit %accrueInterest) (or (nat %addReserves) (pair %addReservesInternal (nat %addAmount) (address %originalSender)))) (or (nat %borrow) (or (pair %borrowBalanceStored address (contract nat)) (pair %exchangeRateStored unit (contract nat))))) (or (or (pair %getAccountSnapshot address (contract (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))))) (or (pair %getAllowance (pair (address %owner) (address %spender)) (contract nat)) (pair %getBalance address (contract nat)))) (or (or (pair %getBalanceOfUnderlying address (contract nat)) (pair %getCash unit (contract nat))) (or (pair %getTotalSupply unit (contract nat)) (pair %liquidateBorrow (address %borrower) (pair (address %cTokenCollateral) (nat %repayAmount))))))) (or (or (or (nat %mint) (or (nat %redeem) (nat %redeemUnderlying))) (or (or (nat %reduceReserves) (nat %repayBorrow)) (or (pair %repayBorrowBehalf (address %borrower) (nat %repayAmount)) (pair %seize (address %borrower) (pair (address %liquidator) (nat %seizeTokens)))))) (or (or (address %setInterestRateModel) (or (nat %setReserveFactor) (pair %sweepFA12 (nat %amount) (address %tokenAddress)))) (or (or (pair %sweepFA2 (nat %amount) (pair (nat %id) (address %tokenAddress))) (bool %sweepMutez)) (or (pair %transfer (address %from) (pair (address %to) (nat %value))) (pair %updateMetadata (string %key) (bytes %value)))))))); +parameter (or (or (or (or (unit %acceptGovernance) (or (contract %accrueInterestInternal nat) (pair %approve (address %spender) (nat %value)))) (or (nat %doAccrueInterest) (or (unit %hardResetOp) (nat %reduceReservesInternal)))) (or (or (unit %removePendingGovernance) (or (nat %setCash) (address %setComptroller))) (or (or (address %setInterestRateModelInternal) (address %setPendingGovernance)) (or (nat %setReserveFactorInternal) (nat %updateProtocolSeizeShare))))) (or (or (or (or (unit %accrueInterest) (or (nat %addReserves) (pair %addReservesInternal (nat %addAmount) (address %originalSender)))) (or (nat %borrow) (or (pair %borrowBalanceStored address (contract (pair nat nat))) (pair %exchangeRateStored unit (contract (pair nat nat)))))) (or (or (pair %getAccountSnapshot address (contract (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))))) (or (pair %getAllowance (pair (address %owner) (address %spender)) (contract nat)) (pair %getBalance address (contract nat)))) (or (or (pair %getBalanceOfUnderlying address (contract (pair nat nat))) (pair %getCash unit (contract (pair nat nat)))) (or (pair %getTotalSupply unit (contract nat)) (pair %liquidateBorrow (address %borrower) (pair (address %cTokenCollateral) (nat %repayAmount))))))) (or (or (or (nat %mint) (or (nat %redeem) (nat %redeemUnderlying))) (or (or (nat %reduceReserves) (nat %repayBorrow)) (or (pair %repayBorrowBehalf (address %borrower) (nat %repayAmount)) (pair %seize (address %borrower) (pair (address %liquidator) (nat %seizeTokens)))))) (or (or (address %setInterestRateModel) (or (nat %setReserveFactor) (pair %sweepFA12 (nat %amount) (address %tokenAddress)))) (or (or (pair %sweepFA2 (nat %amount) (pair (nat %id) (address %tokenAddress))) (bool %sweepMutez)) (or (pair %transfer (address %from) (pair (address %to) (nat %value))) (pair %updateMetadata (string %key) (bytes %value)))))))); storage (pair (pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))))) (big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))))); code { @@ -13,16 +13,19 @@ code IF_LEFT { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == acceptGovernance == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { IF_LEFT { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == accrueInterestInternal == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 1; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == approve == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 2; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -31,16 +34,19 @@ code IF_LEFT { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == doAccrueInterest == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 3; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { IF_LEFT { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == hardResetOp == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 4; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == reduceReservesInternal == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 5; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -52,16 +58,19 @@ code IF_LEFT { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == removePendingGovernance == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 6; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { IF_LEFT { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == setCash == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 7; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == setComptroller == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 8; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -72,10 +81,12 @@ code IF_LEFT { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == setInterestRateModelInternal == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 9; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == setPendingGovernance == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 10; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } @@ -83,10 +94,12 @@ code IF_LEFT { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == setReserveFactorInternal == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 11; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == updateProtocolSeizeShare == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 12; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -100,7 +113,9 @@ code PUSH int -1; # int : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + { + # missing entrypoint # @some : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @some : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUG 2; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @some : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair @parameter.left (pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))))) : @some : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EXEC; # pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -115,6 +130,8 @@ code { IF_LEFT { + # == accrueInterest == + # compute_CFA12_27 = sp.local("compute_CFA12_27", (self.data.currentCash + self.data.totalSupply) + self.data.totalReserves) # @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 9; # nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -125,12 +142,14 @@ code GET 4; # nat : nat : nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ADD; # nat : nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ADD; # nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if compute_CFA12_27.value > 0: # nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # nat : nat : nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GT; # bool : nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # self.data.activeOperations.add(13) # nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DIG 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -148,6 +167,7 @@ code PAIR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUG 2; # nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer((sp.self_address, sp.self_entrypoint('setCash')), sp.tez(0), sp.contract(sp.TPair(sp.TAddress, sp.TContract(sp.TNat)), self.data.fa1_2_TokenAddress, entrypoint='getBalance').open_some()) # nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -161,27 +181,26 @@ code {}; # @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH mutez 0; # mutez : @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF %setCash; # @self : mutez : @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # contract nat : mutez : @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SELF_ADDRESS; # @self : contract nat : mutez : @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : contract nat : mutez : @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair address (contract nat) : mutez : @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : @self : mutez : @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair @self @self : mutez : @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { NIL operation; # list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if sp.level != self.data.accrualBlockNumber: # list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair nat (pair (set nat) address) : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) LEVEL; # @level : nat : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # nat : nat : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NEQ; # bool : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # if self.data.accrualBlockNumber == 0: # list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -192,6 +211,7 @@ code EQ; # bool : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # self.data.accrualBlockNumber = sp.level # list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DIG 3; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : nat : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : nat : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : nat : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -202,12 +222,11 @@ code DROP; # @level : pair (set nat) address : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DIG 6; # @parameter%accrueInterest : @level : pair (set nat) address : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # @level : pair (set nat) address : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # nat : pair (set nat) address : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair nat (pair (set nat) address) : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair @level (pair (set nat) address) : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair @level (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair @level (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair @level (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # list operation : pair (pair (pair (pair @level (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { SWAP; # nat : list operation : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -215,6 +234,7 @@ code SWAP; # @parameter%accrueInterest : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.activeOperations.add(8) # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair nat (pair (set nat) address) : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -231,18 +251,17 @@ code PAIR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.self_entrypoint('doAccrueInterest'), sp.tez(0), sp.contract(sp.TContract(sp.TNat), sp.self_address, entrypoint='accrueInterestInternal').open_some()) # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONTRACT %accrueInterestInternal (contract nat); # option (contract (contract nat)) : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 735; # int : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 745; # int : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH mutez 0; # mutez : @some : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF %doAccrueInterest; # @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # contract nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -257,10 +276,10 @@ code { IF_LEFT { + # == addReserves == + # sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : address : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NEQ; # bool : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -269,6 +288,7 @@ code PUSH string "CT_INTERNAL_CALL"; # string : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') # @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -285,6 +305,7 @@ code FAILWITH; # FAILED }; # @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%addReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.activeOperations.add(11) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%addReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -301,29 +322,27 @@ code PAIR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%addReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.unit, sp.tez(0), sp.self_entrypoint('accrueInterest')) # @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF %accrueInterest; # @self : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # contract unit : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH mutez 0; # mutez : contract unit : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNIT; # unit : mutez : contract unit : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @self : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNIT; # unit : mutez : @self : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(addAmount = params, originalSender = sp.sender), sp.amount, sp.self_entrypoint('addReservesInternal')) # list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF %addReservesInternal; # @self : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # contract (pair (nat %addAmount) (address %originalSender)) : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - AMOUNT; # @amount : contract (pair (nat %addAmount) (address %originalSender)) : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # mutez : contract (pair (nat %addAmount) (address %originalSender)) : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : mutez : contract (pair (nat %addAmount) (address %originalSender)) : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : mutez : contract (pair (nat %addAmount) (address %originalSender)) : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 4; # @parameter%addReserves : address : mutez : contract (pair (nat %addAmount) (address %originalSender)) : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair @parameter%addReserves address : mutez : contract (pair (nat %addAmount) (address %originalSender)) : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + AMOUNT; # @amount : @self : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @amount : @self : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 4; # @parameter%addReserves : @sender : @amount : @self : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair @parameter%addReserves @sender : @amount : @self : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { + # == addReservesInternal == + # sp.verify(sp.sender == sp.self_address, 'CT_INTERNAL_FUNCTION') # @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : address : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -332,6 +351,7 @@ code PUSH string "CT_INTERNAL_FUNCTION"; # string : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(self.data.activeOperations.contains(11), 'OP_NOT_ACTIVE') # @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -346,6 +366,7 @@ code FAILWITH; # FAILED }; # @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.activeOperations.remove(11) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -362,13 +383,13 @@ code PAIR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair nat (pair (set nat) address) : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) LEVEL; # @level : nat : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # nat : nat : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -377,6 +398,7 @@ code PUSH string "CT_INTEREST_OLD"; # string : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(from_ = params.originalSender, to_ = sp.self_address, value = params.addAmount), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entrypoint='transfer').open_some()) # @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -392,12 +414,12 @@ code DUP 4; # @parameter%addReservesInternal : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : nat : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : nat : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 6; # @parameter%addReservesInternal : address : nat : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CDR; # address : address : nat : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair address (pair address nat) : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 6; # @parameter%addReservesInternal : @self : nat : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # address : @self : nat : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair address (pair @self nat) : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.totalReserves += params.addAmount # list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DIG 2; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 9; # nat : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -412,10 +434,10 @@ code { IF_LEFT { + # == borrow == + # sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : address : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NEQ; # bool : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -424,18 +446,18 @@ code PUSH string "CT_INTERNAL_CALL"; # string : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if ~ (self.data.ledger.contains(sp.sender)): # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) MEM; # bool : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NOT; # bool : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # bool : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[sp.sender] = sp.record(approvals = {}, balance = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -446,7 +468,6 @@ code SWAP; # big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH (option (pair (map address nat) nat)) (Some (Pair {} 0)); # option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # address : big_map address (pair (map address nat) nat) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair address (big_map address (pair (map address nat) nat)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -457,20 +478,19 @@ code SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - {}; # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if ~ (self.data.borrows.contains(sp.sender)): # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) MEM; # bool : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NOT; # bool : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # bool : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[sp.sender] = sp.record(interestIndex = 0, principal = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -478,7 +498,6 @@ code UNPAIR; # big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH (option (pair nat nat)) (Some (Pair 0 0)); # option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -486,8 +505,8 @@ code PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - {}; # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(borrowAmount = params, borrower = sp.sender, cToken = sp.self_address), sp.tez(0), sp.contract(sp.TRecord(borrowAmount = sp.TNat, borrower = sp.TAddress, cToken = sp.TAddress).layout(("cToken", ("borrower", "borrowAmount"))), self.data.comptroller, entrypoint='borrowAllowed').open_some()) # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -503,12 +522,11 @@ code PUSH mutez 0; # mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # @parameter%borrow : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : @parameter%borrow : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%borrow : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SELF_ADDRESS; # @self : address : @parameter%borrow : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%borrow : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair address (pair address @parameter%borrow) : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : @sender : @parameter%borrow : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @self (pair @sender @parameter%borrow) : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(self.data.currentCash >= params, 'CT_INSUFFICIENT_CASH') # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @parameter%borrow : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%borrow : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%borrow : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -522,13 +540,13 @@ code PUSH string "CT_INSUFFICIENT_CASH"; # string : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) LEVEL; # @level : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # nat : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -537,6 +555,7 @@ code PUSH string "CT_INTEREST_OLD"; # string : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(from_ = sp.self_address, to_ = sp.sender, value = params), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entrypoint='transfer').open_some()) # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 7; # address : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -550,35 +569,35 @@ code PUSH mutez 0; # mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # @parameter%borrow : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : @parameter%borrow : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%borrow : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SELF_ADDRESS; # @self : address : @parameter%borrow : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%borrow : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair address (pair address @parameter%borrow) : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : @sender : @parameter%borrow : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @self (pair @sender @parameter%borrow) : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance = sp.local("borrowBalance", 0) # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.borrows.contains(sp.sender): # nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # big_map address (pair nat nat) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair nat nat) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair nat nat) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) MEM; # bool : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[sp.sender]) # nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # big_map address (pair nat nat) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair nat nat) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair nat nat) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET; # option (pair nat nat) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 628; # int : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 638; # int : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if borrowSnapshot.value.principal > 0: # @some : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @some : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @some : nat : @some : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # nat : nat : @some : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -588,6 +607,7 @@ code { SWAP; # nat : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # @some : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -600,7 +620,7 @@ code EDIV; # option (pair nat nat) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 631; # int : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 641; # int : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } { @@ -612,6 +632,7 @@ code }; # nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } {}; # nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[sp.sender].principal = borrowBalance.value + params # nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DIG 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -620,28 +641,28 @@ code UNPAIR; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # address : address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUG 2; # address : big_map address (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET; # option (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # @sender : @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # @sender : big_map address (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 210; # int : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 210; # int : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 10; # @parameter%borrow : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 8; # nat : @parameter%borrow : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - ADD; # nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UPDATE 2; # @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SOME; # option (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # address : option (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + {}; # @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 10; # @parameter%borrow : @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 8; # nat : @parameter%borrow : @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ADD; # nat : @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE 2; # @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SOME; # option (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @sender : option (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[sp.sender].interestIndex = self.data.borrowIndex # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -654,26 +675,26 @@ code UNPAIR; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # address : address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUG 2; # address : big_map address (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET; # option (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # @sender : @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # @sender : big_map address (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 211; # int : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 211; # int : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 7; # nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UPDATE 1; # @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SOME; # option (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # address : option (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + {}; # @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 7; # nat : @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE 1; # @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SOME; # option (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @sender : option (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.totalBorrows += params # pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -697,7 +718,10 @@ code { IF_LEFT { + # == borrowBalanceStored == + # borrowBalance = sp.local("borrowBalance", 0) # @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.borrows.contains(sp.fst(params)): # nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -707,6 +731,7 @@ code MEM; # bool : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[sp.fst(params)]) # nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -716,10 +741,11 @@ code GET; # option (pair (nat %interestIndex) (nat %principal)) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 628; # int : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 638; # int : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if borrowSnapshot.value.principal > 0: # @some : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @some : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @some : nat : @some : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # nat : nat : @some : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -729,6 +755,7 @@ code { SWAP; # nat : @some : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # @some : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # @some : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # @some : @some : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : @some : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -741,7 +768,7 @@ code EDIV; # option (pair nat nat) : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 631; # int : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 641; # int : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } { @@ -753,19 +780,31 @@ code }; # nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } {}; # nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NIL operation; # list operation : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 2; # @parameter%borrowBalanceStored : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CDR; # contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.result((borrowBalance.value, self.data.accrualBlockNumber)) # nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair nat nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(__s1.value, sp.tez(0), sp.snd(params)) # pair nat nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL operation; # list operation : pair nat nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 2; # @parameter%borrowBalanceStored : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # contract (pair nat nat) : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : contract (pair nat nat) : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # pair nat nat : mutez : contract (pair nat nat) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { + # == exchangeRateStored == + # excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.totalSupply > 0: # nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -774,6 +813,7 @@ code IF { DROP; # @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -785,6 +825,7 @@ code PUSH string "DIVISION_BY_ZERO"; # string : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -802,7 +843,6 @@ code GET 4; # nat : nat : nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -812,10 +852,9 @@ code ADD; # nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 671; # int : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 681; # int : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -831,11 +870,20 @@ code }; # nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } {}; # nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NIL operation; # list operation : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 2; # @parameter%exchangeRateStored : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CDR; # contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.result((excRate.value, self.data.accrualBlockNumber)) # nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair nat nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(__s2.value, sp.tez(0), sp.snd(params)) # pair nat nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL operation; # list operation : pair nat nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 2; # @parameter%exchangeRateStored : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # contract (pair nat nat) : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : contract (pair nat nat) : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # pair nat nat : mutez : contract (pair nat nat) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -847,12 +895,15 @@ code { IF_LEFT { + # == getAccountSnapshot == + # compute_CToken_571 = sp.local("compute_CToken_571", sp.record(account = sp.fst(params), borrowBalance = 0, cTokenBalance = 0, exchangeRateMantissa = 0)) # @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH (pair nat nat) (Pair 0 0); # pair nat nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : pair nat nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # @parameter%getAccountSnapshot : nat : pair nat nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # address : nat : pair nat nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair address nat : pair nat nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.ledger.contains(sp.fst(params)): # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -862,13 +913,13 @@ code MEM; # bool : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) LEVEL; # @level : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -877,6 +928,7 @@ code PUSH string "CT_INTEREST_OLD"; # string : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # compute_CToken_571.value.cTokenBalance = self.data.ledger[sp.fst(params)].balance # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -886,13 +938,15 @@ code GET; # option (pair (map %approvals address nat) (nat %balance)) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 573; # int : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 579; # int : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE 3; # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance = sp.local("borrowBalance", 0) # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.borrows.contains(sp.fst(params)): # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -902,6 +956,7 @@ code MEM; # bool : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[sp.fst(params)]) # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -911,10 +966,11 @@ code GET; # option (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 628; # int : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 638; # int : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if borrowSnapshot.value.principal > 0: # @some : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @some : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @some : nat : @some : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # nat : nat : @some : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -924,6 +980,7 @@ code { SWAP; # nat : @some : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # @some : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # @some : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # @some : @some : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : @some : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -936,7 +993,7 @@ code EDIV; # option (pair nat nat) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 631; # int : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 641; # int : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } { @@ -949,6 +1006,7 @@ code } {}; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair address nat) (pair nat nat) : nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # compute_CToken_571.value.borrowBalance = borrowBalance.value # pair (pair address nat) (pair nat nat) : nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair address nat : pair nat nat : nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # address : pair nat nat : nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # nat : address : pair nat nat : nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -956,10 +1014,12 @@ code PAIR; # pair address nat : pair nat nat : nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair address nat) (pair nat nat) : nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.totalSupply > 0: # nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -968,6 +1028,7 @@ code IF { DROP 2; # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -979,6 +1040,7 @@ code PUSH string "DIVISION_BY_ZERO"; # string : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -996,7 +1058,6 @@ code GET 4; # nat : nat : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1006,10 +1067,9 @@ code ADD; # nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 671; # int : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 681; # int : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1028,9 +1088,12 @@ code SWAP; # nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # compute_CToken_571.value.exchangeRateMantissa = excRate.value # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE 4; # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } {}; # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.result(compute_CToken_571.value) + # sp.transfer(__s3.value, sp.tez(0), sp.snd(params)) # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DIG 2; # @parameter%getAccountSnapshot : list operation : pair (pair address nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # contract (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))) : list operation : pair (pair address nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1042,7 +1105,10 @@ code { IF_LEFT { + # == getAllowance == + # result = sp.local("result", 0) # @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.ledger.contains(sp.fst(params).owner): # nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1053,6 +1119,7 @@ code MEM; # bool : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # if self.data.ledger[sp.fst(params).owner].approvals.contains(sp.fst(params).spender): # nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1063,7 +1130,7 @@ code GET; # option (pair (map %approvals address nat) (nat %balance)) : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 549; # int : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 555; # int : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1075,6 +1142,7 @@ code IF { DROP; # @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # result.value = self.data.ledger[sp.fst(params).owner].approvals[sp.fst(params).spender] # @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1085,7 +1153,7 @@ code GET; # option (pair (map %approvals address nat) (nat %balance)) : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 550; # int : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 556; # int : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1096,7 +1164,7 @@ code GET; # option nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 550; # int : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 556; # int : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1104,6 +1172,8 @@ code {}; # nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } {}; # nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.result(result.value) + # sp.transfer(__s4.value, sp.tez(0), sp.snd(params)) # nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DIG 2; # @parameter%getAllowance : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1113,7 +1183,10 @@ code CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { + # == getBalance == + # result = sp.local("result", 0) # @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.ledger.contains(sp.fst(params)): # nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1124,6 +1197,7 @@ code IF { DROP; # @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # result.value = self.data.ledger[sp.fst(params)].balance # @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1133,13 +1207,15 @@ code GET; # option (pair (map %approvals address nat) (nat %balance)) : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 489; # int : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 495; # int : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } {}; # nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.result(result.value) + # sp.transfer(__s5.value, sp.tez(0), sp.snd(params)) # nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DIG 2; # @parameter%getBalance : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1155,10 +1231,13 @@ code { IF_LEFT { + # == getBalanceOfUnderlying == + # excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.totalSupply > 0: # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1167,6 +1246,7 @@ code IF { DROP; # @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1178,6 +1258,7 @@ code PUSH string "DIVISION_BY_ZERO"; # string : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1195,7 +1276,6 @@ code GET 4; # nat : nat : nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1205,10 +1285,9 @@ code ADD; # nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 671; # int : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 681; # int : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1224,52 +1303,69 @@ code }; # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } {}; # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.result(((excRate.value * self.data.ledger[sp.fst(params)].balance) // self.data.expScale, self.data.accrualBlockNumber)) # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 5; # nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 4; # big_map address (pair (map %approvals address nat) (nat %balance)) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 4; # @parameter%getBalanceOfUnderlying : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET; # option (pair (map %approvals address nat) (nat %balance)) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 5; # nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # big_map address (pair (map %approvals address nat) (nat %balance)) : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # @parameter%getBalanceOfUnderlying : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (map %approvals address nat) (nat %balance)) : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 521; # int : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 527; # int : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CDR; # nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 2; # nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - MUL; # nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - EDIV; # option (pair nat nat) : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + {}; # @some : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + MUL; # nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EDIV; # option (pair nat nat) : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 61; # int : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 61; # int : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } { - CAR; # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - }; # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NIL operation; # list operation : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 2; # @parameter%getBalanceOfUnderlying : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CDR; # contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair nat nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(__s6.value, sp.tez(0), sp.snd(params)) # pair nat nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL operation; # list operation : pair nat nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 2; # @parameter%getBalanceOfUnderlying : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # contract (pair nat nat) : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : contract (pair nat nat) : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # pair nat nat : mutez : contract (pair nat nat) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { + # == getCash == + # sp.result((self.data.currentCash, self.data.accrualBlockNumber)) # @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 4; # nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NIL operation; # list operation : nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 2; # @parameter%getCash : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CDR; # contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair nat nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(__s7.value, sp.tez(0), sp.snd(params)) # pair nat nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL operation; # list operation : pair nat nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 2; # @parameter%getCash : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # contract (pair nat nat) : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : contract (pair nat nat) : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # pair nat nat : mutez : contract (pair nat nat) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1277,8 +1373,11 @@ code { IF_LEFT { + # == getTotalSupply == + # sp.result(self.data.totalSupply) # @parameter%getTotalSupply : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%getTotalSupply : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : @parameter%getTotalSupply : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(__s8.value, sp.tez(0), sp.snd(params)) # nat : @parameter%getTotalSupply : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : nat : @parameter%getTotalSupply : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DIG 2; # @parameter%getTotalSupply : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1288,6 +1387,8 @@ code CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { + # == liquidateBorrow == + # sp.transfer(sp.record(borrower = params.borrower, cTokenBorrowed = sp.self_address, cTokenCollateral = params.cTokenCollateral, liquidator = sp.sender, repayAmount = params.repayAmount), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, cTokenBorrowed = sp.TAddress, cTokenCollateral = sp.TAddress, liquidator = sp.TAddress, repayAmount = sp.TNat).layout((("borrower", "cTokenBorrowed"), ("cTokenCollateral", ("liquidator", "repayAmount")))), self.data.comptroller, entrypoint='liquidateBorrowAllowed').open_some()) # @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1296,7 +1397,7 @@ code CONTRACT %liquidateBorrowAllowed (pair (pair (address %borrower) (address %cTokenBorrowed)) (pair (address %cTokenCollateral) (pair (address %liquidator) (nat %repayAmount)))); # option (contract (pair (pair (address %borrower) (address %cTokenBorrowed)) (pair (address %cTokenCollateral) (pair (address %liquidator) (nat %repayAmount))))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 357; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 360; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1304,23 +1405,21 @@ code DUP 4; # @parameter%liquidateBorrow : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair address nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 5; # @parameter%liquidateBorrow : pair address nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 3; # address : pair address nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair address (pair address nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SELF_ADDRESS; # @self : pair address (pair address nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : pair address (pair address nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 6; # @parameter%liquidateBorrow : address : pair address (pair address nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # address : address : pair address (pair address nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair address address : pair address (pair address nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair (pair address address) (pair address (pair address nat)) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair @sender nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # @parameter%liquidateBorrow : pair @sender nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # address : pair @sender nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address (pair @sender nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : pair address (pair @sender nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 6; # @parameter%liquidateBorrow : @self : pair address (pair @sender nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : @self : pair address (pair @sender nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address @self : pair address (pair @sender nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair address @self) (pair address (pair @sender nat)) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(params.borrower != sp.sender, 'CT_LIQUIDATE_LIQUIDATOR_IS_BORROWER') # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # @parameter%liquidateBorrow : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # address : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter%liquidateBorrow : @sender : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : @sender : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NEQ; # bool : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -1329,6 +1428,7 @@ code PUSH string "CT_LIQUIDATE_LIQUIDATOR_IS_BORROWER"; # string : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(params.repayAmount > 0, 'CT_LIQUIDATE_CLOSE_AMOUNT_IS_INVALID') # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # @parameter%liquidateBorrow : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1340,13 +1440,13 @@ code PUSH string "CT_LIQUIDATE_CLOSE_AMOUNT_IS_INVALID"; # string : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) LEVEL; # @level : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -1355,7 +1455,9 @@ code PUSH string "CT_INTEREST_OLD"; # string : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance = sp.local("borrowBalance", 0) # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.borrows.contains(params.borrower): # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1365,6 +1467,7 @@ code MEM; # bool : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[params.borrower]) # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1374,10 +1477,11 @@ code GET; # option (pair (nat %interestIndex) (nat %principal)) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 628; # int : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 638; # int : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if borrowSnapshot.value.principal > 0: # @some : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @some : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @some : nat : @some : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # nat : nat : @some : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1387,6 +1491,7 @@ code { SWAP; # nat : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # @some : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1399,7 +1504,7 @@ code EDIV; # option (pair nat nat) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 631; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 641; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } { @@ -1411,78 +1516,82 @@ code }; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } {}; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 7; # address : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CONTRACT %transfer (pair (address %from) (pair (address %to) (nat %value))); # option (contract (pair (address %from) (pair (address %to) (nat %value)))) : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - IF_NONE + # repayAmount = sp.local("repayAmount", sp.min(borrowBalance.value, params.repayAmount)) # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter%liquidateBorrow : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # nat : nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + LE; # bool : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF { - PUSH int 17; # int : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - FAILWITH; # FAILED + DROP; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } - {}; # @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 5; # @parameter%liquidateBorrow : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 4; # nat : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 5; # nat : nat : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # nat : nat : nat : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - COMPARE; # int : nat : nat : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - LE; # bool : nat : nat : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + { + SWAP; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # actualRepayAmount = sp.local("actualRepayAmount", sp.min(repayAmount.value, self.data.totalBorrows)) # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows) : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # nat : nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # nat : nat : nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + LE; # bool : nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - DROP; # nat : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { - SWAP; # nat : nat : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # nat : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - }; # nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SELF_ADDRESS; # @self : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : address : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair address (pair address nat) : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CONS; # list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 9; # @parameter%liquidateBorrow : big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # address : address : big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUG 2; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET; # option (pair (nat %interestIndex) (nat %principal)) : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(from_ = sp.sender, to_ = sp.self_address, value = repayAmount.value), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entrypoint='transfer').open_some()) # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # address : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONTRACT %transfer (pair (address %from) (pair (address %to) (nat %value))); # option (contract (pair (address %from) (pair (address %to) (nat %value)))) : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 263; # int : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 17; # int : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 10; # @parameter%liquidateBorrow : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 4; # nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 9; # nat : nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # nat : nat : nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - COMPARE; # int : nat : nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - LE; # bool : nat : nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - IF + {}; # @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # nat : mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : nat : mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : nat : mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @sender (pair @self nat) : mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 3; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[params.borrower].principal = sp.as_nat(borrowBalance.value - repayAmount.value, message = 'SUBTRACTION_UNDERFLOW') # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 11; # @parameter%liquidateBorrow : big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # address : address : big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (nat %interestIndex) (nat %principal)) : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE { - DROP; # nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 266; # int : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED } - { - SWAP; # nat : nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - }; # nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 9; # nat : nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + {}; # @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 8; # nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 9; # nat : nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1498,6 +1607,7 @@ code SWAP; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[params.borrower].interestIndex = self.data.borrowIndex # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1516,7 +1626,7 @@ code GET; # option (pair (nat %interestIndex) (nat %principal)) : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 265; # int : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 268; # int : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1531,27 +1641,12 @@ code PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUG 3; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # @parameter%liquidateBorrow : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 4; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - COMPARE; # int : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - LE; # bool : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - IF - { - DROP; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - { - SWAP; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - }; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - actualRepayAmount.value, message = 'SUBTRACTION_UNDERFLOW') # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 7; # pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1578,6 +1673,7 @@ code SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUG 2; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.borrows[params.borrower].principal == 0: # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1588,7 +1684,7 @@ code GET; # option (pair (nat %interestIndex) (nat %principal)) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 268; # int : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 271; # int : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1597,6 +1693,7 @@ code EQ; # bool : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # sp.transfer(params.borrower, sp.tez(0), sp.contract(sp.TAddress, self.data.comptroller, entrypoint='removeFromLoans').open_some()) # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1604,7 +1701,7 @@ code CONTRACT %removeFromLoans address; # option (contract address) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 270; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 273; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1615,6 +1712,7 @@ code CONS; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } {}; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.view("balanceOf", params.borrower, params.cTokenCollateral, sp.TNat).open_some(message = 'INVALID BALANCE OF VIEW') >= sp.fst(sp.view("liquidateCalculateSeizeTokens", sp.record(actualRepayAmount = params.repayAmount, cTokenBorrowed = sp.self_address, cTokenCollateral = params.cTokenCollateral), self.data.comptroller, sp.TPair(sp.TNat, sp.TNat)).open_some(message = 'INVALID LIQUIDATE CALC SEIZE TOKEN VIEW')), 'LIQUIDATE_SEIZE_TOO_MUCH') # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1622,28 +1720,28 @@ code DUP 3; # @parameter%liquidateBorrow : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # address : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : address : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 5; # @parameter%liquidateBorrow : address : address : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 4; # nat : address : address : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair nat (pair address address) : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - VIEW "liquidateCalculateSeizeTokens" nat; # option nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # @parameter%liquidateBorrow : @self : address : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : @self : address : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair nat (pair @self address) : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + VIEW "liquidateCalculateSeizeTokens" (pair nat nat); # option (pair nat nat) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "INVALID LIQUIDATE CALC SEIZE TOKEN VIEW"; # string : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # @parameter%liquidateBorrow : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 3; # address : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 4; # @parameter%liquidateBorrow : address : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # address : address : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - VIEW "balanceOf" nat; # option nat : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter%liquidateBorrow : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # address : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # @parameter%liquidateBorrow : address : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : address : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + VIEW "balanceOf" nat; # option nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH string "INVALID BALANCE OF VIEW"; # string : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH string "INVALID BALANCE OF VIEW"; # string : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + {}; # @some : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GE; # bool : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -1652,12 +1750,13 @@ code PUSH string "LIQUIDATE_SEIZE_TOO_MUCH"; # string : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(borrower = params.borrower, liquidator = sp.sender, seizeTokens = sp.fst(sp.view("liquidateCalculateSeizeTokens", sp.record(actualRepayAmount = params.repayAmount, cTokenBorrowed = sp.self_address, cTokenCollateral = params.cTokenCollateral), self.data.comptroller, sp.TPair(sp.TNat, sp.TNat)).open_some(message = 'INVALID LIQUIDATE CALC SEIZE TOKEN VIEW'))), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, liquidator = sp.TAddress, seizeTokens = sp.TNat).layout(("borrower", ("liquidator", "seizeTokens"))), params.cTokenCollateral, entrypoint='seize').open_some()) # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @parameter%liquidateBorrow : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONTRACT %seize (pair (address %borrower) (pair (address %liquidator) (nat %seizeTokens))); # option (contract (pair (address %borrower) (pair (address %liquidator) (nat %seizeTokens)))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 382; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 385; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1669,22 +1768,21 @@ code DUP 5; # @parameter%liquidateBorrow : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # address : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : address : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 7; # @parameter%liquidateBorrow : address : address : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 4; # nat : address : address : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair nat (pair address address) : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - VIEW "liquidateCalculateSeizeTokens" nat; # option nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 7; # @parameter%liquidateBorrow : @self : address : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : @self : address : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair nat (pair @self address) : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + VIEW "liquidateCalculateSeizeTokens" (pair nat nat); # option (pair nat nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "INVALID LIQUIDATE CALC SEIZE TOKEN VIEW"; # string : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : @some : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @some : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 5; # @parameter%liquidateBorrow : address : @some : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # address : address : @some : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair address (pair address @some) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 5; # @parameter%liquidateBorrow : @sender : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : @sender : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair address (pair @sender nat) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) nat) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1699,10 +1797,10 @@ code { IF_LEFT { + # == mint == + # sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : address : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NEQ; # bool : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -1711,18 +1809,18 @@ code PUSH string "CT_INTERNAL_CALL"; # string : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if ~ (self.data.ledger.contains(sp.sender)): # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) MEM; # bool : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NOT; # bool : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # bool : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[sp.sender] = sp.record(approvals = {}, balance = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1733,7 +1831,6 @@ code SWAP; # big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH (option (pair (map address nat) nat)) (Some (Pair {} 0)); # option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # address : big_map address (pair (map address nat) nat) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair address (big_map address (pair (map address nat) nat)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1744,20 +1841,19 @@ code SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - {}; # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if ~ (self.data.borrows.contains(sp.sender)): # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) MEM; # bool : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NOT; # bool : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # bool : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[sp.sender] = sp.record(interestIndex = 0, principal = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1765,7 +1861,6 @@ code UNPAIR; # big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH (option (pair nat nat)) (Some (Pair 0 0)); # option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1773,8 +1868,8 @@ code PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - {}; # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(cToken = sp.self_address, mintAmount = params, minter = sp.sender), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, mintAmount = sp.TNat, minter = sp.TAddress).layout(("cToken", ("minter", "mintAmount"))), self.data.comptroller, entrypoint='mintAllowed').open_some()) # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1790,19 +1885,17 @@ code PUSH mutez 0; # mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SELF_ADDRESS; # @self : address : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair address (pair address @parameter%mint) : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : @sender : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @self (pair @sender @parameter%mint) : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) LEVEL; # @level : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -1811,6 +1904,7 @@ code PUSH string "CT_INTEREST_OLD"; # string : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(from_ = sp.sender, to_ = sp.self_address, value = params), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entrypoint='transfer').open_some()) # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 7; # address : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1824,16 +1918,16 @@ code PUSH mutez 0; # mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : address : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair address (pair address @parameter%mint) : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @sender (pair @self @parameter%mint) : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair nat (pair address (big_map address (pair (map address nat) nat))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.totalSupply > 0: # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1842,6 +1936,7 @@ code IF { DROP; # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1853,6 +1948,7 @@ code PUSH string "DIVISION_BY_ZERO"; # string : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1870,7 +1966,6 @@ code GET 4; # nat : nat : nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1880,10 +1975,9 @@ code ADD; # nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 671; # int : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 681; # int : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1899,6 +1993,9 @@ code }; # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } {}; # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # amount = sp.local("amount", 0) + # if True: + # sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO') # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1909,6 +2006,7 @@ code PUSH string "DIVISION_BY_ZERO"; # string : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # compute_CToken_975 = sp.local("compute_CToken_975", (params * self.data.expScale) // excRate.value) # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 5; # nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1923,6 +2021,8 @@ code { CAR; # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # amount.value = compute_CToken_975.value + # sp.verify(amount.value > 0, 'CT_MINT_AMOUNT_IS_INVALID') # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1933,12 +2033,14 @@ code PUSH string "CT_MINT_AMOUNT_IS_INVALID"; # string : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.totalSupply += amount.value # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DIG 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ADD; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE 10; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[sp.sender].balance += amount.value # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1949,23 +2051,22 @@ code SWAP; # big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # address : address : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUG 2; # address : big_map address (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # @sender : @sender : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # @sender : big_map address (pair (map address nat) nat) : @sender : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (map address nat) nat) : @sender : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 99; # int : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 99; # int : @sender : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # @some : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CDR; # nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 9; # nat : nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - ADD; # nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UPDATE 2; # @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SOME; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # address : option (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + {}; # @some : @sender : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # @some : @some : @sender : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : @some : @sender : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 9; # nat : nat : @some : @sender : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ADD; # nat : @some : @sender : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE 2; # @some : @sender : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SOME; # option (pair (map address nat) nat) : @sender : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @sender : option (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # address : big_map address (pair (map address nat) nat) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair address (big_map address (pair (map address nat) nat)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1980,10 +2081,10 @@ code { IF_LEFT { + # == redeem == + # sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : address : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NEQ; # bool : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -1992,6 +2093,7 @@ code PUSH string "CT_INTERNAL_CALL"; # string : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(cToken = sp.self_address, redeemAmount = params, redeemer = sp.sender), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, redeemAmount = sp.TNat, redeemer = sp.TAddress).layout(("cToken", ("redeemer", "redeemAmount"))), self.data.comptroller, entrypoint='redeemAllowed').open_some()) # @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2007,17 +2109,19 @@ code PUSH mutez 0; # mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # @parameter%redeem : mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : @parameter%redeem : mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%redeem : mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SELF_ADDRESS; # @self : address : @parameter%redeem : mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%redeem : mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair address (pair address @parameter%redeem) : mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : @sender : @parameter%redeem : mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @self (pair @sender @parameter%redeem) : mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # redeem_amount = sp.local("redeem_amount", 0) # list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if False: + # excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.totalSupply > 0: # nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2026,6 +2130,7 @@ code IF { DROP 2; # list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2037,6 +2142,7 @@ code PUSH string "DIVISION_BY_ZERO"; # string : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2054,7 +2160,6 @@ code GET 4; # nat : nat : nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2064,10 +2169,9 @@ code ADD; # nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 671; # int : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 681; # int : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2086,6 +2190,9 @@ code SWAP; # nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # amount = sp.local("amount", 0) + # if False: + # compute_CToken_978 = sp.local("compute_CToken_978", (excRate.value * params) // self.data.expScale) # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 5; # nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2101,7 +2208,13 @@ code { CAR; # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # amount.value = compute_CToken_978.value + # redeem_amount.value = amount.value + # redeem_tokens = sp.local("redeem_tokens", 0) + # if False: + # redeem_tokens.value = params # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if (redeem_amount.value > 0) & (redeem_tokens.value > 0): # @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # nat : nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2118,6 +2231,7 @@ code }; # bool : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # sp.verify(self.data.currentCash >= redeem_amount.value, 'CT_INSUFFICIENT_CASH') # @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2131,6 +2245,7 @@ code PUSH string "CT_INSUFFICIENT_CASH"; # string : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2139,7 +2254,6 @@ code LEVEL; # @level : nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DIG 5; # @parameter%redeem : @level : nat : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # @level : nat : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # nat : nat : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -2148,12 +2262,12 @@ code PUSH string "CT_INTEREST_OLD"; # string : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.totalSupply = sp.as_nat(self.data.totalSupply - redeem_tokens.value, message = 'Insufficient supply') # @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # @parameter%redeem : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%redeem : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : @parameter%redeem : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "Insufficient supply"; # string : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2164,12 +2278,12 @@ code SWAP; # @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%redeem : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE 10; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%redeem : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUG 3; # @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[sp.sender].balance = sp.as_nat(self.data.ledger[sp.sender].balance - redeem_tokens.value, message = 'Insufficient balance') # @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET; # option (pair (map %approvals address nat) (nat %balance)) : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { @@ -2180,7 +2294,6 @@ code CDR; # nat : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "Insufficient balance"; # string : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2198,20 +2311,19 @@ code SWAP; # big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # address : address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUG 2; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET; # option (pair (map %approvals address nat) (nat %balance)) : address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # @sender : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (map %approvals address nat) (nat %balance)) : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 171; # int : address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 171; # int : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 8; # @some : @some : address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UPDATE 2; # @some : address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SOME; # option (pair (map %approvals address nat) (nat %balance)) : address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # address : option (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + {}; # @some : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 8; # @some : @some : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE 2; # @some : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SOME; # option (pair (map %approvals address nat) (nat %balance)) : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @sender : option (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair address (big_map address (pair (map %approvals address nat) (nat %balance))) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2223,6 +2335,7 @@ code PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUG 2; # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(from_ = sp.self_address, to_ = sp.sender, value = redeem_amount.value), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entrypoint='transfer').open_some()) # list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 7; # address : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2236,10 +2349,8 @@ code PUSH mutez 0; # mutez : @some : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DIG 3; # nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SELF_ADDRESS; # @self : address : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair address (pair address nat) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : @sender : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @self (pair @sender nat) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } @@ -2250,10 +2361,10 @@ code }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { + # == redeemUnderlying == + # sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : address : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NEQ; # bool : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -2262,6 +2373,7 @@ code PUSH string "CT_INTERNAL_CALL"; # string : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(cToken = sp.self_address, redeemAmount = params, redeemer = sp.sender), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, redeemAmount = sp.TNat, redeemer = sp.TAddress).layout(("cToken", ("redeemer", "redeemAmount"))), self.data.comptroller, entrypoint='redeemAllowed').open_some()) # @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2277,18 +2389,23 @@ code PUSH mutez 0; # mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # @parameter%redeemUnderlying : mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : @parameter%redeemUnderlying : mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%redeemUnderlying : mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SELF_ADDRESS; # @self : address : @parameter%redeemUnderlying : mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%redeemUnderlying : mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair address (pair address @parameter%redeemUnderlying) : mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : @sender : @parameter%redeemUnderlying : mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @self (pair @sender @parameter%redeemUnderlying) : mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # redeem_amount = sp.local("redeem_amount", 0) + # if True: + # redeem_amount.value = params # list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # redeem_tokens = sp.local("redeem_tokens", 0) # @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if True: + # excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.totalSupply > 0: # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 7; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2297,6 +2414,7 @@ code IF { DROP; # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2308,6 +2426,7 @@ code PUSH string "DIVISION_BY_ZERO"; # string : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2325,7 +2444,6 @@ code GET 4; # nat : nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2335,10 +2453,9 @@ code ADD; # nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 671; # int : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 681; # int : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2354,8 +2471,11 @@ code }; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } {}; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # amount = sp.local("amount", 0) # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if True: + # sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO') # nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GT; # bool : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2365,11 +2485,13 @@ code PUSH string "DIVISION_BY_ZERO"; # string : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # compute_Exponential_277 = sp.local("compute_Exponential_277", params * self.data.expScale) # nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 7; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 5; # nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 7; # @parameter%redeemUnderlying : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) MUL; # nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # compute_Exponential_280 = sp.local("compute_Exponential_280", compute_Exponential_277.value // excRate.value) # nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EDIV; # option (pair nat nat) : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2381,6 +2503,7 @@ code { CAR; # nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if (compute_Exponential_277.value % excRate.value) > 0: # nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # nat : nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # nat : nat : nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2401,8 +2524,12 @@ code SWAP; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # compute_CToken_986 = sp.local("compute_CToken_986", compute_Exponential_280.value + 1) # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 1; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ADD; # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # amount.value = compute_CToken_986.value + # redeem_tokens.value = amount.value + # if (redeem_amount.value > 0) & (redeem_tokens.value > 0): # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # @parameter%redeemUnderlying : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2419,6 +2546,7 @@ code }; # bool : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # sp.verify(self.data.currentCash >= redeem_amount.value, 'CT_INSUFFICIENT_CASH') # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @parameter%redeemUnderlying : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%redeemUnderlying : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%redeemUnderlying : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2432,6 +2560,7 @@ code PUSH string "CT_INSUFFICIENT_CASH"; # string : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2440,7 +2569,6 @@ code LEVEL; # @level : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DIG 5; # @parameter%redeemUnderlying : @level : nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # @level : nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # nat : nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -2449,12 +2577,12 @@ code PUSH string "CT_INTEREST_OLD"; # string : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.totalSupply = sp.as_nat(self.data.totalSupply - redeem_tokens.value, message = 'Insufficient supply') # nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "Insufficient supply"; # string : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2465,12 +2593,12 @@ code SWAP; # @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE 10; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUG 3; # nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[sp.sender].balance = sp.as_nat(self.data.ledger[sp.sender].balance - redeem_tokens.value, message = 'Insufficient balance') # nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # big_map address (pair (map %approvals address nat) (nat %balance)) : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET; # option (pair (map %approvals address nat) (nat %balance)) : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { @@ -2481,7 +2609,6 @@ code CDR; # nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "Insufficient balance"; # string : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2499,20 +2626,19 @@ code SWAP; # big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # address : address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUG 2; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET; # option (pair (map %approvals address nat) (nat %balance)) : address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # @sender : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (map %approvals address nat) (nat %balance)) : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 171; # int : address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 171; # int : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 8; # @some : @some : address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UPDATE 2; # @some : address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SOME; # option (pair (map %approvals address nat) (nat %balance)) : address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # address : option (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + {}; # @some : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 8; # @some : @some : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE 2; # @some : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SOME; # option (pair (map %approvals address nat) (nat %balance)) : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @sender : option (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair address (big_map address (pair (map %approvals address nat) (nat %balance))) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2524,6 +2650,7 @@ code PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUG 2; # @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(from_ = sp.self_address, to_ = sp.sender, value = redeem_amount.value), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entrypoint='transfer').open_some()) # list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 7; # address : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2537,10 +2664,8 @@ code PUSH mutez 0; # mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DIG 3; # @parameter%redeemUnderlying : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : @parameter%redeemUnderlying : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%redeemUnderlying : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SELF_ADDRESS; # @self : address : @parameter%redeemUnderlying : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%redeemUnderlying : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair address (pair address @parameter%redeemUnderlying) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : @sender : @parameter%redeemUnderlying : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @self (pair @sender @parameter%redeemUnderlying) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } @@ -2557,13 +2682,14 @@ code { IF_LEFT { + # == reduceReserves == + # sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN') # @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # address : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : address : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -2572,6 +2698,7 @@ code PUSH string "CT_NOT_ADMIN"; # string : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') # @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2588,6 +2715,7 @@ code FAILWITH; # FAILED }; # @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.activeOperations.add(12) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2604,26 +2732,25 @@ code PAIR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.unit, sp.tez(0), sp.self_entrypoint('accrueInterest')) # @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF %accrueInterest; # @self : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # contract unit : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH mutez 0; # mutez : contract unit : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNIT; # unit : mutez : contract unit : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @self : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNIT; # unit : mutez : @self : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(params, sp.amount, sp.self_entrypoint('reduceReservesInternal')) # list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF %reduceReservesInternal; # @self : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # contract nat : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - AMOUNT; # @amount : contract nat : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # mutez : contract nat : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 3; # @parameter%reduceReserves : mutez : contract nat : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + AMOUNT; # @amount : @self : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # @parameter%reduceReserves : @amount : @self : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { + # == repayBorrow == + # sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : address : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NEQ; # bool : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -2632,18 +2759,18 @@ code PUSH string "CT_INTERNAL_CALL"; # string : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if ~ (self.data.ledger.contains(sp.sender)): # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) MEM; # bool : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NOT; # bool : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # bool : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[sp.sender] = sp.record(approvals = {}, balance = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2654,7 +2781,6 @@ code SWAP; # big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH (option (pair (map address nat) nat)) (Some (Pair {} 0)); # option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # address : big_map address (pair (map address nat) nat) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair address (big_map address (pair (map address nat) nat)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2665,20 +2791,19 @@ code SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - {}; # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if ~ (self.data.borrows.contains(sp.sender)): # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) MEM; # bool : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NOT; # bool : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # bool : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[sp.sender] = sp.record(interestIndex = 0, principal = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2686,7 +2811,6 @@ code UNPAIR; # big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH (option (pair nat nat)) (Some (Pair 0 0)); # option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2694,8 +2818,8 @@ code PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - {}; # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(borrower = sp.sender, cToken = sp.self_address, payer = sp.sender, repayAmount = params), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, cToken = sp.TAddress, payer = sp.TAddress, repayAmount = sp.TNat).layout(("cToken", ("payer", ("borrower", "repayAmount")))), self.data.comptroller, entrypoint='repayBorrowAllowed').open_some()) # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2705,30 +2829,27 @@ code CONTRACT %repayBorrowAllowed (pair (address %cToken) (pair (address %payer) (pair (address %borrower) (nat %repayAmount)))); # option (contract (pair (address %cToken) (pair (address %payer) (pair (address %borrower) (nat %repayAmount))))) : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 276; # int : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 279; # int : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH mutez 0; # mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # @parameter%repayBorrow : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : @parameter%repayBorrow : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%repayBorrow : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : address : @parameter%repayBorrow : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%repayBorrow : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SELF_ADDRESS; # @self : address : address : @parameter%repayBorrow : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : address : @parameter%repayBorrow : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 4; # pair address (pair address (pair address @parameter%repayBorrow)) : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 4; # list operation : pair address (pair address (pair address @parameter%repayBorrow)) : mutez : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # pair address (pair address (pair address @parameter%repayBorrow)) : mutez : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @sender : @parameter%repayBorrow : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : @sender : @sender : @parameter%repayBorrow : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 4; # pair @self (pair @sender (pair @sender @parameter%repayBorrow)) : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 4; # list operation : pair @self (pair @sender (pair @sender @parameter%repayBorrow)) : mutez : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # pair @self (pair @sender (pair @sender @parameter%repayBorrow)) : mutez : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) LEVEL; # @level : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -2737,29 +2858,31 @@ code PUSH string "CT_INTEREST_OLD"; # string : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance = sp.local("borrowBalance", 0) # list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.borrows.contains(sp.sender): # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) MEM; # bool : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[sp.sender]) # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET; # option (pair nat nat) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 628; # int : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 638; # int : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if borrowSnapshot.value.principal > 0: # @some : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @some : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @some : nat : @some : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # nat : nat : @some : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2769,6 +2892,7 @@ code { SWAP; # nat : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # @some : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2781,7 +2905,7 @@ code EDIV; # option (pair nat nat) : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 631; # int : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 641; # int : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } { @@ -2793,144 +2917,134 @@ code }; # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } {}; # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 7; # address : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CONTRACT %transfer (pair (address %from) (pair (address %to) (nat %value))); # option (contract (pair (address %from) (pair (address %to) (nat %value)))) : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - IF_NONE + # repayAmount = sp.local("repayAmount", sp.min(borrowBalance.value, params)) # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 2; # @parameter%repayBorrow : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # nat : @parameter%repayBorrow : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # nat : nat : @parameter%repayBorrow : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter%repayBorrow : nat : nat : @parameter%repayBorrow : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : nat : @parameter%repayBorrow : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + LE; # bool : nat : @parameter%repayBorrow : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF { - PUSH int 17; # int : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - FAILWITH; # FAILED + DROP; # @parameter%repayBorrow : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } - {}; # @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 5; # @parameter%repayBorrow : mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 5; # nat : @parameter%repayBorrow : mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # nat : nat : @parameter%repayBorrow : mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # @parameter%repayBorrow : nat : nat : @parameter%repayBorrow : mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - COMPARE; # int : nat : @parameter%repayBorrow : mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - LE; # bool : nat : @parameter%repayBorrow : mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + { + SWAP; # @parameter%repayBorrow : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # actualRepayAmount = sp.local("actualRepayAmount", sp.min(repayAmount.value, self.data.totalBorrows)) # nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows) : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # nat : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # nat : nat : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # nat : nat : nat : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : nat : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + LE; # bool : nat : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - DROP; # @parameter%repayBorrow : mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { - SWAP; # @parameter%repayBorrow : nat : mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # nat : mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - }; # nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SELF_ADDRESS; # @self : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : address : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair address (pair address nat) : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CONS; # list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # address : address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUG 2; # address : big_map address (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET; # option (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(from_ = sp.sender, to_ = sp.self_address, value = repayAmount.value), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entrypoint='transfer').open_some()) # nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # address : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONTRACT %transfer (pair (address %from) (pair (address %to) (nat %value))); # option (contract (pair (address %from) (pair (address %to) (nat %value)))) : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 263; # int : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 17; # int : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 10; # @parameter%repayBorrow : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 9; # nat : @parameter%repayBorrow : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # nat : nat : @parameter%repayBorrow : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # @parameter%repayBorrow : nat : nat : @parameter%repayBorrow : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - COMPARE; # int : nat : @parameter%repayBorrow : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - LE; # bool : nat : @parameter%repayBorrow : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - IF - { - DROP; # @parameter%repayBorrow : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - { - SWAP; # @parameter%repayBorrow : nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - }; # nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 9; # nat : nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SUB; # int : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - ISNAT; # option nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + {}; # @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # nat : mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : nat : mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : nat : mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @sender (pair @self nat) : mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 3; # nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[sp.sender].principal = sp.as_nat(borrowBalance.value - repayAmount.value, message = 'SUBTRACTION_UNDERFLOW') # nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # @sender : @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # @sender : big_map address (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH string "SUBTRACTION_UNDERFLOW"; # string : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 266; # int : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UPDATE 2; # @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SOME; # option (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # address : option (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UPDATE; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 3; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # address : address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUG 2; # address : big_map address (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET; # option (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + {}; # @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 8; # nat : @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 9; # nat : nat : @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SUB; # int : @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ISNAT; # option nat : @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 265; # int : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH string "SUBTRACTION_UNDERFLOW"; # string : @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 7; # nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UPDATE 1; # @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SOME; # option (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # address : option (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UPDATE; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUG 3; # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 2; # @parameter%repayBorrow : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # nat : @parameter%repayBorrow : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # nat : nat : @parameter%repayBorrow : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # @parameter%repayBorrow : nat : nat : @parameter%repayBorrow : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - COMPARE; # int : nat : @parameter%repayBorrow : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - LE; # bool : nat : @parameter%repayBorrow : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - IF + {}; # @some : @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE 2; # @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SOME; # option (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @sender : option (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[sp.sender].interestIndex = self.data.borrowIndex # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # @sender : @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # @sender : big_map address (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE { - DROP; # @parameter%repayBorrow : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 268; # int : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED } - { - SWAP; # @parameter%repayBorrow : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - }; # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + {}; # @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 7; # nat : @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE 1; # @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SOME; # option (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @sender : option (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - actualRepayAmount.value, message = 'SUBTRACTION_UNDERFLOW') # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 7; # pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2957,17 +3071,17 @@ code SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.borrows[sp.sender].principal == 0: # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # big_map address (pair nat nat) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair nat nat) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair nat nat) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET; # option (pair nat nat) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 268; # int : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 271; # int : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2976,6 +3090,7 @@ code EQ; # bool : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # sp.transfer(sp.sender, sp.tez(0), sp.contract(sp.TAddress, self.data.comptroller, entrypoint='removeFromLoans').open_some()) # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2983,13 +3098,12 @@ code CONTRACT %removeFromLoans address; # option (contract address) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 270; # int : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 273; # int : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH mutez 0; # mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } @@ -2999,10 +3113,10 @@ code { IF_LEFT { + # == repayBorrowBehalf == + # sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : address : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NEQ; # bool : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -3011,18 +3125,18 @@ code PUSH string "CT_INTERNAL_CALL"; # string : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if ~ (self.data.ledger.contains(sp.sender)): # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) MEM; # bool : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NOT; # bool : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # bool : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[sp.sender] = sp.record(approvals = {}, balance = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3033,7 +3147,6 @@ code SWAP; # big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH (option (pair (map address nat) nat)) (Some (Pair {} 0)); # option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # address : big_map address (pair (map address nat) nat) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair address (big_map address (pair (map address nat) nat)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3044,20 +3157,19 @@ code SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - {}; # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if ~ (self.data.borrows.contains(sp.sender)): # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) MEM; # bool : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NOT; # bool : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # bool : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[sp.sender] = sp.record(interestIndex = 0, principal = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3065,7 +3177,6 @@ code UNPAIR; # big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH (option (pair nat nat)) (Some (Pair 0 0)); # option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3073,8 +3184,8 @@ code PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - {}; # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(borrower = params.borrower, cToken = sp.self_address, payer = sp.sender, repayAmount = params.repayAmount), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, cToken = sp.TAddress, payer = sp.TAddress, repayAmount = sp.TNat).layout(("cToken", ("payer", ("borrower", "repayAmount")))), self.data.comptroller, entrypoint='repayBorrowAllowed').open_some()) # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3084,7 +3195,7 @@ code CONTRACT %repayBorrowAllowed (pair (address %cToken) (pair (address %payer) (pair (address %borrower) (nat %repayAmount)))); # option (contract (pair (address %cToken) (pair (address %payer) (pair (address %borrower) (nat %repayAmount))))) : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 276; # int : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 279; # int : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3094,21 +3205,19 @@ code DUP 6; # @parameter%repayBorrowBehalf : nat : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # address : nat : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : address : nat : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : nat : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SELF_ADDRESS; # @self : address : address : nat : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : address : nat : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 4; # pair address (pair address (pair address nat)) : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 4; # list operation : pair address (pair address (pair address nat)) : mutez : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # pair address (pair address (pair address nat)) : mutez : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : @sender : address : nat : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 4; # pair @self (pair @sender (pair address nat)) : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 4; # list operation : pair @self (pair @sender (pair address nat)) : mutez : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # pair @self (pair @sender (pair address nat)) : mutez : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) LEVEL; # @level : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -3117,7 +3226,9 @@ code PUSH string "CT_INTEREST_OLD"; # string : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance = sp.local("borrowBalance", 0) # list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.borrows.contains(params.borrower): # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3127,6 +3238,7 @@ code MEM; # bool : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[params.borrower]) # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3136,10 +3248,11 @@ code GET; # option (pair nat nat) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 628; # int : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 638; # int : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if borrowSnapshot.value.principal > 0: # @some : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @some : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @some : nat : @some : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # nat : nat : @some : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3149,6 +3262,7 @@ code { SWAP; # nat : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # @some : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3161,7 +3275,7 @@ code EDIV; # option (pair nat nat) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 631; # int : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 641; # int : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } { @@ -3173,78 +3287,82 @@ code }; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } {}; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 7; # address : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CONTRACT %transfer (pair (address %from) (pair (address %to) (nat %value))); # option (contract (pair (address %from) (pair (address %to) (nat %value)))) : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - IF_NONE + # repayAmount = sp.local("repayAmount", sp.min(borrowBalance.value, params.repayAmount)) # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter%repayBorrowBehalf : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # nat : nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + LE; # bool : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF { - PUSH int 17; # int : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - FAILWITH; # FAILED + DROP; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } - {}; # @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 5; # @parameter%repayBorrowBehalf : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CDR; # nat : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 5; # nat : nat : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # nat : nat : nat : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - COMPARE; # int : nat : nat : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - LE; # bool : nat : nat : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + { + SWAP; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # actualRepayAmount = sp.local("actualRepayAmount", sp.min(repayAmount.value, self.data.totalBorrows)) # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows) : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # nat : nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # nat : nat : nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + LE; # bool : nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - DROP; # nat : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { - SWAP; # nat : nat : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # nat : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - }; # nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SELF_ADDRESS; # @self : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : address : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair address (pair address nat) : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CONS; # list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 9; # @parameter%repayBorrowBehalf : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # address : address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUG 2; # address : big_map address (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET; # option (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(from_ = sp.sender, to_ = sp.self_address, value = repayAmount.value), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entrypoint='transfer').open_some()) # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # address : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONTRACT %transfer (pair (address %from) (pair (address %to) (nat %value))); # option (contract (pair (address %from) (pair (address %to) (nat %value)))) : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 263; # int : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 17; # int : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 10; # @parameter%repayBorrowBehalf : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CDR; # nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 9; # nat : nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # nat : nat : nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - COMPARE; # int : nat : nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - LE; # bool : nat : nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - IF + {}; # @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # nat : mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : nat : mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : nat : mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @sender (pair @self nat) : mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 3; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[params.borrower].principal = sp.as_nat(borrowBalance.value - repayAmount.value, message = 'SUBTRACTION_UNDERFLOW') # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 11; # @parameter%repayBorrowBehalf : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # address : address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # address : big_map address (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE { - DROP; # nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 266; # int : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED } - { - SWAP; # nat : nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - }; # nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 9; # nat : nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + {}; # @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 8; # nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 9; # nat : nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3260,6 +3378,7 @@ code SWAP; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[params.borrower].interestIndex = self.data.borrowIndex # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3278,7 +3397,7 @@ code GET; # option (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 265; # int : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 268; # int : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3293,27 +3412,12 @@ code PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUG 3; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # @parameter%repayBorrowBehalf : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CDR; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - COMPARE; # int : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - LE; # bool : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - IF - { - DROP; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - { - SWAP; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - }; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - actualRepayAmount.value, message = 'SUBTRACTION_UNDERFLOW') # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 7; # pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3340,6 +3444,7 @@ code SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUG 2; # list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.borrows[params.borrower].principal == 0: # list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3350,7 +3455,7 @@ code GET; # option (pair nat nat) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 268; # int : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 271; # int : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3359,6 +3464,7 @@ code EQ; # bool : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # sp.transfer(params.borrower, sp.tez(0), sp.contract(sp.TAddress, self.data.comptroller, entrypoint='removeFromLoans').open_some()) # list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3366,7 +3472,7 @@ code CONTRACT %removeFromLoans address; # option (contract address) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 270; # int : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 273; # int : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3382,6 +3488,8 @@ code }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { + # == seize == + # if ~ (self.data.ledger.contains(params.liquidator)): # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3389,11 +3497,11 @@ code DUP 2; # @parameter%seize : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) MEM; # bool : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NOT; # bool : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # bool : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[params.liquidator] = sp.record(approvals = {}, balance = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3415,8 +3523,8 @@ code SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - {}; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if ~ (self.data.borrows.contains(params.liquidator)): # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3424,11 +3532,11 @@ code DUP 2; # @parameter%seize : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) MEM; # bool : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NOT; # bool : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # bool : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[params.liquidator] = sp.record(interestIndex = 0, principal = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3444,17 +3552,15 @@ code PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - {}; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.view("seizeAllowed", sp.record(cTokenBorrowed = sp.sender, cTokenCollateral = sp.self_address), self.data.comptroller, sp.TBool).open_some(message = 'INVALID SEIZE ALLOWED VIEW'), 'CT_LIQUIDATE_SEIZE_COMPTROLLER_REJECTION') # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : address : address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair address address : address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair @sender @self : address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) VIEW "seizeAllowed" bool; # option bool : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { @@ -3468,6 +3574,7 @@ code PUSH string "CT_LIQUIDATE_SEIZE_COMPTROLLER_REJECTION"; # string : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(params.borrower != params.liquidator, 'CT_LIQUIDATE_SEIZE_LIQUIDATOR_IS_BORROWER') # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # @parameter%seize : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @parameter%seize : address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3480,13 +3587,13 @@ code PUSH string "CT_LIQUIDATE_SEIZE_LIQUIDATOR_IS_BORROWER"; # string : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) LEVEL; # @level : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -3495,6 +3602,7 @@ code PUSH string "CT_INTEREST_OLD"; # string : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # protocolSeizeTokens = sp.local("protocolSeizeTokens", (params.seizeTokens * self.data.protocolSeizeShareMantissa) // self.data.expScale) # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 5; # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3513,10 +3621,12 @@ code { CAR; # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair nat (pair address (big_map address (pair (map address nat) nat))) : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.totalSupply > 0: # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3525,6 +3635,7 @@ code IF { DROP; # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3536,6 +3647,7 @@ code PUSH string "DIVISION_BY_ZERO"; # string : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3553,7 +3665,6 @@ code GET 4; # nat : nat : nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3563,10 +3674,9 @@ code ADD; # nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 671; # int : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 681; # int : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3582,6 +3692,7 @@ code }; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } {}; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.totalReserves += (excRate.value * protocolSeizeTokens.value) // self.data.expScale # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 9; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3603,12 +3714,12 @@ code ADD; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE 9; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUG 2; # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.totalSupply = sp.as_nat(self.data.totalSupply - protocolSeizeTokens.value, message = 'SUBTRACTION_UNDERFLOW') # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3619,6 +3730,7 @@ code SWAP; # @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE 10; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUG 2; # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[params.borrower].balance = sp.as_nat(self.data.ledger[params.borrower].balance - params.seizeTokens, message = 'SUBTRACTION_UNDERFLOW') # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @parameter%seize : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3630,14 +3742,13 @@ code GET; # option (pair (map address nat) nat) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 307; # int : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 310; # int : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3661,7 +3772,7 @@ code GET; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 334; # int : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 337; # int : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3670,6 +3781,7 @@ code SOME; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # address : option (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[params.liquidator].balance += sp.as_nat(params.seizeTokens - protocolSeizeTokens.value, message = 'SUBTRACTION_UNDERFLOW') # big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 9; # @parameter%seize : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # address : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3678,7 +3790,7 @@ code GET; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 335; # int : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 338; # int : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3689,7 +3801,6 @@ code GET 4; # nat : nat : nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3719,13 +3830,14 @@ code { IF_LEFT { + # == setInterestRateModel == + # sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN') # @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # address : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : address : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -3734,6 +3846,7 @@ code PUSH string "CT_NOT_ADMIN"; # string : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') # @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3750,6 +3863,7 @@ code FAILWITH; # FAILED }; # @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.activeOperations.add(9) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3766,30 +3880,31 @@ code PAIR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.unit, sp.tez(0), sp.self_entrypoint('accrueInterest')) # @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF %accrueInterest; # @self : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # contract unit : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH mutez 0; # mutez : contract unit : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNIT; # unit : mutez : contract unit : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @self : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNIT; # unit : mutez : @self : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(params, sp.tez(0), sp.self_entrypoint('setInterestRateModelInternal')) # list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF %setInterestRateModelInternal; # @self : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # contract address : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH mutez 0; # mutez : contract address : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 3; # @parameter%setInterestRateModel : mutez : contract address : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @self : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # @parameter%setInterestRateModel : mutez : @self : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { IF_LEFT { + # == setReserveFactor == + # sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN') # @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # address : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : address : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -3798,6 +3913,7 @@ code PUSH string "CT_NOT_ADMIN"; # string : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') # @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3814,6 +3930,7 @@ code FAILWITH; # FAILED }; # @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.activeOperations.add(10) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3830,21 +3947,23 @@ code PAIR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.unit, sp.tez(0), sp.self_entrypoint('accrueInterest')) # @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF %accrueInterest; # @self : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # contract unit : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH mutez 0; # mutez : contract unit : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNIT; # unit : mutez : contract unit : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @self : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNIT; # unit : mutez : @self : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(params, sp.tez(0), sp.self_entrypoint('setReserveFactorInternal')) # list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF %setReserveFactorInternal; # @self : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # contract nat : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH mutez 0; # mutez : contract nat : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 3; # @parameter%setReserveFactor : mutez : contract nat : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @self : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # @parameter%setReserveFactor : mutez : @self : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { + # == sweepFA12 == + # sp.verify(params.tokenAddress != self.data.fa1_2_TokenAddress, 'CT_SWEEP_UNDERLYING') # @parameter%sweepFA12 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%sweepFA12 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%sweepFA12 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 7; # address : @parameter%sweepFA12 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3858,6 +3977,7 @@ code PUSH string "CT_SWEEP_UNDERLYING"; # string : @parameter%sweepFA12 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%sweepFA12 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(from_ = sp.self_address, to_ = self.data.administrator, value = params.amount), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), params.tokenAddress, entrypoint='transfer').open_some()) # @parameter%sweepFA12 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : @parameter%sweepFA12 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @parameter%sweepFA12 : list operation : @parameter%sweepFA12 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # address : list operation : @parameter%sweepFA12 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3877,8 +3997,7 @@ code CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # address : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : address : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair address (pair address nat) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @self (pair address nat) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3889,6 +4008,8 @@ code { IF_LEFT { + # == sweepFA2 == + # sp.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(amount = params.amount, to_ = self.data.administrator, token_id = params.id)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), params.tokenAddress, entrypoint='transfer').open_some()) # @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @parameter%sweepFA2 : list operation : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # address : list operation : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3915,15 +4036,17 @@ code PAIR 3; # pair address (pair nat nat) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair @self (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { + # == sweepMutez == + # if params: # @parameter%sweepMutez : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # sp.send(self.data.administrator, sp.balance) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3938,12 +4061,12 @@ code } {}; # @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) BALANCE; # @balance : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNIT; # unit : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNIT; # unit : @balance : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { + # sp.send(self.data.administrator, sp.balance) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3958,8 +4081,7 @@ code } {}; # @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) BALANCE; # @balance : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNIT; # unit : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNIT; # unit : @balance : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3968,10 +4090,11 @@ code { IF_LEFT { + # == transfer == + # sp.verify((params.from_ == sp.sender) | (self.data.ledger[params.from_].approvals[sp.sender] >= params.value), ('NotEnoughAllowance', (params.value, self.data.ledger[params.from_].approvals[sp.sender]))) # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 2; # @parameter%transfer : address : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # address : address : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # @parameter%transfer : @sender : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : @sender : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -3990,17 +4113,16 @@ code GET; # option (pair (map %approvals address nat) (nat %balance)) : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 404; # int : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 407; # int : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # map address nat : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : map address nat : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : map address nat : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET; # option nat : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 404; # int : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 407; # int : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4010,13 +4132,39 @@ code IF {} { - PUSH string "FA1.2_NotAllowed"; # string : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # verify # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # @parameter%transfer : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (map %approvals address nat) (nat %balance)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 408; # int : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # map address nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : map address nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 408; # int : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # @parameter%transfer : @some : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : @some : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair nat @some : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH string "NotEnoughAllowance"; # string : pair nat @some : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair string (pair nat @some) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : address : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NEQ; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -4025,6 +4173,7 @@ code PUSH string "CT_INTERNAL_CALL"; # string : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if ~ (self.data.ledger.contains(params.to_)): # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4032,11 +4181,11 @@ code DUP 2; # @parameter%transfer : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) MEM; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NOT; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[params.to_] = sp.record(approvals = {}, balance = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4058,8 +4207,8 @@ code SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - {}; # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if ~ (self.data.borrows.contains(params.to_)): # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4067,11 +4216,11 @@ code DUP 2; # @parameter%transfer : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) MEM; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NOT; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[params.to_] = sp.record(interestIndex = 0, principal = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4087,8 +4236,8 @@ code PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - {}; # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(cToken = sp.self_address, dst = params.to_, src = params.from_, transferTokens = params.value), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, dst = sp.TAddress, src = sp.TAddress, transferTokens = sp.TNat).layout((("cToken", "src"), ("dst", "transferTokens"))), self.data.comptroller, entrypoint='transferAllowed').open_some()) # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4097,7 +4246,7 @@ code CONTRACT %transferAllowed (pair (pair (address %cToken) (address %src)) (pair (address %dst) (nat %transferTokens))); # option (contract (pair (pair (address %cToken) (address %src)) (pair (address %dst) (nat %transferTokens)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 427; # int : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 431; # int : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4110,11 +4259,11 @@ code DUP 5; # @parameter%transfer : pair address nat : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # address : pair address nat : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : address : pair address nat : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : pair address nat : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair address address : pair address nat : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair (pair address address) (pair address nat) : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair @self address : pair address nat : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair @self address) (pair address nat) : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(self.data.ledger[params.from_].balance >= params.value, ('NotEnoughBalance', (params.value, self.data.ledger[params.from_].balance))) # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @parameter%transfer : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4126,7 +4275,7 @@ code GET; # option (pair (map address nat) nat) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 413; # int : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 417; # int : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4136,9 +4285,29 @@ code IF {} { - PUSH string "FA1.2_InsufficientBalance"; # string : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # verify # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair nat (pair address (big_map address (pair (map address nat) nat))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # big_map address (pair (map address nat) nat) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter%transfer : big_map address (pair (map address nat) nat) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair (map address nat) nat) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (map address nat) nat) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 418; # int : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter%transfer : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair nat nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH string "NotEnoughBalance"; # string : pair nat nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair string (pair nat nat) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[params.from_].balance = sp.as_nat(self.data.ledger[params.from_].balance - params.value) # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @parameter%transfer : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4150,17 +4319,16 @@ code GET; # option (pair (map address nat) nat) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 416; # int : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 420; # int : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # nat : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 415; # int : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 419; # int : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4181,7 +4349,7 @@ code GET; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 415; # int : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 419; # int : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4190,6 +4358,7 @@ code SOME; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # address : option (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[params.to_].balance += params.value # big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 9; # @parameter%transfer : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # address : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4198,7 +4367,7 @@ code GET; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 417; # int : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 421; # int : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4220,14 +4389,15 @@ code SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUG 2; # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if params.from_ != sp.sender: # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # @parameter%transfer : address : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # address : address : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter%transfer : @sender : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : @sender : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NEQ; # bool : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # self.data.ledger[params.from_].approvals[sp.sender] = sp.as_nat(self.data.ledger[params.from_].approvals[sp.sender] - params.value) # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4245,7 +4415,7 @@ code GET; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 419; # int : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 423; # int : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4262,32 +4432,29 @@ code GET; # option (pair (map address nat) nat) : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 420; # int : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 424; # int : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # map address nat : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : map address nat : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : map address nat : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET; # option nat : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 420; # int : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 424; # int : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 419; # int : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 423; # int : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SOME; # option nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : option nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : option nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE 1; # @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SOME; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4302,6 +4469,7 @@ code SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUG 2; # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.ledger[params.from_].approvals[sp.sender] == 0: # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4312,17 +4480,16 @@ code GET; # option (pair (map address nat) nat) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 421; # int : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 425; # int : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # map address nat : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : map address nat : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : map address nat : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET; # option nat : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 421; # int : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 425; # int : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4330,6 +4497,7 @@ code EQ; # bool : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # del self.data.ledger[params.from_].approvals[sp.sender] # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DIG 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4347,7 +4515,7 @@ code GET; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 422; # int : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 426; # int : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4355,7 +4523,6 @@ code CAR; # map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NONE nat; # option nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : option nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : option nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE 1; # @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SOME; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4382,13 +4549,14 @@ code }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { + # == updateMetadata == + # sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN') # @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # address : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : address : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -4398,6 +4566,7 @@ code FAILWITH; # FAILED }; # @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%updateMetadata : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.metadata[params.key] = params.value # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%updateMetadata : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%updateMetadata : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%updateMetadata : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%updateMetadata : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4438,6 +4607,7 @@ view "accrualBlockNumber" unit nat { GET 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # sp.result(self.data.accrualBlockNumber) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) @@ -4447,7 +4617,9 @@ view "balanceOf" address nat { UNPAIR 3; # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # result = sp.local("result", 0) # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.ledger.contains(params): # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4460,6 +4632,7 @@ view DIG 2; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) DROP; # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter + # result.value = self.data.ledger[params].balance # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @parameter CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : @parameter GET 4; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter @@ -4467,7 +4640,7 @@ view GET; # option (pair (map %approvals address nat) (nat %balance)) IF_NONE { - PUSH int 503; # int + PUSH int 509; # int FAILWITH; # FAILED } {}; # @some @@ -4481,12 +4654,15 @@ view SWAP; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : nat DROP; # nat }; # nat + # sp.result(result.value) # nat }; view - "borrowBalanceStoredView" address nat + "borrowBalanceStoredView" address (pair nat nat) { UNPAIR 3; # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance = sp.local("borrowBalance", 0) # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.borrows.contains(params): # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4495,6 +4671,7 @@ view MEM; # bool : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[params]) # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4503,10 +4680,11 @@ view GET; # option (pair (nat %interestIndex) (nat %principal)) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 628; # int : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 638; # int : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if borrowSnapshot.value.principal > 0: # @some : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @some : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @some : nat : @some : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # nat : nat : @some : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4520,60 +4698,68 @@ view DROP; # @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DIG 2; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) DROP; # @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) DUP; # @some : @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) CAR; # nat : @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - DIG 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some - CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @some - CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat : @some - GET 3; # nat : nat : @some - DIG 2; # @some : nat : nat - CDR; # nat : nat : nat - MUL; # nat : nat - EDIV; # option (pair nat nat) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat : @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # nat : nat : @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DIG 2; # @some : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CDR; # nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + MUL; # nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + EDIV; # option (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) IF_NONE { - PUSH int 631; # int + PUSH int 641; # int : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) FAILWITH; # FAILED } { - CAR; # nat - }; # nat + CAR; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + }; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) } { DROP; # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # nat : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : nat - DROP; # nat - }; # nat + DIG 2; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + }; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) } { SWAP; # @parameter : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # nat : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : nat - DROP; # nat - }; # nat + DIG 2; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + }; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat + # sp.result((borrowBalance.value, self.data.accrualBlockNumber)) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : nat + CAR; # nat : nat + SWAP; # nat : nat + PAIR; # pair nat nat }; view "comptroller" unit address { GET 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # sp.result(self.data.comptroller) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) GET 3; # address }; view - "exchangeRateStoredView" unit nat + "exchangeRateStoredView" unit (pair nat nat) { UNPAIR 3; # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.totalSupply > 0: # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4584,6 +4770,7 @@ view DROP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) DROP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) PUSH nat 0; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) GET 10; # nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) @@ -4595,6 +4782,7 @@ view PUSH string "DIVISION_BY_ZERO"; # string : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) FAILWITH; # FAILED }; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) GET 10; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) @@ -4606,247 +4794,291 @@ view GET 7; # pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows) : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) CDR; # nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) PUSH nat 0; # nat : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - DIG 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : nat : nat - CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : nat : nat : nat : nat - GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : nat : nat : nat : nat - GET 4; # nat : nat : nat : nat : nat : nat - SUB; # int : nat : nat : nat : nat - ISNAT; # option nat : nat : nat : nat : nat - RENAME; # option nat : nat : nat : nat : nat + DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 4; # nat : nat : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + SUB; # int : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + ISNAT; # option nat : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) IF_NONE { - PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat + PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) FAILWITH; # FAILED } - {}; # @some : nat : nat : nat : nat - ADD; # nat : nat : nat : nat - SUB; # int : nat : nat - ISNAT; # option nat : nat : nat - RENAME; # option nat : nat : nat + {}; # @some : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + ADD; # nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + SUB; # int : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + ISNAT; # option nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) IF_NONE { - PUSH int 671; # int : nat : nat + PUSH int 681; # int : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) FAILWITH; # FAILED } - {}; # @some : nat : nat - MUL; # nat : nat - EDIV; # option (pair nat nat) + {}; # @some : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + MUL; # nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + EDIV; # option (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) IF_NONE { - PUSH int 257; # int + PUSH int 257; # int : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) FAILWITH; # FAILED } { - CAR; # nat - }; # nat + CAR; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + }; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) } { SWAP; # @parameter : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # nat : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : nat - DROP; # nat - }; # nat + DIG 2; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + }; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat + # sp.result((excRate.value, self.data.accrualBlockNumber)) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : nat + CAR; # nat : nat + SWAP; # nat : nat + PAIR; # pair nat nat }; view - "getAccountSnapshotView" address (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))) + "getAccountSnapshotView" address (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))) { UNPAIR 3; # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH (pair nat nat) (Pair 0 0); # pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH nat 0; # nat : pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # @parameter : nat : pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair @parameter nat : pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 4; # big_map address (pair (map %approvals address nat) (nat %balance)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # @parameter : big_map address (pair (map %approvals address nat) (nat %balance)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - MEM; # bool : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if (self.data.accrualBlockNumber == sp.level) | (~ (self.data.ledger.contains(params))): # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + LEVEL; # @level : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : @level : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # @level : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @level : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @level : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : @level : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : @level : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # nat : @level : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + COMPARE; # int : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + EQ; # bool : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) IF { - DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - LEVEL; # @level : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - COMPARE; # int : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - EQ; # bool : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - IF - {} - { - PUSH string "CT_INTEREST_OLD"; # string : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - FAILWITH; # FAILED - }; # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 4; # big_map address (pair (map %approvals address nat) (nat %balance)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # @parameter : big_map address (pair (map %approvals address nat) (nat %balance)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET; # option (pair (map %approvals address nat) (nat %balance)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - IF_NONE - { - PUSH int 573; # int : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - FAILWITH; # FAILED - } - {}; # @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CDR; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UPDATE 3; # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH nat 0; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # big_map address (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 4; # @parameter : big_map address (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - MEM; # bool : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH bool True; # bool : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + } + { + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 4; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 2; # @parameter : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + MEM; # bool : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + NOT; # bool : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + }; # bool : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + IF + { + # compute_CToken_571 = sp.local("compute_CToken_571", sp.record(account = params, borrowBalance = 0, cTokenBalance = 0, exchangeRateMantissa = 0)) # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + PUSH (pair nat nat) (Pair 0 0); # pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + PUSH nat 0; # nat : pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # @parameter : nat : pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + PAIR; # pair @parameter nat : pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + PAIR; # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # if self.data.ledger.contains(params): # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 4; # big_map address (pair (map %approvals address nat) (nat %balance)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # @parameter : big_map address (pair (map %approvals address nat) (nat %balance)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + MEM; # bool : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) IF { - DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # big_map address (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 4; # @parameter : big_map address (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET; # option (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + LEVEL; # @level : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + COMPARE; # int : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + EQ; # bool : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + IF + {} + { + PUSH string "CT_INTEREST_OLD"; # string : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + FAILWITH; # FAILED + }; # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # compute_CToken_571.value.cTokenBalance = self.data.ledger[params].balance # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 4; # big_map address (pair (map %approvals address nat) (nat %balance)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # @parameter : big_map address (pair (map %approvals address nat) (nat %balance)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET; # option (pair (map %approvals address nat) (nat %balance)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) IF_NONE { - PUSH int 628; # int : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 579; # int : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) FAILWITH; # FAILED } - {}; # @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH nat 0; # nat : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 2; # @some : nat : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CDR; # nat : nat : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - COMPARE; # int : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GT; # bool : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + {}; # @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CDR; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + UPDATE 3; # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # borrowBalance = sp.local("borrowBalance", 0) # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + PUSH nat 0; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # if self.data.borrows.contains(params): # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # big_map address (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 4; # @parameter : big_map address (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + MEM; # bool : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) IF { - SWAP; # nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # @some : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 3; # nat : nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 2; # @some : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CDR; # nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - MUL; # nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - EDIV; # option (pair nat nat) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[params]) # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # big_map address (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 4; # @parameter : big_map address (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET; # option (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) IF_NONE { - PUSH int 631; # int : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 638; # int : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) FAILWITH; # FAILED } + {}; # @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # if borrowSnapshot.value.principal > 0: # @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + PUSH nat 0; # nat : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 2; # @some : nat : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CDR; # nat : nat : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + COMPARE; # int : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GT; # bool : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + IF { - CAR; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - }; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP; # @some : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # nat : nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DIG 2; # @some : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CDR; # nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + MUL; # nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + EDIV; # option (pair nat nat) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + IF_NONE + { + PUSH int 641; # int : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + FAILWITH; # FAILED + } + { + CAR; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + }; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + } + { + DROP; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + }; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) } - { - DROP; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - }; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - {}; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # pair (pair @parameter nat) (pair nat nat) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # pair @parameter nat : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # @parameter : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # nat : @parameter : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # @parameter : nat : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair @parameter nat : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair (pair @parameter nat) (pair nat nat) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH nat 0; # nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 10; # nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - COMPARE; # int : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GT; # bool : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - IF - { - DROP 2; # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # @parameter : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 2; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - DROP; # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - PUSH nat 0; # nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - GET 10; # nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - COMPARE; # int : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - GT; # bool : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + {}; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + SWAP; # pair (pair @parameter nat) (pair nat nat) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # compute_CToken_571.value.borrowBalance = borrowBalance.value # pair (pair @parameter nat) (pair nat nat) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + UNPAIR; # pair @parameter nat : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # @parameter : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # nat : @parameter : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + SWAP; # @parameter : nat : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + PAIR; # pair @parameter nat : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + PAIR; # pair (pair @parameter nat) (pair nat nat) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + SWAP; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # if self.data.totalSupply > 0: # nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + PUSH nat 0; # nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 10; # nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + COMPARE; # int : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GT; # bool : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) IF - {} - { - PUSH string "DIVISION_BY_ZERO"; # string : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - FAILWITH; # FAILED - }; # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - GET 10; # nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - GET 5; # nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - GET 9; # nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - GET 7; # pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows) : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - CDR; # nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - PUSH nat 0; # nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - DIG 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - GET 4; # nat : nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - SUB; # int : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - ISNAT; # option nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - RENAME; # option nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - IF_NONE - { - PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - FAILWITH; # FAILED - } - {}; # @some : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - ADD; # nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - SUB; # int : nat : nat : pair (pair @parameter nat) (pair nat nat) - ISNAT; # option nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - RENAME; # option nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - IF_NONE { - PUSH int 671; # int : nat : nat : pair (pair @parameter nat) (pair nat nat) - FAILWITH; # FAILED - } - {}; # @some : nat : nat : pair (pair @parameter nat) (pair nat nat) - MUL; # nat : nat : pair (pair @parameter nat) (pair nat nat) - EDIV; # option (pair nat nat) : pair (pair @parameter nat) (pair nat nat) - IF_NONE - { - PUSH int 257; # int : pair (pair @parameter nat) (pair nat nat) - FAILWITH; # FAILED + DROP 2; # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + SWAP; # @parameter : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + PUSH nat 0; # nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 10; # nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + COMPARE; # int : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GT; # bool : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + IF + {} + { + PUSH string "DIVISION_BY_ZERO"; # string : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + FAILWITH; # FAILED + }; # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 10; # nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 5; # nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 9; # nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 7; # pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows) : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CDR; # nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + PUSH nat 0; # nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DIG 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + GET 4; # nat : nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + SUB; # int : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + ISNAT; # option nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + IF_NONE + { + PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + FAILWITH; # FAILED + } + {}; # @some : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + ADD; # nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + SUB; # int : nat : nat : pair (pair @parameter nat) (pair nat nat) + ISNAT; # option nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + IF_NONE + { + PUSH int 681; # int : nat : nat : pair (pair @parameter nat) (pair nat nat) + FAILWITH; # FAILED + } + {}; # @some : nat : nat : pair (pair @parameter nat) (pair nat nat) + MUL; # nat : nat : pair (pair @parameter nat) (pair nat nat) + EDIV; # option (pair nat nat) : pair (pair @parameter nat) (pair nat nat) + IF_NONE + { + PUSH int 257; # int : pair (pair @parameter nat) (pair nat nat) + FAILWITH; # FAILED + } + { + CAR; # nat : pair (pair @parameter nat) (pair nat nat) + }; # nat : pair (pair @parameter nat) (pair nat nat) } { - CAR; # nat : pair (pair @parameter nat) (pair nat nat) + SWAP; # nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DIG 2; # @parameter : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DIG 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) + DROP; # nat : pair (pair @parameter nat) (pair nat nat) }; # nat : pair (pair @parameter nat) (pair nat nat) + # compute_CToken_571.value.exchangeRateMantissa = excRate.value # nat : pair (pair @parameter nat) (pair nat nat) + UPDATE 4; # pair (pair @parameter nat) (pair nat nat) } { - SWAP; # nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 2; # @parameter : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # nat : pair (pair @parameter nat) (pair nat nat) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 2; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : nat : pair (pair @parameter nat) (pair nat nat) - DROP; # nat : pair (pair @parameter nat) (pair nat nat) - }; # nat : pair (pair @parameter nat) (pair nat nat) - UPDATE 4; # pair (pair @parameter nat) (pair nat nat) + SWAP; # @parameter : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) + DROP; # pair (pair @parameter nat) (pair nat nat) + }; # pair (pair @parameter nat) (pair nat nat) + # sp.result(sp.some(compute_CToken_571.value)) # pair (pair @parameter nat) (pair nat nat) + SOME; # option (pair (pair @parameter nat) (pair nat nat)) } { - SWAP; # @parameter : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # pair (pair @parameter nat) (pair nat nat) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : pair (pair @parameter nat) (pair nat nat) - DROP; # pair (pair @parameter nat) (pair nat nat) - }; # pair (pair @parameter nat) (pair nat nat) + DROP 2; # + # sp.result(sp.none) # + NONE (pair (pair address nat) (pair nat nat)); # option (pair (pair address nat) (pair nat nat)) + }; # option (pair (pair address nat) (pair nat nat)) }; \ No newline at end of file diff --git a/compiled_contracts/CUSDtz/step_000_cont_0_sizes.csv b/compiled_contracts/CUSDtz/step_000_cont_0_sizes.csv index afcb0b10..214800fd 100644 --- a/compiled_contracts/CUSDtz/step_000_cont_0_sizes.csv +++ b/compiled_contracts/CUSDtz/step_000_cont_0_sizes.csv @@ -1,2 +1,2 @@ -storage,5199 -contract,20314 \ No newline at end of file +storage,5381 +contract,20220 \ No newline at end of file diff --git a/compiled_contracts/CUSDtz/step_000_cont_0_storage.json b/compiled_contracts/CUSDtz/step_000_cont_0_storage.json index 1fac8b78..1bbb875c 100644 --- a/compiled_contracts/CUSDtz/step_000_cont_0_storage.json +++ b/compiled_contracts/CUSDtz/step_000_cont_0_storage.json @@ -123,14 +123,13 @@ { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_SET_PENDING_ADMIN" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_PENDING_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "DUP" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "812" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "822" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, @@ -196,9 +195,7 @@ ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -220,7 +217,7 @@ ], "annots": [ "%getBorrowRate" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "744" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "754" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "9" } ] }, @@ -271,9 +268,7 @@ ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "NEQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -282,9 +277,84 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [], + [ + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { + "prim": "PUSH", + "args": [ + { "prim": "option", "args": [ { "prim": "pair", "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] } ] }, + { "prim": "Some", "args": [ { "prim": "Pair", "args": [ [], { "int": "0" } ] } ] } + ] + }, + { "prim": "SENDER" }, + { "prim": "UPDATE" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "SWAP" } + ] + ] + }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "SENDER" }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [], + [ + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { + "prim": "PUSH", + "args": [ + { "prim": "option", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }, + { "prim": "Some", "args": [ { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } ] } + ] + }, + { "prim": "SENDER" }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" } + ] + ] + }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SENDER" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "454" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "460" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, @@ -300,9 +370,8 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "455" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "461" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "SIZE" }, { "prim": "COMPARE" }, @@ -310,16 +379,30 @@ ] ] }, - { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA1.2_MaxApprovalsReached" } ] }, { "prim": "FAILWITH" } ] ] }, + { + "prim": "IF", + "args": [ + [], + [ + { + "prim": "PUSH", + "args": [ + { "prim": "pair", "args": [ { "prim": "string" }, { "prim": "unit" } ] }, + { "prim": "Pair", "args": [ { "string": "FA1.2_MaxApprovalsReached" }, { "prim": "Unit" } ] } + ] + }, + { "prim": "FAILWITH" } + ] + ] + }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "457" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "463" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, @@ -340,7 +423,29 @@ ] ] }, - { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA1.2_UnsafeAllowanceChange" } ] }, { "prim": "FAILWITH" } ] ] }, + { + "prim": "IF", + "args": [ + [], + [ + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SENDER" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "463" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] } ], [] ] }, + { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "UnsafeAllowanceChange" } ] }, + { "prim": "PAIR" }, + { "prim": "FAILWITH" } + ] + ] + }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, @@ -361,11 +466,10 @@ { "prim": "SWAP" }, { "prim": "DUP" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "462" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "468" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP" }, { "prim": "CAR" }, { "prim": "NONE", "args": [ { "prim": "nat" } ] }, @@ -397,11 +501,10 @@ { "prim": "SWAP" }, { "prim": "DUP" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "464" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "470" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP" }, { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "10" } ] }, @@ -456,7 +559,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_SENDER_NOT_IRM" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -499,11 +601,9 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "759" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "769" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "MUL" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, @@ -591,7 +691,6 @@ { "prim": "DROP" }, { "prim": "DIG", "args": [ { "int": "5" } ] }, { "prim": "DROP" }, - { "prim": "RENAME" }, { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "PAIR" }, @@ -641,7 +740,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -693,9 +791,7 @@ ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -743,7 +839,6 @@ { "prim": "GET", "args": [ { "int": "9" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "SWAP" }, @@ -775,7 +870,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, @@ -810,7 +904,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -894,7 +987,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "7" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INVALID_CASH_SENDER" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -955,7 +1047,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -1010,9 +1101,7 @@ ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -1093,7 +1182,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -1151,9 +1239,7 @@ ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -1188,7 +1274,6 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -1253,7 +1338,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, diff --git a/compiled_contracts/CUSDtz/step_000_cont_0_storage.tz b/compiled_contracts/CUSDtz/step_000_cont_0_storage.tz index 3c486b87..55b093ab 100644 --- a/compiled_contracts/CUSDtz/step_000_cont_0_storage.tz +++ b/compiled_contracts/CUSDtz/step_000_cont_0_storage.tz @@ -1 +1 @@ -(Pair (Pair (Pair (Pair (Pair 0 (Pair {} "KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2")) (Pair 1000000000000000000 (Pair 800000000000 0))) (Pair (Pair {} (Pair "KT1DiWBT6RBC97iWrvLHRzKL7AWQKorBiuRG" 0)) (Pair 1000000000000000000 (Pair "KT1LN4LPSqTMS7Sd2CJw4bbDGRkMv2t68Fy9" 500000000000000000)))) (Pair (Pair (Pair 1000000000000000000 (Pair "KT1Vzf3fXVBry4TDxWAfYzsn6ZPyMroMKUdW" {})) (Pair {Elt "" 0x74657a6f732d73746f726167653a64617461; Elt "data" 0x7b226e616d65223a202254657a46696e20496e7465726573742d42656172696e67205553442054657a222c20226465736372697074696f6e223a2022496e7465726573742d62656172696e6720746f6b656e20666f72205553442054657a2028555344747a2920737570706c69656420746f207468652054657a46696e206c656e64696e672070726f746f636f6c2e222c202276657273696f6e223a2022332e30222c2022617574686f7273223a205b2254657a6f732046696e616e63652050726f746f636f6c225d2c2022686f6d6570616765223a202268747470733a2f2f74657a6f732e66696e616e6365222c2022696e7465726661636573223a205b22545a49502d303037222c2022545a49502d303136225d7d} (Pair None 100000000000000))) (Pair (Pair 50000000000000000 (Pair 1000000000000000000 0)) (Pair (Pair {Elt 0 (Pair 0 {Elt "decimals" 0x36; Elt "name" 0x54657a46696e20496e7465726573742d42656172696e67205553442054657a; Elt "symbol" 0xea9cb0555344747a})} 0) (Pair 0 0))))) {Elt 0 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; DUP; GET 3; GET 5; IF_NONE { PUSH string "CT_NOT_SET_PENDING_ADMIN"; FAILWITH } {}; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_PENDING_ADMIN"; FAILWITH }; DUP; GET 3; GET 5; IF_NONE { PUSH int 812; FAILWITH } {}; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 1 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; NIL operation; DUP 3; GET 3; CAR; GET 3; CONTRACT %getBorrowRate (pair (pair (nat %borrows) (nat %cash)) (pair (contract %cb nat) (nat %reserves))); IF_NONE { PUSH int 744; FAILWITH } {}; PUSH mutez 0; DUP 5; GET 9; DIG 4; PAIR; DUP 5; CAR; GET 3; GET 4; DUP 6; GET 7; CDR; PAIR; PAIR; TRANSFER_TOKENS; CONS; PAIR }; Elt 2 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; RENAME; SENDER; RENAME; COMPARE; NEQ; IF {} { PUSH string "CT_INTERNAL_CALL"; FAILWITH }; DUP 2; GET 3; CAR; GET 4; SENDER; RENAME; GET; IF_NONE { PUSH int 454; FAILWITH } {}; CAR; DUP 2; CAR; MEM; IF { PUSH bool True } { PUSH nat 1000; DUP 3; GET 3; CAR; GET 4; SENDER; RENAME; GET; IF_NONE { PUSH int 455; FAILWITH } {}; CAR; SIZE; COMPARE; LT }; IF {} { PUSH string "FA1.2_MaxApprovalsReached"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; CAR; GET 4; SENDER; RENAME; GET; IF_NONE { PUSH int 457; FAILWITH } {}; CAR; DUP 3; CAR; GET; IF_NONE { PUSH nat 0 } {}; COMPARE; EQ; IF { PUSH bool True } { PUSH nat 0; DUP 2; CDR; COMPARE; EQ }; IF {} { PUSH string "FA1.2_UnsafeAllowanceChange"; FAILWITH }; PUSH nat 0; DUP 2; CDR; COMPARE; EQ; IF { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; SENDER; RENAME; DUP; DUG 2; GET; IF_NONE { PUSH int 462; FAILWITH } {}; DUP; CAR; NONE nat; DIG 10; CAR; UPDATE; UPDATE 1; SOME; SWAP; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR } { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; SENDER; RENAME; DUP; DUG 2; GET; IF_NONE { PUSH int 464; FAILWITH } {}; DUP; CAR; DUP 10; CDR; SOME; DIG 10; CAR; UPDATE; UPDATE 1; SOME; SWAP; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR }; NIL operation; PAIR }; Elt 3 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH }; DUP 2; GET 3; CAR; GET 3; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_SENDER_NOT_IRM"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 8; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 8; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; CAR; GET 5; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_BORROW_RATE"; FAILWITH }; DUP 2; CAR; CAR; CAR; CAR; LEVEL; RENAME; SUB; ISNAT; RENAME; IF_NONE { PUSH int 759; FAILWITH } {}; DUP 2; MUL; DUP 3; CAR; GET 5; DUP 4; GET 7; CDR; DUP 3; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; DUP 4; GET 7; CDR; DUP 2; ADD; DIG 4; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; CAR; DIG 5; SWAP; PAIR; PAIR; SWAP; PAIR; SWAP; PAIR; SWAP; PAIR; DUG 3; DUP 4; GET 9; DUP 5; CAR; GET 5; DUP 3; DUP 7; GET 5; CAR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; DIG 4; SWAP; UPDATE 9; DUG 3; DUP 4; CAR; CAR; GET 3; DUP 5; CAR; GET 5; DUP 6; CAR; CAR; GET 3; DUP 5; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; DIG 4; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; DIG 4; PAIR; SWAP; CDR; LEVEL; DIG 5; DROP; DIG 5; DROP; DIG 5; DROP; RENAME; PAIR; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 4 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } } } { PUSH int -1; FAILWITH }; DUP; CAR; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; EMPTY_SET nat; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 5 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 12; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 12; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP; DUP 3; CAR; GET 3; GET 4; COMPARE; GE; IF {} { PUSH string "CT_INSUFFICIENT_CASH"; FAILWITH }; DUP 2; GET 9; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_REDUCE_AMOUNT"; FAILWITH }; DUP; DUP 3; GET 9; SUB; ISNAT; RENAME; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; DIG 2; SWAP; UPDATE 9; SWAP; NIL operation; DUP 3; CAR; GET 7; CONTRACT %transfer (pair (address %from) (pair (address %to) (nat %value))); IF_NONE { PUSH int 17; FAILWITH } {}; PUSH mutez 0; DIG 3; DUP 5; CAR; CAR; CAR; GET 4; SELF_ADDRESS; RENAME; PAIR 3; TRANSFER_TOKENS; CONS; PAIR }; Elt 6 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } }; DUP; CAR; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 7 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 13; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 13; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; GET 7; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INVALID_CASH_SENDER"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; NIL operation; PAIR }; Elt 8 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } }; DUP 2; CAR; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; DIG 5; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; NIL operation; PAIR }; Elt 9 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT {} { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } }; SELF_ADDRESS; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 9; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 9; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; DIG 5; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 10 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } {} } { PUSH int -1; FAILWITH } } }; DUP 2; CAR; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; DIG 5; SOME; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 11 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } }; SELF_ADDRESS; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 10; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 10; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; CAR; CAR; CAR; LEVEL; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTEREST_OLD"; FAILWITH }; DUP 2; GET 5; GET 3; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_RESERVE_FACTOR"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; CDR; DIG 4; PAIR; PAIR; SWAP; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 12 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } }; DUP 2; CAR; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }}) \ No newline at end of file +(Pair (Pair (Pair (Pair (Pair 0 (Pair {} "KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2")) (Pair 1000000000000000000 (Pair 800000000000 0))) (Pair (Pair {} (Pair "KT1DiWBT6RBC97iWrvLHRzKL7AWQKorBiuRG" 0)) (Pair 1000000000000000000 (Pair "KT1LN4LPSqTMS7Sd2CJw4bbDGRkMv2t68Fy9" 500000000000000000)))) (Pair (Pair (Pair 1000000000000000000 (Pair "KT1Vzf3fXVBry4TDxWAfYzsn6ZPyMroMKUdW" {})) (Pair {Elt "" 0x74657a6f732d73746f726167653a64617461; Elt "data" 0x7b226e616d65223a202254657a46696e20496e7465726573742d42656172696e67205553442054657a222c20226465736372697074696f6e223a2022496e7465726573742d62656172696e6720746f6b656e20666f72205553442054657a2028555344747a2920737570706c69656420746f207468652054657a46696e206c656e64696e672070726f746f636f6c2e222c202276657273696f6e223a2022332e30222c2022617574686f7273223a205b2254657a6f732046696e616e63652050726f746f636f6c225d2c2022686f6d6570616765223a202268747470733a2f2f74657a6f732e66696e616e6365222c2022696e7465726661636573223a205b22545a49502d303037222c2022545a49502d303136225d7d} (Pair None 100000000000000))) (Pair (Pair 50000000000000000 (Pair 1000000000000000000 0)) (Pair (Pair {Elt 0 (Pair 0 {Elt "decimals" 0x36; Elt "name" 0x54657a46696e20496e7465726573742d42656172696e67205553442054657a; Elt "symbol" 0xea9cb0555344747a})} 0) (Pair 0 0))))) {Elt 0 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; DUP; GET 3; GET 5; IF_NONE { PUSH string "CT_NOT_SET_PENDING_ADMIN"; FAILWITH } {}; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_PENDING_ADMIN"; FAILWITH }; DUP; GET 3; GET 5; IF_NONE { PUSH int 822; FAILWITH } {}; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 1 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; NIL operation; DUP 3; GET 3; CAR; GET 3; CONTRACT %getBorrowRate (pair (pair (nat %borrows) (nat %cash)) (pair (contract %cb nat) (nat %reserves))); IF_NONE { PUSH int 754; FAILWITH } {}; PUSH mutez 0; DUP 5; GET 9; DIG 4; PAIR; DUP 5; CAR; GET 3; GET 4; DUP 6; GET 7; CDR; PAIR; PAIR; TRANSFER_TOKENS; CONS; PAIR }; Elt 2 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; SENDER; COMPARE; NEQ; IF {} { PUSH string "CT_INTERNAL_CALL"; FAILWITH }; DUP 2; GET 3; CAR; GET 4; SENDER; MEM; IF {} { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; PUSH (option (pair (map address nat) nat)) (Some (Pair {} 0)); SENDER; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR; SWAP }; DUP 2; CAR; GET 3; CAR; SENDER; MEM; IF {} { SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; PUSH (option (pair nat nat)) (Some (Pair 0 0)); SENDER; UPDATE; PAIR; PAIR; SWAP; PAIR; PAIR; SWAP }; DUP 2; GET 3; CAR; GET 4; SENDER; GET; IF_NONE { PUSH int 460; FAILWITH } {}; CAR; DUP 2; CAR; MEM; IF { PUSH bool True } { PUSH nat 1000; DUP 3; GET 3; CAR; GET 4; SENDER; GET; IF_NONE { PUSH int 461; FAILWITH } {}; CAR; SIZE; COMPARE; LT }; IF {} { PUSH (pair string unit) (Pair "FA1.2_MaxApprovalsReached" Unit); FAILWITH }; PUSH nat 0; DUP 3; GET 3; CAR; GET 4; SENDER; GET; IF_NONE { PUSH int 463; FAILWITH } {}; CAR; DUP 3; CAR; GET; IF_NONE { PUSH nat 0 } {}; COMPARE; EQ; IF { PUSH bool True } { PUSH nat 0; DUP 2; CDR; COMPARE; EQ }; IF {} { DUP 2; GET 3; CAR; GET 4; SENDER; GET; IF_NONE { PUSH int 463; FAILWITH } {}; CAR; DUP 2; CAR; GET; IF_NONE { PUSH nat 0 } {}; PUSH string "UnsafeAllowanceChange"; PAIR; FAILWITH }; PUSH nat 0; DUP 2; CDR; COMPARE; EQ; IF { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; SENDER; DUP; DUG 2; GET; IF_NONE { PUSH int 468; FAILWITH } {}; DUP; CAR; NONE nat; DIG 10; CAR; UPDATE; UPDATE 1; SOME; SWAP; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR } { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; SENDER; DUP; DUG 2; GET; IF_NONE { PUSH int 470; FAILWITH } {}; DUP; CAR; DUP 10; CDR; SOME; DIG 10; CAR; UPDATE; UPDATE 1; SOME; SWAP; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR }; NIL operation; PAIR }; Elt 3 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH }; DUP 2; GET 3; CAR; GET 3; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_SENDER_NOT_IRM"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 8; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 8; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; CAR; GET 5; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_BORROW_RATE"; FAILWITH }; DUP 2; CAR; CAR; CAR; CAR; LEVEL; SUB; ISNAT; IF_NONE { PUSH int 769; FAILWITH } {}; DUP 2; MUL; DUP 3; CAR; GET 5; DUP 4; GET 7; CDR; DUP 3; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; DUP 4; GET 7; CDR; DUP 2; ADD; DIG 4; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; CAR; DIG 5; SWAP; PAIR; PAIR; SWAP; PAIR; SWAP; PAIR; SWAP; PAIR; DUG 3; DUP 4; GET 9; DUP 5; CAR; GET 5; DUP 3; DUP 7; GET 5; CAR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; DIG 4; SWAP; UPDATE 9; DUG 3; DUP 4; CAR; CAR; GET 3; DUP 5; CAR; GET 5; DUP 6; CAR; CAR; GET 3; DUP 5; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; DIG 4; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; DIG 4; PAIR; SWAP; CDR; LEVEL; DIG 5; DROP; DIG 5; DROP; DIG 5; DROP; PAIR; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 4 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } } } { PUSH int -1; FAILWITH }; DUP; CAR; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; EMPTY_SET nat; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 5 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 12; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 12; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP; DUP 3; CAR; GET 3; GET 4; COMPARE; GE; IF {} { PUSH string "CT_INSUFFICIENT_CASH"; FAILWITH }; DUP 2; GET 9; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_REDUCE_AMOUNT"; FAILWITH }; DUP; DUP 3; GET 9; SUB; ISNAT; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; DIG 2; SWAP; UPDATE 9; SWAP; NIL operation; DUP 3; CAR; GET 7; CONTRACT %transfer (pair (address %from) (pair (address %to) (nat %value))); IF_NONE { PUSH int 17; FAILWITH } {}; PUSH mutez 0; DIG 3; DUP 5; CAR; CAR; CAR; GET 4; SELF_ADDRESS; PAIR 3; TRANSFER_TOKENS; CONS; PAIR }; Elt 6 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } }; DUP; CAR; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 7 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 13; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 13; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; GET 7; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INVALID_CASH_SENDER"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; NIL operation; PAIR }; Elt 8 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } }; DUP 2; CAR; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; DIG 5; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; NIL operation; PAIR }; Elt 9 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT {} { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } }; SELF_ADDRESS; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 9; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 9; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; DIG 5; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 10 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } {} } { PUSH int -1; FAILWITH } } }; DUP 2; CAR; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; DIG 5; SOME; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 11 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } }; SELF_ADDRESS; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 10; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 10; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; CAR; CAR; CAR; LEVEL; COMPARE; EQ; IF {} { PUSH string "CT_INTEREST_OLD"; FAILWITH }; DUP 2; GET 5; GET 3; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_RESERVE_FACTOR"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; CDR; DIG 4; PAIR; PAIR; SWAP; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 12 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } }; DUP 2; CAR; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }}) \ No newline at end of file diff --git a/compiled_contracts/CUSDtz/step_000_cont_0_types.py b/compiled_contracts/CUSDtz/step_000_cont_0_types.py index 5910ccc9..bbb20b96 100644 --- a/compiled_contracts/CUSDtz/step_000_cont_0_types.py +++ b/compiled_contracts/CUSDtz/step_000_cont_0_types.py @@ -1,6 +1,6 @@ import smartpy as sp tstorage = sp.TRecord(accrualBlockNumber = sp.TNat, activeOperations = sp.TSet(sp.TNat), administrator = sp.TAddress, borrowIndex = sp.TNat, borrowRateMaxMantissa = sp.TNat, borrowRatePerBlock = sp.TNat, borrows = sp.TBigMap(sp.TAddress, sp.TRecord(interestIndex = sp.TNat, principal = sp.TNat).layout(("interestIndex", "principal"))), comptroller = sp.TAddress, currentCash = sp.TNat, expScale = sp.TNat, fa1_2_TokenAddress = sp.TAddress, halfExpScale = sp.TNat, initialExchangeRateMantissa = sp.TNat, interestRateModel = sp.TAddress, ledger = sp.TBigMap(sp.TAddress, sp.TRecord(approvals = sp.TMap(sp.TAddress, sp.TNat), balance = sp.TNat).layout(("approvals", "balance"))), metadata = sp.TBigMap(sp.TString, sp.TBytes), pendingAdministrator = sp.TOption(sp.TAddress), protocolSeizeShareMantissa = sp.TNat, reserveFactorMantissa = sp.TNat, reserveFactorMaxMantissa = sp.TNat, supplyRatePerBlock = sp.TNat, token_metadata = sp.TBigMap(sp.TNat, sp.TRecord(token_id = sp.TNat, token_info = sp.TMap(sp.TString, sp.TBytes)).layout(("token_id", "token_info"))), totalBorrows = sp.TNat, totalReserves = sp.TNat, totalSupply = sp.TNat).layout((((("accrualBlockNumber", ("activeOperations", "administrator")), ("borrowIndex", ("borrowRateMaxMantissa", "borrowRatePerBlock"))), (("borrows", ("comptroller", "currentCash")), ("expScale", ("fa1_2_TokenAddress", "halfExpScale")))), ((("initialExchangeRateMantissa", ("interestRateModel", "ledger")), ("metadata", ("pendingAdministrator", "protocolSeizeShareMantissa"))), (("reserveFactorMantissa", ("reserveFactorMaxMantissa", "supplyRatePerBlock")), (("token_metadata", "totalBorrows"), ("totalReserves", "totalSupply")))))) -tparameter = sp.TVariant(acceptGovernance = sp.TUnit, accrueInterest = sp.TUnit, accrueInterestInternal = sp.TContract(sp.TNat), addReserves = sp.TNat, addReservesInternal = sp.TRecord(addAmount = sp.TNat, originalSender = sp.TAddress).layout(("addAmount", "originalSender")), approve = sp.TRecord(spender = sp.TAddress, value = sp.TNat).layout(("spender", "value")), borrow = sp.TNat, borrowBalanceStored = sp.TPair(sp.TAddress, sp.TContract(sp.TNat)), doAccrueInterest = sp.TNat, exchangeRateStored = sp.TPair(sp.TUnit, sp.TContract(sp.TNat)), getAccountSnapshot = sp.TPair(sp.TAddress, sp.TContract(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))), getAllowance = sp.TPair(sp.TRecord(owner = sp.TAddress, spender = sp.TAddress).layout(("owner", "spender")), sp.TContract(sp.TNat)), getBalance = sp.TPair(sp.TAddress, sp.TContract(sp.TNat)), getBalanceOfUnderlying = sp.TPair(sp.TAddress, sp.TContract(sp.TNat)), getCash = sp.TPair(sp.TUnit, sp.TContract(sp.TNat)), getTotalSupply = sp.TPair(sp.TUnit, sp.TContract(sp.TNat)), hardResetOp = sp.TUnit, liquidateBorrow = sp.TRecord(borrower = sp.TAddress, cTokenCollateral = sp.TAddress, repayAmount = sp.TNat).layout(("borrower", ("cTokenCollateral", "repayAmount"))), mint = sp.TNat, redeem = sp.TNat, redeemUnderlying = sp.TNat, reduceReserves = sp.TNat, reduceReservesInternal = sp.TNat, removePendingGovernance = sp.TUnit, repayBorrow = sp.TNat, repayBorrowBehalf = sp.TRecord(borrower = sp.TAddress, repayAmount = sp.TNat).layout(("borrower", "repayAmount")), seize = sp.TRecord(borrower = sp.TAddress, liquidator = sp.TAddress, seizeTokens = sp.TNat).layout(("borrower", ("liquidator", "seizeTokens"))), setCash = sp.TNat, setComptroller = sp.TAddress, setInterestRateModel = sp.TAddress, setInterestRateModelInternal = sp.TAddress, setPendingGovernance = sp.TAddress, setReserveFactor = sp.TNat, setReserveFactorInternal = sp.TNat, sweepFA12 = sp.TRecord(amount = sp.TNat, tokenAddress = sp.TAddress).layout(("amount", "tokenAddress")), sweepFA2 = sp.TRecord(amount = sp.TNat, id = sp.TNat, tokenAddress = sp.TAddress).layout(("amount", ("id", "tokenAddress"))), sweepMutez = sp.TBool, transfer = sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), updateMetadata = sp.TRecord(key = sp.TString, value = sp.TBytes).layout(("key", "value")), updateProtocolSeizeShare = sp.TNat).layout(((((("acceptGovernance", "accrueInterest"), ("accrueInterestInternal", ("addReserves", "addReservesInternal"))), (("approve", "borrow"), ("borrowBalanceStored", ("doAccrueInterest", "exchangeRateStored")))), ((("getAccountSnapshot", "getAllowance"), ("getBalance", ("getBalanceOfUnderlying", "getCash"))), (("getTotalSupply", "hardResetOp"), ("liquidateBorrow", ("mint", "redeem"))))), (((("redeemUnderlying", "reduceReserves"), ("reduceReservesInternal", ("removePendingGovernance", "repayBorrow"))), (("repayBorrowBehalf", "seize"), ("setCash", ("setComptroller", "setInterestRateModel")))), ((("setInterestRateModelInternal", "setPendingGovernance"), ("setReserveFactor", ("setReserveFactorInternal", "sweepFA12"))), (("sweepFA2", "sweepMutez"), ("transfer", ("updateMetadata", "updateProtocolSeizeShare"))))))) +tparameter = sp.TVariant(acceptGovernance = sp.TUnit, accrueInterest = sp.TUnit, accrueInterestInternal = sp.TContract(sp.TNat), addReserves = sp.TNat, addReservesInternal = sp.TRecord(addAmount = sp.TNat, originalSender = sp.TAddress).layout(("addAmount", "originalSender")), approve = sp.TRecord(spender = sp.TAddress, value = sp.TNat).layout(("spender", "value")), borrow = sp.TNat, borrowBalanceStored = sp.TPair(sp.TAddress, sp.TContract(sp.TPair(sp.TNat, sp.TNat))), doAccrueInterest = sp.TNat, exchangeRateStored = sp.TPair(sp.TUnit, sp.TContract(sp.TPair(sp.TNat, sp.TNat))), getAccountSnapshot = sp.TPair(sp.TAddress, sp.TContract(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))), getAllowance = sp.TPair(sp.TRecord(owner = sp.TAddress, spender = sp.TAddress).layout(("owner", "spender")), sp.TContract(sp.TNat)), getBalance = sp.TPair(sp.TAddress, sp.TContract(sp.TNat)), getBalanceOfUnderlying = sp.TPair(sp.TAddress, sp.TContract(sp.TPair(sp.TNat, sp.TNat))), getCash = sp.TPair(sp.TUnit, sp.TContract(sp.TPair(sp.TNat, sp.TNat))), getTotalSupply = sp.TPair(sp.TUnit, sp.TContract(sp.TNat)), hardResetOp = sp.TUnit, liquidateBorrow = sp.TRecord(borrower = sp.TAddress, cTokenCollateral = sp.TAddress, repayAmount = sp.TNat).layout(("borrower", ("cTokenCollateral", "repayAmount"))), mint = sp.TNat, redeem = sp.TNat, redeemUnderlying = sp.TNat, reduceReserves = sp.TNat, reduceReservesInternal = sp.TNat, removePendingGovernance = sp.TUnit, repayBorrow = sp.TNat, repayBorrowBehalf = sp.TRecord(borrower = sp.TAddress, repayAmount = sp.TNat).layout(("borrower", "repayAmount")), seize = sp.TRecord(borrower = sp.TAddress, liquidator = sp.TAddress, seizeTokens = sp.TNat).layout(("borrower", ("liquidator", "seizeTokens"))), setCash = sp.TNat, setComptroller = sp.TAddress, setInterestRateModel = sp.TAddress, setInterestRateModelInternal = sp.TAddress, setPendingGovernance = sp.TAddress, setReserveFactor = sp.TNat, setReserveFactorInternal = sp.TNat, sweepFA12 = sp.TRecord(amount = sp.TNat, tokenAddress = sp.TAddress).layout(("amount", "tokenAddress")), sweepFA2 = sp.TRecord(amount = sp.TNat, id = sp.TNat, tokenAddress = sp.TAddress).layout(("amount", ("id", "tokenAddress"))), sweepMutez = sp.TBool, transfer = sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), updateMetadata = sp.TRecord(key = sp.TString, value = sp.TBytes).layout(("key", "value")), updateProtocolSeizeShare = sp.TNat).layout(((((("acceptGovernance", "accrueInterest"), ("accrueInterestInternal", ("addReserves", "addReservesInternal"))), (("approve", "borrow"), ("borrowBalanceStored", ("doAccrueInterest", "exchangeRateStored")))), ((("getAccountSnapshot", "getAllowance"), ("getBalance", ("getBalanceOfUnderlying", "getCash"))), (("getTotalSupply", "hardResetOp"), ("liquidateBorrow", ("mint", "redeem"))))), (((("redeemUnderlying", "reduceReserves"), ("reduceReservesInternal", ("removePendingGovernance", "repayBorrow"))), (("repayBorrowBehalf", "seize"), ("setCash", ("setComptroller", "setInterestRateModel")))), ((("setInterestRateModelInternal", "setPendingGovernance"), ("setReserveFactor", ("setReserveFactorInternal", "sweepFA12"))), (("sweepFA2", "sweepMutez"), ("transfer", ("updateMetadata", "updateProtocolSeizeShare"))))))) tprivates = { } -tviews = { "accrualBlockNumber": (sp.TUnit, sp.TNat), "balanceOf": (sp.TAddress, sp.TNat), "borrowBalanceStoredView": (sp.TAddress, sp.TNat), "comptroller": (sp.TUnit, sp.TAddress), "exchangeRateStoredView": (sp.TUnit, sp.TNat), "getAccountSnapshotView": (sp.TAddress, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))) } +tviews = { "accrualBlockNumber": (sp.TUnit, sp.TNat), "balanceOf": (sp.TAddress, sp.TNat), "borrowBalanceStoredView": (sp.TAddress, sp.TPair(sp.TNat, sp.TNat)), "comptroller": (sp.TUnit, sp.TAddress), "exchangeRateStoredView": (sp.TUnit, sp.TPair(sp.TNat, sp.TNat)), "getAccountSnapshotView": (sp.TAddress, sp.TOption(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))) } diff --git a/compiled_contracts/CXTZ/log.txt b/compiled_contracts/CXTZ/log.txt index 72144a8b..c3417212 100644 --- a/compiled_contracts/CXTZ/log.txt +++ b/compiled_contracts/CXTZ/log.txt @@ -1,10 +1,10 @@ Creating contract KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 - -> (Pair (Pair (Pair (Pair (Pair 0 {}) (Pair "KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2" (Pair 1000000000000000000 800000000000))) (Pair (Pair 0 (Pair {} "KT1DiWBT6RBC97iWrvLHRzKL7AWQKorBiuRG")) (Pair 1000000000000000000 (Pair 500000000000000000 1000000000000000000)))) (Pair (Pair (Pair "KT1B7zvU7EXmPBHazHhtajHaw5swFFxWCEfd" (Pair {} {Elt "" 0x74657a6f732d73746f726167653a64617461; Elt "data" 0x7b226e616d65223a202254657a46696e20496e7465726573742d42656172696e672058545a222c20226465736372697074696f6e223a2022496e7465726573742d62656172696e6720746f6b656e20666f722054657a202858545a2920737570706c69656420746f207468652054657a46696e206c656e64696e672070726f746f636f6c2e222c202276657273696f6e223a2022332e30222c2022617574686f7273223a205b2254657a6f732046696e616e63652050726f746f636f6c225d2c2022686f6d6570616765223a202268747470733a2f2f74657a6f732e66696e616e6365222c2022696e7465726661636573223a205b22545a49502d303037222c2022545a49502d303136225d7d})) (Pair None (Pair 100000000000000 50000000000000000))) (Pair (Pair 1000000000000000000 (Pair 0 {Elt 0 (Pair 0 {Elt "decimals" 0x36; Elt "name" 0x54657a46696e20496e7465726573742d42656172696e672058545a; Elt "symbol" 0xea9cb058545a})})) (Pair 0 (Pair 0 0))))) {Elt 0 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; DUP; GET 3; GET 3; IF_NONE { PUSH string "CT_NOT_SET_PENDING_ADMIN"; FAILWITH } {}; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_PENDING_ADMIN"; FAILWITH }; DUP; GET 3; GET 3; IF_NONE { PUSH int 812; FAILWITH } {}; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; DIG 4; PAIR; SWAP; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 1 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; NIL operation; DUP 3; GET 3; CAR; CAR; CONTRACT %getBorrowRate (pair (pair (nat %borrows) (nat %cash)) (pair (contract %cb nat) (nat %reserves))); IF_NONE { PUSH int 744; FAILWITH } {}; PUSH mutez 0; DUP 5; GET 9; DIG 4; PAIR; PUSH mutez 1; BALANCE; RENAME; EDIV; IF_NONE { UNIT; FAILWITH } {}; CAR; DUP 6; GET 7; PAIR; PAIR; TRANSFER_TOKENS; CONS; PAIR }; Elt 2 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; RENAME; SENDER; RENAME; COMPARE; NEQ; IF {} { PUSH string "CT_INTERNAL_CALL"; FAILWITH }; DUP 2; GET 3; CAR; GET 3; SENDER; RENAME; GET; IF_NONE { PUSH int 454; FAILWITH } {}; CAR; DUP 2; CAR; MEM; IF { PUSH bool True } { PUSH nat 1000; DUP 3; GET 3; CAR; GET 3; SENDER; RENAME; GET; IF_NONE { PUSH int 455; FAILWITH } {}; CAR; SIZE; COMPARE; LT }; IF {} { PUSH string "FA1.2_MaxApprovalsReached"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; CAR; GET 3; SENDER; RENAME; GET; IF_NONE { PUSH int 457; FAILWITH } {}; CAR; DUP 3; CAR; GET; IF_NONE { PUSH nat 0 } {}; COMPARE; EQ; IF { PUSH bool True } { PUSH nat 0; DUP 2; CDR; COMPARE; EQ }; IF {} { PUSH string "FA1.2_UnsafeAllowanceChange"; FAILWITH }; PUSH nat 0; DUP 2; CDR; COMPARE; EQ; IF { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; DUP; SENDER; RENAME; DUP; DUG 2; GET; IF_NONE { PUSH int 462; FAILWITH } {}; DUP; CAR; NONE nat; DIG 10; CAR; UPDATE; UPDATE 1; SOME; SWAP; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR } { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; DUP; SENDER; RENAME; DUP; DUG 2; GET; IF_NONE { PUSH int 464; FAILWITH } {}; DUP; CAR; DUP 10; CDR; SOME; DIG 10; CAR; UPDATE; UPDATE 1; SOME; SWAP; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR }; NIL operation; PAIR }; Elt 3 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH }; DUP 2; GET 3; CAR; CAR; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_SENDER_NOT_IRM"; FAILWITH }; DUP 2; CAR; CAR; CAR; CDR; PUSH nat 8; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; PUSH bool False; PUSH nat 8; UPDATE; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; CAR; GET 6; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_BORROW_RATE"; FAILWITH }; DUP 2; CAR; CAR; CAR; CAR; LEVEL; RENAME; SUB; ISNAT; RENAME; IF_NONE { PUSH int 759; FAILWITH } {}; DUP 2; MUL; DUP 3; CAR; GET 5; DUP 4; GET 7; DUP 3; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; DUP 4; GET 7; DUP 2; ADD; DIG 4; SWAP; UPDATE 7; DUG 3; DUP 4; GET 9; DUP 5; CAR; GET 5; DUP 3; DUP 7; GET 3; GET 6; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; DIG 4; SWAP; UPDATE 9; DUG 3; DUP 4; CAR; CAR; GET 5; DUP 5; CAR; GET 5; DUP 6; CAR; CAR; GET 5; DUP 5; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; DIG 4; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; DIG 5; PAIR; SWAP; PAIR; SWAP; CDR; LEVEL; DIG 5; DROP; DIG 5; DROP; DIG 5; DROP; RENAME; PAIR; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 4 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } } } { PUSH int -1; FAILWITH }; DUP; CAR; CAR; GET 3; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; UNPAIR; UNPAIR; CAR; EMPTY_SET nat; SWAP; PAIR; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 5 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; CDR; PUSH nat 12; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; PUSH bool False; PUSH nat 12; UPDATE; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP; PUSH mutez 1; BALANCE; RENAME; EDIV; IF_NONE { UNIT; FAILWITH } {}; CAR; COMPARE; GE; IF {} { PUSH string "CT_INSUFFICIENT_CASH"; FAILWITH }; DUP 2; GET 9; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_REDUCE_AMOUNT"; FAILWITH }; DUP; DUP 3; GET 9; SUB; ISNAT; RENAME; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; DIG 2; SWAP; UPDATE 9; SWAP; NIL operation; DUP 3; CAR; CAR; GET 3; CONTRACT %receive unit; IF_NONE { PUSH string "bad contract destination"; FAILWITH } {}; PUSH mutez 1; DIG 3; MUL; UNIT; TRANSFER_TOKENS; CONS; PAIR }; Elt 6 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } }; DUP; CAR; CAR; GET 3; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 7 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } }; DUP 2; CAR; CAR; GET 3; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; NIL operation; PAIR }; Elt 8 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } }; SELF_ADDRESS; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; CDR; PUSH nat 9; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; PUSH bool False; PUSH nat 9; UPDATE; SWAP; PAIR; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; CDR; DIG 4; PAIR; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 9 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } }; DUP 2; CAR; CAR; GET 3; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; DIG 4; SOME; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 10 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } }; SELF_ADDRESS; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; CDR; PUSH nat 10; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; PUSH bool False; PUSH nat 10; UPDATE; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; CAR; CAR; CAR; LEVEL; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTEREST_OLD"; FAILWITH }; DUP 2; GET 5; CAR; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_RESERVE_FACTOR"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 11 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } }; DUP 2; CAR; CAR; GET 3; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; DIG 5; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }}) + -> (Pair (Pair (Pair (Pair (Pair 0 {}) (Pair "KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2" (Pair 1000000000000000000 800000000000))) (Pair (Pair 0 (Pair {} "KT1DiWBT6RBC97iWrvLHRzKL7AWQKorBiuRG")) (Pair 1000000000000000000 (Pair 500000000000000000 1000000000000000000)))) (Pair (Pair (Pair "KT1B7zvU7EXmPBHazHhtajHaw5swFFxWCEfd" (Pair {} {Elt "" 0x74657a6f732d73746f726167653a64617461; Elt "data" 0x7b226e616d65223a202254657a46696e20496e7465726573742d42656172696e672058545a222c20226465736372697074696f6e223a2022496e7465726573742d62656172696e6720746f6b656e20666f722054657a202858545a2920737570706c69656420746f207468652054657a46696e206c656e64696e672070726f746f636f6c2e222c202276657273696f6e223a2022332e30222c2022617574686f7273223a205b2254657a6f732046696e616e63652050726f746f636f6c225d2c2022686f6d6570616765223a202268747470733a2f2f74657a6f732e66696e616e6365222c2022696e7465726661636573223a205b22545a49502d303037222c2022545a49502d303136225d7d})) (Pair None (Pair 100000000000000 50000000000000000))) (Pair (Pair 1000000000000000000 (Pair 0 {Elt 0 (Pair 0 {Elt "decimals" 0x36; Elt "name" 0x54657a46696e20496e7465726573742d42656172696e672058545a; Elt "symbol" 0xea9cb058545a})})) (Pair 0 (Pair 0 0))))) {Elt 0 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; DUP; GET 3; GET 3; IF_NONE { PUSH string "CT_NOT_SET_PENDING_ADMIN"; FAILWITH } {}; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_PENDING_ADMIN"; FAILWITH }; DUP; GET 3; GET 3; IF_NONE { PUSH int 822; FAILWITH } {}; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; DIG 4; PAIR; SWAP; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 1 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; NIL operation; DUP 3; GET 3; CAR; CAR; CONTRACT %getBorrowRate (pair (pair (nat %borrows) (nat %cash)) (pair (contract %cb nat) (nat %reserves))); IF_NONE { PUSH int 754; FAILWITH } {}; PUSH mutez 0; DUP 5; GET 9; DIG 4; PAIR; PUSH mutez 1; BALANCE; EDIV; IF_NONE { UNIT; FAILWITH } {}; CAR; DUP 6; GET 7; PAIR; PAIR; TRANSFER_TOKENS; CONS; PAIR }; Elt 2 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; SENDER; COMPARE; NEQ; IF {} { PUSH string "CT_INTERNAL_CALL"; FAILWITH }; DUP 2; GET 3; CAR; GET 3; SENDER; MEM; IF {} { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH (option (pair (map address nat) nat)) (Some (Pair {} 0)); SENDER; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR; SWAP }; DUP 2; CAR; GET 3; GET 3; SENDER; MEM; IF {} { SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH (option (pair nat nat)) (Some (Pair 0 0)); SENDER; UPDATE; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; SWAP }; DUP 2; GET 3; CAR; GET 3; SENDER; GET; IF_NONE { PUSH int 460; FAILWITH } {}; CAR; DUP 2; CAR; MEM; IF { PUSH bool True } { PUSH nat 1000; DUP 3; GET 3; CAR; GET 3; SENDER; GET; IF_NONE { PUSH int 461; FAILWITH } {}; CAR; SIZE; COMPARE; LT }; IF {} { PUSH (pair string unit) (Pair "FA1.2_MaxApprovalsReached" Unit); FAILWITH }; PUSH nat 0; DUP 3; GET 3; CAR; GET 3; SENDER; GET; IF_NONE { PUSH int 463; FAILWITH } {}; CAR; DUP 3; CAR; GET; IF_NONE { PUSH nat 0 } {}; COMPARE; EQ; IF { PUSH bool True } { PUSH nat 0; DUP 2; CDR; COMPARE; EQ }; IF {} { DUP 2; GET 3; CAR; GET 3; SENDER; GET; IF_NONE { PUSH int 463; FAILWITH } {}; CAR; DUP 2; CAR; GET; IF_NONE { PUSH nat 0 } {}; PUSH string "UnsafeAllowanceChange"; PAIR; FAILWITH }; PUSH nat 0; DUP 2; CDR; COMPARE; EQ; IF { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; DUP; SENDER; DUP; DUG 2; GET; IF_NONE { PUSH int 468; FAILWITH } {}; DUP; CAR; NONE nat; DIG 10; CAR; UPDATE; UPDATE 1; SOME; SWAP; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR } { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; DUP; SENDER; DUP; DUG 2; GET; IF_NONE { PUSH int 470; FAILWITH } {}; DUP; CAR; DUP 10; CDR; SOME; DIG 10; CAR; UPDATE; UPDATE 1; SOME; SWAP; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR }; NIL operation; PAIR }; Elt 3 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH }; DUP 2; GET 3; CAR; CAR; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_SENDER_NOT_IRM"; FAILWITH }; DUP 2; CAR; CAR; CAR; CDR; PUSH nat 8; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; PUSH bool False; PUSH nat 8; UPDATE; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; CAR; GET 6; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_BORROW_RATE"; FAILWITH }; DUP 2; CAR; CAR; CAR; CAR; LEVEL; SUB; ISNAT; IF_NONE { PUSH int 769; FAILWITH } {}; DUP 2; MUL; DUP 3; CAR; GET 5; DUP 4; GET 7; DUP 3; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; DUP 4; GET 7; DUP 2; ADD; DIG 4; SWAP; UPDATE 7; DUG 3; DUP 4; GET 9; DUP 5; CAR; GET 5; DUP 3; DUP 7; GET 3; GET 6; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; DIG 4; SWAP; UPDATE 9; DUG 3; DUP 4; CAR; CAR; GET 5; DUP 5; CAR; GET 5; DUP 6; CAR; CAR; GET 5; DUP 5; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; DIG 4; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; DIG 5; PAIR; SWAP; PAIR; SWAP; CDR; LEVEL; DIG 5; DROP; DIG 5; DROP; DIG 5; DROP; PAIR; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 4 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } } } { PUSH int -1; FAILWITH }; DUP; CAR; CAR; GET 3; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; UNPAIR; UNPAIR; CAR; EMPTY_SET nat; SWAP; PAIR; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 5 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; CDR; PUSH nat 12; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; PUSH bool False; PUSH nat 12; UPDATE; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP; PUSH mutez 1; BALANCE; EDIV; IF_NONE { UNIT; FAILWITH } {}; CAR; COMPARE; GE; IF {} { PUSH string "CT_INSUFFICIENT_CASH"; FAILWITH }; DUP 2; GET 9; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_REDUCE_AMOUNT"; FAILWITH }; DUP; DUP 3; GET 9; SUB; ISNAT; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; DIG 2; SWAP; UPDATE 9; SWAP; NIL operation; DUP 3; CAR; CAR; GET 3; CONTRACT %receive unit; IF_NONE { PUSH string "bad contract destination"; FAILWITH } {}; PUSH mutez 1; DIG 3; MUL; UNIT; TRANSFER_TOKENS; CONS; PAIR }; Elt 6 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } }; DUP; CAR; CAR; GET 3; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 7 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } }; DUP 2; CAR; CAR; GET 3; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; NIL operation; PAIR }; Elt 8 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } }; SELF_ADDRESS; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; CDR; PUSH nat 9; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; PUSH bool False; PUSH nat 9; UPDATE; SWAP; PAIR; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; CDR; DIG 4; PAIR; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 9 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } }; DUP 2; CAR; CAR; GET 3; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; DIG 4; SOME; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 10 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } }; SELF_ADDRESS; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; CDR; PUSH nat 10; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; PUSH bool False; PUSH nat 10; UPDATE; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; CAR; CAR; CAR; LEVEL; COMPARE; EQ; IF {} { PUSH string "CT_INTEREST_OLD"; FAILWITH }; DUP 2; GET 5; CAR; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_RESERVE_FACTOR"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 11 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } }; DUP 2; CAR; CAR; GET 3; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; DIG 5; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }}) => ./compiled_contracts/CXTZ/step_000_cont_0_storage.tz 1 - => ./compiled_contracts/CXTZ/step_000_cont_0_storage.json 1136 + => ./compiled_contracts/CXTZ/step_000_cont_0_storage.json 1222 => ./compiled_contracts/CXTZ/step_000_cont_0_sizes.csv 2 => ./compiled_contracts/CXTZ/step_000_cont_0_storage.py 1 => ./compiled_contracts/CXTZ/step_000_cont_0_types.py 7 - => ./compiled_contracts/CXTZ/step_000_cont_0_contract.tz 5102 - => ./compiled_contracts/CXTZ/step_000_cont_0_contract.json 5701 - => ./compiled_contracts/CXTZ/step_000_cont_0_contract.py 760 + => ./compiled_contracts/CXTZ/step_000_cont_0_contract.tz 5231 + => ./compiled_contracts/CXTZ/step_000_cont_0_contract.json 5602 + => ./compiled_contracts/CXTZ/step_000_cont_0_contract.py 770 diff --git a/compiled_contracts/CXTZ/step_000_cont_0_contract.json b/compiled_contracts/CXTZ/step_000_cont_0_contract.json index cff3c74a..2a86e545 100644 --- a/compiled_contracts/CXTZ/step_000_cont_0_contract.json +++ b/compiled_contracts/CXTZ/step_000_cont_0_contract.json @@ -474,8 +474,16 @@ { "prim": "or", "args": [ - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ], "annots": [ "%borrowBalanceStored" ] }, - { "prim": "pair", "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ], "annots": [ "%exchangeRateStored" ] } + { + "prim": "pair", + "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ], + "annots": [ "%borrowBalanceStored" ] + }, + { + "prim": "pair", + "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ], + "annots": [ "%exchangeRateStored" ] + } ] } ] @@ -529,8 +537,16 @@ { "prim": "or", "args": [ - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ], "annots": [ "%getBalanceOfUnderlying" ] }, - { "prim": "pair", "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ], "annots": [ "%getCash" ] } + { + "prim": "pair", + "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ], + "annots": [ "%getBalanceOfUnderlying" ] + }, + { + "prim": "pair", + "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ], + "annots": [ "%getCash" ] + } ] }, { @@ -788,7 +804,6 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "NEQ" }, { @@ -815,7 +830,6 @@ { "prim": "LEVEL" }, { "prim": "DIG", "args": [ { "int": "5" } ] }, { "prim": "DROP" }, - { "prim": "RENAME" }, { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "PAIR" }, @@ -839,7 +853,6 @@ { "prim": "PAIR" }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "CONTRACT", "args": [ { "prim": "contract", "args": [ { "prim": "nat" } ] } ], @@ -847,11 +860,10 @@ }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "735" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "745" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "SELF", "annots": [ "%doAccrueInterest" ] }, - { "prim": "RENAME" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" } ] @@ -868,9 +880,7 @@ "args": [ [ { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "NEQ" }, { @@ -907,17 +917,13 @@ { "prim": "SWAP" }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "SELF", "annots": [ "%accrueInterest" ] }, - { "prim": "RENAME" }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "UNIT" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, { "prim": "SELF", "annots": [ "%addReservesInternal" ] }, - { "prim": "RENAME" }, { "prim": "AMOUNT" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DIG", "args": [ { "int": "4" } ] }, { "prim": "PAIR" }, { "prim": "TRANSFER_TOKENS" }, @@ -925,9 +931,7 @@ ], [ { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -968,7 +972,6 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -979,7 +982,6 @@ { "prim": "CAR" }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, { "prim": "AMOUNT" }, - { "prim": "RENAME" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, @@ -1002,13 +1004,11 @@ { "prim": "CAR" }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, { "prim": "AMOUNT" }, - { "prim": "RENAME" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "32" } ] }, { "prim": "FAILWITH" } ], [] ] @@ -1023,7 +1023,6 @@ { "prim": "CAR" }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, { "prim": "AMOUNT" }, - { "prim": "RENAME" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, @@ -1060,9 +1059,7 @@ "args": [ [ { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "NEQ" }, { @@ -1074,13 +1071,11 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -1103,7 +1098,6 @@ ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "SWAP" }, @@ -1113,8 +1107,7 @@ { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -1122,13 +1115,11 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -1146,7 +1137,6 @@ ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "SWAP" }, @@ -1156,8 +1146,7 @@ { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, @@ -1182,16 +1171,13 @@ { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, { "prim": "BALANCE" }, - { "prim": "RENAME" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, @@ -1207,7 +1193,6 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -1215,7 +1200,6 @@ "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "CONTRACT", "args": [ { "prim": "unit" } ] }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "28" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, @@ -1230,7 +1214,6 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" }, { "prim": "IF", @@ -1241,9 +1224,8 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "638" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, @@ -1268,7 +1250,7 @@ { "prim": "IF_NONE", "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "641" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], @@ -1289,7 +1271,6 @@ { "prim": "UNPAIR" }, { "prim": "DUP" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, @@ -1322,7 +1303,6 @@ { "prim": "UNPAIR" }, { "prim": "DUP" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, @@ -1372,7 +1352,7 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "638" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -1398,7 +1378,7 @@ { "prim": "IF_NONE", "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "641" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], @@ -1409,6 +1389,13 @@ [] ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, @@ -1454,13 +1441,11 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, { "prim": "BALANCE" }, - { "prim": "RENAME" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -1470,10 +1455,9 @@ { "prim": "ADD" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "681" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, @@ -1487,6 +1471,13 @@ [] ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, @@ -1541,7 +1532,6 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -1555,7 +1545,7 @@ { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "573" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "579" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" }, { "prim": "UPDATE", "args": [ { "int": "3" } ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, @@ -1579,7 +1569,7 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "638" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -1605,7 +1595,7 @@ { "prim": "IF_NONE", "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "641" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], @@ -1660,13 +1650,11 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, { "prim": "BALANCE" }, - { "prim": "RENAME" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -1676,10 +1664,9 @@ { "prim": "ADD" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "681" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, @@ -1734,7 +1721,7 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "549" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "555" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, @@ -1756,7 +1743,7 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "550" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "556" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -1765,7 +1752,7 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "550" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "556" } ] }, { "prim": "FAILWITH" } ], [] ] } ], [] @@ -1806,7 +1793,7 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "489" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "495" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" } ], @@ -1872,13 +1859,11 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, { "prim": "BALANCE" }, - { "prim": "RENAME" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -1888,10 +1873,9 @@ { "prim": "ADD" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "681" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, @@ -1907,23 +1891,29 @@ }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "521" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "527" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "MUL" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "61" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] }, + { "prim": "PAIR" }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, @@ -1933,12 +1923,17 @@ { "prim": "CONS" } ], [ + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, { "prim": "BALANCE" }, - { "prim": "RENAME" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, + { "prim": "PAIR" }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, @@ -1996,18 +1991,16 @@ ], "annots": [ "%liquidateBorrowAllowed" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "357" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "360" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "PAIR" }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "PAIR" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "CAR" }, { "prim": "PAIR" }, @@ -2015,7 +2008,6 @@ { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "COMPARE" }, @@ -2050,7 +2042,6 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -2078,7 +2069,7 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "638" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -2104,7 +2095,7 @@ { "prim": "IF_NONE", "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "641" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], @@ -2123,9 +2114,17 @@ { "prim": "COMPARE" }, { "prim": "LE" }, { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "7" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "COMPARE" }, + { "prim": "LE" }, + { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, { "prim": "AMOUNT" }, - { "prim": "RENAME" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, @@ -2135,9 +2134,8 @@ "prim": "IF", "args": [ [ - { "prim": "SWAP" }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "CONTRACT", "args": [ { "prim": "unit" } ] }, { "prim": "IF_NONE", @@ -2145,22 +2143,13 @@ }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "5" } ] }, - { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "COMPARE" }, - { "prim": "LE" }, - { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, { "prim": "AMOUNT" }, - { "prim": "RENAME" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "32" } ] }, { "prim": "FAILWITH" } ], [] ] @@ -2169,20 +2158,12 @@ { "prim": "UNIT" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, - { "prim": "SWAP" } + { "prim": "DUG", "args": [ { "int": "3" } ] } ], [ - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, - { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "COMPARE" }, - { "prim": "LE" }, - { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, { "prim": "AMOUNT" }, - { "prim": "RENAME" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, @@ -2197,7 +2178,7 @@ ] ] }, - { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "DIG", "args": [ { "int": "5" } ] }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, @@ -2206,24 +2187,16 @@ { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "10" } ] }, + { "prim": "DUP", "args": [ { "int": "12" } ] }, { "prim": "CAR" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "263" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP", "args": [ { "int": "11" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "10" } ] }, - { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "COMPARE" }, - { "prim": "LE" }, - { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, - { "prim": "DUP", "args": [ { "int": "10" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "266" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DIG", "args": [ { "int": "9" } ] }, + { "prim": "DIG", "args": [ { "int": "10" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -2259,7 +2232,7 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "265" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "268" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DIG", "args": [ { "int": "8" } ] }, { "prim": "UPDATE", "args": [ { "int": "1" } ] }, { "prim": "SOME" }, @@ -2273,19 +2246,10 @@ { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "DUG", "args": [ { "int": "3" } ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "COMPARE" }, - { "prim": "LE" }, - { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "7" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -2304,7 +2268,7 @@ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "268" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "271" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" }, { "prim": "COMPARE" }, { "prim": "EQ" }, @@ -2319,7 +2283,7 @@ { "prim": "CONTRACT", "args": [ { "prim": "address" } ], "annots": [ "%removeFromLoans" ] }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "270" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "273" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, @@ -2337,11 +2301,13 @@ { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, - { "prim": "VIEW", "args": [ { "string": "liquidateCalculateSeizeTokens" }, { "prim": "nat" } ] }, + { + "prim": "VIEW", + "args": [ { "string": "liquidateCalculateSeizeTokens" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] + }, { "prim": "IF_NONE", "args": [ @@ -2352,6 +2318,7 @@ [] ] }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, @@ -2389,7 +2356,7 @@ ], "annots": [ "%seize" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "382" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "385" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, @@ -2398,11 +2365,13 @@ { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, - { "prim": "VIEW", "args": [ { "string": "liquidateCalculateSeizeTokens" }, { "prim": "nat" } ] }, + { + "prim": "VIEW", + "args": [ { "string": "liquidateCalculateSeizeTokens" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] + }, { "prim": "IF_NONE", "args": [ @@ -2413,8 +2382,8 @@ [] ] }, + { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DIG", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, @@ -2447,9 +2416,7 @@ "args": [ [ { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "NEQ" }, { @@ -2461,13 +2428,11 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -2490,7 +2455,6 @@ ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "SWAP" }, @@ -2500,8 +2464,7 @@ { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -2509,13 +2472,11 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -2533,7 +2494,6 @@ ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "SWAP" }, @@ -2543,8 +2503,7 @@ { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, @@ -2569,9 +2528,7 @@ { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, @@ -2581,7 +2538,6 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -2591,7 +2547,6 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, { "prim": "AMOUNT" }, - { "prim": "RENAME" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, @@ -2602,20 +2557,17 @@ "args": [ [ { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "CONTRACT", "args": [ { "prim": "unit" } ] }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "32" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, { "prim": "AMOUNT" }, - { "prim": "RENAME" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "32" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "UNIT" }, @@ -2626,7 +2578,6 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, { "prim": "AMOUNT" }, - { "prim": "RENAME" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, @@ -2673,13 +2624,11 @@ { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, { "prim": "BALANCE" }, - { "prim": "RENAME" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -2689,8 +2638,7 @@ { "prim": "ADD" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "681" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, { @@ -2742,7 +2690,6 @@ { "prim": "UNPAIR" }, { "prim": "DUP" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, @@ -2770,9 +2717,7 @@ "args": [ [ { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "NEQ" }, { @@ -2804,9 +2749,7 @@ { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, @@ -2847,13 +2790,11 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, { "prim": "BALANCE" }, - { "prim": "RENAME" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -2863,10 +2804,9 @@ { "prim": "ADD" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "681" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, @@ -2915,7 +2855,6 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, { "prim": "BALANCE" }, - { "prim": "RENAME" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, @@ -2935,7 +2874,6 @@ { "prim": "LEVEL" }, { "prim": "DIG", "args": [ { "int": "5" } ] }, { "prim": "DROP" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -2949,7 +2887,6 @@ { "prim": "GET", "args": [ { "int": "10" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -2965,7 +2902,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "GET" }, { "prim": "IF_NONE", @@ -2974,7 +2910,6 @@ { "prim": "CDR" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -2991,7 +2926,6 @@ { "prim": "UNPAIR" }, { "prim": "DUP" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, @@ -3014,7 +2948,6 @@ { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "SWAP" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "CONTRACT", "args": [ { "prim": "unit" } ] }, { "prim": "IF_NONE", @@ -3033,9 +2966,7 @@ ], [ { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "NEQ" }, { @@ -3067,9 +2998,7 @@ { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, @@ -3111,13 +3040,11 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, { "prim": "BALANCE" }, - { "prim": "RENAME" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -3127,10 +3054,9 @@ { "prim": "ADD" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "681" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, @@ -3145,7 +3071,7 @@ ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "DUP" }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "COMPARE" }, { "prim": "GT" }, @@ -3211,7 +3137,6 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, { "prim": "BALANCE" }, - { "prim": "RENAME" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, @@ -3231,7 +3156,6 @@ { "prim": "LEVEL" }, { "prim": "DIG", "args": [ { "int": "5" } ] }, { "prim": "DROP" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -3245,7 +3169,6 @@ { "prim": "GET", "args": [ { "int": "10" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -3261,7 +3184,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "GET" }, { "prim": "IF_NONE", @@ -3270,7 +3192,6 @@ { "prim": "CDR" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -3287,7 +3208,6 @@ { "prim": "UNPAIR" }, { "prim": "DUP" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, @@ -3310,7 +3230,6 @@ { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "SWAP" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "CONTRACT", "args": [ { "prim": "unit" } ] }, { "prim": "IF_NONE", @@ -3347,7 +3266,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -3384,24 +3302,19 @@ { "prim": "SWAP" }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "SELF", "annots": [ "%accrueInterest" ] }, - { "prim": "RENAME" }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "UNIT" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, { "prim": "SELF", "annots": [ "%reduceReservesInternal" ] }, - { "prim": "RENAME" }, { "prim": "AMOUNT" }, - { "prim": "RENAME" }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" } ], [ { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "NEQ" }, { @@ -3413,13 +3326,11 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -3445,7 +3356,6 @@ ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "SWAP" }, @@ -3455,8 +3365,7 @@ { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -3464,13 +3373,11 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -3488,7 +3395,6 @@ ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "SWAP" }, @@ -3498,8 +3404,7 @@ { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, @@ -3530,15 +3435,12 @@ ], "annots": [ "%repayBorrowAllowed" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "276" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "279" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "4" } ] }, { "prim": "DIG", "args": [ { "int": "4" } ] }, { "prim": "DROP" }, @@ -3550,7 +3452,6 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -3563,7 +3464,6 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" }, { "prim": "IF", @@ -3574,11 +3474,10 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "638" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -3604,7 +3503,7 @@ { "prim": "IF_NONE", "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "641" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], @@ -3615,16 +3514,24 @@ [] ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "DUP" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "COMPARE" }, + { "prim": "LE" }, + { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "7" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "DUP" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "COMPARE" }, { "prim": "LE" }, { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, { "prim": "AMOUNT" }, - { "prim": "RENAME" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, @@ -3634,9 +3541,8 @@ "prim": "IF", "args": [ [ - { "prim": "SWAP" }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "CONTRACT", "args": [ { "prim": "unit" } ] }, { "prim": "IF_NONE", @@ -3644,21 +3550,13 @@ }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, - { "prim": "DUP", "args": [ { "int": "5" } ] }, - { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "COMPARE" }, - { "prim": "LE" }, - { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, { "prim": "AMOUNT" }, - { "prim": "RENAME" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "32" } ] }, { "prim": "FAILWITH" } ], [] ] @@ -3667,19 +3565,12 @@ { "prim": "UNIT" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, - { "prim": "SWAP" } + { "prim": "DUG", "args": [ { "int": "3" } ] } ], [ - { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, - { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "COMPARE" }, - { "prim": "LE" }, - { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, { "prim": "AMOUNT" }, - { "prim": "RENAME" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, @@ -3694,7 +3585,7 @@ ] ] }, - { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "DIG", "args": [ { "int": "4" } ] }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, @@ -3704,22 +3595,14 @@ { "prim": "UNPAIR" }, { "prim": "DUP" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "263" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP", "args": [ { "int": "11" } ] }, - { "prim": "DUP", "args": [ { "int": "10" } ] }, - { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "COMPARE" }, - { "prim": "LE" }, - { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, - { "prim": "DUP", "args": [ { "int": "10" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "266" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DIG", "args": [ { "int": "9" } ] }, + { "prim": "DIG", "args": [ { "int": "10" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -3751,11 +3634,10 @@ { "prim": "UNPAIR" }, { "prim": "DUP" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "265" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "268" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DIG", "args": [ { "int": "8" } ] }, { "prim": "UPDATE", "args": [ { "int": "1" } ] }, { "prim": "SOME" }, @@ -3768,19 +3650,11 @@ { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, - { "prim": "DUG", "args": [ { "int": "3" } ] }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "COMPARE" }, - { "prim": "LE" }, - { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "7" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -3797,9 +3671,8 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "268" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "271" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" }, { "prim": "COMPARE" }, { "prim": "EQ" }, @@ -3814,11 +3687,10 @@ { "prim": "CONTRACT", "args": [ { "prim": "address" } ], "annots": [ "%removeFromLoans" ] }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "270" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "273" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" } ], @@ -3835,9 +3707,7 @@ "args": [ [ { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "NEQ" }, { @@ -3849,13 +3719,11 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -3881,7 +3749,6 @@ ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "SWAP" }, @@ -3891,8 +3758,7 @@ { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -3900,13 +3766,11 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -3924,7 +3788,6 @@ ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "SWAP" }, @@ -3934,8 +3797,7 @@ { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, @@ -3966,16 +3828,14 @@ ], "annots": [ "%repayBorrowAllowed" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "276" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "279" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "4" } ] }, { "prim": "DIG", "args": [ { "int": "4" } ] }, { "prim": "DROP" }, @@ -3987,7 +3847,6 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -4015,7 +3874,7 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "638" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -4041,7 +3900,7 @@ { "prim": "IF_NONE", "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "641" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], @@ -4060,9 +3919,17 @@ { "prim": "COMPARE" }, { "prim": "LE" }, { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "7" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "COMPARE" }, + { "prim": "LE" }, + { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, { "prim": "AMOUNT" }, - { "prim": "RENAME" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, @@ -4072,9 +3939,8 @@ "prim": "IF", "args": [ [ - { "prim": "SWAP" }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "CONTRACT", "args": [ { "prim": "unit" } ] }, { "prim": "IF_NONE", @@ -4082,22 +3948,13 @@ }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, - { "prim": "CDR" }, - { "prim": "DUP", "args": [ { "int": "5" } ] }, - { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "COMPARE" }, - { "prim": "LE" }, - { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, { "prim": "AMOUNT" }, - { "prim": "RENAME" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "32" } ] }, { "prim": "FAILWITH" } ], [] ] @@ -4106,20 +3963,12 @@ { "prim": "UNIT" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, - { "prim": "SWAP" } + { "prim": "DUG", "args": [ { "int": "3" } ] } ], [ - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, - { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "COMPARE" }, - { "prim": "LE" }, - { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, { "prim": "AMOUNT" }, - { "prim": "RENAME" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, @@ -4134,7 +3983,7 @@ ] ] }, - { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "DIG", "args": [ { "int": "5" } ] }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, @@ -4143,24 +3992,16 @@ { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "10" } ] }, + { "prim": "DUP", "args": [ { "int": "12" } ] }, { "prim": "CAR" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "263" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP", "args": [ { "int": "11" } ] }, - { "prim": "CDR" }, - { "prim": "DUP", "args": [ { "int": "10" } ] }, - { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "COMPARE" }, - { "prim": "LE" }, - { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, - { "prim": "DUP", "args": [ { "int": "10" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "266" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DIG", "args": [ { "int": "9" } ] }, + { "prim": "DIG", "args": [ { "int": "10" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -4196,7 +4037,7 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "265" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "268" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DIG", "args": [ { "int": "8" } ] }, { "prim": "UPDATE", "args": [ { "int": "1" } ] }, { "prim": "SOME" }, @@ -4210,19 +4051,10 @@ { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "DUG", "args": [ { "int": "3" } ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "CDR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "COMPARE" }, - { "prim": "LE" }, - { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "7" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -4241,7 +4073,7 @@ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "268" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "271" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" }, { "prim": "COMPARE" }, { "prim": "EQ" }, @@ -4256,7 +4088,7 @@ { "prim": "CONTRACT", "args": [ { "prim": "address" } ], "annots": [ "%removeFromLoans" ] }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "270" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "273" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, @@ -4276,11 +4108,10 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -4316,8 +4147,7 @@ { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -4327,11 +4157,10 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -4359,8 +4188,7 @@ { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -4368,9 +4196,7 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "PAIR" }, { "prim": "VIEW", "args": [ { "string": "seizeAllowed" }, { "prim": "bool" } ] }, { @@ -4411,7 +4237,6 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -4468,13 +4293,11 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, { "prim": "BALANCE" }, - { "prim": "RENAME" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -4484,10 +4307,9 @@ { "prim": "ADD" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "681" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, @@ -4523,7 +4345,6 @@ { "prim": "GET", "args": [ { "int": "10" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -4543,11 +4364,10 @@ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "307" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "310" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -4568,7 +4388,7 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "334" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "337" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DIG", "args": [ { "int": "8" } ] }, { "prim": "UPDATE", "args": [ { "int": "2" } ] }, { "prim": "SOME" }, @@ -4580,7 +4400,7 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "335" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "338" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP" }, { "prim": "CDR" }, { "prim": "DIG", "args": [ { "int": "9" } ] }, @@ -4588,7 +4408,6 @@ { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -4632,7 +4451,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -4669,13 +4487,11 @@ { "prim": "SWAP" }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "SELF", "annots": [ "%accrueInterest" ] }, - { "prim": "RENAME" }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "UNIT" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, { "prim": "SELF", "annots": [ "%setInterestRateModelInternal" ] }, - { "prim": "RENAME" }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, @@ -4691,7 +4507,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -4728,13 +4543,11 @@ { "prim": "SWAP" }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "SELF", "annots": [ "%accrueInterest" ] }, - { "prim": "RENAME" }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "UNIT" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, { "prim": "SELF", "annots": [ "%setReserveFactorInternal" ] }, - { "prim": "RENAME" }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, @@ -4766,7 +4579,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" } @@ -4859,7 +4671,6 @@ { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "CONS" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR" }, { "prim": "CONS" }, { "prim": "TRANSFER_TOKENS" }, @@ -4875,7 +4686,6 @@ "args": [ [ { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "COMPARE" }, @@ -4896,15 +4706,14 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "404" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "407" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "404" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "407" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "COMPARE" }, { "prim": "GE" } @@ -4913,12 +4722,38 @@ }, { "prim": "IF", - "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA1.2_NotAllowed" } ] }, { "prim": "FAILWITH" } ] ] + "args": [ + [], + [ + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "408" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "CAR" }, + { "prim": "SENDER" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "408" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "PAIR" }, + { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "NotEnoughAllowance" } ] }, + { "prim": "PAIR" }, + { "prim": "FAILWITH" } + ] + ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "NEQ" }, { @@ -4932,11 +4767,10 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -4972,8 +4806,7 @@ { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -4983,11 +4816,10 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -5015,8 +4847,7 @@ { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, @@ -5037,7 +4868,7 @@ ], "annots": [ "%transferAllowed" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "427" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "431" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, @@ -5047,7 +4878,6 @@ { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "TRANSFER_TOKENS" }, @@ -5061,14 +4891,34 @@ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "413" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "417" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" }, { "prim": "COMPARE" }, { "prim": "GE" }, { "prim": "IF", "args": [ - [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA1.2_InsufficientBalance" } ] }, { "prim": "FAILWITH" } ] + [], + [ + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "418" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "CDR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "PAIR" }, + { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "NotEnoughBalance" } ] }, + { "prim": "PAIR" }, + { "prim": "FAILWITH" } + ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -5080,12 +4930,11 @@ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "416" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "420" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "415" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "419" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, @@ -5100,7 +4949,7 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "415" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "419" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DIG", "args": [ { "int": "8" } ] }, { "prim": "UPDATE", "args": [ { "int": "2" } ] }, { "prim": "SOME" }, @@ -5112,7 +4961,7 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "417" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "421" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP" }, { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "11" } ] }, @@ -5131,7 +4980,6 @@ { "prim": "PAIR" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "COMPARE" }, @@ -5156,7 +5004,7 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "419" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "423" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP" }, { "prim": "CAR" }, @@ -5171,26 +5019,23 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "420" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "424" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "420" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "424" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "419" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "423" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "SOME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "UPDATE" }, { "prim": "UPDATE", "args": [ { "int": "1" } ] }, { "prim": "SOME" }, @@ -5214,15 +5059,14 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "421" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "425" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "421" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "425" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "COMPARE" }, { "prim": "EQ" }, @@ -5246,13 +5090,12 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "422" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "426" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP" }, { "prim": "CAR" }, { "prim": "NONE", "args": [ { "prim": "nat" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "UPDATE" }, { "prim": "UPDATE", "args": [ { "int": "1" } ] }, { "prim": "SOME" }, @@ -5281,7 +5124,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -5377,7 +5219,7 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SWAP" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "503" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "509" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" } ], [ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ] @@ -5391,7 +5233,7 @@ "args": [ { "string": "borrowBalanceStoredView" }, { "prim": "address" }, - { "prim": "nat" }, + { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, [ { "prim": "UNPAIR", "args": [ { "int": "3" } ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, @@ -5411,7 +5253,7 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "638" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, @@ -5429,7 +5271,7 @@ { "prim": "DROP" }, { "prim": "DUP" }, { "prim": "CAR" }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "5" } ] }, @@ -5437,15 +5279,22 @@ { "prim": "CDR" }, { "prim": "MUL" }, { "prim": "EDIV" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "641" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], - [ { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ] + [ { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "DROP" } ] ] } ], - [ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ] + [ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "DROP" } ] ] - } + }, + { "prim": "SWAP" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" } ] ] }, @@ -5463,7 +5312,7 @@ "args": [ { "string": "exchangeRateStoredView" }, { "prim": "unit" }, - { "prim": "nat" }, + { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, [ { "prim": "UNPAIR", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -5494,31 +5343,35 @@ { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "9" } ] }, - { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "7" } ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, { "prim": "BALANCE" }, - { "prim": "RENAME" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "ADD" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "681" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "257" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], - [ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ] + [ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "DROP" } ] ] - } + }, + { "prim": "SWAP" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" } ] ] }, @@ -5528,171 +5381,219 @@ { "string": "getAccountSnapshotView" }, { "prim": "address" }, { - "prim": "pair", + "prim": "option", "args": [ - { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, - { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] } + { + "prim": "pair", + "args": [ + { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, + { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] } + ] + } ] }, [ { "prim": "UNPAIR", "args": [ { "int": "3" } ] }, - { "prim": "PUSH", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } ] }, - { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "PAIR" }, - { "prim": "PAIR" }, + { "prim": "LEVEL" }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "DROP" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "MEM" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, { "prim": "IF", "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] } ], [ - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "LEVEL" }, - { "prim": "RENAME" }, - { "prim": "COMPARE" }, - { "prim": "EQ" }, - { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "573" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "CDR" }, - { "prim": "UPDATE", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "MEM" }, + { "prim": "NOT" } + ] + ] + }, + { + "prim": "IF", + "args": [ + [ + { "prim": "PUSH", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, - { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, { "prim": "IF", "args": [ [ + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "LEVEL" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "579" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CDR" }, + { "prim": "UPDATE", "args": [ { "int": "3" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, - { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "638" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, + { "prim": "COMPARE" }, + { "prim": "GT" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "SWAP" }, + { "prim": "DROP" }, + { "prim": "DUP" }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, + { "prim": "MUL" }, + { "prim": "EDIV" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "641" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] + } + ], + [ { "prim": "DROP" } ] + ] + } + ], + [] + ] + }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "8" } ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "DUP", "args": [ { "int": "2" } ] }, - { "prim": "CDR" }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "GET", "args": [ { "int": "10" } ] }, { "prim": "COMPARE" }, { "prim": "GT" }, { "prim": "IF", "args": [ [ + { "prim": "DROP", "args": [ { "int": "2" } ] }, { "prim": "SWAP" }, { "prim": "DROP" }, - { "prim": "DUP" }, - { "prim": "CAR" }, - { "prim": "DUP", "args": [ { "int": "5" } ] }, - { "prim": "CAR" }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "10" } ] }, + { "prim": "COMPARE" }, + { "prim": "GT" }, + { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "10" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, - { "prim": "CDR" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "9" } ] }, + { "prim": "DIG", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "7" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, + { "prim": "BALANCE" }, + { "prim": "EDIV" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CAR" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "ADD" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "681" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "257" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], - [ { "prim": "DROP" } ] + [ + { "prim": "SWAP" }, + { "prim": "DROP" }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "DROP" }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "DROP" } + ] ] - } + }, + { "prim": "UPDATE", "args": [ { "int": "4" } ] } ], - [] + [ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, - { "prim": "SWAP" }, - { "prim": "UNPAIR" }, - { "prim": "CAR" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "SWAP" }, - { "prim": "PAIR" }, - { "prim": "PAIR" }, - { "prim": "SWAP" }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "8" } ] }, - { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "DUP", "args": [ { "int": "6" } ] }, - { "prim": "GET", "args": [ { "int": "10" } ] }, - { "prim": "COMPARE" }, - { "prim": "GT" }, + { "prim": "SOME" } + ], + [ + { "prim": "DROP", "args": [ { "int": "2" } ] }, { - "prim": "IF", + "prim": "NONE", "args": [ - [ - { "prim": "DROP", "args": [ { "int": "2" } ] }, - { "prim": "SWAP" }, - { "prim": "DROP" }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, - { "prim": "DROP" }, - { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "10" } ] }, - { "prim": "COMPARE" }, - { "prim": "GT" }, - { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP", "args": [ { "int": "2" } ] }, - { "prim": "GET", "args": [ { "int": "10" } ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, - { "prim": "GET", "args": [ { "int": "9" } ] }, - { "prim": "DIG", "args": [ { "int": "4" } ] }, - { "prim": "GET", "args": [ { "int": "7" } ] }, - { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, - { "prim": "BALANCE" }, - { "prim": "RENAME" }, - { "prim": "EDIV" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "CAR" }, - { "prim": "SUB" }, - { "prim": "ISNAT" }, - { "prim": "RENAME" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "ADD" }, - { "prim": "SUB" }, - { "prim": "ISNAT" }, - { "prim": "RENAME" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "MUL" }, - { "prim": "EDIV" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "257" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } - ], - [ - { "prim": "SWAP" }, - { "prim": "DROP" }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, - { "prim": "DROP" }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, - { "prim": "DROP" }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, - { "prim": "DROP" } - ] + { + "prim": "pair", + "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] + } ] - }, - { "prim": "UPDATE", "args": [ { "int": "4" } ] } - ], - [ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ] + } + ] ] } ] diff --git a/compiled_contracts/CXTZ/step_000_cont_0_contract.py b/compiled_contracts/CXTZ/step_000_cont_0_contract.py index 0915dbf3..174c7418 100644 --- a/compiled_contracts/CXTZ/step_000_cont_0_contract.py +++ b/compiled_contracts/CXTZ/step_000_cont_0_contract.py @@ -75,8 +75,12 @@ def addReservesInternal(self, params): def approve(self, params): sp.set_type(params, sp.TRecord(spender = sp.TAddress, value = sp.TNat).layout(("spender", "value"))) sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') - sp.verify((self.data.ledger[sp.sender].approvals.contains(params.spender)) | (sp.len(self.data.ledger[sp.sender].approvals) < 1000), 'FA1.2_MaxApprovalsReached') - sp.verify((self.data.ledger[sp.sender].approvals.get(params.spender, default_value = 0) == 0) | (params.value == 0), 'FA1.2_UnsafeAllowanceChange') + sp.if ~ (self.data.ledger.contains(sp.sender)): + self.data.ledger[sp.sender] = sp.record(approvals = {}, balance = 0) + sp.if ~ (self.data.borrows.contains(sp.sender)): + self.data.borrows[sp.sender] = sp.record(interestIndex = 0, principal = 0) + sp.verify((self.data.ledger[sp.sender].approvals.contains(params.spender)) | (sp.len(self.data.ledger[sp.sender].approvals) < 1000), ('FA1.2_MaxApprovalsReached', sp.unit)) + sp.verify((self.data.ledger[sp.sender].approvals.get(params.spender, default_value = 0) == 0) | (params.value == 0), ('UnsafeAllowanceChange', self.data.ledger[sp.sender].approvals.get(params.spender, default_value = 0))) sp.if params.value == 0: del self.data.ledger[sp.sender].approvals[params.spender] sp.else: @@ -116,8 +120,8 @@ def borrowBalanceStored(self, params): borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[sp.fst(params)]) sp.if borrowSnapshot.value.principal > 0: borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex - sp.result(borrowBalance.value) - sp.set_type(sp.snd(params), sp.TContract(sp.TNat)) + sp.result((borrowBalance.value, self.data.accrualBlockNumber)) + sp.set_type(sp.snd(params), sp.TContract(sp.TPair(sp.TNat, sp.TNat))) sp.transfer(__s1.value, sp.tez(0), sp.snd(params)) @sp.entrypoint @@ -131,32 +135,32 @@ def doAccrueInterest(self, params): sp.set_type(sp.record(mantissa = params), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(sp.as_nat(sp.level - self.data.accrualBlockNumber), sp.TNat) sp.set_type(params * sp.as_nat(sp.level - self.data.accrualBlockNumber), sp.TNat) - compute_CToken_761 = sp.local("compute_CToken_761", sp.record(mantissa = params * sp.as_nat(sp.level - self.data.accrualBlockNumber))) - sp.set_type(compute_CToken_761.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(compute_CToken_761.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + compute_CToken_771 = sp.local("compute_CToken_771", sp.record(mantissa = params * sp.as_nat(sp.level - self.data.accrualBlockNumber))) + sp.set_type(compute_CToken_771.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_CToken_771.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(self.data.totalBorrows, sp.TNat) - sp.set_type(compute_CToken_761.value.mantissa * self.data.totalBorrows, sp.TNat) - sp.set_type(sp.record(mantissa = compute_CToken_761.value.mantissa * self.data.totalBorrows), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - compute_CToken_763 = sp.local("compute_CToken_763", (compute_CToken_761.value.mantissa * self.data.totalBorrows) // self.data.expScale) - self.data.totalBorrows = compute_CToken_763.value + self.data.totalBorrows + sp.set_type(compute_CToken_771.value.mantissa * self.data.totalBorrows, sp.TNat) + sp.set_type(sp.record(mantissa = compute_CToken_771.value.mantissa * self.data.totalBorrows), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + compute_CToken_773 = sp.local("compute_CToken_773", (compute_CToken_771.value.mantissa * self.data.totalBorrows) // self.data.expScale) + self.data.totalBorrows = compute_CToken_773.value + self.data.totalBorrows sp.set_type(sp.record(mantissa = self.data.reserveFactorMantissa), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(compute_CToken_763.value, sp.TNat) + sp.set_type(compute_CToken_773.value, sp.TNat) sp.set_type(self.data.totalReserves, sp.TNat) sp.set_type(sp.record(mantissa = self.data.reserveFactorMantissa), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(sp.record(mantissa = self.data.reserveFactorMantissa), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(compute_CToken_763.value, sp.TNat) - sp.set_type(self.data.reserveFactorMantissa * compute_CToken_763.value, sp.TNat) - sp.set_type(sp.record(mantissa = self.data.reserveFactorMantissa * compute_CToken_763.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - self.data.totalReserves = ((self.data.reserveFactorMantissa * compute_CToken_763.value) // self.data.expScale) + self.data.totalReserves - sp.set_type(compute_CToken_761.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_CToken_773.value, sp.TNat) + sp.set_type(self.data.reserveFactorMantissa * compute_CToken_773.value, sp.TNat) + sp.set_type(sp.record(mantissa = self.data.reserveFactorMantissa * compute_CToken_773.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + self.data.totalReserves = ((self.data.reserveFactorMantissa * compute_CToken_773.value) // self.data.expScale) + self.data.totalReserves + sp.set_type(compute_CToken_771.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(self.data.borrowIndex, sp.TNat) sp.set_type(self.data.borrowIndex, sp.TNat) - sp.set_type(compute_CToken_761.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(compute_CToken_761.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_CToken_771.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_CToken_771.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(self.data.borrowIndex, sp.TNat) - sp.set_type(compute_CToken_761.value.mantissa * self.data.borrowIndex, sp.TNat) - sp.set_type(sp.record(mantissa = compute_CToken_761.value.mantissa * self.data.borrowIndex), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - self.data.borrowIndex = ((compute_CToken_761.value.mantissa * self.data.borrowIndex) // self.data.expScale) + self.data.borrowIndex + sp.set_type(compute_CToken_771.value.mantissa * self.data.borrowIndex, sp.TNat) + sp.set_type(sp.record(mantissa = compute_CToken_771.value.mantissa * self.data.borrowIndex), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + self.data.borrowIndex = ((compute_CToken_771.value.mantissa * self.data.borrowIndex) // self.data.expScale) + self.data.borrowIndex self.data.accrualBlockNumber = sp.level @sp.entrypoint @@ -175,24 +179,24 @@ def exchangeRateStored(self, params): sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') sp.set_type((sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat) excRate.value = (sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply - sp.result(excRate.value) - sp.set_type(sp.snd(params), sp.TContract(sp.TNat)) + sp.result((excRate.value, self.data.accrualBlockNumber)) + sp.set_type(sp.snd(params), sp.TContract(sp.TPair(sp.TNat, sp.TNat))) sp.transfer(__s2.value, sp.tez(0), sp.snd(params)) @sp.entrypoint def getAccountSnapshot(self, params): __s3 = sp.bind_block("__s3"): with __s3: - compute_CToken_565 = sp.local("compute_CToken_565", sp.record(account = sp.fst(params), borrowBalance = 0, cTokenBalance = 0, exchangeRateMantissa = 0)) + compute_CToken_571 = sp.local("compute_CToken_571", sp.record(account = sp.fst(params), borrowBalance = 0, cTokenBalance = 0, exchangeRateMantissa = 0)) sp.if self.data.ledger.contains(sp.fst(params)): sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') - compute_CToken_565.value.cTokenBalance = self.data.ledger[sp.fst(params)].balance + compute_CToken_571.value.cTokenBalance = self.data.ledger[sp.fst(params)].balance borrowBalance = sp.local("borrowBalance", 0) sp.if self.data.borrows.contains(sp.fst(params)): borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[sp.fst(params)]) sp.if borrowSnapshot.value.principal > 0: borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex - compute_CToken_565.value.borrowBalance = borrowBalance.value + compute_CToken_571.value.borrowBalance = borrowBalance.value excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) sp.if self.data.totalSupply > 0: sp.set_type(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)), sp.TNat) @@ -204,8 +208,8 @@ def getAccountSnapshot(self, params): sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') sp.set_type((sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat) excRate.value = (sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply - compute_CToken_565.value.exchangeRateMantissa = excRate.value - sp.result(compute_CToken_565.value) + compute_CToken_571.value.exchangeRateMantissa = excRate.value + sp.result(compute_CToken_571.value) sp.set_type(sp.snd(params), sp.TContract(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))) sp.transfer(__s3.value, sp.tez(0), sp.snd(params)) @@ -254,8 +258,8 @@ def getBalanceOfUnderlying(self, params): sp.set_type(self.data.ledger[sp.fst(params)].balance, sp.TNat) sp.set_type(excRate.value * self.data.ledger[sp.fst(params)].balance, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value * self.data.ledger[sp.fst(params)].balance), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.result((excRate.value * self.data.ledger[sp.fst(params)].balance) // self.data.expScale) - sp.set_type(sp.snd(params), sp.TContract(sp.TNat)) + sp.result(((excRate.value * self.data.ledger[sp.fst(params)].balance) // self.data.expScale, self.data.accrualBlockNumber)) + sp.set_type(sp.snd(params), sp.TContract(sp.TPair(sp.TNat, sp.TNat))) sp.transfer(__s6.value, sp.tez(0), sp.snd(params)) @sp.entrypoint @@ -263,8 +267,8 @@ def getCash(self, params): __s7 = sp.bind_block("__s7"): with __s7: sp.set_type(sp.fst(params), sp.TUnit) - sp.result(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit))) - sp.set_type(sp.snd(params), sp.TContract(sp.TNat)) + sp.result((sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)), self.data.accrualBlockNumber)) + sp.set_type(sp.snd(params), sp.TContract(sp.TPair(sp.TNat, sp.TNat))) sp.transfer(__s7.value, sp.tez(0), sp.snd(params)) @sp.entrypoint @@ -294,21 +298,23 @@ def liquidateBorrow(self, params): borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[params.borrower]) sp.if borrowSnapshot.value.principal > 0: borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex - sp.if sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) > sp.min(borrowBalance.value, params.repayAmount): - sp.send(sp.sender, sp.mul(sp.set_type_expr(sp.as_nat(sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) - sp.min(borrowBalance.value, params.repayAmount)), sp.TNat), sp.mutez(1))) + repayAmount = sp.local("repayAmount", sp.min(borrowBalance.value, params.repayAmount)) + actualRepayAmount = sp.local("actualRepayAmount", sp.min(repayAmount.value, self.data.totalBorrows)) + sp.if sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) > repayAmount.value: + sp.send(sp.sender, sp.mul(sp.set_type_expr(sp.as_nat(sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) - repayAmount.value), sp.TNat), sp.mutez(1))) sp.else: - sp.verify(sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) == sp.min(borrowBalance.value, params.repayAmount), 'CT_INVALID_MUTEZ') + sp.verify(sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) == repayAmount.value, 'CT_INVALID_MUTEZ') sp.set_type(borrowBalance.value, sp.TNat) - sp.set_type(sp.min(borrowBalance.value, params.repayAmount), sp.TNat) - self.data.borrows[params.borrower].principal = sp.as_nat(borrowBalance.value - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW') + sp.set_type(repayAmount.value, sp.TNat) + self.data.borrows[params.borrower].principal = sp.as_nat(borrowBalance.value - repayAmount.value, message = 'SUBTRACTION_UNDERFLOW') self.data.borrows[params.borrower].interestIndex = self.data.borrowIndex sp.set_type(self.data.totalBorrows, sp.TNat) - sp.set_type(sp.min(borrowBalance.value, params.repayAmount), sp.TNat) - self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW') + sp.set_type(actualRepayAmount.value, sp.TNat) + self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - actualRepayAmount.value, message = 'SUBTRACTION_UNDERFLOW') sp.if self.data.borrows[params.borrower].principal == 0: sp.transfer(params.borrower, sp.tez(0), sp.contract(sp.TAddress, self.data.comptroller, entrypoint='removeFromLoans').open_some()) - sp.verify(sp.view("balanceOf", params.borrower, params.cTokenCollateral, sp.TNat).open_some(message = 'INVALID BALANCE OF VIEW') >= sp.view("liquidateCalculateSeizeTokens", sp.record(actualRepayAmount = params.repayAmount, cTokenBorrowed = sp.self_address, cTokenCollateral = params.cTokenCollateral), self.data.comptroller, sp.TNat).open_some(message = 'INVALID LIQUIDATE CALC SEIZE TOKEN VIEW'), 'LIQUIDATE_SEIZE_TOO_MUCH') - sp.transfer(sp.record(borrower = params.borrower, liquidator = sp.sender, seizeTokens = sp.view("liquidateCalculateSeizeTokens", sp.record(actualRepayAmount = params.repayAmount, cTokenBorrowed = sp.self_address, cTokenCollateral = params.cTokenCollateral), self.data.comptroller, sp.TNat).open_some(message = 'INVALID LIQUIDATE CALC SEIZE TOKEN VIEW')), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, liquidator = sp.TAddress, seizeTokens = sp.TNat).layout(("borrower", ("liquidator", "seizeTokens"))), params.cTokenCollateral, entrypoint='seize').open_some()) + sp.verify(sp.view("balanceOf", params.borrower, params.cTokenCollateral, sp.TNat).open_some(message = 'INVALID BALANCE OF VIEW') >= sp.fst(sp.view("liquidateCalculateSeizeTokens", sp.record(actualRepayAmount = params.repayAmount, cTokenBorrowed = sp.self_address, cTokenCollateral = params.cTokenCollateral), self.data.comptroller, sp.TPair(sp.TNat, sp.TNat)).open_some(message = 'INVALID LIQUIDATE CALC SEIZE TOKEN VIEW')), 'LIQUIDATE_SEIZE_TOO_MUCH') + sp.transfer(sp.record(borrower = params.borrower, liquidator = sp.sender, seizeTokens = sp.fst(sp.view("liquidateCalculateSeizeTokens", sp.record(actualRepayAmount = params.repayAmount, cTokenBorrowed = sp.self_address, cTokenCollateral = params.cTokenCollateral), self.data.comptroller, sp.TPair(sp.TNat, sp.TNat)).open_some(message = 'INVALID LIQUIDATE CALC SEIZE TOKEN VIEW'))), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, liquidator = sp.TAddress, seizeTokens = sp.TNat).layout(("borrower", ("liquidator", "seizeTokens"))), params.cTokenCollateral, entrypoint='seize').open_some()) @sp.entrypoint def mint(self, params): @@ -341,8 +347,8 @@ def mint(self, params): sp.set_type(params, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO') - compute_CToken_965 = sp.local("compute_CToken_965", (params * self.data.expScale) // excRate.value) - amount.value = compute_CToken_965.value + compute_CToken_975 = sp.local("compute_CToken_975", (params * self.data.expScale) // excRate.value) + amount.value = compute_CToken_975.value sp.else: sp.set_type(excRate.value, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) @@ -350,8 +356,8 @@ def mint(self, params): sp.set_type(params, sp.TNat) sp.set_type(excRate.value * params, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value * params), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - compute_CToken_968 = sp.local("compute_CToken_968", (excRate.value * params) // self.data.expScale) - amount.value = compute_CToken_968.value + compute_CToken_978 = sp.local("compute_CToken_978", (excRate.value * params) // self.data.expScale) + amount.value = compute_CToken_978.value sp.verify(amount.value > 0, 'CT_MINT_AMOUNT_IS_INVALID') self.data.totalSupply += amount.value self.data.ledger[sp.sender].balance += amount.value @@ -382,8 +388,8 @@ def redeem(self, params): sp.set_type(params, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO') - compute_CToken_965 = sp.local("compute_CToken_965", (params * self.data.expScale) // excRate.value) - amount.value = compute_CToken_965.value + compute_CToken_975 = sp.local("compute_CToken_975", (params * self.data.expScale) // excRate.value) + amount.value = compute_CToken_975.value sp.else: sp.set_type(excRate.value, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) @@ -391,8 +397,8 @@ def redeem(self, params): sp.set_type(params, sp.TNat) sp.set_type(excRate.value * params, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value * params), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - compute_CToken_968 = sp.local("compute_CToken_968", (excRate.value * params) // self.data.expScale) - amount.value = compute_CToken_968.value + compute_CToken_978 = sp.local("compute_CToken_978", (excRate.value * params) // self.data.expScale) + amount.value = compute_CToken_978.value redeem_amount.value = amount.value redeem_tokens = sp.local("redeem_tokens", 0) sp.if False: @@ -417,8 +423,8 @@ def redeem(self, params): compute_Exponential_280 = sp.local("compute_Exponential_280", compute_Exponential_277.value // excRate.value) sp.if (compute_Exponential_277.value % excRate.value) > 0: pass - compute_CToken_976 = sp.local("compute_CToken_976", compute_Exponential_280.value + 1) - amount.value = compute_CToken_976.value + compute_CToken_986 = sp.local("compute_CToken_986", compute_Exponential_280.value + 1) + amount.value = compute_CToken_986.value sp.else: sp.set_type(excRate.value, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) @@ -426,8 +432,8 @@ def redeem(self, params): sp.set_type(params, sp.TNat) sp.set_type(excRate.value * params, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value * params), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - compute_CToken_979 = sp.local("compute_CToken_979", (excRate.value * params) // self.data.expScale) - amount.value = compute_CToken_979.value + compute_CToken_989 = sp.local("compute_CToken_989", (excRate.value * params) // self.data.expScale) + amount.value = compute_CToken_989.value redeem_tokens.value = amount.value sp.else: redeem_tokens.value = params @@ -467,8 +473,8 @@ def redeemUnderlying(self, params): sp.set_type(params, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO') - compute_CToken_965 = sp.local("compute_CToken_965", (params * self.data.expScale) // excRate.value) - amount.value = compute_CToken_965.value + compute_CToken_975 = sp.local("compute_CToken_975", (params * self.data.expScale) // excRate.value) + amount.value = compute_CToken_975.value sp.else: sp.set_type(excRate.value, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) @@ -476,8 +482,8 @@ def redeemUnderlying(self, params): sp.set_type(params, sp.TNat) sp.set_type(excRate.value * params, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value * params), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - compute_CToken_968 = sp.local("compute_CToken_968", (excRate.value * params) // self.data.expScale) - amount.value = compute_CToken_968.value + compute_CToken_978 = sp.local("compute_CToken_978", (excRate.value * params) // self.data.expScale) + amount.value = compute_CToken_978.value redeem_amount.value = amount.value redeem_tokens = sp.local("redeem_tokens", 0) sp.if True: @@ -502,8 +508,8 @@ def redeemUnderlying(self, params): compute_Exponential_280 = sp.local("compute_Exponential_280", compute_Exponential_277.value // excRate.value) sp.if (compute_Exponential_277.value % excRate.value) > 0: pass - compute_CToken_976 = sp.local("compute_CToken_976", compute_Exponential_280.value + 1) - amount.value = compute_CToken_976.value + compute_CToken_986 = sp.local("compute_CToken_986", compute_Exponential_280.value + 1) + amount.value = compute_CToken_986.value sp.else: sp.set_type(excRate.value, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) @@ -511,8 +517,8 @@ def redeemUnderlying(self, params): sp.set_type(params, sp.TNat) sp.set_type(excRate.value * params, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value * params), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - compute_CToken_979 = sp.local("compute_CToken_979", (excRate.value * params) // self.data.expScale) - amount.value = compute_CToken_979.value + compute_CToken_989 = sp.local("compute_CToken_989", (excRate.value * params) // self.data.expScale) + amount.value = compute_CToken_989.value redeem_tokens.value = amount.value sp.else: redeem_tokens.value = params @@ -571,17 +577,19 @@ def repayBorrow(self, params): borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[sp.sender]) sp.if borrowSnapshot.value.principal > 0: borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex - sp.if sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) > sp.min(borrowBalance.value, params): - sp.send(sp.sender, sp.mul(sp.set_type_expr(sp.as_nat(sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) - sp.min(borrowBalance.value, params)), sp.TNat), sp.mutez(1))) + repayAmount = sp.local("repayAmount", sp.min(borrowBalance.value, params)) + actualRepayAmount = sp.local("actualRepayAmount", sp.min(repayAmount.value, self.data.totalBorrows)) + sp.if sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) > repayAmount.value: + sp.send(sp.sender, sp.mul(sp.set_type_expr(sp.as_nat(sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) - repayAmount.value), sp.TNat), sp.mutez(1))) sp.else: - sp.verify(sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) == sp.min(borrowBalance.value, params), 'CT_INVALID_MUTEZ') + sp.verify(sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) == repayAmount.value, 'CT_INVALID_MUTEZ') sp.set_type(borrowBalance.value, sp.TNat) - sp.set_type(sp.min(borrowBalance.value, params), sp.TNat) - self.data.borrows[sp.sender].principal = sp.as_nat(borrowBalance.value - sp.min(borrowBalance.value, params), message = 'SUBTRACTION_UNDERFLOW') + sp.set_type(repayAmount.value, sp.TNat) + self.data.borrows[sp.sender].principal = sp.as_nat(borrowBalance.value - repayAmount.value, message = 'SUBTRACTION_UNDERFLOW') self.data.borrows[sp.sender].interestIndex = self.data.borrowIndex sp.set_type(self.data.totalBorrows, sp.TNat) - sp.set_type(sp.min(borrowBalance.value, params), sp.TNat) - self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - sp.min(borrowBalance.value, params), message = 'SUBTRACTION_UNDERFLOW') + sp.set_type(actualRepayAmount.value, sp.TNat) + self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - actualRepayAmount.value, message = 'SUBTRACTION_UNDERFLOW') sp.if self.data.borrows[sp.sender].principal == 0: sp.transfer(sp.sender, sp.tez(0), sp.contract(sp.TAddress, self.data.comptroller, entrypoint='removeFromLoans').open_some()) @@ -600,17 +608,19 @@ def repayBorrowBehalf(self, params): borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[params.borrower]) sp.if borrowSnapshot.value.principal > 0: borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex - sp.if sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) > sp.min(borrowBalance.value, params.repayAmount): - sp.send(sp.sender, sp.mul(sp.set_type_expr(sp.as_nat(sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) - sp.min(borrowBalance.value, params.repayAmount)), sp.TNat), sp.mutez(1))) + repayAmount = sp.local("repayAmount", sp.min(borrowBalance.value, params.repayAmount)) + actualRepayAmount = sp.local("actualRepayAmount", sp.min(repayAmount.value, self.data.totalBorrows)) + sp.if sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) > repayAmount.value: + sp.send(sp.sender, sp.mul(sp.set_type_expr(sp.as_nat(sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) - repayAmount.value), sp.TNat), sp.mutez(1))) sp.else: - sp.verify(sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) == sp.min(borrowBalance.value, params.repayAmount), 'CT_INVALID_MUTEZ') + sp.verify(sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) == repayAmount.value, 'CT_INVALID_MUTEZ') sp.set_type(borrowBalance.value, sp.TNat) - sp.set_type(sp.min(borrowBalance.value, params.repayAmount), sp.TNat) - self.data.borrows[params.borrower].principal = sp.as_nat(borrowBalance.value - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW') + sp.set_type(repayAmount.value, sp.TNat) + self.data.borrows[params.borrower].principal = sp.as_nat(borrowBalance.value - repayAmount.value, message = 'SUBTRACTION_UNDERFLOW') self.data.borrows[params.borrower].interestIndex = self.data.borrowIndex sp.set_type(self.data.totalBorrows, sp.TNat) - sp.set_type(sp.min(borrowBalance.value, params.repayAmount), sp.TNat) - self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW') + sp.set_type(actualRepayAmount.value, sp.TNat) + self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - actualRepayAmount.value, message = 'SUBTRACTION_UNDERFLOW') sp.if self.data.borrows[params.borrower].principal == 0: sp.transfer(params.borrower, sp.tez(0), sp.contract(sp.TAddress, self.data.comptroller, entrypoint='removeFromLoans').open_some()) @@ -729,7 +739,7 @@ def sweepMutez(self, params): @sp.entrypoint def transfer(self, params): sp.set_type(params, sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value")))) - sp.verify((params.from_ == sp.sender) | (self.data.ledger[params.from_].approvals[sp.sender] >= params.value), 'FA1.2_NotAllowed') + sp.verify((params.from_ == sp.sender) | (self.data.ledger[params.from_].approvals[sp.sender] >= params.value), ('NotEnoughAllowance', (params.value, self.data.ledger[params.from_].approvals[sp.sender]))) sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') sp.if ~ (self.data.ledger.contains(params.to_)): self.data.ledger[params.to_] = sp.record(approvals = {}, balance = 0) @@ -737,7 +747,7 @@ def transfer(self, params): self.data.borrows[params.to_] = sp.record(interestIndex = 0, principal = 0) sp.transfer(sp.record(cToken = sp.self_address, dst = params.to_, src = params.from_, transferTokens = params.value), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, dst = sp.TAddress, src = sp.TAddress, transferTokens = sp.TNat).layout((("cToken", "src"), ("dst", "transferTokens"))), self.data.comptroller, entrypoint='transferAllowed').open_some()) sp.set_type(sp.record(from_ = params.from_, sender = sp.sender, to_ = params.to_, value = params.value), sp.TRecord(from_ = sp.TAddress, sender = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout((("from_", "sender"), ("to_", "value")))) - sp.verify(self.data.ledger[params.from_].balance >= params.value, 'FA1.2_InsufficientBalance') + sp.verify(self.data.ledger[params.from_].balance >= params.value, ('NotEnoughBalance', (params.value, self.data.ledger[params.from_].balance))) self.data.ledger[params.from_].balance = sp.as_nat(self.data.ledger[params.from_].balance - params.value) self.data.ledger[params.to_].balance += params.value sp.if params.from_ != sp.sender: diff --git a/compiled_contracts/CXTZ/step_000_cont_0_contract.tz b/compiled_contracts/CXTZ/step_000_cont_0_contract.tz index b67c3d31..028378b0 100644 --- a/compiled_contracts/CXTZ/step_000_cont_0_contract.tz +++ b/compiled_contracts/CXTZ/step_000_cont_0_contract.tz @@ -1,4 +1,4 @@ -parameter (or (or (or (or (unit %acceptGovernance) (or (contract %accrueInterestInternal nat) (pair %approve (address %spender) (nat %value)))) (or (nat %doAccrueInterest) (or (unit %hardResetOp) (nat %reduceReservesInternal)))) (or (or (unit %removePendingGovernance) (or (address %setComptroller) (address %setInterestRateModelInternal))) (or (address %setPendingGovernance) (or (nat %setReserveFactorInternal) (nat %updateProtocolSeizeShare))))) (or (or (or (or (unit %accrueInterest) (or (nat %addReserves) (pair %addReservesInternal (nat %addAmount) (address %originalSender)))) (or (nat %borrow) (or (pair %borrowBalanceStored address (contract nat)) (pair %exchangeRateStored unit (contract nat))))) (or (or (pair %getAccountSnapshot address (contract (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))))) (or (pair %getAllowance (pair (address %owner) (address %spender)) (contract nat)) (pair %getBalance address (contract nat)))) (or (or (pair %getBalanceOfUnderlying address (contract nat)) (pair %getCash unit (contract nat))) (or (pair %getTotalSupply unit (contract nat)) (pair %liquidateBorrow (address %borrower) (pair (address %cTokenCollateral) (nat %repayAmount))))))) (or (or (or (nat %mint) (or (nat %redeem) (nat %redeemUnderlying))) (or (or (nat %reduceReserves) (nat %repayBorrow)) (or (pair %repayBorrowBehalf (address %borrower) (nat %repayAmount)) (pair %seize (address %borrower) (pair (address %liquidator) (nat %seizeTokens)))))) (or (or (address %setInterestRateModel) (or (nat %setReserveFactor) (pair %sweepFA12 (nat %amount) (address %tokenAddress)))) (or (or (pair %sweepFA2 (nat %amount) (pair (nat %id) (address %tokenAddress))) (bool %sweepMutez)) (or (pair %transfer (address %from) (pair (address %to) (nat %value))) (pair %updateMetadata (string %key) (bytes %value)))))))); +parameter (or (or (or (or (unit %acceptGovernance) (or (contract %accrueInterestInternal nat) (pair %approve (address %spender) (nat %value)))) (or (nat %doAccrueInterest) (or (unit %hardResetOp) (nat %reduceReservesInternal)))) (or (or (unit %removePendingGovernance) (or (address %setComptroller) (address %setInterestRateModelInternal))) (or (address %setPendingGovernance) (or (nat %setReserveFactorInternal) (nat %updateProtocolSeizeShare))))) (or (or (or (or (unit %accrueInterest) (or (nat %addReserves) (pair %addReservesInternal (nat %addAmount) (address %originalSender)))) (or (nat %borrow) (or (pair %borrowBalanceStored address (contract (pair nat nat))) (pair %exchangeRateStored unit (contract (pair nat nat)))))) (or (or (pair %getAccountSnapshot address (contract (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))))) (or (pair %getAllowance (pair (address %owner) (address %spender)) (contract nat)) (pair %getBalance address (contract nat)))) (or (or (pair %getBalanceOfUnderlying address (contract (pair nat nat))) (pair %getCash unit (contract (pair nat nat)))) (or (pair %getTotalSupply unit (contract nat)) (pair %liquidateBorrow (address %borrower) (pair (address %cTokenCollateral) (nat %repayAmount))))))) (or (or (or (nat %mint) (or (nat %redeem) (nat %redeemUnderlying))) (or (or (nat %reduceReserves) (nat %repayBorrow)) (or (pair %repayBorrowBehalf (address %borrower) (nat %repayAmount)) (pair %seize (address %borrower) (pair (address %liquidator) (nat %seizeTokens)))))) (or (or (address %setInterestRateModel) (or (nat %setReserveFactor) (pair %sweepFA12 (nat %amount) (address %tokenAddress)))) (or (or (pair %sweepFA2 (nat %amount) (pair (nat %id) (address %tokenAddress))) (bool %sweepMutez)) (or (pair %transfer (address %from) (pair (address %to) (nat %value))) (pair %updateMetadata (string %key) (bytes %value)))))))); storage (pair (pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))))) (big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))))); code { @@ -13,16 +13,19 @@ code IF_LEFT { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # == acceptGovernance == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { IF_LEFT { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # == accrueInterestInternal == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 1; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # == approve == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 2; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -31,16 +34,19 @@ code IF_LEFT { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # == doAccrueInterest == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 3; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { IF_LEFT { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # == hardResetOp == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 4; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # == reduceReservesInternal == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 5; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -52,16 +58,19 @@ code IF_LEFT { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # == removePendingGovernance == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 6; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { IF_LEFT { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # == setComptroller == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 7; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # == setInterestRateModelInternal == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 8; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -70,16 +79,19 @@ code IF_LEFT { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # == setPendingGovernance == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 9; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { IF_LEFT { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # == setReserveFactorInternal == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 10; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # == updateProtocolSeizeShare == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 11; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -93,7 +105,9 @@ code PUSH int -1; # int : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + { + # missing entrypoint # @some : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # @some : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUG 2; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @some : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair @parameter.left (pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))))) : @some : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) EXEC; # pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -108,17 +122,19 @@ code { IF_LEFT { + # == accrueInterest == + # if sp.level != self.data.accrualBlockNumber: # @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) LEVEL; # @level : nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # nat : nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) COMPARE; # int : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) NEQ; # bool : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { + # if self.data.accrualBlockNumber == 0: # @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -130,6 +146,7 @@ code IF { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # self.data.accrualBlockNumber = sp.level # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -137,15 +154,15 @@ code LEVEL; # @level : set nat : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DIG 5; # @parameter%accrueInterest : @level : set nat : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DROP; # @level : set nat : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # nat : set nat : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PAIR; # pair nat (set nat) : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - NIL operation; # list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair @level (set nat) : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair @level (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair @level (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (pair @level (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NIL operation; # list operation : pair (pair (pair (pair @level (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { DROP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # self.data.activeOperations.add(8) # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -159,19 +176,18 @@ code PAIR; # pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.transfer(sp.self_entrypoint('doAccrueInterest'), sp.tez(0), sp.contract(sp.TContract(sp.TNat), sp.self_address, entrypoint='accrueInterestInternal').open_some()) # pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) NIL operation; # list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SELF_ADDRESS; # @self : list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CONTRACT %accrueInterestInternal (contract nat); # option (contract (contract nat)) : list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 735; # int : list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 745; # int : list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH mutez 0; # mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SELF %doAccrueInterest; # @self : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # contract nat : mutez : @some : list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) }; # list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -184,10 +200,10 @@ code { IF_LEFT { + # == addReserves == + # sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SELF_ADDRESS; # @self : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SENDER; # @sender : address : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : address : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : @self : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) COMPARE; # int : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) NEQ; # bool : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF @@ -196,6 +212,7 @@ code PUSH string "CT_INTERNAL_CALL"; # string : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') # @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -212,6 +229,7 @@ code FAILWITH; # FAILED }; # @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%addReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # self.data.activeOperations.add(11) # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%addReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -226,29 +244,27 @@ code PAIR; # pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%addReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # @parameter%addReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.transfer(sp.unit, sp.tez(0), sp.self_entrypoint('accrueInterest')) # @parameter%addReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) NIL operation; # list operation : @parameter%addReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SELF %accrueInterest; # @self : list operation : @parameter%addReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # contract unit : list operation : @parameter%addReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : contract unit : list operation : @parameter%addReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - UNIT; # unit : mutez : contract unit : list operation : @parameter%addReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 0; # mutez : @self : list operation : @parameter%addReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNIT; # unit : mutez : @self : list operation : @parameter%addReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%addReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CONS; # list operation : @parameter%addReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.transfer(sp.record(addAmount = params, originalSender = sp.sender), sp.amount, sp.self_entrypoint('addReservesInternal')) # list operation : @parameter%addReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SELF %addReservesInternal; # @self : list operation : @parameter%addReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # contract (pair (nat %addAmount) (address %originalSender)) : list operation : @parameter%addReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - AMOUNT; # @amount : contract (pair (nat %addAmount) (address %originalSender)) : list operation : @parameter%addReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # mutez : contract (pair (nat %addAmount) (address %originalSender)) : list operation : @parameter%addReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SENDER; # @sender : mutez : contract (pair (nat %addAmount) (address %originalSender)) : list operation : @parameter%addReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : mutez : contract (pair (nat %addAmount) (address %originalSender)) : list operation : @parameter%addReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DIG 4; # @parameter%addReserves : address : mutez : contract (pair (nat %addAmount) (address %originalSender)) : list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PAIR; # pair @parameter%addReserves address : mutez : contract (pair (nat %addAmount) (address %originalSender)) : list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + AMOUNT; # @amount : @self : list operation : @parameter%addReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : @amount : @self : list operation : @parameter%addReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 4; # @parameter%addReserves : @sender : @amount : @self : list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair @parameter%addReserves @sender : @amount : @self : list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { + # == addReservesInternal == + # sp.verify(sp.sender == sp.self_address, 'CT_INTERNAL_FUNCTION') # @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SELF_ADDRESS; # @self : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SENDER; # @sender : address : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : address : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : @self : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) COMPARE; # int : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) EQ; # bool : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF @@ -257,6 +273,7 @@ code PUSH string "CT_INTERNAL_FUNCTION"; # string : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.verify(self.data.activeOperations.contains(11), 'OP_NOT_ACTIVE') # @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -271,6 +288,7 @@ code FAILWITH; # FAILED }; # @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # self.data.activeOperations.remove(11) # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -285,13 +303,13 @@ code PAIR; # pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair nat (set nat) : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # nat : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) LEVEL; # @level : nat : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # nat : nat : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) COMPARE; # int : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) EQ; # bool : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF @@ -300,11 +318,11 @@ code PUSH string "CT_INTEREST_OLD"; # string : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) > params.addAmount: # @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP; # @parameter%addReservesInternal : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # nat : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH mutez 1; # mutez : nat : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) AMOUNT; # @amount : mutez : nat : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : nat : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) EDIV; # option (pair nat mutez) : nat : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { @@ -317,6 +335,7 @@ code GT; # bool : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { + # sp.send(params.originalSender, sp.mul(sp.set_type_expr(sp.as_nat(sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) - params.addAmount), sp.TNat), sp.mutez(1))) # @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) NIL operation; # list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # @parameter%addReservesInternal : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CDR; # address : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -332,7 +351,6 @@ code CAR; # nat : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH mutez 1; # mutez : nat : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) AMOUNT; # @amount : mutez : nat : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : nat : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) EDIV; # option (pair nat mutez) : nat : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { @@ -343,7 +361,6 @@ code CAR; # nat : nat : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SUB; # int : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) ISNAT; # option nat : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # option nat : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { PUSH int 32; # int : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -356,11 +373,11 @@ code CONS; # list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { + # sp.verify(sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) == params.addAmount, 'CT_INVALID_MUTEZ') # @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP; # @parameter%addReservesInternal : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # nat : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH mutez 1; # mutez : nat : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) AMOUNT; # @amount : mutez : nat : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : nat : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) EDIV; # option (pair nat mutez) : nat : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { @@ -379,6 +396,7 @@ code }; # @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) NIL operation; # list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) }; # list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # self.data.totalReserves += params.addAmount # list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DIG 2; # pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP; # pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 9; # nat : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -393,10 +411,10 @@ code { IF_LEFT { + # == borrow == + # sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SELF_ADDRESS; # @self : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SENDER; # @sender : address : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : address : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : @self : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) COMPARE; # int : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) NEQ; # bool : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF @@ -405,18 +423,18 @@ code PUSH string "CT_INTERNAL_CALL"; # string : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if ~ (self.data.ledger.contains(sp.sender)): # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) MEM; # bool : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - NOT; # bool : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # bool : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # self.data.ledger[sp.sender] = sp.record(approvals = {}, balance = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -426,7 +444,6 @@ code UNPAIR; # big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH (option (pair (map address nat) nat)) (Some (Pair {} 0)); # option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UPDATE; # big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # address : pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -436,20 +453,19 @@ code SWAP; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - } - {}; # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if ~ (self.data.borrows.contains(sp.sender)): # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) MEM; # bool : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - NOT; # bool : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # bool : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # self.data.borrows[sp.sender] = sp.record(interestIndex = 0, principal = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -459,7 +475,6 @@ code UNPAIR; # big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH (option (pair nat nat)) (Some (Pair 0 0)); # option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UPDATE; # big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair (big_map address (pair nat nat)) address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # nat : pair (big_map address (pair nat nat)) address : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -469,8 +484,8 @@ code PAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - } - {}; # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.transfer(sp.record(borrowAmount = params, borrower = sp.sender, cToken = sp.self_address), sp.tez(0), sp.contract(sp.TRecord(borrowAmount = sp.TNat, borrower = sp.TAddress, cToken = sp.TAddress).layout(("cToken", ("borrower", "borrowAmount"))), self.data.comptroller, entrypoint='borrowAllowed').open_some()) # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) NIL operation; # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -486,16 +501,14 @@ code PUSH mutez 0; # mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 4; # @parameter%borrow : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : @parameter%borrow : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : @parameter%borrow : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SELF_ADDRESS; # @self : address : @parameter%borrow : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : address : @parameter%borrow : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PAIR 3; # pair address (pair address @parameter%borrow) : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SELF_ADDRESS; # @self : @sender : @parameter%borrow : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR 3; # pair @self (pair @sender @parameter%borrow) : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CONS; # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.verify(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) >= params, 'CT_INSUFFICIENT_CASH') # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # @parameter%borrow : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH mutez 1; # mutez : @parameter%borrow : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) BALANCE; # @balance : mutez : @parameter%borrow : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : @parameter%borrow : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) EDIV; # option (pair nat mutez) : @parameter%borrow : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { @@ -512,13 +525,13 @@ code PUSH string "CT_INSUFFICIENT_CASH"; # string : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) LEVEL; # @level : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # nat : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) COMPARE; # int : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) EQ; # bool : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF @@ -527,8 +540,9 @@ code PUSH string "CT_INTEREST_OLD"; # string : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if False: + # sp.send(sp.sender, sp.mul(sp.set_type_expr(params, sp.TNat), sp.mutez(1))) # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CONTRACT unit; # option (contract unit) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { @@ -542,29 +556,31 @@ code UNIT; # unit : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CONS; # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # borrowBalance = sp.local("borrowBalance", 0) # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if self.data.borrows.contains(sp.sender): # nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # pair nat (pair (big_map address (pair nat nat)) address) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # big_map address (pair nat nat) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : big_map address (pair nat nat) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair nat nat) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) MEM; # bool : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { + # borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[sp.sender]) # nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # pair nat (pair (big_map address (pair nat nat)) address) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # big_map address (pair nat nat) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : big_map address (pair nat nat) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair nat nat) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET; # option (pair nat nat) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 628; # int : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 638; # int : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if borrowSnapshot.value.principal > 0: # @some : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : @some : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # @some : nat : @some : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CDR; # nat : nat : @some : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -574,6 +590,7 @@ code { SWAP; # nat : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DROP; # @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP; # @some : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # nat : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -586,7 +603,7 @@ code EDIV; # option (pair nat nat) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 631; # int : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 641; # int : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } { @@ -598,6 +615,7 @@ code }; # nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } {}; # nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # self.data.borrows[sp.sender].principal = borrowBalance.value + params # nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DIG 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -608,22 +626,21 @@ code UNPAIR; # big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP; # big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP; # address : address : big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUG 2; # address : big_map address (pair nat nat) : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - GET; # option (pair nat nat) : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # @sender : @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUG 2; # @sender : big_map address (pair nat nat) : @sender : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option (pair nat nat) : @sender : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 210; # int : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 210; # int : @sender : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 11; # @parameter%borrow : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DIG 9; # nat : @parameter%borrow : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - ADD; # nat : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - UPDATE 2; # @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SOME; # option (pair nat nat) : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SWAP; # address : option (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + {}; # @some : @sender : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 11; # @parameter%borrow : @some : @sender : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 9; # nat : @parameter%borrow : @some : @sender : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ADD; # nat : @some : @sender : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE 2; # @some : @sender : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SOME; # option (pair nat nat) : @sender : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # @sender : option (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UPDATE; # big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair (big_map address (pair nat nat)) address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # nat : pair (big_map address (pair nat nat)) address : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -632,6 +649,7 @@ code SWAP; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # self.data.borrows[sp.sender].interestIndex = self.data.borrowIndex # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -646,20 +664,19 @@ code UNPAIR; # big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP; # big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP; # address : address : big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUG 2; # address : big_map address (pair nat nat) : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - GET; # option (pair nat nat) : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # @sender : @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUG 2; # @sender : big_map address (pair nat nat) : @sender : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option (pair nat nat) : @sender : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 211; # int : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 211; # int : @sender : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DIG 8; # nat : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - UPDATE 1; # @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SOME; # option (pair nat nat) : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SWAP; # address : option (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + {}; # @some : @sender : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 8; # nat : @some : @sender : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE 1; # @some : @sender : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SOME; # option (pair nat nat) : @sender : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # @sender : option (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UPDATE; # big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair (big_map address (pair nat nat)) address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # nat : pair (big_map address (pair nat nat)) address : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -668,6 +685,7 @@ code SWAP; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # self.data.totalBorrows += params # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 7; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DIG 3; # @parameter%borrow : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -678,7 +696,10 @@ code { IF_LEFT { + # == borrowBalanceStored == + # borrowBalance = sp.local("borrowBalance", 0) # @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if self.data.borrows.contains(sp.fst(params)): # nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -688,6 +709,7 @@ code MEM; # bool : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { + # borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[sp.fst(params)]) # nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -697,10 +719,11 @@ code GET; # option (pair (nat %interestIndex) (nat %principal)) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 628; # int : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 638; # int : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if borrowSnapshot.value.principal > 0: # @some : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : @some : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # @some : nat : @some : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CDR; # nat : nat : @some : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -710,6 +733,7 @@ code { SWAP; # nat : @some : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DROP; # @some : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # @some : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP; # @some : @some : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # nat : @some : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -722,7 +746,7 @@ code EDIV; # option (pair nat nat) : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 631; # int : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 641; # int : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } { @@ -734,18 +758,30 @@ code }; # nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } {}; # nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - NIL operation; # list operation : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DIG 2; # @parameter%borrowBalanceStored : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CDR; # contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.result((borrowBalance.value, self.data.accrualBlockNumber)) # nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # nat : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair nat nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.transfer(__s1.value, sp.tez(0), sp.snd(params)) # pair nat nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NIL operation; # list operation : pair nat nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 2; # @parameter%borrowBalanceStored : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # contract (pair nat nat) : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 0; # mutez : contract (pair nat nat) : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 3; # pair nat nat : mutez : contract (pair nat nat) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { + # == exchangeRateStored == + # excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 8; # nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if self.data.totalSupply > 0: # nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 10; # nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -754,6 +790,7 @@ code IF { DROP; # @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 10; # nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -765,6 +802,7 @@ code PUSH string "DIVISION_BY_ZERO"; # string : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # excRate.value = (sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 10; # nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -777,7 +815,6 @@ code PUSH nat 0; # nat : nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH mutez 1; # mutez : nat : nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) BALANCE; # @balance : mutez : nat : nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : nat : nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) EDIV; # option (pair nat mutez) : nat : nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { @@ -788,7 +825,6 @@ code CAR; # nat : nat : nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SUB; # int : nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) ISNAT; # option nat : nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -798,10 +834,9 @@ code ADD; # nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SUB; # int : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) ISNAT; # option nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # option nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 671; # int : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 681; # int : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -817,11 +852,20 @@ code }; # nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } {}; # nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - NIL operation; # list operation : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DIG 2; # @parameter%exchangeRateStored : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CDR; # contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.result((excRate.value, self.data.accrualBlockNumber)) # nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair nat nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.transfer(__s2.value, sp.tez(0), sp.snd(params)) # pair nat nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NIL operation; # list operation : pair nat nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 2; # @parameter%exchangeRateStored : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # contract (pair nat nat) : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 0; # mutez : contract (pair nat nat) : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 3; # pair nat nat : mutez : contract (pair nat nat) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -833,12 +877,15 @@ code { IF_LEFT { + # == getAccountSnapshot == + # compute_CToken_571 = sp.local("compute_CToken_571", sp.record(account = sp.fst(params), borrowBalance = 0, cTokenBalance = 0, exchangeRateMantissa = 0)) # @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH (pair nat nat) (Pair 0 0); # pair nat nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : pair nat nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # @parameter%getAccountSnapshot : nat : pair nat nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # address : nat : pair nat nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair address nat : pair nat nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if self.data.ledger.contains(sp.fst(params)): # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -848,13 +895,13 @@ code MEM; # bool : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) LEVEL; # @level : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) COMPARE; # int : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) EQ; # bool : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF @@ -863,6 +910,7 @@ code PUSH string "CT_INTEREST_OLD"; # string : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED }; # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # compute_CToken_571.value.cTokenBalance = self.data.ledger[sp.fst(params)].balance # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -872,13 +920,15 @@ code GET; # option (pair (map %approvals address nat) (nat %balance)) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 573; # int : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 579; # int : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CDR; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UPDATE 3; # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # borrowBalance = sp.local("borrowBalance", 0) # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if self.data.borrows.contains(sp.fst(params)): # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -888,6 +938,7 @@ code MEM; # bool : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { + # borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[sp.fst(params)]) # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -897,10 +948,11 @@ code GET; # option (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 628; # int : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 638; # int : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if borrowSnapshot.value.principal > 0: # @some : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : @some : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # @some : nat : @some : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CDR; # nat : nat : @some : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -910,6 +962,7 @@ code { SWAP; # nat : @some : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DROP; # @some : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # @some : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP; # @some : @some : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # nat : @some : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -922,7 +975,7 @@ code EDIV; # option (pair nat nat) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 631; # int : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 641; # int : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } { @@ -935,6 +988,7 @@ code } {}; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # pair (pair address nat) (pair nat nat) : nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # compute_CToken_571.value.borrowBalance = borrowBalance.value # pair (pair address nat) (pair nat nat) : nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair address nat : pair nat nat : nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # address : pair nat nat : nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # nat : address : pair nat nat : nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -942,9 +996,11 @@ code PAIR; # pair address nat : pair nat nat : nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair (pair address nat) (pair nat nat) : nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 8; # nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if self.data.totalSupply > 0: # nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 10; # nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -953,6 +1009,7 @@ code IF { DROP 2; # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 10; # nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -964,6 +1021,7 @@ code PUSH string "DIVISION_BY_ZERO"; # string : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED }; # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # excRate.value = (sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 10; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -976,7 +1034,6 @@ code PUSH nat 0; # nat : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH mutez 1; # mutez : nat : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) BALANCE; # @balance : mutez : nat : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : nat : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) EDIV; # option (pair nat mutez) : nat : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { @@ -987,7 +1044,6 @@ code CAR; # nat : nat : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SUB; # int : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) ISNAT; # option nat : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -997,10 +1053,9 @@ code ADD; # nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SUB; # int : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) ISNAT; # option nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # option nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 671; # int : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 681; # int : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -1019,9 +1074,12 @@ code SWAP; # nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DROP; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) }; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # compute_CToken_571.value.exchangeRateMantissa = excRate.value # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UPDATE 4; # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } {}; # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.result(compute_CToken_571.value) + # sp.transfer(__s3.value, sp.tez(0), sp.snd(params)) # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) NIL operation; # list operation : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DIG 2; # @parameter%getAccountSnapshot : list operation : pair (pair address nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CDR; # contract (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))) : list operation : pair (pair address nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -1033,7 +1091,10 @@ code { IF_LEFT { + # == getAllowance == + # result = sp.local("result", 0) # @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if self.data.ledger.contains(sp.fst(params).owner): # nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -1044,6 +1105,7 @@ code MEM; # bool : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { + # if self.data.ledger[sp.fst(params).owner].approvals.contains(sp.fst(params).spender): # nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -1054,7 +1116,7 @@ code GET; # option (pair (map %approvals address nat) (nat %balance)) : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 549; # int : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 555; # int : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -1066,6 +1128,7 @@ code IF { DROP; # @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # result.value = self.data.ledger[sp.fst(params).owner].approvals[sp.fst(params).spender] # @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -1076,7 +1139,7 @@ code GET; # option (pair (map %approvals address nat) (nat %balance)) : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 550; # int : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 556; # int : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -1087,7 +1150,7 @@ code GET; # option nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 550; # int : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 556; # int : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -1095,6 +1158,8 @@ code {}; # nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } {}; # nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.result(result.value) + # sp.transfer(__s4.value, sp.tez(0), sp.snd(params)) # nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) NIL operation; # list operation : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DIG 2; # @parameter%getAllowance : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CDR; # contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -1104,7 +1169,10 @@ code CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { + # == getBalance == + # result = sp.local("result", 0) # @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if self.data.ledger.contains(sp.fst(params)): # nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -1115,6 +1183,7 @@ code IF { DROP; # @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # result.value = self.data.ledger[sp.fst(params)].balance # @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -1124,13 +1193,15 @@ code GET; # option (pair (map %approvals address nat) (nat %balance)) : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 489; # int : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 495; # int : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CDR; # nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } {}; # nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.result(result.value) + # sp.transfer(__s5.value, sp.tez(0), sp.snd(params)) # nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) NIL operation; # list operation : nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DIG 2; # @parameter%getBalance : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CDR; # contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -1146,9 +1217,12 @@ code { IF_LEFT { + # == getBalanceOfUnderlying == + # excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 8; # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if self.data.totalSupply > 0: # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 10; # nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -1157,6 +1231,7 @@ code IF { DROP; # @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 10; # nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -1168,6 +1243,7 @@ code PUSH string "DIVISION_BY_ZERO"; # string : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # excRate.value = (sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 10; # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -1180,7 +1256,6 @@ code PUSH nat 0; # nat : nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH mutez 1; # mutez : nat : nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) BALANCE; # @balance : mutez : nat : nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : nat : nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) EDIV; # option (pair nat mutez) : nat : nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { @@ -1191,7 +1266,6 @@ code CAR; # nat : nat : nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SUB; # int : nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) ISNAT; # option nat : nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -1201,10 +1275,9 @@ code ADD; # nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SUB; # int : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) ISNAT; # option nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # option nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 671; # int : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 681; # int : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -1220,59 +1293,75 @@ code }; # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } {}; # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.result(((excRate.value * self.data.ledger[sp.fst(params)].balance) // self.data.expScale, self.data.accrualBlockNumber)) # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - GET 5; # nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 4; # @parameter%getBalanceOfUnderlying : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - GET; # option (pair (map %approvals address nat) (nat %balance)) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 5; # nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 5; # @parameter%getBalanceOfUnderlying : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option (pair (map %approvals address nat) (nat %balance)) : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 521; # int : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 527; # int : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CDR; # nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DIG 2; # nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - MUL; # nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat nat) : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + {}; # @some : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 3; # nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MUL; # nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat nat) : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 61; # int : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 61; # int : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } { - CAR; # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - }; # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - NIL operation; # list operation : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DIG 2; # @parameter%getBalanceOfUnderlying : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CDR; # contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair nat nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.transfer(__s6.value, sp.tez(0), sp.snd(params)) # pair nat nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NIL operation; # list operation : pair nat nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 2; # @parameter%getBalanceOfUnderlying : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # contract (pair nat nat) : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 0; # mutez : contract (pair nat nat) : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 3; # pair nat nat : mutez : contract (pair nat nat) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - PUSH mutez 1; # mutez : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - BALANCE; # @balance : mutez : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat mutez) : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # == getCash == + # sp.result((sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)), self.data.accrualBlockNumber)) # @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 1; # mutez : nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + BALANCE; # @balance : mutez : nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat mutez) : nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - UNIT; # unit : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNIT; # unit : nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CAR; # nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - NIL operation; # list operation : nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DIG 2; # @parameter%getCash : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CDR; # contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + {}; # @some : nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair nat nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.transfer(__s7.value, sp.tez(0), sp.snd(params)) # pair nat nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + NIL operation; # list operation : pair nat nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 2; # @parameter%getCash : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # contract (pair nat nat) : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 0; # mutez : contract (pair nat nat) : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 3; # pair nat nat : mutez : contract (pair nat nat) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -1280,8 +1369,11 @@ code { IF_LEFT { + # == getTotalSupply == + # sp.result(self.data.totalSupply) # @parameter%getTotalSupply : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%getTotalSupply : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 10; # nat : @parameter%getTotalSupply : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.transfer(__s8.value, sp.tez(0), sp.snd(params)) # nat : @parameter%getTotalSupply : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) NIL operation; # list operation : nat : @parameter%getTotalSupply : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DIG 2; # @parameter%getTotalSupply : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CDR; # contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -1291,6 +1383,8 @@ code CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { + # == liquidateBorrow == + # sp.transfer(sp.record(borrower = params.borrower, cTokenBorrowed = sp.self_address, cTokenCollateral = params.cTokenCollateral, liquidator = sp.sender, repayAmount = params.repayAmount), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, cTokenBorrowed = sp.TAddress, cTokenCollateral = sp.TAddress, liquidator = sp.TAddress, repayAmount = sp.TNat).layout((("borrower", "cTokenBorrowed"), ("cTokenCollateral", ("liquidator", "repayAmount")))), self.data.comptroller, entrypoint='liquidateBorrowAllowed').open_some()) # @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) NIL operation; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -1299,7 +1393,7 @@ code CONTRACT %liquidateBorrowAllowed (pair (pair (address %borrower) (address %cTokenBorrowed)) (pair (address %cTokenCollateral) (pair (address %liquidator) (nat %repayAmount)))); # option (contract (pair (pair (address %borrower) (address %cTokenBorrowed)) (pair (address %cTokenCollateral) (pair (address %liquidator) (nat %repayAmount))))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 357; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 360; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -1307,23 +1401,21 @@ code DUP 4; # @parameter%liquidateBorrow : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 4; # nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PAIR; # pair address nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 5; # @parameter%liquidateBorrow : pair address nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - GET 3; # address : pair address nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PAIR; # pair address (pair address nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SELF_ADDRESS; # @self : pair address (pair address nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : pair address (pair address nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 6; # @parameter%liquidateBorrow : address : pair address (pair address nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CAR; # address : address : pair address (pair address nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PAIR; # pair address address : pair address (pair address nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PAIR; # pair (pair address address) (pair address (pair address nat)) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair @sender nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 5; # @parameter%liquidateBorrow : pair @sender nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # address : pair @sender nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair address (pair @sender nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SELF_ADDRESS; # @self : pair address (pair @sender nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 6; # @parameter%liquidateBorrow : @self : pair address (pair @sender nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # address : @self : pair address (pair @sender nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair address @self : pair address (pair @sender nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair address @self) (pair address (pair @sender nat)) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CONS; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.verify(params.borrower != sp.sender, 'CT_LIQUIDATE_LIQUIDATOR_IS_BORROWER') # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 3; # @parameter%liquidateBorrow : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CAR; # address : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # @parameter%liquidateBorrow : @sender : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # address : @sender : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) COMPARE; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) NEQ; # bool : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF @@ -1332,6 +1424,7 @@ code PUSH string "CT_LIQUIDATE_LIQUIDATOR_IS_BORROWER"; # string : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.verify(params.repayAmount > 0, 'CT_LIQUIDATE_CLOSE_AMOUNT_IS_INVALID') # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # @parameter%liquidateBorrow : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 4; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -1343,13 +1436,13 @@ code PUSH string "CT_LIQUIDATE_CLOSE_AMOUNT_IS_INVALID"; # string : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) LEVEL; # @level : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) COMPARE; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) EQ; # bool : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF @@ -1358,7 +1451,9 @@ code PUSH string "CT_INTEREST_OLD"; # string : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # borrowBalance = sp.local("borrowBalance", 0) # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if self.data.borrows.contains(params.borrower): # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -1368,6 +1463,7 @@ code MEM; # bool : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { + # borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[params.borrower]) # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -1377,10 +1473,11 @@ code GET; # option (pair (nat %interestIndex) (nat %principal)) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 628; # int : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 638; # int : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if borrowSnapshot.value.principal > 0: # @some : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : @some : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # @some : nat : @some : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CDR; # nat : nat : @some : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -1390,6 +1487,7 @@ code { SWAP; # nat : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DROP; # @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP; # @some : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # nat : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -1402,7 +1500,7 @@ code EDIV; # option (pair nat nat) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 631; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 641; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } { @@ -1414,6 +1512,7 @@ code }; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } {}; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # repayAmount = sp.local("repayAmount", sp.min(borrowBalance.value, params.repayAmount)) # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # @parameter%liquidateBorrow : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 4; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -1429,148 +1528,121 @@ code SWAP; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DROP; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) }; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PUSH mutez 1; # mutez : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - AMOUNT; # @amount : mutez : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat mutez) : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # actualRepayAmount = sp.local("actualRepayAmount", sp.min(repayAmount.value, self.data.totalBorrows)) # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 7; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # nat : nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # nat : nat : nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + LE; # bool : nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF + { + DROP; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + } + { + SWAP; # nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) > repayAmount.value: # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 1; # mutez : nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + AMOUNT; # @amount : mutez : nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat mutez) : nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - UNIT; # unit : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNIT; # unit : nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CAR; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - GT; # bool : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + {}; # @some : nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GT; # bool : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - SWAP; # list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SENDER; # @sender : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CONTRACT unit; # option (contract unit) : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.send(sp.sender, sp.mul(sp.set_type_expr(sp.as_nat(sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) - repayAmount.value), sp.TNat), sp.mutez(1))) # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 3; # list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONTRACT unit; # option (contract unit) : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 32; # int : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 32; # int : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PUSH mutez 1; # mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 5; # @parameter%liquidateBorrow : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - GET 4; # nat : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 5; # nat : nat : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP; # nat : nat : nat : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - LE; # bool : nat : nat : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - IF - { - DROP; # nat : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - } - { - SWAP; # nat : nat : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DROP; # nat : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - }; # nat : mutez : contract unit : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PUSH mutez 1; # mutez : nat : mutez : contract unit : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - AMOUNT; # @amount : mutez : nat : mutez : contract unit : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : nat : mutez : contract unit : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat mutez) : nat : mutez : contract unit : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + {}; # @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 1; # mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 5; # nat : mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 1; # mutez : nat : mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + AMOUNT; # @amount : mutez : nat : mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat mutez) : nat : mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - UNIT; # unit : nat : mutez : contract unit : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNIT; # unit : nat : mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : mutez : contract unit : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CAR; # nat : nat : mutez : contract unit : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SUB; # int : mutez : contract unit : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - ISNAT; # option nat : mutez : contract unit : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # option nat : mutez : contract unit : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + {}; # @some : nat : mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : nat : mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SUB; # int : mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ISNAT; # option nat : mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 32; # int : mutez : contract unit : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 32; # int : mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : mutez : contract unit : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - MUL; # mutez : contract unit : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - UNIT; # unit : mutez : contract unit : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CONS; # list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SWAP; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + {}; # @some : mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MUL; # mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNIT; # unit : mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONS; # list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUG 3; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - DUP 3; # @parameter%liquidateBorrow : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - GET 4; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 2; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP; # nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - LE; # bool : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - IF - { - DROP; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - } - { - SWAP; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DROP; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - }; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PUSH mutez 1; # mutez : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - AMOUNT; # @amount : mutez : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat mutez) : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.verify(sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) == repayAmount.value, 'CT_INVALID_MUTEZ') # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 1; # mutez : nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + AMOUNT; # @amount : mutez : nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat mutez) : nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - UNIT; # unit : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNIT; # unit : nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CAR; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - EQ; # bool : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + {}; # @some : nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EQ; # bool : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF {} { - PUSH string "CT_INVALID_MUTEZ"; # string : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH string "CT_INVALID_MUTEZ"; # string : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED - }; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - }; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DIG 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - UNPAIR; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - UNPAIR; # nat : pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller) : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP; # big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 10; # @parameter%liquidateBorrow : big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP; # address : address : big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUG 2; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - GET; # option (pair (nat %interestIndex) (nat %principal)) : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # self.data.borrows[params.borrower].principal = sp.as_nat(borrowBalance.value - repayAmount.value, message = 'SUBTRACTION_UNDERFLOW') # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # nat : pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller) : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 12; # @parameter%liquidateBorrow : big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # address : address : big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUG 2; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option (pair (nat %interestIndex) (nat %principal)) : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 263; # int : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 266; # int : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 11; # @parameter%liquidateBorrow : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - GET 4; # nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 10; # nat : nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP; # nat : nat : nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - LE; # bool : nat : nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - IF - { - DROP; # nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - } - { - SWAP; # nat : nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DROP; # nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - }; # nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 10; # nat : nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + {}; # @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 9; # nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 10; # nat : nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SUB; # int : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) ISNAT; # option nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # option nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -1588,6 +1660,7 @@ code SWAP; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # self.data.borrows[params.borrower].interestIndex = self.data.borrowIndex # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -1608,7 +1681,7 @@ code GET; # option (pair (nat %interestIndex) (nat %principal)) : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 265; # int : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 268; # int : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -1625,26 +1698,11 @@ code PAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUG 3; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 3; # @parameter%liquidateBorrow : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - GET 4; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SWAP; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - LE; # bool : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - IF - { - DROP; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - } - { - SWAP; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DROP; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - }; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - actualRepayAmount.value, message = 'SUBTRACTION_UNDERFLOW') # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 7; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SUB; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) ISNAT; # option nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # option nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -1655,6 +1713,7 @@ code SWAP; # @some : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UPDATE 7; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUG 2; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if self.data.borrows[params.borrower].principal == 0: # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -1665,7 +1724,7 @@ code GET; # option (pair (nat %interestIndex) (nat %principal)) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 268; # int : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 271; # int : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -1674,6 +1733,7 @@ code EQ; # bool : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { + # sp.transfer(params.borrower, sp.tez(0), sp.contract(sp.TAddress, self.data.comptroller, entrypoint='removeFromLoans').open_some()) # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -1681,7 +1741,7 @@ code CONTRACT %removeFromLoans address; # option (contract address) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 270; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 273; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -1692,6 +1752,7 @@ code CONS; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } {}; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.verify(sp.view("balanceOf", params.borrower, params.cTokenCollateral, sp.TNat).open_some(message = 'INVALID BALANCE OF VIEW') >= sp.fst(sp.view("liquidateCalculateSeizeTokens", sp.record(actualRepayAmount = params.repayAmount, cTokenBorrowed = sp.self_address, cTokenCollateral = params.cTokenCollateral), self.data.comptroller, sp.TPair(sp.TNat, sp.TNat)).open_some(message = 'INVALID LIQUIDATE CALC SEIZE TOKEN VIEW')), 'LIQUIDATE_SEIZE_TOO_MUCH') # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -1699,28 +1760,28 @@ code DUP 3; # @parameter%liquidateBorrow : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # address : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SELF_ADDRESS; # @self : address : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : address : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 5; # @parameter%liquidateBorrow : address : address : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - GET 4; # nat : address : address : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PAIR 3; # pair nat (pair address address) : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - VIEW "liquidateCalculateSeizeTokens" nat; # option nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 5; # @parameter%liquidateBorrow : @self : address : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 4; # nat : @self : address : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR 3; # pair nat (pair @self address) : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + VIEW "liquidateCalculateSeizeTokens" (pair nat nat); # option (pair nat nat) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { PUSH string "INVALID LIQUIDATE CALC SEIZE TOKEN VIEW"; # string : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 3; # @parameter%liquidateBorrow : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - GET 3; # address : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 4; # @parameter%liquidateBorrow : address : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CAR; # address : address : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - VIEW "balanceOf" nat; # option nat : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # @parameter%liquidateBorrow : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # address : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # @parameter%liquidateBorrow : address : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # address : address : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + VIEW "balanceOf" nat; # option nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH string "INVALID BALANCE OF VIEW"; # string : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH string "INVALID BALANCE OF VIEW"; # string : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + {}; # @some : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) COMPARE; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GE; # bool : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF @@ -1729,12 +1790,13 @@ code PUSH string "LIQUIDATE_SEIZE_TOO_MUCH"; # string : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.transfer(sp.record(borrower = params.borrower, liquidator = sp.sender, seizeTokens = sp.fst(sp.view("liquidateCalculateSeizeTokens", sp.record(actualRepayAmount = params.repayAmount, cTokenBorrowed = sp.self_address, cTokenCollateral = params.cTokenCollateral), self.data.comptroller, sp.TPair(sp.TNat, sp.TNat)).open_some(message = 'INVALID LIQUIDATE CALC SEIZE TOKEN VIEW'))), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, liquidator = sp.TAddress, seizeTokens = sp.TNat).layout(("borrower", ("liquidator", "seizeTokens"))), params.cTokenCollateral, entrypoint='seize').open_some()) # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # @parameter%liquidateBorrow : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CONTRACT %seize (pair (address %borrower) (pair (address %liquidator) (nat %seizeTokens))); # option (contract (pair (address %borrower) (pair (address %liquidator) (nat %seizeTokens)))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 382; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 385; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -1746,22 +1808,21 @@ code DUP 5; # @parameter%liquidateBorrow : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # address : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SELF_ADDRESS; # @self : address : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : address : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 7; # @parameter%liquidateBorrow : address : address : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - GET 4; # nat : address : address : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PAIR 3; # pair nat (pair address address) : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - VIEW "liquidateCalculateSeizeTokens" nat; # option nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 7; # @parameter%liquidateBorrow : @self : address : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 4; # nat : @self : address : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR 3; # pair nat (pair @self address) : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + VIEW "liquidateCalculateSeizeTokens" (pair nat nat); # option (pair nat nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { PUSH string "INVALID LIQUIDATE CALC SEIZE TOKEN VIEW"; # string : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SENDER; # @sender : @some : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : @some : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DIG 5; # @parameter%liquidateBorrow : address : @some : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CAR; # address : address : @some : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PAIR 3; # pair address (pair address @some) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 5; # @parameter%liquidateBorrow : @sender : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # address : @sender : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR 3; # pair address (pair @sender nat) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair (nat %interestIndex) (nat %principal))) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -1776,10 +1837,10 @@ code { IF_LEFT { + # == mint == + # sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SELF_ADDRESS; # @self : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SENDER; # @sender : address : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : address : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : @self : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) COMPARE; # int : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) NEQ; # bool : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF @@ -1788,18 +1849,18 @@ code PUSH string "CT_INTERNAL_CALL"; # string : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if ~ (self.data.ledger.contains(sp.sender)): # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) MEM; # bool : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - NOT; # bool : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # bool : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # self.data.ledger[sp.sender] = sp.record(approvals = {}, balance = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -1809,7 +1870,6 @@ code UNPAIR; # big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH (option (pair (map address nat) nat)) (Some (Pair {} 0)); # option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UPDATE; # big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # address : pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -1819,20 +1879,19 @@ code SWAP; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - } - {}; # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if ~ (self.data.borrows.contains(sp.sender)): # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) MEM; # bool : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - NOT; # bool : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # bool : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # self.data.borrows[sp.sender] = sp.record(interestIndex = 0, principal = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -1842,7 +1901,6 @@ code UNPAIR; # big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH (option (pair nat nat)) (Some (Pair 0 0)); # option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UPDATE; # big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair (big_map address (pair nat nat)) address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # nat : pair (big_map address (pair nat nat)) address : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -1852,8 +1910,8 @@ code PAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - } - {}; # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.transfer(sp.record(cToken = sp.self_address, mintAmount = params, minter = sp.sender), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, mintAmount = sp.TNat, minter = sp.TAddress).layout(("cToken", ("minter", "mintAmount"))), self.data.comptroller, entrypoint='mintAllowed').open_some()) # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) NIL operation; # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -1869,19 +1927,17 @@ code PUSH mutez 0; # mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 4; # @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SELF_ADDRESS; # @self : address : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : address : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PAIR 3; # pair address (pair address @parameter%mint) : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SELF_ADDRESS; # @self : @sender : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR 3; # pair @self (pair @sender @parameter%mint) : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CONS; # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) LEVEL; # @level : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) COMPARE; # int : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) EQ; # bool : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF @@ -1890,10 +1946,10 @@ code PUSH string "CT_INTEREST_OLD"; # string : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) > params: # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # @parameter%mint : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH mutez 1; # mutez : @parameter%mint : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) AMOUNT; # @amount : mutez : @parameter%mint : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : @parameter%mint : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) EDIV; # option (pair nat mutez) : @parameter%mint : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { @@ -1906,8 +1962,8 @@ code GT; # bool : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { + # sp.send(sp.sender, sp.mul(sp.set_type_expr(sp.as_nat(sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) - params), sp.TNat), sp.mutez(1))) # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CONTRACT unit; # option (contract unit) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { @@ -1919,7 +1975,6 @@ code DUP 4; # @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH mutez 1; # mutez : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) AMOUNT; # @amount : mutez : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) EDIV; # option (pair nat mutez) : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { @@ -1930,7 +1985,6 @@ code CAR; # nat : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SUB; # int : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) ISNAT; # option nat : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # option nat : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { PUSH int 32; # int : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -1943,10 +1997,10 @@ code CONS; # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { + # sp.verify(sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) == params, 'CT_INVALID_MUTEZ') # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # @parameter%mint : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH mutez 1; # mutez : @parameter%mint : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) AMOUNT; # @amount : mutez : @parameter%mint : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : @parameter%mint : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) EDIV; # option (pair nat mutez) : @parameter%mint : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { @@ -1964,9 +2018,11 @@ code FAILWITH; # FAILED }; # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) }; # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 8; # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if self.data.totalSupply > 0: # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 10; # nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -1975,6 +2031,7 @@ code IF { DROP; # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 10; # nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -1986,6 +2043,7 @@ code PUSH string "DIVISION_BY_ZERO"; # string : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # excRate.value = (sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - params, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 10; # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -1998,7 +2056,6 @@ code DUP 6; # @parameter%mint : nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH mutez 1; # mutez : @parameter%mint : nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) BALANCE; # @balance : mutez : @parameter%mint : nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : @parameter%mint : nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) EDIV; # option (pair nat mutez) : @parameter%mint : nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { @@ -2009,7 +2066,6 @@ code CAR; # nat : @parameter%mint : nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SUB; # int : nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) ISNAT; # option nat : nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -2019,10 +2075,9 @@ code ADD; # nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SUB; # int : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) ISNAT; # option nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # option nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 671; # int : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 681; # int : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -2038,6 +2093,9 @@ code }; # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } {}; # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # amount = sp.local("amount", 0) + # if True: + # sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO') # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) COMPARE; # int : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -2048,6 +2106,7 @@ code PUSH string "DIVISION_BY_ZERO"; # string : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED }; # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # compute_CToken_975 = sp.local("compute_CToken_975", (params * self.data.expScale) // excRate.value) # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 5; # nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -2062,6 +2121,8 @@ code { CAR; # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) }; # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # amount.value = compute_CToken_975.value + # sp.verify(amount.value > 0, 'CT_MINT_AMOUNT_IS_INVALID') # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) COMPARE; # int : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -2072,12 +2133,14 @@ code PUSH string "CT_MINT_AMOUNT_IS_INVALID"; # string : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED }; # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # self.data.totalSupply += amount.value # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DIG 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 10; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) ADD; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UPDATE 10; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # self.data.ledger[sp.sender].balance += amount.value # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -2087,23 +2150,22 @@ code UNPAIR; # big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP; # big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP; # address : address : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUG 2; # address : big_map address (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - GET; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # @sender : @sender : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUG 2; # @sender : big_map address (pair (map address nat) nat) : @sender : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option (pair (map address nat) nat) : @sender : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 99; # int : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 99; # int : @sender : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP; # @some : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CDR; # nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DIG 9; # nat : nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - ADD; # nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - UPDATE 2; # @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SOME; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SWAP; # address : option (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + {}; # @some : @sender : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # @some : @some : @sender : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # nat : @some : @sender : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 9; # nat : nat : @some : @sender : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ADD; # nat : @some : @sender : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE 2; # @some : @sender : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SOME; # option (pair (map address nat) nat) : @sender : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # @sender : option (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UPDATE; # big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # address : pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -2117,10 +2179,10 @@ code { IF_LEFT { + # == redeem == + # sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SELF_ADDRESS; # @self : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SENDER; # @sender : address : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : address : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : @self : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) COMPARE; # int : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) NEQ; # bool : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF @@ -2129,6 +2191,7 @@ code PUSH string "CT_INTERNAL_CALL"; # string : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.transfer(sp.record(cToken = sp.self_address, redeemAmount = params, redeemer = sp.sender), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, redeemAmount = sp.TNat, redeemer = sp.TAddress).layout(("cToken", ("redeemer", "redeemAmount"))), self.data.comptroller, entrypoint='redeemAllowed').open_some()) # @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) NIL operation; # list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -2144,16 +2207,18 @@ code PUSH mutez 0; # mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 4; # @parameter%redeem : mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : @parameter%redeem : mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : @parameter%redeem : mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SELF_ADDRESS; # @self : address : @parameter%redeem : mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : address : @parameter%redeem : mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PAIR 3; # pair address (pair address @parameter%redeem) : mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SELF_ADDRESS; # @self : @sender : @parameter%redeem : mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR 3; # pair @self (pair @sender @parameter%redeem) : mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CONS; # list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # redeem_amount = sp.local("redeem_amount", 0) # list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if False: + # excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 8; # nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if self.data.totalSupply > 0: # nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 10; # nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -2162,6 +2227,7 @@ code IF { DROP 2; # list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 10; # nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -2173,6 +2239,7 @@ code PUSH string "DIVISION_BY_ZERO"; # string : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # excRate.value = (sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 10; # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -2185,7 +2252,6 @@ code PUSH nat 0; # nat : nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH mutez 1; # mutez : nat : nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) BALANCE; # @balance : mutez : nat : nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : nat : nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) EDIV; # option (pair nat mutez) : nat : nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { @@ -2196,7 +2262,6 @@ code CAR; # nat : nat : nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SUB; # int : nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) ISNAT; # option nat : nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -2206,10 +2271,9 @@ code ADD; # nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SUB; # int : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) ISNAT; # option nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # option nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 671; # int : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 681; # int : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -2228,6 +2292,9 @@ code SWAP; # nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DROP; # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) }; # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # amount = sp.local("amount", 0) + # if False: + # compute_CToken_978 = sp.local("compute_CToken_978", (excRate.value * params) // self.data.expScale) # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 5; # nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -2243,7 +2310,13 @@ code { CAR; # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) }; # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # amount.value = compute_CToken_978.value + # redeem_amount.value = amount.value + # redeem_tokens = sp.local("redeem_tokens", 0) + # if False: + # redeem_tokens.value = params # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if (redeem_amount.value > 0) & (redeem_tokens.value > 0): # @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # nat : nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) COMPARE; # int : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -2260,10 +2333,10 @@ code }; # bool : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { + # sp.verify(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) >= redeem_amount.value, 'CT_INSUFFICIENT_CASH') # @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH mutez 1; # mutez : nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) BALANCE; # @balance : mutez : nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) EDIV; # option (pair nat mutez) : nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { @@ -2280,6 +2353,7 @@ code PUSH string "CT_INSUFFICIENT_CASH"; # string : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -2288,7 +2362,6 @@ code LEVEL; # @level : nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DIG 5; # @parameter%redeem : @level : nat : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DROP; # @level : nat : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # nat : nat : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) COMPARE; # int : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) EQ; # bool : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF @@ -2297,12 +2370,12 @@ code PUSH string "CT_INTEREST_OLD"; # string : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # self.data.totalSupply = sp.as_nat(self.data.totalSupply - redeem_tokens.value, message = 'Insufficient supply') # @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP; # @parameter%redeem : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%redeem : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 10; # nat : @parameter%redeem : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SUB; # int : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) ISNAT; # option nat : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # option nat : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { PUSH string "Insufficient supply"; # string : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -2313,12 +2386,12 @@ code SWAP; # @some : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%redeem : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UPDATE 10; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%redeem : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUG 3; # @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # self.data.ledger[sp.sender].balance = sp.as_nat(self.data.ledger[sp.sender].balance - redeem_tokens.value, message = 'Insufficient balance') # @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET; # option (pair (map %approvals address nat) (nat %balance)) : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { @@ -2329,7 +2402,6 @@ code CDR; # nat : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SUB; # int : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) ISNAT; # option nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # option nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { PUSH string "Insufficient balance"; # string : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -2346,20 +2418,19 @@ code UNPAIR; # big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP; # big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP; # address : address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUG 2; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - GET; # option (pair (map %approvals address nat) (nat %balance)) : address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # @sender : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUG 2; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option (pair (map %approvals address nat) (nat %balance)) : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 171; # int : address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 171; # int : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DIG 8; # @some : @some : address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - UPDATE 2; # @some : address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SOME; # option (pair (map %approvals address nat) (nat %balance)) : address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SWAP; # address : option (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + {}; # @some : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 8; # @some : @some : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE 2; # @some : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SOME; # option (pair (map %approvals address nat) (nat %balance)) : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # @sender : option (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UPDATE; # big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # address : pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -2370,8 +2441,9 @@ code PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUG 2; # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if False: + # sp.send(sp.sender, sp.mul(sp.set_type_expr(redeem_amount.value, sp.TNat), sp.mutez(1))) # list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CONTRACT unit; # option (contract unit) : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { @@ -2393,10 +2465,10 @@ code }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { + # == redeemUnderlying == + # sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SELF_ADDRESS; # @self : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SENDER; # @sender : address : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : address : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : @self : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) COMPARE; # int : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) NEQ; # bool : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF @@ -2405,6 +2477,7 @@ code PUSH string "CT_INTERNAL_CALL"; # string : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.transfer(sp.record(cToken = sp.self_address, redeemAmount = params, redeemer = sp.sender), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, redeemAmount = sp.TNat, redeemer = sp.TAddress).layout(("cToken", ("redeemer", "redeemAmount"))), self.data.comptroller, entrypoint='redeemAllowed').open_some()) # @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) NIL operation; # list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -2420,17 +2493,22 @@ code PUSH mutez 0; # mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 4; # @parameter%redeemUnderlying : mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : @parameter%redeemUnderlying : mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : @parameter%redeemUnderlying : mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SELF_ADDRESS; # @self : address : @parameter%redeemUnderlying : mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : address : @parameter%redeemUnderlying : mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PAIR 3; # pair address (pair address @parameter%redeemUnderlying) : mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SELF_ADDRESS; # @self : @sender : @parameter%redeemUnderlying : mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR 3; # pair @self (pair @sender @parameter%redeemUnderlying) : mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CONS; # list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # redeem_amount = sp.local("redeem_amount", 0) + # if True: + # redeem_amount.value = params # list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # redeem_tokens = sp.local("redeem_tokens", 0) # @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if True: + # excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 8; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if self.data.totalSupply > 0: # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 7; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 10; # nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -2439,6 +2517,7 @@ code IF { DROP; # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 10; # nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -2450,6 +2529,7 @@ code PUSH string "DIVISION_BY_ZERO"; # string : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED }; # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # excRate.value = (sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 10; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -2462,7 +2542,6 @@ code PUSH nat 0; # nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH mutez 1; # mutez : nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) BALANCE; # @balance : mutez : nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) EDIV; # option (pair nat mutez) : nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { @@ -2473,7 +2552,6 @@ code CAR; # nat : nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SUB; # int : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) ISNAT; # option nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -2483,10 +2561,9 @@ code ADD; # nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SUB; # int : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) ISNAT; # option nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 671; # int : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 681; # int : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -2502,8 +2579,11 @@ code }; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } {}; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # amount = sp.local("amount", 0) # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP; # nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if True: + # sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO') # nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH nat 0; # nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) COMPARE; # int : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GT; # bool : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -2513,11 +2593,13 @@ code PUSH string "DIVISION_BY_ZERO"; # string : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED }; # nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # compute_Exponential_277 = sp.local("compute_Exponential_277", params * self.data.expScale) # nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 7; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 5; # nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 7; # @parameter%redeemUnderlying : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) MUL; # nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # compute_Exponential_280 = sp.local("compute_Exponential_280", compute_Exponential_277.value // excRate.value) # nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) EDIV; # option (pair nat nat) : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -2529,6 +2611,7 @@ code { CAR; # nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) }; # nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if (compute_Exponential_277.value % excRate.value) > 0: # nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 5; # nat : nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 4; # nat : nat : nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -2549,8 +2632,12 @@ code SWAP; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DROP; # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) }; # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # compute_CToken_986 = sp.local("compute_CToken_986", compute_Exponential_280.value + 1) # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 1; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) ADD; # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # amount.value = compute_CToken_986.value + # redeem_tokens.value = amount.value + # if (redeem_amount.value > 0) & (redeem_tokens.value > 0): # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # @parameter%redeemUnderlying : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) COMPARE; # int : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -2567,10 +2654,10 @@ code }; # bool : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { + # sp.verify(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) >= redeem_amount.value, 'CT_INSUFFICIENT_CASH') # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # @parameter%redeemUnderlying : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH mutez 1; # mutez : @parameter%redeemUnderlying : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) BALANCE; # @balance : mutez : @parameter%redeemUnderlying : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : @parameter%redeemUnderlying : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) EDIV; # option (pair nat mutez) : @parameter%redeemUnderlying : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { @@ -2587,6 +2674,7 @@ code PUSH string "CT_INSUFFICIENT_CASH"; # string : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED }; # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -2595,7 +2683,6 @@ code LEVEL; # @level : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DIG 5; # @parameter%redeemUnderlying : @level : nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DROP; # @level : nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # nat : nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) COMPARE; # int : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) EQ; # bool : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF @@ -2604,12 +2691,12 @@ code PUSH string "CT_INTEREST_OLD"; # string : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED }; # nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # self.data.totalSupply = sp.as_nat(self.data.totalSupply - redeem_tokens.value, message = 'Insufficient supply') # nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP; # nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 10; # nat : nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SUB; # int : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) ISNAT; # option nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # option nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { PUSH string "Insufficient supply"; # string : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -2620,12 +2707,12 @@ code SWAP; # @some : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UPDATE 10; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUG 3; # nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # self.data.ledger[sp.sender].balance = sp.as_nat(self.data.ledger[sp.sender].balance - redeem_tokens.value, message = 'Insufficient balance') # nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET; # option (pair (map %approvals address nat) (nat %balance)) : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { @@ -2636,7 +2723,6 @@ code CDR; # nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SUB; # int : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) ISNAT; # option nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # option nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { PUSH string "Insufficient balance"; # string : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -2653,20 +2739,19 @@ code UNPAIR; # big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP; # big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP; # address : address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUG 2; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - GET; # option (pair (map %approvals address nat) (nat %balance)) : address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # @sender : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUG 2; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option (pair (map %approvals address nat) (nat %balance)) : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 171; # int : address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 171; # int : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DIG 8; # @some : @some : address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - UPDATE 2; # @some : address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SOME; # option (pair (map %approvals address nat) (nat %balance)) : address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SWAP; # address : option (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + {}; # @some : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 8; # @some : @some : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE 2; # @some : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SOME; # option (pair (map %approvals address nat) (nat %balance)) : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # @sender : option (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UPDATE; # big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # address : pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -2677,8 +2762,9 @@ code PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUG 2; # @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if False: + # sp.send(sp.sender, sp.mul(sp.set_type_expr(redeem_amount.value, sp.TNat), sp.mutez(1))) # list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CONTRACT unit; # option (contract unit) : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map %approvals address nat) (nat %balance))) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { @@ -2706,12 +2792,13 @@ code { IF_LEFT { + # == reduceReserves == + # sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN') # @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # address : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : address : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : address : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) COMPARE; # int : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) EQ; # bool : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF @@ -2720,6 +2807,7 @@ code PUSH string "CT_NOT_ADMIN"; # string : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') # @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -2736,6 +2824,7 @@ code FAILWITH; # FAILED }; # @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # self.data.activeOperations.add(12) # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -2750,26 +2839,25 @@ code PAIR; # pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # @parameter%reduceReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.transfer(sp.unit, sp.tez(0), sp.self_entrypoint('accrueInterest')) # @parameter%reduceReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) NIL operation; # list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SELF %accrueInterest; # @self : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # contract unit : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : contract unit : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - UNIT; # unit : mutez : contract unit : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 0; # mutez : @self : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNIT; # unit : mutez : @self : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CONS; # list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.transfer(params, sp.amount, sp.self_entrypoint('reduceReservesInternal')) # list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SELF %reduceReservesInternal; # @self : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # contract nat : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - AMOUNT; # @amount : contract nat : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # mutez : contract nat : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DIG 3; # @parameter%reduceReserves : mutez : contract nat : list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + AMOUNT; # @amount : @self : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 3; # @parameter%reduceReserves : @amount : @self : list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { + # == repayBorrow == + # sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SELF_ADDRESS; # @self : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SENDER; # @sender : address : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : address : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : @self : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) COMPARE; # int : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) NEQ; # bool : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF @@ -2778,18 +2866,18 @@ code PUSH string "CT_INTERNAL_CALL"; # string : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if ~ (self.data.ledger.contains(sp.sender)): # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) MEM; # bool : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - NOT; # bool : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # bool : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # self.data.ledger[sp.sender] = sp.record(approvals = {}, balance = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -2799,7 +2887,6 @@ code UNPAIR; # big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH (option (pair (map address nat) nat)) (Some (Pair {} 0)); # option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UPDATE; # big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # address : pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -2809,20 +2896,19 @@ code SWAP; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - } - {}; # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if ~ (self.data.borrows.contains(sp.sender)): # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) MEM; # bool : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - NOT; # bool : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # bool : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # self.data.borrows[sp.sender] = sp.record(interestIndex = 0, principal = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -2832,7 +2918,6 @@ code UNPAIR; # big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH (option (pair nat nat)) (Some (Pair 0 0)); # option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UPDATE; # big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair (big_map address (pair nat nat)) address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # nat : pair (big_map address (pair nat nat)) address : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -2842,8 +2927,8 @@ code PAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - } - {}; # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.transfer(sp.record(borrower = sp.sender, cToken = sp.self_address, payer = sp.sender, repayAmount = params), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, cToken = sp.TAddress, payer = sp.TAddress, repayAmount = sp.TNat).layout(("cToken", ("payer", ("borrower", "repayAmount")))), self.data.comptroller, entrypoint='repayBorrowAllowed').open_some()) # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) NIL operation; # list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP; # list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -2853,30 +2938,27 @@ code CONTRACT %repayBorrowAllowed (pair (address %cToken) (pair (address %payer) (pair (address %borrower) (nat %repayAmount)))); # option (contract (pair (address %cToken) (pair (address %payer) (pair (address %borrower) (nat %repayAmount))))) : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 276; # int : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 279; # int : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH mutez 0; # mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 5; # @parameter%repayBorrow : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : @parameter%repayBorrow : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : @parameter%repayBorrow : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SENDER; # @sender : address : @parameter%repayBorrow : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : address : @parameter%repayBorrow : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SELF_ADDRESS; # @self : address : address : @parameter%repayBorrow : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : address : address : @parameter%repayBorrow : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PAIR 4; # pair address (pair address (pair address @parameter%repayBorrow)) : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DIG 4; # list operation : pair address (pair address (pair address @parameter%repayBorrow)) : mutez : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DROP; # pair address (pair address (pair address @parameter%repayBorrow)) : mutez : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : @sender : @parameter%repayBorrow : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SELF_ADDRESS; # @self : @sender : @sender : @parameter%repayBorrow : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR 4; # pair @self (pair @sender (pair @sender @parameter%repayBorrow)) : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 4; # list operation : pair @self (pair @sender (pair @sender @parameter%repayBorrow)) : mutez : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # pair @self (pair @sender (pair @sender @parameter%repayBorrow)) : mutez : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CONS; # list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) LEVEL; # @level : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) COMPARE; # int : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) EQ; # bool : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF @@ -2885,29 +2967,31 @@ code PUSH string "CT_INTEREST_OLD"; # string : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # borrowBalance = sp.local("borrowBalance", 0) # list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if self.data.borrows.contains(sp.sender): # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # pair nat (pair (big_map address (pair nat nat)) address) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) MEM; # bool : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { + # borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[sp.sender]) # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # pair nat (pair (big_map address (pair nat nat)) address) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET; # option (pair nat nat) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 628; # int : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 638; # int : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if borrowSnapshot.value.principal > 0: # @some : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : @some : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # @some : nat : @some : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CDR; # nat : nat : @some : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -2917,6 +3001,7 @@ code { SWAP; # nat : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DROP; # @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP; # @some : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # nat : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -2929,7 +3014,7 @@ code EDIV; # option (pair nat nat) : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 631; # int : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 641; # int : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } { @@ -2941,232 +3026,194 @@ code }; # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } {}; # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 3; # @parameter%repayBorrow : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 2; # nat : @parameter%repayBorrow : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP; # nat : nat : @parameter%repayBorrow : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 3; # @parameter%repayBorrow : nat : nat : @parameter%repayBorrow : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : @parameter%repayBorrow : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - LE; # bool : nat : @parameter%repayBorrow : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # repayAmount = sp.local("repayAmount", sp.min(borrowBalance.value, params)) # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 2; # @parameter%repayBorrow : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # nat : @parameter%repayBorrow : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # nat : nat : @parameter%repayBorrow : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # @parameter%repayBorrow : nat : nat : @parameter%repayBorrow : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : @parameter%repayBorrow : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + LE; # bool : nat : @parameter%repayBorrow : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF + { + DROP; # @parameter%repayBorrow : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + } + { + SWAP; # @parameter%repayBorrow : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # actualRepayAmount = sp.local("actualRepayAmount", sp.min(repayAmount.value, self.data.totalBorrows)) # nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 7; # nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # nat : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # nat : nat : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # nat : nat : nat : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + LE; # bool : nat : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - DROP; # @parameter%repayBorrow : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - SWAP; # @parameter%repayBorrow : nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DROP; # nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - }; # nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PUSH mutez 1; # mutez : nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - AMOUNT; # @amount : mutez : nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat mutez) : nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # nat : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) > repayAmount.value: # nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # nat : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 1; # mutez : nat : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + AMOUNT; # @amount : mutez : nat : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat mutez) : nat : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - UNIT; # unit : nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNIT; # unit : nat : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CAR; # nat : nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - GT; # bool : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + {}; # @some : nat : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : nat : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GT; # bool : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - SWAP; # list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SENDER; # @sender : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CONTRACT unit; # option (contract unit) : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.send(sp.sender, sp.mul(sp.set_type_expr(sp.as_nat(sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) - repayAmount.value), sp.TNat), sp.mutez(1))) # nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 3; # list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONTRACT unit; # option (contract unit) : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 32; # int : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 32; # int : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PUSH mutez 1; # mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 5; # @parameter%repayBorrow : mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 5; # nat : @parameter%repayBorrow : mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP; # nat : nat : @parameter%repayBorrow : mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 3; # @parameter%repayBorrow : nat : nat : @parameter%repayBorrow : mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : @parameter%repayBorrow : mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - LE; # bool : nat : @parameter%repayBorrow : mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - IF - { - DROP; # @parameter%repayBorrow : mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - } - { - SWAP; # @parameter%repayBorrow : nat : mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DROP; # nat : mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - }; # nat : mutez : contract unit : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PUSH mutez 1; # mutez : nat : mutez : contract unit : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - AMOUNT; # @amount : mutez : nat : mutez : contract unit : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : nat : mutez : contract unit : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat mutez) : nat : mutez : contract unit : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + {}; # @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 1; # mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 5; # nat : mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 1; # mutez : nat : mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + AMOUNT; # @amount : mutez : nat : mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat mutez) : nat : mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - UNIT; # unit : nat : mutez : contract unit : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNIT; # unit : nat : mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : mutez : contract unit : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CAR; # nat : nat : mutez : contract unit : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SUB; # int : mutez : contract unit : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - ISNAT; # option nat : mutez : contract unit : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # option nat : mutez : contract unit : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + {}; # @some : nat : mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : nat : mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SUB; # int : mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ISNAT; # option nat : mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 32; # int : mutez : contract unit : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 32; # int : mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : mutez : contract unit : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - MUL; # mutez : contract unit : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - UNIT; # unit : mutez : contract unit : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CONS; # list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SWAP; # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + {}; # @some : mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MUL; # mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNIT; # unit : mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONS; # list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUG 3; # nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - DUP 3; # @parameter%repayBorrow : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 2; # nat : @parameter%repayBorrow : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP; # nat : nat : @parameter%repayBorrow : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 3; # @parameter%repayBorrow : nat : nat : @parameter%repayBorrow : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : @parameter%repayBorrow : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - LE; # bool : nat : @parameter%repayBorrow : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - IF - { - DROP; # @parameter%repayBorrow : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - } - { - SWAP; # @parameter%repayBorrow : nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DROP; # nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - }; # nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PUSH mutez 1; # mutez : nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - AMOUNT; # @amount : mutez : nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat mutez) : nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.verify(sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) == repayAmount.value, 'CT_INVALID_MUTEZ') # nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # nat : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 1; # mutez : nat : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + AMOUNT; # @amount : mutez : nat : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat mutez) : nat : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - UNIT; # unit : nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNIT; # unit : nat : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CAR; # nat : nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - EQ; # bool : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + {}; # @some : nat : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : nat : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EQ; # bool : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF {} { - PUSH string "CT_INVALID_MUTEZ"; # string : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH string "CT_INVALID_MUTEZ"; # string : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED - }; # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - }; # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DIG 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SWAP; # pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (pair (big_map address (pair nat nat)) address) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - UNPAIR; # nat : pair (big_map address (pair nat nat)) address : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map address (pair nat nat)) address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP; # big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SENDER; # @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP; # address : address : big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUG 2; # address : big_map address (pair nat nat) : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - GET; # option (pair nat nat) : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # self.data.borrows[sp.sender].principal = sp.as_nat(borrowBalance.value - repayAmount.value, message = 'SUBTRACTION_UNDERFLOW') # nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair nat (pair (big_map address (pair nat nat)) address) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # nat : pair (big_map address (pair nat nat)) address : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (big_map address (pair nat nat)) address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # @sender : @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUG 2; # @sender : big_map address (pair nat nat) : @sender : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option (pair nat nat) : @sender : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 263; # int : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 266; # int : @sender : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 11; # @parameter%repayBorrow : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 10; # nat : @parameter%repayBorrow : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP; # nat : nat : @parameter%repayBorrow : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 3; # @parameter%repayBorrow : nat : nat : @parameter%repayBorrow : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : @parameter%repayBorrow : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - LE; # bool : nat : @parameter%repayBorrow : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - IF - { - DROP; # @parameter%repayBorrow : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - } - { - SWAP; # @parameter%repayBorrow : nat : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DROP; # nat : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - }; # nat : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 10; # nat : nat : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SUB; # int : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - ISNAT; # option nat : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # option nat : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + {}; # @some : @sender : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 9; # nat : @some : @sender : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 10; # nat : nat : @some : @sender : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SUB; # int : @some : @sender : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ISNAT; # option nat : @some : @sender : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH string "SUBTRACTION_UNDERFLOW"; # string : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH string "SUBTRACTION_UNDERFLOW"; # string : @some : @sender : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - UPDATE 2; # @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SOME; # option (pair nat nat) : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SWAP; # address : option (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PAIR; # pair (big_map address (pair nat nat)) address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SWAP; # nat : pair (big_map address (pair nat nat)) address : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PAIR; # pair nat (pair (big_map address (pair nat nat)) address) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - GET 5; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SWAP; # pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (pair (big_map address (pair nat nat)) address) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - UNPAIR; # nat : pair (big_map address (pair nat nat)) address : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map address (pair nat nat)) address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP; # big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SENDER; # @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP; # address : address : big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUG 2; # address : big_map address (pair nat nat) : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - GET; # option (pair nat nat) : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + {}; # @some : @some : @sender : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE 2; # @some : @sender : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SOME; # option (pair nat nat) : @sender : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # @sender : option (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE; # big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (big_map address (pair nat nat)) address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # nat : pair (big_map address (pair nat nat)) address : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair nat (pair (big_map address (pair nat nat)) address) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # self.data.borrows[sp.sender].interestIndex = self.data.borrowIndex # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 5; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair nat (pair (big_map address (pair nat nat)) address) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # nat : pair (big_map address (pair nat nat)) address : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (big_map address (pair nat nat)) address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # @sender : @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUG 2; # @sender : big_map address (pair nat nat) : @sender : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option (pair nat nat) : @sender : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 265; # int : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 268; # int : @sender : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DIG 8; # nat : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - UPDATE 1; # @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SOME; # option (pair nat nat) : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SWAP; # address : option (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - UPDATE; # big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PAIR; # pair (big_map address (pair nat nat)) address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SWAP; # nat : pair (big_map address (pair nat nat)) address : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PAIR; # pair nat (pair (big_map address (pair nat nat)) address) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PAIR; # pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUG 3; # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DIG 2; # @parameter%repayBorrow : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SWAP; # nat : @parameter%repayBorrow : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP; # nat : nat : @parameter%repayBorrow : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 3; # @parameter%repayBorrow : nat : nat : @parameter%repayBorrow : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : @parameter%repayBorrow : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - LE; # bool : nat : @parameter%repayBorrow : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - IF - { - DROP; # @parameter%repayBorrow : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - } - { - SWAP; # @parameter%repayBorrow : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DROP; # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - }; # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + {}; # @some : @sender : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 8; # nat : @some : @sender : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE 1; # @some : @sender : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SOME; # option (pair nat nat) : @sender : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # @sender : option (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UPDATE; # big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (big_map address (pair nat nat)) address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # nat : pair (big_map address (pair nat nat)) address : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair nat (pair (big_map address (pair nat nat)) address) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUG 2; # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - actualRepayAmount.value, message = 'SUBTRACTION_UNDERFLOW') # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 7; # nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SUB; # int : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) ISNAT; # option nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # option nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -3177,17 +3224,17 @@ code SWAP; # @some : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UPDATE 7; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if self.data.borrows[sp.sender].principal == 0: # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # pair nat (pair (big_map address (pair nat nat)) address) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # big_map address (pair nat nat) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : big_map address (pair nat nat) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair nat nat) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET; # option (pair nat nat) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 268; # int : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 271; # int : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -3196,6 +3243,7 @@ code EQ; # bool : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { + # sp.transfer(sp.sender, sp.tez(0), sp.contract(sp.TAddress, self.data.comptroller, entrypoint='removeFromLoans').open_some()) # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # pair nat (pair (big_map address (pair nat nat)) address) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -3203,13 +3251,12 @@ code CONTRACT %removeFromLoans address; # option (contract address) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 270; # int : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 273; # int : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH mutez 0; # mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } @@ -3219,10 +3266,10 @@ code { IF_LEFT { + # == repayBorrowBehalf == + # sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SELF_ADDRESS; # @self : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SENDER; # @sender : address : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : address : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : @self : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) COMPARE; # int : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) NEQ; # bool : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF @@ -3231,18 +3278,18 @@ code PUSH string "CT_INTERNAL_CALL"; # string : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if ~ (self.data.ledger.contains(sp.sender)): # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) MEM; # bool : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - NOT; # bool : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # bool : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # self.data.ledger[sp.sender] = sp.record(approvals = {}, balance = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -3252,7 +3299,6 @@ code UNPAIR; # big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH (option (pair (map address nat) nat)) (Some (Pair {} 0)); # option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UPDATE; # big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # address : pair (big_map address (pair (map address nat) nat)) (big_map string bytes) : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -3262,20 +3308,19 @@ code SWAP; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - } - {}; # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if ~ (self.data.borrows.contains(sp.sender)): # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) MEM; # bool : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - NOT; # bool : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # bool : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # self.data.borrows[sp.sender] = sp.record(interestIndex = 0, principal = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -3285,7 +3330,6 @@ code UNPAIR; # big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH (option (pair nat nat)) (Some (Pair 0 0)); # option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UPDATE; # big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair (big_map address (pair nat nat)) address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # nat : pair (big_map address (pair nat nat)) address : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -3295,8 +3339,8 @@ code PAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - } - {}; # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.transfer(sp.record(borrower = params.borrower, cToken = sp.self_address, payer = sp.sender, repayAmount = params.repayAmount), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, cToken = sp.TAddress, payer = sp.TAddress, repayAmount = sp.TNat).layout(("cToken", ("payer", ("borrower", "repayAmount")))), self.data.comptroller, entrypoint='repayBorrowAllowed').open_some()) # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) NIL operation; # list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP; # list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -3306,7 +3350,7 @@ code CONTRACT %repayBorrowAllowed (pair (address %cToken) (pair (address %payer) (pair (address %borrower) (nat %repayAmount)))); # option (contract (pair (address %cToken) (pair (address %payer) (pair (address %borrower) (nat %repayAmount))))) : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 276; # int : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 279; # int : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -3316,21 +3360,19 @@ code DUP 6; # @parameter%repayBorrowBehalf : nat : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # address : nat : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : address : nat : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : address : nat : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SELF_ADDRESS; # @self : address : address : nat : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : address : address : nat : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PAIR 4; # pair address (pair address (pair address nat)) : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DIG 4; # list operation : pair address (pair address (pair address nat)) : mutez : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DROP; # pair address (pair address (pair address nat)) : mutez : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SELF_ADDRESS; # @self : @sender : address : nat : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR 4; # pair @self (pair @sender (pair address nat)) : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 4; # list operation : pair @self (pair @sender (pair address nat)) : mutez : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # pair @self (pair @sender (pair address nat)) : mutez : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CONS; # list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) LEVEL; # @level : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) COMPARE; # int : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) EQ; # bool : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF @@ -3339,7 +3381,9 @@ code PUSH string "CT_INTEREST_OLD"; # string : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # borrowBalance = sp.local("borrowBalance", 0) # list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if self.data.borrows.contains(params.borrower): # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # pair nat (pair (big_map address (pair nat nat)) address) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -3349,6 +3393,7 @@ code MEM; # bool : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { + # borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[params.borrower]) # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # pair nat (pair (big_map address (pair nat nat)) address) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -3358,10 +3403,11 @@ code GET; # option (pair nat nat) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 628; # int : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 638; # int : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if borrowSnapshot.value.principal > 0: # @some : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : @some : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # @some : nat : @some : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CDR; # nat : nat : @some : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -3371,6 +3417,7 @@ code { SWAP; # nat : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DROP; # @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP; # @some : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # nat : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -3383,7 +3430,7 @@ code EDIV; # option (pair nat nat) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 631; # int : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 641; # int : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } { @@ -3395,6 +3442,7 @@ code }; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } {}; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # repayAmount = sp.local("repayAmount", sp.min(borrowBalance.value, params.repayAmount)) # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # @parameter%repayBorrowBehalf : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CDR; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -3410,148 +3458,121 @@ code SWAP; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DROP; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) }; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PUSH mutez 1; # mutez : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - AMOUNT; # @amount : mutez : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat mutez) : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # actualRepayAmount = sp.local("actualRepayAmount", sp.min(repayAmount.value, self.data.totalBorrows)) # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 7; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # nat : nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # nat : nat : nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + LE; # bool : nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF + { + DROP; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + } + { + SWAP; # nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DROP; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) > repayAmount.value: # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 1; # mutez : nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + AMOUNT; # @amount : mutez : nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat mutez) : nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - UNIT; # unit : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNIT; # unit : nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CAR; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - GT; # bool : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + {}; # @some : nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GT; # bool : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { - SWAP; # list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SENDER; # @sender : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CONTRACT unit; # option (contract unit) : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.send(sp.sender, sp.mul(sp.set_type_expr(sp.as_nat(sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) - repayAmount.value), sp.TNat), sp.mutez(1))) # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 3; # list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONTRACT unit; # option (contract unit) : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 32; # int : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 32; # int : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PUSH mutez 1; # mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 5; # @parameter%repayBorrowBehalf : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CDR; # nat : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 5; # nat : nat : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP; # nat : nat : nat : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - LE; # bool : nat : nat : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - IF - { - DROP; # nat : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - } - { - SWAP; # nat : nat : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DROP; # nat : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - }; # nat : mutez : contract unit : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PUSH mutez 1; # mutez : nat : mutez : contract unit : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - AMOUNT; # @amount : mutez : nat : mutez : contract unit : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : nat : mutez : contract unit : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat mutez) : nat : mutez : contract unit : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + {}; # @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 1; # mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 5; # nat : mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 1; # mutez : nat : mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + AMOUNT; # @amount : mutez : nat : mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat mutez) : nat : mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - UNIT; # unit : nat : mutez : contract unit : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNIT; # unit : nat : mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : mutez : contract unit : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CAR; # nat : nat : mutez : contract unit : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SUB; # int : mutez : contract unit : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - ISNAT; # option nat : mutez : contract unit : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # option nat : mutez : contract unit : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + {}; # @some : nat : mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : nat : mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SUB; # int : mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + ISNAT; # option nat : mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 32; # int : mutez : contract unit : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 32; # int : mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : mutez : contract unit : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - MUL; # mutez : contract unit : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - UNIT; # unit : mutez : contract unit : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CONS; # list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SWAP; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + {}; # @some : mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + MUL; # mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNIT; # unit : mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CONS; # list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUG 3; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { - DUP 3; # @parameter%repayBorrowBehalf : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CDR; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 2; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP; # nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - LE; # bool : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - IF - { - DROP; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - } - { - SWAP; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DROP; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - }; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PUSH mutez 1; # mutez : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - AMOUNT; # @amount : mutez : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat mutez) : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.verify(sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) == repayAmount.value, 'CT_INVALID_MUTEZ') # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 1; # mutez : nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + AMOUNT; # @amount : mutez : nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EDIV; # option (pair nat mutez) : nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - UNIT; # unit : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNIT; # unit : nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CAR; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - EQ; # bool : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + {}; # @some : nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # nat : nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + COMPARE; # int : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + EQ; # bool : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF {} { - PUSH string "CT_INVALID_MUTEZ"; # string : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH string "CT_INVALID_MUTEZ"; # string : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED - }; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - }; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DIG 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - UNPAIR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SWAP; # pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - UNPAIR; # pair nat (pair (big_map address (pair nat nat)) address) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - UNPAIR; # nat : pair (big_map address (pair nat nat)) address : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SWAP; # pair (big_map address (pair nat nat)) address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - UNPAIR; # big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP; # big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 10; # @parameter%repayBorrowBehalf : big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CAR; # address : big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP; # address : address : big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUG 2; # address : big_map address (pair nat nat) : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - GET; # option (pair nat nat) : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # self.data.borrows[params.borrower].principal = sp.as_nat(borrowBalance.value - repayAmount.value, message = 'SUBTRACTION_UNDERFLOW') # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # pair nat (pair (big_map address (pair nat nat)) address) : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # nat : pair (big_map address (pair nat nat)) address : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # pair (big_map address (pair nat nat)) address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNPAIR; # big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 12; # @parameter%repayBorrowBehalf : big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # address : big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP; # address : address : big_map address (pair nat nat) : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUG 2; # address : big_map address (pair nat nat) : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option (pair nat nat) : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 263; # int : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 266; # int : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 11; # @parameter%repayBorrowBehalf : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CDR; # nat : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 10; # nat : nat : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP; # nat : nat : nat : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - LE; # bool : nat : nat : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - IF - { - DROP; # nat : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - } - { - SWAP; # nat : nat : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DROP; # nat : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - }; # nat : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 10; # nat : nat : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + {}; # @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 9; # nat : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 10; # nat : nat : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SUB; # int : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) ISNAT; # option nat : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # option nat : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -3569,6 +3590,7 @@ code SWAP; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # self.data.borrows[params.borrower].interestIndex = self.data.borrowIndex # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -3589,7 +3611,7 @@ code GET; # option (pair nat nat) : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 265; # int : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 268; # int : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : address : big_map address (pair nat nat) : address : nat : pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -3606,26 +3628,11 @@ code PAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUG 3; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 3; # @parameter%repayBorrowBehalf : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CDR; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SWAP; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - LE; # bool : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - IF - { - DROP; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - } - { - SWAP; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DROP; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - }; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - actualRepayAmount.value, message = 'SUBTRACTION_UNDERFLOW') # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 7; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SUB; # int : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) ISNAT; # option nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # option nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -3636,6 +3643,7 @@ code SWAP; # @some : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UPDATE 7; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUG 2; # list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if self.data.borrows[params.borrower].principal == 0: # list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -3646,7 +3654,7 @@ code GET; # option (pair nat nat) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 268; # int : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 271; # int : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -3655,6 +3663,7 @@ code EQ; # bool : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { + # sp.transfer(params.borrower, sp.tez(0), sp.contract(sp.TAddress, self.data.comptroller, entrypoint='removeFromLoans').open_some()) # list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # pair nat (pair (big_map address (pair nat nat)) address) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -3662,7 +3671,7 @@ code CONTRACT %removeFromLoans address; # option (contract address) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 270; # int : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 273; # int : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -3678,6 +3687,8 @@ code }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { + # == seize == + # if ~ (self.data.ledger.contains(params.liquidator)): # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -3685,11 +3696,11 @@ code DUP 2; # @parameter%seize : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) MEM; # bool : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - NOT; # bool : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # bool : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # self.data.ledger[params.liquidator] = sp.record(approvals = {}, balance = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -3709,8 +3720,8 @@ code SWAP; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - } - {}; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if ~ (self.data.borrows.contains(params.liquidator)): # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -3718,11 +3729,11 @@ code DUP 2; # @parameter%seize : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) MEM; # bool : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - NOT; # bool : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # bool : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # self.data.borrows[params.liquidator] = sp.record(interestIndex = 0, principal = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -3742,17 +3753,15 @@ code PAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - } - {}; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.verify(sp.view("seizeAllowed", sp.record(cTokenBorrowed = sp.sender, cTokenCollateral = sp.self_address), self.data.comptroller, sp.TBool).open_some(message = 'INVALID SEIZE ALLOWED VIEW'), 'CT_LIQUIDATE_SEIZE_COMPTROLLER_REJECTION') # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # pair nat (pair (big_map address (pair nat nat)) address) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 4; # address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SELF_ADDRESS; # @self : address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SENDER; # @sender : address : address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : address : address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PAIR; # pair address address : address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : @self : address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair @sender @self : address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) VIEW "seizeAllowed" bool; # option bool : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { @@ -3766,6 +3775,7 @@ code PUSH string "CT_LIQUIDATE_SEIZE_COMPTROLLER_REJECTION"; # string : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.verify(params.borrower != params.liquidator, 'CT_LIQUIDATE_SEIZE_LIQUIDATOR_IS_BORROWER') # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP; # @parameter%seize : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # @parameter%seize : address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -3778,13 +3788,13 @@ code PUSH string "CT_LIQUIDATE_SEIZE_LIQUIDATOR_IS_BORROWER"; # string : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) LEVEL; # @level : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) COMPARE; # int : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) EQ; # bool : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF @@ -3793,6 +3803,7 @@ code PUSH string "CT_INTEREST_OLD"; # string : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # protocolSeizeTokens = sp.local("protocolSeizeTokens", (params.seizeTokens * self.data.protocolSeizeShareMantissa) // self.data.expScale) # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 5; # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -3811,9 +3822,11 @@ code { CAR; # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) }; # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 8; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if self.data.totalSupply > 0: # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 10; # nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -3822,6 +3835,7 @@ code IF { DROP; # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 10; # nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -3833,6 +3847,7 @@ code PUSH string "DIVISION_BY_ZERO"; # string : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED }; # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # excRate.value = (sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 10; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -3845,7 +3860,6 @@ code PUSH nat 0; # nat : nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH mutez 1; # mutez : nat : nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) BALANCE; # @balance : mutez : nat : nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # mutez : mutez : nat : nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) EDIV; # option (pair nat mutez) : nat : nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { @@ -3856,7 +3870,6 @@ code CAR; # nat : nat : nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SUB; # int : nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) ISNAT; # option nat : nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -3866,10 +3879,9 @@ code ADD; # nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SUB; # int : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) ISNAT; # option nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 671; # int : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 681; # int : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -3885,6 +3897,7 @@ code }; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } {}; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # self.data.totalReserves += (excRate.value * protocolSeizeTokens.value) // self.data.expScale # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 9; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -3906,12 +3919,12 @@ code ADD; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UPDATE 9; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUG 2; # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # self.data.totalSupply = sp.as_nat(self.data.totalSupply - protocolSeizeTokens.value, message = 'SUBTRACTION_UNDERFLOW') # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 10; # nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SUB; # int : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) ISNAT; # option nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # option nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -3922,6 +3935,7 @@ code SWAP; # @some : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UPDATE 10; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUG 2; # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # self.data.ledger[params.borrower].balance = sp.as_nat(self.data.ledger[params.borrower].balance - params.seizeTokens, message = 'SUBTRACTION_UNDERFLOW') # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # @parameter%seize : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 4; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -3933,14 +3947,13 @@ code GET; # option (pair (map address nat) nat) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 307; # int : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 310; # int : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CDR; # nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SUB; # int : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) ISNAT; # option nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # option nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -3963,7 +3976,7 @@ code GET; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 334; # int : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 337; # int : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -3972,6 +3985,7 @@ code SOME; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # address : option (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UPDATE; # big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # self.data.ledger[params.liquidator].balance += sp.as_nat(params.seizeTokens - protocolSeizeTokens.value, message = 'SUBTRACTION_UNDERFLOW') # big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP; # big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 9; # @parameter%seize : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # address : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -3980,7 +3994,7 @@ code GET; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 335; # int : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 338; # int : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -3991,7 +4005,6 @@ code GET 4; # nat : nat : nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SUB; # int : nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) ISNAT; # option nat : nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # option nat : nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -4020,12 +4033,13 @@ code { IF_LEFT { + # == setInterestRateModel == + # sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN') # @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # address : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : address : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : address : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) COMPARE; # int : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) EQ; # bool : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF @@ -4034,6 +4048,7 @@ code PUSH string "CT_NOT_ADMIN"; # string : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') # @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -4050,6 +4065,7 @@ code FAILWITH; # FAILED }; # @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # self.data.activeOperations.add(9) # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -4064,29 +4080,30 @@ code PAIR; # pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # @parameter%setInterestRateModel : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.transfer(sp.unit, sp.tez(0), sp.self_entrypoint('accrueInterest')) # @parameter%setInterestRateModel : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) NIL operation; # list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SELF %accrueInterest; # @self : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # contract unit : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : contract unit : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - UNIT; # unit : mutez : contract unit : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 0; # mutez : @self : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNIT; # unit : mutez : @self : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CONS; # list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.transfer(params, sp.tez(0), sp.self_entrypoint('setInterestRateModelInternal')) # list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SELF %setInterestRateModelInternal; # @self : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # contract address : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : contract address : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DIG 3; # @parameter%setInterestRateModel : mutez : contract address : list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 0; # mutez : @self : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 3; # @parameter%setInterestRateModel : mutez : @self : list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { IF_LEFT { + # == setReserveFactor == + # sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN') # @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # address : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : address : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : address : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) COMPARE; # int : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) EQ; # bool : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF @@ -4095,6 +4112,7 @@ code PUSH string "CT_NOT_ADMIN"; # string : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') # @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -4111,6 +4129,7 @@ code FAILWITH; # FAILED }; # @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # self.data.activeOperations.add(10) # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -4125,21 +4144,23 @@ code PAIR; # pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # @parameter%setReserveFactor : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.transfer(sp.unit, sp.tez(0), sp.self_entrypoint('accrueInterest')) # @parameter%setReserveFactor : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) NIL operation; # list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SELF %accrueInterest; # @self : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # contract unit : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : contract unit : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - UNIT; # unit : mutez : contract unit : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 0; # mutez : @self : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + UNIT; # unit : mutez : @self : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CONS; # list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.transfer(params, sp.tez(0), sp.self_entrypoint('setReserveFactorInternal')) # list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SELF %setReserveFactorInternal; # @self : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # contract nat : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PUSH mutez 0; # mutez : contract nat : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DIG 3; # @parameter%setReserveFactor : mutez : contract nat : list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH mutez 0; # mutez : @self : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 3; # @parameter%setReserveFactor : mutez : @self : list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { + # == sweepFA12 == + # sp.transfer(sp.record(from_ = sp.self_address, to_ = self.data.administrator, value = params.amount), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), params.tokenAddress, entrypoint='transfer').open_some()) # @parameter%sweepFA12 : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) NIL operation; # list operation : @parameter%sweepFA12 : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # @parameter%sweepFA12 : list operation : @parameter%sweepFA12 : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CDR; # address : list operation : @parameter%sweepFA12 : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -4158,8 +4179,7 @@ code CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # address : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SELF_ADDRESS; # @self : address : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : address : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PAIR 3; # pair address (pair address nat) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR 3; # pair @self (pair address nat) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) }; # list operation : pair (pair (pair (pair nat (set nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -4170,6 +4190,8 @@ code { IF_LEFT { + # == sweepFA2 == + # sp.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(amount = params.amount, to_ = self.data.administrator, token_id = params.id)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), params.tokenAddress, entrypoint='transfer').open_some()) # @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) NIL operation; # list operation : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # @parameter%sweepFA2 : list operation : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 4; # address : list operation : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -4195,8 +4217,7 @@ code PAIR 3; # pair address (pair nat nat) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SELF_ADDRESS; # @self : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PAIR; # pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair @self (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -4209,10 +4230,11 @@ code { IF_LEFT { + # == transfer == + # sp.verify((params.from_ == sp.sender) | (self.data.ledger[params.from_].approvals[sp.sender] >= params.value), ('NotEnoughAllowance', (params.value, self.data.ledger[params.from_].approvals[sp.sender]))) # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 2; # @parameter%transfer : address : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CAR; # address : address : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # @parameter%transfer : @sender : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # address : @sender : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) COMPARE; # int : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) EQ; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF @@ -4231,17 +4253,16 @@ code GET; # option (pair (map %approvals address nat) (nat %balance)) : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 404; # int : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 407; # int : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # map address nat : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : map address nat : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : map address nat : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET; # option nat : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 404; # int : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 407; # int : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -4251,13 +4272,39 @@ code IF {} { - PUSH string "FA1.2_NotAllowed"; # string : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # verify # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # @parameter%transfer : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option (pair (map %approvals address nat) (nat %balance)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF_NONE + { + PUSH int 408; # int : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # map address nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : map address nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF_NONE + { + PUSH int 408; # int : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 2; # @parameter%transfer : @some : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 4; # nat : @some : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair nat @some : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH string "NotEnoughAllowance"; # string : pair nat @some : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair string (pair nat @some) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SELF_ADDRESS; # @self : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SENDER; # @sender : address : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : address : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SENDER; # @sender : @self : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) COMPARE; # int : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) NEQ; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF @@ -4266,6 +4313,7 @@ code PUSH string "CT_INTERNAL_CALL"; # string : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if ~ (self.data.ledger.contains(params.to_)): # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -4273,11 +4321,11 @@ code DUP 2; # @parameter%transfer : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) MEM; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - NOT; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # self.data.ledger[params.to_] = sp.record(approvals = {}, balance = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -4297,8 +4345,8 @@ code SWAP; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - } - {}; # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if ~ (self.data.borrows.contains(params.to_)): # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -4306,11 +4354,11 @@ code DUP 2; # @parameter%transfer : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) MEM; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - NOT; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # self.data.borrows[params.to_] = sp.record(interestIndex = 0, principal = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))) : pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -4330,8 +4378,8 @@ code PAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - } - {}; # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + }; # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.transfer(sp.record(cToken = sp.self_address, dst = params.to_, src = params.from_, transferTokens = params.value), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, dst = sp.TAddress, src = sp.TAddress, transferTokens = sp.TNat).layout((("cToken", "src"), ("dst", "transferTokens"))), self.data.comptroller, entrypoint='transferAllowed').open_some()) # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) NIL operation; # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -4340,7 +4388,7 @@ code CONTRACT %transferAllowed (pair (pair (address %cToken) (address %src)) (pair (address %dst) (nat %transferTokens))); # option (contract (pair (pair (address %cToken) (address %src)) (pair (address %dst) (nat %transferTokens)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 427; # int : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 431; # int : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -4353,11 +4401,11 @@ code DUP 5; # @parameter%transfer : pair address nat : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # address : pair address nat : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SELF_ADDRESS; # @self : address : pair address nat : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : address : pair address nat : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PAIR; # pair address address : pair address nat : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PAIR; # pair (pair address address) (pair address nat) : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair @self address : pair address nat : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair (pair @self address) (pair address nat) : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CONS; # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.verify(self.data.ledger[params.from_].balance >= params.value, ('NotEnoughBalance', (params.value, self.data.ledger[params.from_].balance))) # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # @parameter%transfer : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 4; # nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -4369,7 +4417,7 @@ code GET; # option (pair (map address nat) nat) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 413; # int : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 417; # int : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -4379,9 +4427,29 @@ code IF {} { - PUSH string "FA1.2_InsufficientBalance"; # string : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # verify # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes)) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 3; # big_map address (pair (map address nat) nat) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # @parameter%transfer : big_map address (pair (map address nat) nat) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # address : big_map address (pair (map address nat) nat) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET; # option (pair (map address nat) nat) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + IF_NONE + { + PUSH int 418; # int : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CDR; # nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # @parameter%transfer : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + GET 4; # nat : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair nat nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH string "NotEnoughBalance"; # string : pair nat nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PAIR; # pair string (pair nat nat) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # self.data.ledger[params.from_].balance = sp.as_nat(self.data.ledger[params.from_].balance - params.value) # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # @parameter%transfer : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 4; # nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -4393,17 +4461,16 @@ code GET; # option (pair (map address nat) nat) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 416; # int : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 420; # int : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CDR; # nat : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SUB; # int : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) ISNAT; # option nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # option nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 415; # int : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 419; # int : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -4423,7 +4490,7 @@ code GET; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 415; # int : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 419; # int : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @some : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -4432,6 +4499,7 @@ code SOME; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # address : option (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UPDATE; # big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # self.data.ledger[params.to_].balance += params.value # big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP; # big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 9; # @parameter%transfer : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # address : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -4440,7 +4508,7 @@ code GET; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 417; # int : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 421; # int : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -4461,14 +4529,15 @@ code SWAP; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUG 2; # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if params.from_ != sp.sender: # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 3; # @parameter%transfer : address : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CAR; # address : address : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DUP 3; # @parameter%transfer : @sender : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + CAR; # address : @sender : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) COMPARE; # int : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) NEQ; # bool : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { + # self.data.ledger[params.from_].approvals[sp.sender] = sp.as_nat(self.data.ledger[params.from_].approvals[sp.sender] - params.value) # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -4485,7 +4554,7 @@ code GET; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 419; # int : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 423; # int : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -4502,32 +4571,29 @@ code GET; # option (pair (map address nat) nat) : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 420; # int : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 424; # int : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # map address nat : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : map address nat : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : map address nat : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET; # option nat : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 420; # int : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 424; # int : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SUB; # int : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) ISNAT; # option nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # option nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 419; # int : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 423; # int : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SOME; # option nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : option nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : option nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UPDATE; # map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UPDATE 1; # @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SOME; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -4541,6 +4607,7 @@ code SWAP; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUG 2; # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if self.data.ledger[params.from_].approvals[sp.sender] == 0: # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -4551,17 +4618,16 @@ code GET; # option (pair (map address nat) nat) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 421; # int : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 425; # int : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # map address nat : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : map address nat : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : map address nat : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET; # option nat : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 421; # int : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 425; # int : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -4569,6 +4635,7 @@ code EQ; # bool : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { + # del self.data.ledger[params.from_].approvals[sp.sender] # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DIG 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -4585,7 +4652,7 @@ code GET; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 422; # int : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 426; # int : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -4593,7 +4660,6 @@ code CAR; # map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) NONE nat; # option nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : option nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : option nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UPDATE; # map address nat : @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UPDATE 1; # @some : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SOME; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : big_map string bytes : address : pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -4619,12 +4685,13 @@ code }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) } { + # == updateMetadata == + # sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN') # @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # address : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SENDER; # @sender : address : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # address : address : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) COMPARE; # int : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) EQ; # bool : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF @@ -4634,6 +4701,7 @@ code FAILWITH; # FAILED }; # @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%updateMetadata : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # self.data.metadata[params.key] = params.value # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%updateMetadata : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%updateMetadata : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%updateMetadata : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) UNPAIR; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter%updateMetadata : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -4678,6 +4746,7 @@ view "accrualBlockNumber" unit nat { GET 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + # sp.result(self.data.accrualBlockNumber) # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) CAR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) @@ -4687,7 +4756,9 @@ view "balanceOf" address nat { UNPAIR 3; # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # result = sp.local("result", 0) # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if self.data.ledger.contains(params): # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -4700,6 +4771,7 @@ view DIG 2; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) DROP; # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter + # result.value = self.data.ledger[params].balance # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : @parameter CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : @parameter GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter @@ -4707,7 +4779,7 @@ view GET; # option (pair (map %approvals address nat) (nat %balance)) IF_NONE { - PUSH int 503; # int + PUSH int 509; # int FAILWITH; # FAILED } {}; # @some @@ -4721,12 +4793,15 @@ view SWAP; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) : nat DROP; # nat }; # nat + # sp.result(result.value) # nat }; view - "borrowBalanceStoredView" address nat + "borrowBalanceStoredView" address (pair nat nat) { UNPAIR 3; # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # borrowBalance = sp.local("borrowBalance", 0) # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if self.data.borrows.contains(params): # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -4735,6 +4810,7 @@ view MEM; # bool : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF { + # borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[params]) # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 3; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -4743,10 +4819,11 @@ view GET; # option (pair (nat %interestIndex) (nat %principal)) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) IF_NONE { - PUSH int 628; # int : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 638; # int : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if borrowSnapshot.value.principal > 0: # @some : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : @some : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # @some : nat : @some : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CDR; # nat : nat : @some : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -4760,59 +4837,67 @@ view DROP; # @some : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DIG 2; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) : @some : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) DROP; # @some : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + # borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # @some : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) DUP; # @some : @some : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) CAR; # nat : @some : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - DIG 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some - CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @some - CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : nat : @some - GET 5; # nat : nat : @some - DIG 2; # @some : nat : nat - CDR; # nat : nat : nat - MUL; # nat : nat - EDIV; # option (pair nat nat) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @some : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : nat : @some : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 5; # nat : nat : @some : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DIG 2; # @some : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + CDR; # nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + MUL; # nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + EDIV; # option (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) IF_NONE { - PUSH int 631; # int + PUSH int 641; # int : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) FAILWITH; # FAILED } { - CAR; # nat - }; # nat + CAR; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + }; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) } { DROP; # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # @parameter : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DROP; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DROP; # nat : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SWAP; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) : nat - DROP; # nat - }; # nat + DIG 2; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + }; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) } { SWAP; # @parameter : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DROP; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DROP; # nat : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SWAP; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) : nat - DROP; # nat - }; # nat + DIG 2; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + }; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat + # sp.result((borrowBalance.value, self.data.accrualBlockNumber)) # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat + CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : nat + CAR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : nat + CAR; # nat : nat + SWAP; # nat : nat + PAIR; # pair nat nat }; view "comptroller" unit address { GET 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + # sp.result(self.data.comptroller) # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) GET 3; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) GET 4; # address }; view - "exchangeRateStoredView" unit nat + "exchangeRateStoredView" unit (pair nat nat) { UNPAIR 3; # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 8; # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if self.data.totalSupply > 0: # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) PUSH nat 0; # nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) GET 10; # nat : nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) @@ -4823,6 +4908,7 @@ view DROP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) SWAP; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) DROP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + # sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) PUSH nat 0; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) GET 10; # nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) @@ -4834,6 +4920,7 @@ view PUSH string "DIVISION_BY_ZERO"; # string : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) FAILWITH; # FAILED }; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + # excRate.value = (sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) GET 10; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) @@ -4841,262 +4928,304 @@ view GET 5; # nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) GET 9; # nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - DIG 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat - GET 7; # nat : nat : nat : nat - PUSH nat 0; # nat : nat : nat : nat : nat - PUSH mutez 1; # mutez : nat : nat : nat : nat : nat - BALANCE; # @balance : mutez : nat : nat : nat : nat : nat - RENAME; # mutez : mutez : nat : nat : nat : nat : nat - EDIV; # option (pair nat mutez) : nat : nat : nat : nat : nat + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 7; # nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + PUSH nat 0; # nat : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + PUSH mutez 1; # mutez : nat : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + BALANCE; # @balance : mutez : nat : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + EDIV; # option (pair nat mutez) : nat : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) IF_NONE { - UNIT; # unit : nat : nat : nat : nat : nat + UNIT; # unit : nat : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) FAILWITH; # FAILED } - {}; # @some : nat : nat : nat : nat : nat - CAR; # nat : nat : nat : nat : nat : nat - SUB; # int : nat : nat : nat : nat - ISNAT; # option nat : nat : nat : nat : nat - RENAME; # option nat : nat : nat : nat : nat + {}; # @some : nat : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # nat : nat : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + SUB; # int : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + ISNAT; # option nat : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) IF_NONE { - PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat + PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) FAILWITH; # FAILED } - {}; # @some : nat : nat : nat : nat - ADD; # nat : nat : nat : nat - SUB; # int : nat : nat - ISNAT; # option nat : nat : nat - RENAME; # option nat : nat : nat + {}; # @some : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + ADD; # nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + SUB; # int : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + ISNAT; # option nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) IF_NONE { - PUSH int 671; # int : nat : nat + PUSH int 681; # int : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) FAILWITH; # FAILED } - {}; # @some : nat : nat - MUL; # nat : nat - EDIV; # option (pair nat nat) + {}; # @some : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + MUL; # nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + EDIV; # option (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) IF_NONE { - PUSH int 257; # int + PUSH int 257; # int : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) FAILWITH; # FAILED } { - CAR; # nat - }; # nat + CAR; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + }; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) } { SWAP; # @parameter : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) DROP; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DROP; # nat : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SWAP; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) : nat - DROP; # nat - }; # nat + DIG 2; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + }; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat + # sp.result((excRate.value, self.data.accrualBlockNumber)) # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat + CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : nat + CAR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : nat + CAR; # nat : nat + SWAP; # nat : nat + PAIR; # pair nat nat }; view - "getAccountSnapshotView" address (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))) + "getAccountSnapshotView" address (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))) { UNPAIR 3; # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PUSH (pair nat nat) (Pair 0 0); # pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 3; # @parameter : nat : pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PAIR; # pair @parameter nat : pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PAIR; # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 3; # @parameter : big_map address (pair (map %approvals address nat) (nat %balance)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - MEM; # bool : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # if (self.data.accrualBlockNumber == sp.level) | (~ (self.data.ledger.contains(params))): # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + LEVEL; # @level : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + DIG 3; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) : @level : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # @level : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @level : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : @level : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : @level : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : @level : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # nat : @level : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + COMPARE; # int : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + EQ; # bool : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) IF { - DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CAR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CAR; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - LEVEL; # @level : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - RENAME; # nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - COMPARE; # int : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - EQ; # bool : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - IF - {} - { - PUSH string "CT_INTEREST_OLD"; # string : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - }; # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 3; # @parameter : big_map address (pair (map %approvals address nat) (nat %balance)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - GET; # option (pair (map %approvals address nat) (nat %balance)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - IF_NONE - { - PUSH int 573; # int : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - FAILWITH; # FAILED - } - {}; # @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CDR; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - UPDATE 3; # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - GET 3; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - GET 3; # big_map address (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 4; # @parameter : big_map address (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - MEM; # bool : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH bool True; # bool : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + } + { + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 2; # @parameter : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + MEM; # bool : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + NOT; # bool : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + }; # bool : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + IF + { + # compute_CToken_571 = sp.local("compute_CToken_571", sp.record(account = params, borrowBalance = 0, cTokenBalance = 0, exchangeRateMantissa = 0)) # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + PUSH (pair nat nat) (Pair 0 0); # pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + PUSH nat 0; # nat : pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # @parameter : nat : pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + PAIR; # pair @parameter nat : pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + PAIR; # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + # if self.data.ledger.contains(params): # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # @parameter : big_map address (pair (map %approvals address nat) (nat %balance)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + MEM; # bool : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) IF { - DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - GET 3; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - GET 3; # big_map address (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 4; # @parameter : big_map address (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - GET; # option (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (nat %accrualBlockNumber) (set %activeOperations nat) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + LEVEL; # @level : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + COMPARE; # int : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + EQ; # bool : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + IF + {} + { + PUSH string "CT_INTEREST_OLD"; # string : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + FAILWITH; # FAILED + }; # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + # compute_CToken_571.value.cTokenBalance = self.data.ledger[params].balance # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # big_map address (pair (map %approvals address nat) (nat %balance)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # @parameter : big_map address (pair (map %approvals address nat) (nat %balance)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + GET; # option (pair (map %approvals address nat) (nat %balance)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) IF_NONE { - PUSH int 628; # int : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 579; # int : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) FAILWITH; # FAILED } - {}; # @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 2; # @some : nat : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CDR; # nat : nat : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - COMPARE; # int : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - GT; # bool : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + {}; # @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + CDR; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + UPDATE 3; # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + # borrowBalance = sp.local("borrowBalance", 0) # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + PUSH nat 0; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + # if self.data.borrows.contains(params): # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # big_map address (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 4; # @parameter : big_map address (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + MEM; # bool : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) IF { - SWAP; # nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DROP; # @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP; # @some : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CAR; # nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - GET 5; # nat : nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DIG 2; # @some : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CDR; # nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - MUL; # nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - EDIV; # option (pair nat nat) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + # borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[params]) # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # big_map address (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 4; # @parameter : big_map address (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + GET; # option (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) IF_NONE { - PUSH int 631; # int : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + PUSH int 638; # int : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) FAILWITH; # FAILED } + {}; # @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + # if borrowSnapshot.value.principal > 0: # @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + PUSH nat 0; # nat : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 2; # @some : nat : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + CDR; # nat : nat : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + COMPARE; # int : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + GT; # bool : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + IF { - CAR; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - }; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) + SWAP; # nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + # borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP; # @some : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa))) : nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 5; # nat : nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DIG 2; # @some : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + CDR; # nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + MUL; # nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + EDIV; # option (pair nat nat) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + IF_NONE + { + PUSH int 641; # int : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + FAILWITH; # FAILED + } + { + CAR; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + }; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + } + { + DROP; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + }; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) } - { - DROP; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - }; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - } - {}; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SWAP; # pair (pair @parameter nat) (pair nat nat) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - UNPAIR; # pair @parameter nat : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CAR; # @parameter : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 3; # nat : @parameter : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SWAP; # @parameter : nat : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PAIR; # pair @parameter nat : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PAIR; # pair (pair @parameter nat) (pair nat nat) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SWAP; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - GET 8; # nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - PUSH nat 0; # nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - GET 10; # nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - COMPARE; # int : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - GT; # bool : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - IF - { - DROP 2; # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SWAP; # @parameter : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DROP; # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DIG 2; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - DROP; # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - PUSH nat 0; # nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - GET 10; # nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - COMPARE; # int : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - GT; # bool : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + {}; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + SWAP; # pair (pair @parameter nat) (pair nat nat) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + # compute_CToken_571.value.borrowBalance = borrowBalance.value # pair (pair @parameter nat) (pair nat nat) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + UNPAIR; # pair @parameter nat : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # @parameter : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # nat : @parameter : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + SWAP; # @parameter : nat : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + PAIR; # pair @parameter nat : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + PAIR; # pair (pair @parameter nat) (pair nat nat) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + SWAP; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + # excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 8; # nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + # if self.data.totalSupply > 0: # nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + PUSH nat 0; # nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 10; # nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + COMPARE; # int : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + GT; # bool : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) IF - {} - { - PUSH string "DIVISION_BY_ZERO"; # string : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - FAILWITH; # FAILED - }; # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - GET 10; # nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - GET 5; # nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - GET 9; # nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) - DIG 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - GET 7; # nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - PUSH nat 0; # nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - PUSH mutez 1; # mutez : nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - BALANCE; # @balance : mutez : nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - RENAME; # mutez : mutez : nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - EDIV; # option (pair nat mutez) : nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - IF_NONE - { - UNIT; # unit : nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - FAILWITH; # FAILED - } - {}; # @some : nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - CAR; # nat : nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - SUB; # int : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - ISNAT; # option nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - RENAME; # option nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - IF_NONE - { - PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - FAILWITH; # FAILED - } - {}; # @some : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - ADD; # nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - SUB; # int : nat : nat : pair (pair @parameter nat) (pair nat nat) - ISNAT; # option nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - RENAME; # option nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - IF_NONE { - PUSH int 671; # int : nat : nat : pair (pair @parameter nat) (pair nat nat) - FAILWITH; # FAILED - } - {}; # @some : nat : nat : pair (pair @parameter nat) (pair nat nat) - MUL; # nat : nat : pair (pair @parameter nat) (pair nat nat) - EDIV; # option (pair nat nat) : pair (pair @parameter nat) (pair nat nat) - IF_NONE - { - PUSH int 257; # int : pair (pair @parameter nat) (pair nat nat) - FAILWITH; # FAILED + DROP 2; # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + SWAP; # @parameter : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + # sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + PUSH nat 0; # nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 10; # nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + COMPARE; # int : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + GT; # bool : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + IF + {} + { + PUSH string "DIVISION_BY_ZERO"; # string : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + FAILWITH; # FAILED + }; # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + # excRate.value = (sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 10; # nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)))) : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 5; # nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 9; # nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DIG 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + GET 7; # nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + PUSH nat 0; # nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + PUSH mutez 1; # mutez : nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + BALANCE; # @balance : mutez : nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + EDIV; # option (pair nat mutez) : nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + IF_NONE + { + UNIT; # unit : nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + FAILWITH; # FAILED + } + {}; # @some : nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + CAR; # nat : nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + SUB; # int : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + ISNAT; # option nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + IF_NONE + { + PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + FAILWITH; # FAILED + } + {}; # @some : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + ADD; # nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + SUB; # int : nat : nat : pair (pair @parameter nat) (pair nat nat) + ISNAT; # option nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + IF_NONE + { + PUSH int 681; # int : nat : nat : pair (pair @parameter nat) (pair nat nat) + FAILWITH; # FAILED + } + {}; # @some : nat : nat : pair (pair @parameter nat) (pair nat nat) + MUL; # nat : nat : pair (pair @parameter nat) (pair nat nat) + EDIV; # option (pair nat nat) : pair (pair @parameter nat) (pair nat nat) + IF_NONE + { + PUSH int 257; # int : pair (pair @parameter nat) (pair nat nat) + FAILWITH; # FAILED + } + { + CAR; # nat : pair (pair @parameter nat) (pair nat nat) + }; # nat : pair (pair @parameter nat) (pair nat nat) } { - CAR; # nat : pair (pair @parameter nat) (pair nat nat) + SWAP; # nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DIG 2; # @parameter : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DIG 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) + DROP; # nat : pair (pair @parameter nat) (pair nat nat) }; # nat : pair (pair @parameter nat) (pair nat nat) + # compute_CToken_571.value.exchangeRateMantissa = excRate.value # nat : pair (pair @parameter nat) (pair nat nat) + UPDATE 4; # pair (pair @parameter nat) (pair nat nat) } { - SWAP; # nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DROP; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DIG 2; # @parameter : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DROP; # nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DIG 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DROP; # nat : pair (pair @parameter nat) (pair nat nat) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DIG 2; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) : nat : pair (pair @parameter nat) (pair nat nat) - DROP; # nat : pair (pair @parameter nat) (pair nat nat) - }; # nat : pair (pair @parameter nat) (pair nat nat) - UPDATE 4; # pair (pair @parameter nat) (pair nat nat) + SWAP; # @parameter : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) + DROP; # pair (pair @parameter nat) (pair nat nat) + }; # pair (pair @parameter nat) (pair nat nat) + # sp.result(sp.some(compute_CToken_571.value)) # pair (pair @parameter nat) (pair nat nat) + SOME; # option (pair (pair @parameter nat) (pair nat nat)) } { - SWAP; # @parameter : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DROP; # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (set %activeOperations nat)) (pair (address %administrator) (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)))) (pair (pair (nat %borrowRatePerBlock) (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (address %comptroller))) (pair (nat %expScale) (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa))))) (pair (pair (pair (address %interestRateModel) (pair (big_map %ledger address (pair (map %approvals address nat) (nat %balance))) (big_map %metadata string bytes))) (pair (option %pendingAdministrator address) (pair (nat %protocolSeizeShareMantissa) (nat %reserveFactorMantissa)))) (pair (pair (nat %reserveFactorMaxMantissa) (pair (nat %supplyRatePerBlock) (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - DROP; # pair (pair @parameter nat) (pair nat nat) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) - SWAP; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (set nat)) (pair address (pair nat nat))) (pair (pair nat (pair (big_map address (pair nat nat)) address)) (pair nat (pair nat nat)))) (pair (pair (pair address (pair (big_map address (pair (map address nat) nat)) (big_map string bytes))) (pair (option address) (pair nat nat))) (pair (pair nat (pair nat (big_map nat (pair nat (map string bytes))))) (pair nat (pair nat nat))))))) : pair (pair @parameter nat) (pair nat nat) - DROP; # pair (pair @parameter nat) (pair nat nat) - }; # pair (pair @parameter nat) (pair nat nat) + DROP 2; # + # sp.result(sp.none) # + NONE (pair (pair address nat) (pair nat nat)); # option (pair (pair address nat) (pair nat nat)) + }; # option (pair (pair address nat) (pair nat nat)) }; \ No newline at end of file diff --git a/compiled_contracts/CXTZ/step_000_cont_0_sizes.csv b/compiled_contracts/CXTZ/step_000_cont_0_sizes.csv index df3b1e08..acb0e8bd 100644 --- a/compiled_contracts/CXTZ/step_000_cont_0_sizes.csv +++ b/compiled_contracts/CXTZ/step_000_cont_0_sizes.csv @@ -1,2 +1,2 @@ -storage,4718 -contract,20582 \ No newline at end of file +storage,4906 +contract,20236 \ No newline at end of file diff --git a/compiled_contracts/CXTZ/step_000_cont_0_storage.json b/compiled_contracts/CXTZ/step_000_cont_0_storage.json index 7ee4d9d8..38876d5a 100644 --- a/compiled_contracts/CXTZ/step_000_cont_0_storage.json +++ b/compiled_contracts/CXTZ/step_000_cont_0_storage.json @@ -127,14 +127,13 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_SET_PENDING_ADMIN" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_PENDING_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "DUP" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "812" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "822" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, @@ -193,9 +192,7 @@ ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -217,7 +214,7 @@ ], "annots": [ "%getBorrowRate" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "744" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "754" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "9" } ] }, @@ -225,7 +222,6 @@ { "prim": "PAIR" }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, { "prim": "BALANCE" }, - { "prim": "RENAME" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, @@ -269,9 +265,7 @@ ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "NEQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -280,9 +274,86 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [], + [ + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { + "prim": "PUSH", + "args": [ + { "prim": "option", "args": [ { "prim": "pair", "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] } ] }, + { "prim": "Some", "args": [ { "prim": "Pair", "args": [ [], { "int": "0" } ] } ] } + ] + }, + { "prim": "SENDER" }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "SWAP" } + ] + ] + }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "SENDER" }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [], + [ + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { + "prim": "PUSH", + "args": [ + { "prim": "option", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }, + { "prim": "Some", "args": [ { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } ] } + ] + }, + { "prim": "SENDER" }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" } + ] + ] + }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "SENDER" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "454" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "460" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, @@ -298,9 +369,8 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "455" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "461" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "SIZE" }, { "prim": "COMPARE" }, @@ -308,16 +378,30 @@ ] ] }, - { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA1.2_MaxApprovalsReached" } ] }, { "prim": "FAILWITH" } ] ] }, + { + "prim": "IF", + "args": [ + [], + [ + { + "prim": "PUSH", + "args": [ + { "prim": "pair", "args": [ { "prim": "string" }, { "prim": "unit" } ] }, + { "prim": "Pair", "args": [ { "string": "FA1.2_MaxApprovalsReached" }, { "prim": "Unit" } ] } + ] + }, + { "prim": "FAILWITH" } + ] + ] + }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "457" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "463" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, @@ -338,7 +422,29 @@ ] ] }, - { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA1.2_UnsafeAllowanceChange" } ] }, { "prim": "FAILWITH" } ] ] }, + { + "prim": "IF", + "args": [ + [], + [ + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "SENDER" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "463" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] } ], [] ] }, + { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "UnsafeAllowanceChange" } ] }, + { "prim": "PAIR" }, + { "prim": "FAILWITH" } + ] + ] + }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, @@ -358,11 +464,10 @@ { "prim": "UNPAIR" }, { "prim": "DUP" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "462" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "468" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP" }, { "prim": "CAR" }, { "prim": "NONE", "args": [ { "prim": "nat" } ] }, @@ -392,11 +497,10 @@ { "prim": "UNPAIR" }, { "prim": "DUP" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "464" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "470" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP" }, { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "10" } ] }, @@ -450,7 +554,6 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_SENDER_NOT_IRM" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -491,11 +594,9 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "759" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "769" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "MUL" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, @@ -569,7 +670,6 @@ { "prim": "DROP" }, { "prim": "DIG", "args": [ { "int": "5" } ] }, { "prim": "DROP" }, - { "prim": "RENAME" }, { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "PAIR" }, @@ -618,7 +718,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -667,9 +766,7 @@ ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -699,7 +796,6 @@ { "prim": "DUP" }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, { "prim": "BALANCE" }, - { "prim": "RENAME" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, @@ -717,7 +813,6 @@ { "prim": "GET", "args": [ { "int": "9" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "SWAP" }, @@ -766,7 +861,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -822,7 +916,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -878,9 +971,7 @@ ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -946,7 +1037,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -1000,9 +1090,7 @@ ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -1035,7 +1123,6 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -1104,7 +1191,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, diff --git a/compiled_contracts/CXTZ/step_000_cont_0_storage.tz b/compiled_contracts/CXTZ/step_000_cont_0_storage.tz index cec49009..8dba240b 100644 --- a/compiled_contracts/CXTZ/step_000_cont_0_storage.tz +++ b/compiled_contracts/CXTZ/step_000_cont_0_storage.tz @@ -1 +1 @@ -(Pair (Pair (Pair (Pair (Pair 0 {}) (Pair "KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2" (Pair 1000000000000000000 800000000000))) (Pair (Pair 0 (Pair {} "KT1DiWBT6RBC97iWrvLHRzKL7AWQKorBiuRG")) (Pair 1000000000000000000 (Pair 500000000000000000 1000000000000000000)))) (Pair (Pair (Pair "KT1B7zvU7EXmPBHazHhtajHaw5swFFxWCEfd" (Pair {} {Elt "" 0x74657a6f732d73746f726167653a64617461; Elt "data" 0x7b226e616d65223a202254657a46696e20496e7465726573742d42656172696e672058545a222c20226465736372697074696f6e223a2022496e7465726573742d62656172696e6720746f6b656e20666f722054657a202858545a2920737570706c69656420746f207468652054657a46696e206c656e64696e672070726f746f636f6c2e222c202276657273696f6e223a2022332e30222c2022617574686f7273223a205b2254657a6f732046696e616e63652050726f746f636f6c225d2c2022686f6d6570616765223a202268747470733a2f2f74657a6f732e66696e616e6365222c2022696e7465726661636573223a205b22545a49502d303037222c2022545a49502d303136225d7d})) (Pair None (Pair 100000000000000 50000000000000000))) (Pair (Pair 1000000000000000000 (Pair 0 {Elt 0 (Pair 0 {Elt "decimals" 0x36; Elt "name" 0x54657a46696e20496e7465726573742d42656172696e672058545a; Elt "symbol" 0xea9cb058545a})})) (Pair 0 (Pair 0 0))))) {Elt 0 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; DUP; GET 3; GET 3; IF_NONE { PUSH string "CT_NOT_SET_PENDING_ADMIN"; FAILWITH } {}; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_PENDING_ADMIN"; FAILWITH }; DUP; GET 3; GET 3; IF_NONE { PUSH int 812; FAILWITH } {}; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; DIG 4; PAIR; SWAP; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 1 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; NIL operation; DUP 3; GET 3; CAR; CAR; CONTRACT %getBorrowRate (pair (pair (nat %borrows) (nat %cash)) (pair (contract %cb nat) (nat %reserves))); IF_NONE { PUSH int 744; FAILWITH } {}; PUSH mutez 0; DUP 5; GET 9; DIG 4; PAIR; PUSH mutez 1; BALANCE; RENAME; EDIV; IF_NONE { UNIT; FAILWITH } {}; CAR; DUP 6; GET 7; PAIR; PAIR; TRANSFER_TOKENS; CONS; PAIR }; Elt 2 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; RENAME; SENDER; RENAME; COMPARE; NEQ; IF {} { PUSH string "CT_INTERNAL_CALL"; FAILWITH }; DUP 2; GET 3; CAR; GET 3; SENDER; RENAME; GET; IF_NONE { PUSH int 454; FAILWITH } {}; CAR; DUP 2; CAR; MEM; IF { PUSH bool True } { PUSH nat 1000; DUP 3; GET 3; CAR; GET 3; SENDER; RENAME; GET; IF_NONE { PUSH int 455; FAILWITH } {}; CAR; SIZE; COMPARE; LT }; IF {} { PUSH string "FA1.2_MaxApprovalsReached"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; CAR; GET 3; SENDER; RENAME; GET; IF_NONE { PUSH int 457; FAILWITH } {}; CAR; DUP 3; CAR; GET; IF_NONE { PUSH nat 0 } {}; COMPARE; EQ; IF { PUSH bool True } { PUSH nat 0; DUP 2; CDR; COMPARE; EQ }; IF {} { PUSH string "FA1.2_UnsafeAllowanceChange"; FAILWITH }; PUSH nat 0; DUP 2; CDR; COMPARE; EQ; IF { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; DUP; SENDER; RENAME; DUP; DUG 2; GET; IF_NONE { PUSH int 462; FAILWITH } {}; DUP; CAR; NONE nat; DIG 10; CAR; UPDATE; UPDATE 1; SOME; SWAP; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR } { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; DUP; SENDER; RENAME; DUP; DUG 2; GET; IF_NONE { PUSH int 464; FAILWITH } {}; DUP; CAR; DUP 10; CDR; SOME; DIG 10; CAR; UPDATE; UPDATE 1; SOME; SWAP; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR }; NIL operation; PAIR }; Elt 3 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH }; DUP 2; GET 3; CAR; CAR; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_SENDER_NOT_IRM"; FAILWITH }; DUP 2; CAR; CAR; CAR; CDR; PUSH nat 8; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; PUSH bool False; PUSH nat 8; UPDATE; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; CAR; GET 6; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_BORROW_RATE"; FAILWITH }; DUP 2; CAR; CAR; CAR; CAR; LEVEL; RENAME; SUB; ISNAT; RENAME; IF_NONE { PUSH int 759; FAILWITH } {}; DUP 2; MUL; DUP 3; CAR; GET 5; DUP 4; GET 7; DUP 3; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; DUP 4; GET 7; DUP 2; ADD; DIG 4; SWAP; UPDATE 7; DUG 3; DUP 4; GET 9; DUP 5; CAR; GET 5; DUP 3; DUP 7; GET 3; GET 6; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; DIG 4; SWAP; UPDATE 9; DUG 3; DUP 4; CAR; CAR; GET 5; DUP 5; CAR; GET 5; DUP 6; CAR; CAR; GET 5; DUP 5; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; DIG 4; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; DIG 5; PAIR; SWAP; PAIR; SWAP; CDR; LEVEL; DIG 5; DROP; DIG 5; DROP; DIG 5; DROP; RENAME; PAIR; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 4 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } } } { PUSH int -1; FAILWITH }; DUP; CAR; CAR; GET 3; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; UNPAIR; UNPAIR; CAR; EMPTY_SET nat; SWAP; PAIR; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 5 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; CDR; PUSH nat 12; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; PUSH bool False; PUSH nat 12; UPDATE; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP; PUSH mutez 1; BALANCE; RENAME; EDIV; IF_NONE { UNIT; FAILWITH } {}; CAR; COMPARE; GE; IF {} { PUSH string "CT_INSUFFICIENT_CASH"; FAILWITH }; DUP 2; GET 9; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_REDUCE_AMOUNT"; FAILWITH }; DUP; DUP 3; GET 9; SUB; ISNAT; RENAME; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; DIG 2; SWAP; UPDATE 9; SWAP; NIL operation; DUP 3; CAR; CAR; GET 3; CONTRACT %receive unit; IF_NONE { PUSH string "bad contract destination"; FAILWITH } {}; PUSH mutez 1; DIG 3; MUL; UNIT; TRANSFER_TOKENS; CONS; PAIR }; Elt 6 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } }; DUP; CAR; CAR; GET 3; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 7 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } }; DUP 2; CAR; CAR; GET 3; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; NIL operation; PAIR }; Elt 8 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } }; SELF_ADDRESS; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; CDR; PUSH nat 9; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; PUSH bool False; PUSH nat 9; UPDATE; SWAP; PAIR; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; CDR; DIG 4; PAIR; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 9 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } }; DUP 2; CAR; CAR; GET 3; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; DIG 4; SOME; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 10 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } }; SELF_ADDRESS; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; CDR; PUSH nat 10; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; PUSH bool False; PUSH nat 10; UPDATE; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; CAR; CAR; CAR; LEVEL; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTEREST_OLD"; FAILWITH }; DUP 2; GET 5; CAR; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_RESERVE_FACTOR"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 11 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } }; DUP 2; CAR; CAR; GET 3; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; DIG 5; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }}) \ No newline at end of file +(Pair (Pair (Pair (Pair (Pair 0 {}) (Pair "KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2" (Pair 1000000000000000000 800000000000))) (Pair (Pair 0 (Pair {} "KT1DiWBT6RBC97iWrvLHRzKL7AWQKorBiuRG")) (Pair 1000000000000000000 (Pair 500000000000000000 1000000000000000000)))) (Pair (Pair (Pair "KT1B7zvU7EXmPBHazHhtajHaw5swFFxWCEfd" (Pair {} {Elt "" 0x74657a6f732d73746f726167653a64617461; Elt "data" 0x7b226e616d65223a202254657a46696e20496e7465726573742d42656172696e672058545a222c20226465736372697074696f6e223a2022496e7465726573742d62656172696e6720746f6b656e20666f722054657a202858545a2920737570706c69656420746f207468652054657a46696e206c656e64696e672070726f746f636f6c2e222c202276657273696f6e223a2022332e30222c2022617574686f7273223a205b2254657a6f732046696e616e63652050726f746f636f6c225d2c2022686f6d6570616765223a202268747470733a2f2f74657a6f732e66696e616e6365222c2022696e7465726661636573223a205b22545a49502d303037222c2022545a49502d303136225d7d})) (Pair None (Pair 100000000000000 50000000000000000))) (Pair (Pair 1000000000000000000 (Pair 0 {Elt 0 (Pair 0 {Elt "decimals" 0x36; Elt "name" 0x54657a46696e20496e7465726573742d42656172696e672058545a; Elt "symbol" 0xea9cb058545a})})) (Pair 0 (Pair 0 0))))) {Elt 0 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; DUP; GET 3; GET 3; IF_NONE { PUSH string "CT_NOT_SET_PENDING_ADMIN"; FAILWITH } {}; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_PENDING_ADMIN"; FAILWITH }; DUP; GET 3; GET 3; IF_NONE { PUSH int 822; FAILWITH } {}; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; DIG 4; PAIR; SWAP; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 1 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; NIL operation; DUP 3; GET 3; CAR; CAR; CONTRACT %getBorrowRate (pair (pair (nat %borrows) (nat %cash)) (pair (contract %cb nat) (nat %reserves))); IF_NONE { PUSH int 754; FAILWITH } {}; PUSH mutez 0; DUP 5; GET 9; DIG 4; PAIR; PUSH mutez 1; BALANCE; EDIV; IF_NONE { UNIT; FAILWITH } {}; CAR; DUP 6; GET 7; PAIR; PAIR; TRANSFER_TOKENS; CONS; PAIR }; Elt 2 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; SENDER; COMPARE; NEQ; IF {} { PUSH string "CT_INTERNAL_CALL"; FAILWITH }; DUP 2; GET 3; CAR; GET 3; SENDER; MEM; IF {} { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH (option (pair (map address nat) nat)) (Some (Pair {} 0)); SENDER; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR; SWAP }; DUP 2; CAR; GET 3; GET 3; SENDER; MEM; IF {} { SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH (option (pair nat nat)) (Some (Pair 0 0)); SENDER; UPDATE; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; SWAP }; DUP 2; GET 3; CAR; GET 3; SENDER; GET; IF_NONE { PUSH int 460; FAILWITH } {}; CAR; DUP 2; CAR; MEM; IF { PUSH bool True } { PUSH nat 1000; DUP 3; GET 3; CAR; GET 3; SENDER; GET; IF_NONE { PUSH int 461; FAILWITH } {}; CAR; SIZE; COMPARE; LT }; IF {} { PUSH (pair string unit) (Pair "FA1.2_MaxApprovalsReached" Unit); FAILWITH }; PUSH nat 0; DUP 3; GET 3; CAR; GET 3; SENDER; GET; IF_NONE { PUSH int 463; FAILWITH } {}; CAR; DUP 3; CAR; GET; IF_NONE { PUSH nat 0 } {}; COMPARE; EQ; IF { PUSH bool True } { PUSH nat 0; DUP 2; CDR; COMPARE; EQ }; IF {} { DUP 2; GET 3; CAR; GET 3; SENDER; GET; IF_NONE { PUSH int 463; FAILWITH } {}; CAR; DUP 2; CAR; GET; IF_NONE { PUSH nat 0 } {}; PUSH string "UnsafeAllowanceChange"; PAIR; FAILWITH }; PUSH nat 0; DUP 2; CDR; COMPARE; EQ; IF { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; DUP; SENDER; DUP; DUG 2; GET; IF_NONE { PUSH int 468; FAILWITH } {}; DUP; CAR; NONE nat; DIG 10; CAR; UPDATE; UPDATE 1; SOME; SWAP; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR } { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; DUP; SENDER; DUP; DUG 2; GET; IF_NONE { PUSH int 470; FAILWITH } {}; DUP; CAR; DUP 10; CDR; SOME; DIG 10; CAR; UPDATE; UPDATE 1; SOME; SWAP; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR }; NIL operation; PAIR }; Elt 3 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH }; DUP 2; GET 3; CAR; CAR; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_SENDER_NOT_IRM"; FAILWITH }; DUP 2; CAR; CAR; CAR; CDR; PUSH nat 8; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; PUSH bool False; PUSH nat 8; UPDATE; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; CAR; GET 6; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_BORROW_RATE"; FAILWITH }; DUP 2; CAR; CAR; CAR; CAR; LEVEL; SUB; ISNAT; IF_NONE { PUSH int 769; FAILWITH } {}; DUP 2; MUL; DUP 3; CAR; GET 5; DUP 4; GET 7; DUP 3; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; DUP 4; GET 7; DUP 2; ADD; DIG 4; SWAP; UPDATE 7; DUG 3; DUP 4; GET 9; DUP 5; CAR; GET 5; DUP 3; DUP 7; GET 3; GET 6; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; DIG 4; SWAP; UPDATE 9; DUG 3; DUP 4; CAR; CAR; GET 5; DUP 5; CAR; GET 5; DUP 6; CAR; CAR; GET 5; DUP 5; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; DIG 4; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; DIG 5; PAIR; SWAP; PAIR; SWAP; CDR; LEVEL; DIG 5; DROP; DIG 5; DROP; DIG 5; DROP; PAIR; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 4 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } } } { PUSH int -1; FAILWITH }; DUP; CAR; CAR; GET 3; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; UNPAIR; UNPAIR; CAR; EMPTY_SET nat; SWAP; PAIR; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 5 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; CDR; PUSH nat 12; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; PUSH bool False; PUSH nat 12; UPDATE; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP; PUSH mutez 1; BALANCE; EDIV; IF_NONE { UNIT; FAILWITH } {}; CAR; COMPARE; GE; IF {} { PUSH string "CT_INSUFFICIENT_CASH"; FAILWITH }; DUP 2; GET 9; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_REDUCE_AMOUNT"; FAILWITH }; DUP; DUP 3; GET 9; SUB; ISNAT; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; DIG 2; SWAP; UPDATE 9; SWAP; NIL operation; DUP 3; CAR; CAR; GET 3; CONTRACT %receive unit; IF_NONE { PUSH string "bad contract destination"; FAILWITH } {}; PUSH mutez 1; DIG 3; MUL; UNIT; TRANSFER_TOKENS; CONS; PAIR }; Elt 6 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } }; DUP; CAR; CAR; GET 3; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 7 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } }; DUP 2; CAR; CAR; GET 3; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; NIL operation; PAIR }; Elt 8 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } }; SELF_ADDRESS; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; CDR; PUSH nat 9; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; PUSH bool False; PUSH nat 9; UPDATE; SWAP; PAIR; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; CDR; DIG 4; PAIR; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 9 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } }; DUP 2; CAR; CAR; GET 3; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; DIG 4; SOME; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 10 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } }; SELF_ADDRESS; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; CDR; PUSH nat 10; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; PUSH bool False; PUSH nat 10; UPDATE; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; CAR; CAR; CAR; LEVEL; COMPARE; EQ; IF {} { PUSH string "CT_INTEREST_OLD"; FAILWITH }; DUP 2; GET 5; CAR; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_RESERVE_FACTOR"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 11 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } }; DUP 2; CAR; CAR; GET 3; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; DIG 5; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }}) \ No newline at end of file diff --git a/compiled_contracts/CXTZ/step_000_cont_0_types.py b/compiled_contracts/CXTZ/step_000_cont_0_types.py index 4866fc17..aaf482ed 100644 --- a/compiled_contracts/CXTZ/step_000_cont_0_types.py +++ b/compiled_contracts/CXTZ/step_000_cont_0_types.py @@ -1,6 +1,6 @@ import smartpy as sp tstorage = sp.TRecord(accrualBlockNumber = sp.TNat, activeOperations = sp.TSet(sp.TNat), administrator = sp.TAddress, borrowIndex = sp.TNat, borrowRateMaxMantissa = sp.TNat, borrowRatePerBlock = sp.TNat, borrows = sp.TBigMap(sp.TAddress, sp.TRecord(interestIndex = sp.TNat, principal = sp.TNat).layout(("interestIndex", "principal"))), comptroller = sp.TAddress, expScale = sp.TNat, halfExpScale = sp.TNat, initialExchangeRateMantissa = sp.TNat, interestRateModel = sp.TAddress, ledger = sp.TBigMap(sp.TAddress, sp.TRecord(approvals = sp.TMap(sp.TAddress, sp.TNat), balance = sp.TNat).layout(("approvals", "balance"))), metadata = sp.TBigMap(sp.TString, sp.TBytes), pendingAdministrator = sp.TOption(sp.TAddress), protocolSeizeShareMantissa = sp.TNat, reserveFactorMantissa = sp.TNat, reserveFactorMaxMantissa = sp.TNat, supplyRatePerBlock = sp.TNat, token_metadata = sp.TBigMap(sp.TNat, sp.TRecord(token_id = sp.TNat, token_info = sp.TMap(sp.TString, sp.TBytes)).layout(("token_id", "token_info"))), totalBorrows = sp.TNat, totalReserves = sp.TNat, totalSupply = sp.TNat).layout((((("accrualBlockNumber", "activeOperations"), ("administrator", ("borrowIndex", "borrowRateMaxMantissa"))), (("borrowRatePerBlock", ("borrows", "comptroller")), ("expScale", ("halfExpScale", "initialExchangeRateMantissa")))), ((("interestRateModel", ("ledger", "metadata")), ("pendingAdministrator", ("protocolSeizeShareMantissa", "reserveFactorMantissa"))), (("reserveFactorMaxMantissa", ("supplyRatePerBlock", "token_metadata")), ("totalBorrows", ("totalReserves", "totalSupply")))))) -tparameter = sp.TVariant(acceptGovernance = sp.TUnit, accrueInterest = sp.TUnit, accrueInterestInternal = sp.TContract(sp.TNat), addReserves = sp.TNat, addReservesInternal = sp.TRecord(addAmount = sp.TNat, originalSender = sp.TAddress).layout(("addAmount", "originalSender")), approve = sp.TRecord(spender = sp.TAddress, value = sp.TNat).layout(("spender", "value")), borrow = sp.TNat, borrowBalanceStored = sp.TPair(sp.TAddress, sp.TContract(sp.TNat)), doAccrueInterest = sp.TNat, exchangeRateStored = sp.TPair(sp.TUnit, sp.TContract(sp.TNat)), getAccountSnapshot = sp.TPair(sp.TAddress, sp.TContract(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))), getAllowance = sp.TPair(sp.TRecord(owner = sp.TAddress, spender = sp.TAddress).layout(("owner", "spender")), sp.TContract(sp.TNat)), getBalance = sp.TPair(sp.TAddress, sp.TContract(sp.TNat)), getBalanceOfUnderlying = sp.TPair(sp.TAddress, sp.TContract(sp.TNat)), getCash = sp.TPair(sp.TUnit, sp.TContract(sp.TNat)), getTotalSupply = sp.TPair(sp.TUnit, sp.TContract(sp.TNat)), hardResetOp = sp.TUnit, liquidateBorrow = sp.TRecord(borrower = sp.TAddress, cTokenCollateral = sp.TAddress, repayAmount = sp.TNat).layout(("borrower", ("cTokenCollateral", "repayAmount"))), mint = sp.TNat, redeem = sp.TNat, redeemUnderlying = sp.TNat, reduceReserves = sp.TNat, reduceReservesInternal = sp.TNat, removePendingGovernance = sp.TUnit, repayBorrow = sp.TNat, repayBorrowBehalf = sp.TRecord(borrower = sp.TAddress, repayAmount = sp.TNat).layout(("borrower", "repayAmount")), seize = sp.TRecord(borrower = sp.TAddress, liquidator = sp.TAddress, seizeTokens = sp.TNat).layout(("borrower", ("liquidator", "seizeTokens"))), setComptroller = sp.TAddress, setInterestRateModel = sp.TAddress, setInterestRateModelInternal = sp.TAddress, setPendingGovernance = sp.TAddress, setReserveFactor = sp.TNat, setReserveFactorInternal = sp.TNat, sweepFA12 = sp.TRecord(amount = sp.TNat, tokenAddress = sp.TAddress).layout(("amount", "tokenAddress")), sweepFA2 = sp.TRecord(amount = sp.TNat, id = sp.TNat, tokenAddress = sp.TAddress).layout(("amount", ("id", "tokenAddress"))), sweepMutez = sp.TBool, transfer = sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), updateMetadata = sp.TRecord(key = sp.TString, value = sp.TBytes).layout(("key", "value")), updateProtocolSeizeShare = sp.TNat).layout(((((("acceptGovernance", "accrueInterest"), ("accrueInterestInternal", "addReserves")), (("addReservesInternal", "approve"), ("borrow", ("borrowBalanceStored", "doAccrueInterest")))), ((("exchangeRateStored", "getAccountSnapshot"), ("getAllowance", ("getBalance", "getBalanceOfUnderlying"))), (("getCash", "getTotalSupply"), ("hardResetOp", ("liquidateBorrow", "mint"))))), (((("redeem", "redeemUnderlying"), ("reduceReserves", ("reduceReservesInternal", "removePendingGovernance"))), (("repayBorrow", "repayBorrowBehalf"), ("seize", ("setComptroller", "setInterestRateModel")))), ((("setInterestRateModelInternal", "setPendingGovernance"), ("setReserveFactor", ("setReserveFactorInternal", "sweepFA12"))), (("sweepFA2", "sweepMutez"), ("transfer", ("updateMetadata", "updateProtocolSeizeShare"))))))) +tparameter = sp.TVariant(acceptGovernance = sp.TUnit, accrueInterest = sp.TUnit, accrueInterestInternal = sp.TContract(sp.TNat), addReserves = sp.TNat, addReservesInternal = sp.TRecord(addAmount = sp.TNat, originalSender = sp.TAddress).layout(("addAmount", "originalSender")), approve = sp.TRecord(spender = sp.TAddress, value = sp.TNat).layout(("spender", "value")), borrow = sp.TNat, borrowBalanceStored = sp.TPair(sp.TAddress, sp.TContract(sp.TPair(sp.TNat, sp.TNat))), doAccrueInterest = sp.TNat, exchangeRateStored = sp.TPair(sp.TUnit, sp.TContract(sp.TPair(sp.TNat, sp.TNat))), getAccountSnapshot = sp.TPair(sp.TAddress, sp.TContract(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))), getAllowance = sp.TPair(sp.TRecord(owner = sp.TAddress, spender = sp.TAddress).layout(("owner", "spender")), sp.TContract(sp.TNat)), getBalance = sp.TPair(sp.TAddress, sp.TContract(sp.TNat)), getBalanceOfUnderlying = sp.TPair(sp.TAddress, sp.TContract(sp.TPair(sp.TNat, sp.TNat))), getCash = sp.TPair(sp.TUnit, sp.TContract(sp.TPair(sp.TNat, sp.TNat))), getTotalSupply = sp.TPair(sp.TUnit, sp.TContract(sp.TNat)), hardResetOp = sp.TUnit, liquidateBorrow = sp.TRecord(borrower = sp.TAddress, cTokenCollateral = sp.TAddress, repayAmount = sp.TNat).layout(("borrower", ("cTokenCollateral", "repayAmount"))), mint = sp.TNat, redeem = sp.TNat, redeemUnderlying = sp.TNat, reduceReserves = sp.TNat, reduceReservesInternal = sp.TNat, removePendingGovernance = sp.TUnit, repayBorrow = sp.TNat, repayBorrowBehalf = sp.TRecord(borrower = sp.TAddress, repayAmount = sp.TNat).layout(("borrower", "repayAmount")), seize = sp.TRecord(borrower = sp.TAddress, liquidator = sp.TAddress, seizeTokens = sp.TNat).layout(("borrower", ("liquidator", "seizeTokens"))), setComptroller = sp.TAddress, setInterestRateModel = sp.TAddress, setInterestRateModelInternal = sp.TAddress, setPendingGovernance = sp.TAddress, setReserveFactor = sp.TNat, setReserveFactorInternal = sp.TNat, sweepFA12 = sp.TRecord(amount = sp.TNat, tokenAddress = sp.TAddress).layout(("amount", "tokenAddress")), sweepFA2 = sp.TRecord(amount = sp.TNat, id = sp.TNat, tokenAddress = sp.TAddress).layout(("amount", ("id", "tokenAddress"))), sweepMutez = sp.TBool, transfer = sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), updateMetadata = sp.TRecord(key = sp.TString, value = sp.TBytes).layout(("key", "value")), updateProtocolSeizeShare = sp.TNat).layout(((((("acceptGovernance", "accrueInterest"), ("accrueInterestInternal", "addReserves")), (("addReservesInternal", "approve"), ("borrow", ("borrowBalanceStored", "doAccrueInterest")))), ((("exchangeRateStored", "getAccountSnapshot"), ("getAllowance", ("getBalance", "getBalanceOfUnderlying"))), (("getCash", "getTotalSupply"), ("hardResetOp", ("liquidateBorrow", "mint"))))), (((("redeem", "redeemUnderlying"), ("reduceReserves", ("reduceReservesInternal", "removePendingGovernance"))), (("repayBorrow", "repayBorrowBehalf"), ("seize", ("setComptroller", "setInterestRateModel")))), ((("setInterestRateModelInternal", "setPendingGovernance"), ("setReserveFactor", ("setReserveFactorInternal", "sweepFA12"))), (("sweepFA2", "sweepMutez"), ("transfer", ("updateMetadata", "updateProtocolSeizeShare"))))))) tprivates = { } -tviews = { "accrualBlockNumber": (sp.TUnit, sp.TNat), "balanceOf": (sp.TAddress, sp.TNat), "borrowBalanceStoredView": (sp.TAddress, sp.TNat), "comptroller": (sp.TUnit, sp.TAddress), "exchangeRateStoredView": (sp.TUnit, sp.TNat), "getAccountSnapshotView": (sp.TAddress, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))) } +tviews = { "accrualBlockNumber": (sp.TUnit, sp.TNat), "balanceOf": (sp.TAddress, sp.TNat), "borrowBalanceStoredView": (sp.TAddress, sp.TPair(sp.TNat, sp.TNat)), "comptroller": (sp.TUnit, sp.TAddress), "exchangeRateStoredView": (sp.TUnit, sp.TPair(sp.TNat, sp.TNat)), "getAccountSnapshotView": (sp.TAddress, sp.TOption(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))) } diff --git a/compiled_contracts/CXTZ_IRM/log.txt b/compiled_contracts/CXTZ_IRM/log.txt index 66fe28ae..501749bc 100644 --- a/compiled_contracts/CXTZ_IRM/log.txt +++ b/compiled_contracts/CXTZ_IRM/log.txt @@ -1,10 +1,10 @@ Creating contract KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 - -> (Pair 950642634 (Pair 76000000000 1000000000000000000)) - => ./TezFinBuild/compiled_contracts/CXTZ_IRM/step_000_cont_0_storage.tz 1 - => ./TezFinBuild/compiled_contracts/CXTZ_IRM/step_000_cont_0_storage.json 1 - => ./TezFinBuild/compiled_contracts/CXTZ_IRM/step_000_cont_0_sizes.csv 2 - => ./TezFinBuild/compiled_contracts/CXTZ_IRM/step_000_cont_0_storage.py 1 - => ./TezFinBuild/compiled_contracts/CXTZ_IRM/step_000_cont_0_types.py 7 - => ./TezFinBuild/compiled_contracts/CXTZ_IRM/step_000_cont_0_contract.tz 240 - => ./TezFinBuild/compiled_contracts/CXTZ_IRM/step_000_cont_0_contract.json 217 - => ./TezFinBuild/compiled_contracts/CXTZ_IRM/step_000_cont_0_contract.py 32 + -> (Pair 760514107 (Pair 334400000000 1000000000000000000)) + => ./compiled_contracts/CXTZ_IRM/step_000_cont_0_storage.tz 1 + => ./compiled_contracts/CXTZ_IRM/step_000_cont_0_storage.json 1 + => ./compiled_contracts/CXTZ_IRM/step_000_cont_0_sizes.csv 2 + => ./compiled_contracts/CXTZ_IRM/step_000_cont_0_storage.py 1 + => ./compiled_contracts/CXTZ_IRM/step_000_cont_0_types.py 7 + => ./compiled_contracts/CXTZ_IRM/step_000_cont_0_contract.tz 241 + => ./compiled_contracts/CXTZ_IRM/step_000_cont_0_contract.json 260 + => ./compiled_contracts/CXTZ_IRM/step_000_cont_0_contract.py 35 diff --git a/compiled_contracts/CXTZ_IRM/step_000_cont_0_contract.json b/compiled_contracts/CXTZ_IRM/step_000_cont_0_contract.json index da7d886a..d2db6b93 100644 --- a/compiled_contracts/CXTZ_IRM/step_000_cont_0_contract.json +++ b/compiled_contracts/CXTZ_IRM/step_000_cont_0_contract.json @@ -47,84 +47,55 @@ "prim": "code", "args": [ [ - { "prim": "UNPAIR" }, { - "prim": "IF_LEFT", + "prim": "LAMBDA", "args": [ + { + "prim": "pair", + "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ] + }, + { + "prim": "pair", + "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ] + }, [ - { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "UNPAIR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "COMPARE" }, - { "prim": "GT" }, - { - "prim": "IF", - "args": [ - [ - { "prim": "DROP" }, - { "prim": "DUP" }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "3" } ] }, - { "prim": "CAR" }, - { "prim": "CDR" }, - { "prim": "ADD" }, - { "prim": "SUB" }, - { "prim": "ISNAT" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "59" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP" }, - { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "COMPARE" }, - { "prim": "LT" }, - { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "IRM_INSUFFICIENT_CASH" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "MUL" }, - { "prim": "EDIV" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "61" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } - ], - [] - ] - }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, - { "prim": "DUP" }, - { "prim": "CAR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "MUL" }, { "prim": "EDIV" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "65" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "68" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] }, { "prim": "ADD" }, - { "prim": "NIL", "args": [ { "prim": "operation" } ] }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, - { "prim": "DIG", "args": [ { "int": "3" } ] }, - { "prim": "TRANSFER_TOKENS" }, - { "prim": "CONS" } - ], + { "prim": "PAIR" } + ] + ] + }, + { "prim": "SWAP" }, + { + "prim": "LAMBDA", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }, + { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } + ] + }, + { + "prim": "pair", + "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ] + }, [ + { "prim": "UNPAIR" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CAR" }, { "prim": "COMPARE" }, { "prim": "GT" }, { @@ -133,75 +104,147 @@ [ { "prim": "DROP" }, { "prim": "DUP" }, - { "prim": "GET", "args": [ { "int": "6" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, - { "prim": "CDR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "ADD" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "59" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "61" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "COMPARE" }, - { "prim": "LT" }, + { "prim": "GT" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "IRM_INSUFFICIENT_CASH" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "CAR" }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "MUL" }, { "prim": "EDIV" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "61" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "63" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], - [] + [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, - { "prim": "DUP" }, - { "prim": "CAR" }, - { "prim": "SWAP" }, + { "prim": "PAIR" } + ] + ] + }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { + "prim": "IF_LEFT", + "args": [ + [ + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "DIG", "args": [ { "int": "6" } ] }, + { "prim": "DIG", "args": [ { "int": "6" } ] }, + { "prim": "DIG", "args": [ { "int": "5" } ] }, { "prim": "DUP" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SWAP" }, { "prim": "DUP" }, + { "prim": "CAR" }, + { "prim": "CDR" }, + { "prim": "SWAP" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "prim": "SWAP" }, + { "prim": "DIG", "args": [ { "int": "6" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "PAIR" }, + { "prim": "EXEC" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, { "prim": "DUG", "args": [ { "int": "5" } ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, - { "prim": "MUL" }, - { "prim": "EDIV" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "65" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] }, - { "prim": "ADD" }, + { "prim": "SWAP" }, + { "prim": "DIG", "args": [ { "int": "5" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "PAIR" }, + { "prim": "EXEC" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "DUG", "args": [ { "int": "4" } ] }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ], + [ { "prim": "NIL", "args": [ { "prim": "operation" } ] }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, - { "prim": "DIG", "args": [ { "int": "6" } ] }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "8" } ] }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DIG", "args": [ { "int": "7" } ] }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "47" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DIG", "args": [ { "int": "6" } ] }, + { "prim": "DIG", "args": [ { "int": "9" } ] }, + { "prim": "DUP", "args": [ { "int": "10" } ] }, + { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "GET", "args": [ { "int": "6" } ] }, + { "prim": "DUP", "args": [ { "int": "10" } ] }, + { "prim": "CAR" }, + { "prim": "CDR" }, + { "prim": "DUP", "args": [ { "int": "11" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "prim": "SWAP" }, + { "prim": "DIG", "args": [ { "int": "10" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "PAIR" }, + { "prim": "EXEC" }, + { "prim": "UNPAIR" }, + { "prim": "DIG", "args": [ { "int": "10" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "DUG", "args": [ { "int": "10" } ] }, + { "prim": "DUG", "args": [ { "int": "10" } ] }, + { "prim": "SWAP" }, + { "prim": "DIG", "args": [ { "int": "9" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "PAIR" }, + { "prim": "EXEC" }, + { "prim": "UNPAIR" }, + { "prim": "DIG", "args": [ { "int": "9" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "DUG", "args": [ { "int": "9" } ] }, + { "prim": "DUG", "args": [ { "int": "9" } ] }, { "prim": "MUL" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "52" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] }, - { "prim": "DIG", "args": [ { "int": "5" } ] }, + { "prim": "DIG", "args": [ { "int": "7" } ] }, + { "prim": "DIG", "args": [ { "int": "6" } ] }, + { "prim": "DUP" }, + { "prim": "GET", "args": [ { "int": "6" } ] }, + { "prim": "SWAP" }, + { "prim": "DUP" }, + { "prim": "CAR" }, + { "prim": "CDR" }, + { "prim": "SWAP" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "PAIR", "args": [ { "int": "3" } ] }, + { "prim": "SWAP" }, + { "prim": "DIG", "args": [ { "int": "7" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "PAIR" }, + { "prim": "EXEC" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "DUG", "args": [ { "int": "6" } ] }, { "prim": "MUL" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "53" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] }, diff --git a/compiled_contracts/CXTZ_IRM/step_000_cont_0_contract.py b/compiled_contracts/CXTZ_IRM/step_000_cont_0_contract.py index 4b75e3f3..06c2ee51 100644 --- a/compiled_contracts/CXTZ_IRM/step_000_cont_0_contract.py +++ b/compiled_contracts/CXTZ_IRM/step_000_cont_0_contract.py @@ -3,30 +3,33 @@ class Contract(sp.Contract): def __init__(self): self.init_type(sp.TRecord(baseRatePerBlock = sp.TNat, multiplierPerBlock = sp.TNat, scale = sp.TNat).layout(("baseRatePerBlock", ("multiplierPerBlock", "scale")))) - self.init(baseRatePerBlock = 950642634, - multiplierPerBlock = 76000000000, + self.init(baseRatePerBlock = 760514107, + multiplierPerBlock = 334400000000, scale = 1000000000000000000) - @sp.entry_point + @sp.entrypoint def getBorrowRate(self, params): sp.set_type(params, sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserves = sp.TNat).layout((("borrows", "cash"), ("cb", "reserves")))) - ur = sp.local("ur", 0) - sp.if params.borrows > 0: - compute_InterestRateModel_59 = sp.local("compute_InterestRateModel_59", sp.as_nat((params.cash + params.borrows) - params.reserves)) - sp.verify(compute_InterestRateModel_59.value > 0, 'IRM_INSUFFICIENT_CASH') - ur.value = (params.borrows * self.data.scale) // compute_InterestRateModel_59.value - compute_InterestRateModel_65 = sp.local("compute_InterestRateModel_65", ((ur.value * self.data.multiplierPerBlock) // self.data.scale) + self.data.baseRatePerBlock) - sp.transfer(compute_InterestRateModel_65.value, sp.tez(0), params.cb) + sp.transfer(self.calculateBorrowRate(self.utilizationRate(sp.record(borrows = params.borrows, cash = params.cash, reserves = params.reserves))), sp.tez(0), params.cb) - @sp.entry_point + @sp.entrypoint def getSupplyRate(self, params): sp.set_type(params, sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserveFactorMantissa = sp.TNat, reserves = sp.TNat).layout((("borrows", "cash"), ("cb", ("reserveFactorMantissa", "reserves"))))) + sp.transfer((self.utilizationRate(sp.record(borrows = params.borrows, cash = params.cash, reserves = params.reserves)) * ((self.calculateBorrowRate(self.utilizationRate(sp.record(borrows = params.borrows, cash = params.cash, reserves = params.reserves))) * sp.as_nat(self.data.scale - params.reserveFactorMantissa)) // self.data.scale)) // self.data.scale, sp.tez(0), params.cb) + + @sp.private_lambda() + def calculateBorrowRate(_x0): + compute_InterestRateModel_68 = sp.local("compute_InterestRateModel_68", ((_x0 * self.data.multiplierPerBlock) // self.data.scale) + self.data.baseRatePerBlock) + sp.result(compute_InterestRateModel_68.value) + + @sp.private_lambda() + def utilizationRate(_x2): + sp.set_type(_x2, sp.TRecord(borrows = sp.TNat, cash = sp.TNat, reserves = sp.TNat).layout(("borrows", ("cash", "reserves")))) ur = sp.local("ur", 0) - sp.if params.borrows > 0: - compute_InterestRateModel_59 = sp.local("compute_InterestRateModel_59", sp.as_nat((params.cash + params.borrows) - params.reserves)) - sp.verify(compute_InterestRateModel_59.value > 0, 'IRM_INSUFFICIENT_CASH') - ur.value = (params.borrows * self.data.scale) // compute_InterestRateModel_59.value - compute_InterestRateModel_65 = sp.local("compute_InterestRateModel_65", ((ur.value * self.data.multiplierPerBlock) // self.data.scale) + self.data.baseRatePerBlock) - sp.transfer((ur.value * ((compute_InterestRateModel_65.value * sp.as_nat(self.data.scale - params.reserveFactorMantissa)) // self.data.scale)) // self.data.scale, sp.tez(0), params.cb) + sp.if _x2.borrows > 0: + compute_InterestRateModel_61 = sp.local("compute_InterestRateModel_61", sp.as_nat((_x2.cash + _x2.borrows) - _x2.reserves)) + sp.verify(compute_InterestRateModel_61.value > 0, 'IRM_INSUFFICIENT_CASH') + ur.value = (_x2.borrows * self.data.scale) // compute_InterestRateModel_61.value + sp.result(ur.value) sp.add_compilation_target("test", Contract()) \ No newline at end of file diff --git a/compiled_contracts/CXTZ_IRM/step_000_cont_0_contract.tz b/compiled_contracts/CXTZ_IRM/step_000_cont_0_contract.tz index aaf5c8b6..3497a27c 100644 --- a/compiled_contracts/CXTZ_IRM/step_000_cont_0_contract.tz +++ b/compiled_contracts/CXTZ_IRM/step_000_cont_0_contract.tz @@ -2,239 +2,240 @@ parameter (or (pair %getBorrowRate (pair (nat %borrows) (nat %cash)) (pair (cont storage (pair (nat %baseRatePerBlock) (pair (nat %multiplierPerBlock) (nat %scale))); code { - UNPAIR; # @parameter : @storage - IF_LEFT + # Private variable: calculateBorrowRate # pair @parameter @storage + LAMBDA + (pair nat (pair nat (pair nat nat))) + (pair nat (pair nat (pair nat nat))) { - # == getBorrowRate == - # ur = sp.local("ur", 0) # @parameter%getBorrowRate : @storage - PUSH nat 0; # nat : @parameter%getBorrowRate : @storage - # if params.borrows > 0: # nat : @parameter%getBorrowRate : @storage - PUSH nat 0; # nat : nat : @parameter%getBorrowRate : @storage - DUP 3; # @parameter%getBorrowRate : nat : nat : @parameter%getBorrowRate : @storage - CAR; # pair (nat %borrows) (nat %cash) : nat : nat : @parameter%getBorrowRate : @storage - CAR; # nat : nat : nat : @parameter%getBorrowRate : @storage - COMPARE; # int : nat : @parameter%getBorrowRate : @storage - GT; # bool : nat : @parameter%getBorrowRate : @storage - IF - { - DROP; # @parameter%getBorrowRate : @storage - # compute_InterestRateModel_59 = sp.local("compute_InterestRateModel_59", sp.as_nat((params.cash + params.borrows) - params.reserves)) # @parameter%getBorrowRate : @storage - DUP; # @parameter%getBorrowRate : @parameter%getBorrowRate : @storage - GET 4; # nat : @parameter%getBorrowRate : @storage - SWAP; # @parameter%getBorrowRate : nat : @storage - DUP; # @parameter%getBorrowRate : @parameter%getBorrowRate : nat : @storage - CAR; # pair (nat %borrows) (nat %cash) : @parameter%getBorrowRate : nat : @storage - CAR; # nat : @parameter%getBorrowRate : nat : @storage - SWAP; # @parameter%getBorrowRate : nat : nat : @storage - DUP; # @parameter%getBorrowRate : @parameter%getBorrowRate : nat : nat : @storage - DUG 3; # @parameter%getBorrowRate : nat : nat : @parameter%getBorrowRate : @storage - CAR; # pair (nat %borrows) (nat %cash) : nat : nat : @parameter%getBorrowRate : @storage - CDR; # nat : nat : nat : @parameter%getBorrowRate : @storage - ADD; # nat : nat : @parameter%getBorrowRate : @storage - SUB; # int : @parameter%getBorrowRate : @storage - ISNAT; # option nat : @parameter%getBorrowRate : @storage - IF_NONE - { - PUSH int 59; # int : @parameter%getBorrowRate : @storage - FAILWITH; # FAILED - } - {}; # @some : @parameter%getBorrowRate : @storage - # sp.verify(compute_InterestRateModel_59.value > 0, 'IRM_INSUFFICIENT_CASH') # @some : @parameter%getBorrowRate : @storage - DUP; # @some : @some : @parameter%getBorrowRate : @storage - PUSH nat 0; # nat : @some : @some : @parameter%getBorrowRate : @storage - COMPARE; # int : @some : @parameter%getBorrowRate : @storage - LT; # bool : @some : @parameter%getBorrowRate : @storage - IF - {} - { - PUSH string "IRM_INSUFFICIENT_CASH"; # string : @some : @parameter%getBorrowRate : @storage - FAILWITH; # FAILED - }; # @some : @parameter%getBorrowRate : @storage - # ur.value = (params.borrows * self.data.scale) // compute_InterestRateModel_59.value # @some : @parameter%getBorrowRate : @storage - DUP 3; # @storage : @some : @parameter%getBorrowRate : @storage - GET 4; # nat : @some : @parameter%getBorrowRate : @storage - DUP 3; # @parameter%getBorrowRate : nat : @some : @parameter%getBorrowRate : @storage - CAR; # pair (nat %borrows) (nat %cash) : nat : @some : @parameter%getBorrowRate : @storage - CAR; # nat : nat : @some : @parameter%getBorrowRate : @storage - MUL; # nat : @some : @parameter%getBorrowRate : @storage - EDIV; # option (pair nat nat) : @parameter%getBorrowRate : @storage - IF_NONE - { - PUSH int 61; # int : @parameter%getBorrowRate : @storage - FAILWITH; # FAILED - } - { - CAR; # nat : @parameter%getBorrowRate : @storage - }; # nat : @parameter%getBorrowRate : @storage - } - {}; # nat : @parameter%getBorrowRate : @storage - # compute_InterestRateModel_65 = sp.local("compute_InterestRateModel_65", ((ur.value * self.data.multiplierPerBlock) // self.data.scale) + self.data.baseRatePerBlock) # nat : @parameter%getBorrowRate : @storage - DIG 2; # @storage : nat : @parameter%getBorrowRate - DUP; # @storage : @storage : nat : @parameter%getBorrowRate - CAR; # nat : @storage : nat : @parameter%getBorrowRate - SWAP; # @storage : nat : nat : @parameter%getBorrowRate - DUP; # @storage : @storage : nat : nat : @parameter%getBorrowRate - GET 4; # nat : @storage : nat : nat : @parameter%getBorrowRate - SWAP; # @storage : nat : nat : nat : @parameter%getBorrowRate - DUP; # @storage : @storage : nat : nat : nat : @parameter%getBorrowRate - DUG 5; # @storage : nat : nat : nat : @parameter%getBorrowRate : @storage - GET 3; # nat : nat : nat : nat : @parameter%getBorrowRate : @storage - DIG 3; # nat : nat : nat : nat : @parameter%getBorrowRate : @storage - MUL; # nat : nat : nat : @parameter%getBorrowRate : @storage - EDIV; # option (pair nat nat) : nat : @parameter%getBorrowRate : @storage + UNPAIR; # nat : pair nat (pair nat nat) + # compute_InterestRateModel_68 = sp.local("compute_InterestRateModel_68", ((_x0 * self.data.multiplierPerBlock) // self.data.scale) + self.data.baseRatePerBlock) # nat : pair nat (pair nat nat) + DUP 2; # pair nat (pair nat nat) : nat : pair nat (pair nat nat) + CAR; # nat : nat : pair nat (pair nat nat) + DUP 3; # pair nat (pair nat nat) : nat : nat : pair nat (pair nat nat) + GET 4; # nat : nat : nat : pair nat (pair nat nat) + DUP 4; # pair nat (pair nat nat) : nat : nat : nat : pair nat (pair nat nat) + GET 3; # nat : nat : nat : nat : pair nat (pair nat nat) + DIG 3; # nat : nat : nat : nat : pair nat (pair nat nat) + MUL; # nat : nat : nat : pair nat (pair nat nat) + EDIV; # option (pair nat nat) : nat : pair nat (pair nat nat) IF_NONE { - PUSH int 65; # int : nat : @parameter%getBorrowRate : @storage + PUSH int 68; # int : nat : pair nat (pair nat nat) FAILWITH; # FAILED } { - CAR; # nat : nat : @parameter%getBorrowRate : @storage - }; # nat : nat : @parameter%getBorrowRate : @storage - ADD; # nat : @parameter%getBorrowRate : @storage - # sp.transfer(compute_InterestRateModel_65.value, sp.tez(0), params.cb) # nat : @parameter%getBorrowRate : @storage - NIL operation; # list operation : nat : @parameter%getBorrowRate : @storage - DIG 2; # @parameter%getBorrowRate : list operation : nat : @storage - GET 3; # contract nat : list operation : nat : @storage - PUSH mutez 0; # mutez : contract nat : list operation : nat : @storage - DIG 3; # nat : mutez : contract nat : list operation : @storage - TRANSFER_TOKENS; # operation : list operation : @storage - CONS; # list operation : @storage - } + CAR; # nat : nat : pair nat (pair nat nat) + }; # nat : nat : pair nat (pair nat nat) + ADD; # nat : pair nat (pair nat nat) + # sp.result(compute_InterestRateModel_68.value) # nat : pair nat (pair nat nat) + PAIR; # pair nat (pair nat (pair nat nat)) + }; # lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : pair @parameter @storage + SWAP; # pair @parameter @storage : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + # Private variable: utilizationRate # pair @parameter @storage : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + LAMBDA + (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) + (pair nat (pair nat (pair nat nat))) { - # == getSupplyRate == - # ur = sp.local("ur", 0) # @parameter%getSupplyRate : @storage - PUSH nat 0; # nat : @parameter%getSupplyRate : @storage - # if params.borrows > 0: # nat : @parameter%getSupplyRate : @storage - PUSH nat 0; # nat : nat : @parameter%getSupplyRate : @storage - DUP 3; # @parameter%getSupplyRate : nat : nat : @parameter%getSupplyRate : @storage - CAR; # pair (nat %borrows) (nat %cash) : nat : nat : @parameter%getSupplyRate : @storage - CAR; # nat : nat : nat : @parameter%getSupplyRate : @storage - COMPARE; # int : nat : @parameter%getSupplyRate : @storage - GT; # bool : nat : @parameter%getSupplyRate : @storage + UNPAIR; # pair nat (pair nat nat) : pair nat (pair nat nat) + # ur = sp.local("ur", 0) # pair nat (pair nat nat) : pair nat (pair nat nat) + PUSH nat 0; # nat : pair nat (pair nat nat) : pair nat (pair nat nat) + # if _x2.borrows > 0: # nat : pair nat (pair nat nat) : pair nat (pair nat nat) + PUSH nat 0; # nat : nat : pair nat (pair nat nat) : pair nat (pair nat nat) + DUP 3; # pair nat (pair nat nat) : nat : nat : pair nat (pair nat nat) : pair nat (pair nat nat) + CAR; # nat : nat : nat : pair nat (pair nat nat) : pair nat (pair nat nat) + COMPARE; # int : nat : pair nat (pair nat nat) : pair nat (pair nat nat) + GT; # bool : nat : pair nat (pair nat nat) : pair nat (pair nat nat) IF { - DROP; # @parameter%getSupplyRate : @storage - # compute_InterestRateModel_59 = sp.local("compute_InterestRateModel_59", sp.as_nat((params.cash + params.borrows) - params.reserves)) # @parameter%getSupplyRate : @storage - DUP; # @parameter%getSupplyRate : @parameter%getSupplyRate : @storage - GET 6; # nat : @parameter%getSupplyRate : @storage - SWAP; # @parameter%getSupplyRate : nat : @storage - DUP; # @parameter%getSupplyRate : @parameter%getSupplyRate : nat : @storage - CAR; # pair (nat %borrows) (nat %cash) : @parameter%getSupplyRate : nat : @storage - CAR; # nat : @parameter%getSupplyRate : nat : @storage - SWAP; # @parameter%getSupplyRate : nat : nat : @storage - DUP; # @parameter%getSupplyRate : @parameter%getSupplyRate : nat : nat : @storage - DUG 3; # @parameter%getSupplyRate : nat : nat : @parameter%getSupplyRate : @storage - CAR; # pair (nat %borrows) (nat %cash) : nat : nat : @parameter%getSupplyRate : @storage - CDR; # nat : nat : nat : @parameter%getSupplyRate : @storage - ADD; # nat : nat : @parameter%getSupplyRate : @storage - SUB; # int : @parameter%getSupplyRate : @storage - ISNAT; # option nat : @parameter%getSupplyRate : @storage + DROP; # pair nat (pair nat nat) : pair nat (pair nat nat) + # compute_InterestRateModel_61 = sp.local("compute_InterestRateModel_61", sp.as_nat((_x2.cash + _x2.borrows) - _x2.reserves)) # pair nat (pair nat nat) : pair nat (pair nat nat) + DUP; # pair nat (pair nat nat) : pair nat (pair nat nat) : pair nat (pair nat nat) + GET 4; # nat : pair nat (pair nat nat) : pair nat (pair nat nat) + DUP 2; # pair nat (pair nat nat) : nat : pair nat (pair nat nat) : pair nat (pair nat nat) + CAR; # nat : nat : pair nat (pair nat nat) : pair nat (pair nat nat) + DUP 3; # pair nat (pair nat nat) : nat : nat : pair nat (pair nat nat) : pair nat (pair nat nat) + GET 3; # nat : nat : nat : pair nat (pair nat nat) : pair nat (pair nat nat) + ADD; # nat : nat : pair nat (pair nat nat) : pair nat (pair nat nat) + SUB; # int : pair nat (pair nat nat) : pair nat (pair nat nat) + ISNAT; # option nat : pair nat (pair nat nat) : pair nat (pair nat nat) IF_NONE { - PUSH int 59; # int : @parameter%getSupplyRate : @storage + PUSH int 61; # int : pair nat (pair nat nat) : pair nat (pair nat nat) FAILWITH; # FAILED } - {}; # @some : @parameter%getSupplyRate : @storage - # sp.verify(compute_InterestRateModel_59.value > 0, 'IRM_INSUFFICIENT_CASH') # @some : @parameter%getSupplyRate : @storage - DUP; # @some : @some : @parameter%getSupplyRate : @storage - PUSH nat 0; # nat : @some : @some : @parameter%getSupplyRate : @storage - COMPARE; # int : @some : @parameter%getSupplyRate : @storage - LT; # bool : @some : @parameter%getSupplyRate : @storage + {}; # @some : pair nat (pair nat nat) : pair nat (pair nat nat) + # sp.verify(compute_InterestRateModel_61.value > 0, 'IRM_INSUFFICIENT_CASH') # @some : pair nat (pair nat nat) : pair nat (pair nat nat) + PUSH nat 0; # nat : @some : pair nat (pair nat nat) : pair nat (pair nat nat) + DUP 2; # @some : nat : @some : pair nat (pair nat nat) : pair nat (pair nat nat) + COMPARE; # int : @some : pair nat (pair nat nat) : pair nat (pair nat nat) + GT; # bool : @some : pair nat (pair nat nat) : pair nat (pair nat nat) IF {} { - PUSH string "IRM_INSUFFICIENT_CASH"; # string : @some : @parameter%getSupplyRate : @storage + PUSH string "IRM_INSUFFICIENT_CASH"; # string : @some : pair nat (pair nat nat) : pair nat (pair nat nat) FAILWITH; # FAILED - }; # @some : @parameter%getSupplyRate : @storage - # ur.value = (params.borrows * self.data.scale) // compute_InterestRateModel_59.value # @some : @parameter%getSupplyRate : @storage - DUP 3; # @storage : @some : @parameter%getSupplyRate : @storage - GET 4; # nat : @some : @parameter%getSupplyRate : @storage - DUP 3; # @parameter%getSupplyRate : nat : @some : @parameter%getSupplyRate : @storage - CAR; # pair (nat %borrows) (nat %cash) : nat : @some : @parameter%getSupplyRate : @storage - CAR; # nat : nat : @some : @parameter%getSupplyRate : @storage - MUL; # nat : @some : @parameter%getSupplyRate : @storage - EDIV; # option (pair nat nat) : @parameter%getSupplyRate : @storage + }; # @some : pair nat (pair nat nat) : pair nat (pair nat nat) + # ur.value = (_x2.borrows * self.data.scale) // compute_InterestRateModel_61.value # @some : pair nat (pair nat nat) : pair nat (pair nat nat) + DUP 3; # pair nat (pair nat nat) : @some : pair nat (pair nat nat) : pair nat (pair nat nat) + GET 4; # nat : @some : pair nat (pair nat nat) : pair nat (pair nat nat) + DIG 2; # pair nat (pair nat nat) : nat : @some : pair nat (pair nat nat) + CAR; # nat : nat : @some : pair nat (pair nat nat) + MUL; # nat : @some : pair nat (pair nat nat) + EDIV; # option (pair nat nat) : pair nat (pair nat nat) IF_NONE { - PUSH int 61; # int : @parameter%getSupplyRate : @storage + PUSH int 63; # int : pair nat (pair nat nat) FAILWITH; # FAILED } { - CAR; # nat : @parameter%getSupplyRate : @storage - }; # nat : @parameter%getSupplyRate : @storage + CAR; # nat : pair nat (pair nat nat) + }; # nat : pair nat (pair nat nat) } - {}; # nat : @parameter%getSupplyRate : @storage - # compute_InterestRateModel_65 = sp.local("compute_InterestRateModel_65", ((ur.value * self.data.multiplierPerBlock) // self.data.scale) + self.data.baseRatePerBlock) # nat : @parameter%getSupplyRate : @storage - DIG 2; # @storage : nat : @parameter%getSupplyRate - DUP; # @storage : @storage : nat : @parameter%getSupplyRate - CAR; # nat : @storage : nat : @parameter%getSupplyRate - SWAP; # @storage : nat : nat : @parameter%getSupplyRate - DUP; # @storage : @storage : nat : nat : @parameter%getSupplyRate - GET 4; # nat : @storage : nat : nat : @parameter%getSupplyRate - SWAP; # @storage : nat : nat : nat : @parameter%getSupplyRate - DUP; # @storage : @storage : nat : nat : nat : @parameter%getSupplyRate - DUG 5; # @storage : nat : nat : nat : @parameter%getSupplyRate : @storage - GET 3; # nat : nat : nat : nat : @parameter%getSupplyRate : @storage - DUP 4; # nat : nat : nat : nat : nat : @parameter%getSupplyRate : @storage - MUL; # nat : nat : nat : nat : @parameter%getSupplyRate : @storage - EDIV; # option (pair nat nat) : nat : nat : @parameter%getSupplyRate : @storage - IF_NONE { - PUSH int 65; # int : nat : nat : @parameter%getSupplyRate : @storage - FAILWITH; # FAILED - } - { - CAR; # nat : nat : nat : @parameter%getSupplyRate : @storage - }; # nat : nat : nat : @parameter%getSupplyRate : @storage - ADD; # nat : nat : @parameter%getSupplyRate : @storage - # sp.transfer((ur.value * ((compute_InterestRateModel_65.value * sp.as_nat(self.data.scale - params.reserveFactorMantissa)) // self.data.scale)) // self.data.scale, sp.tez(0), params.cb) # nat : nat : @parameter%getSupplyRate : @storage - NIL operation; # list operation : nat : nat : @parameter%getSupplyRate : @storage - DUP 4; # @parameter%getSupplyRate : list operation : nat : nat : @parameter%getSupplyRate : @storage - GET 3; # contract nat : list operation : nat : nat : @parameter%getSupplyRate : @storage - PUSH mutez 0; # mutez : contract nat : list operation : nat : nat : @parameter%getSupplyRate : @storage - DIG 6; # @storage : mutez : contract nat : list operation : nat : nat : @parameter%getSupplyRate - DUP; # @storage : @storage : mutez : contract nat : list operation : nat : nat : @parameter%getSupplyRate - GET 4; # nat : @storage : mutez : contract nat : list operation : nat : nat : @parameter%getSupplyRate - SWAP; # @storage : nat : mutez : contract nat : list operation : nat : nat : @parameter%getSupplyRate - DUP; # @storage : @storage : nat : mutez : contract nat : list operation : nat : nat : @parameter%getSupplyRate - DUG 8; # @storage : nat : mutez : contract nat : list operation : nat : nat : @parameter%getSupplyRate : @storage - GET 4; # nat : nat : mutez : contract nat : list operation : nat : nat : @parameter%getSupplyRate : @storage - DIG 7; # @parameter%getSupplyRate : nat : nat : mutez : contract nat : list operation : nat : nat : @storage - GET 5; # nat : nat : nat : mutez : contract nat : list operation : nat : nat : @storage - DUP 9; # @storage : nat : nat : nat : mutez : contract nat : list operation : nat : nat : @storage - GET 4; # nat : nat : nat : nat : mutez : contract nat : list operation : nat : nat : @storage - SUB; # int : nat : nat : mutez : contract nat : list operation : nat : nat : @storage - ISNAT; # option nat : nat : nat : mutez : contract nat : list operation : nat : nat : @storage + SWAP; # pair nat (pair nat nat) : nat : pair nat (pair nat nat) + DROP; # nat : pair nat (pair nat nat) + }; # nat : pair nat (pair nat nat) + # sp.result(ur.value) # nat : pair nat (pair nat nat) + PAIR; # pair nat (pair nat (pair nat nat)) + }; # lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : pair @parameter @storage : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + SWAP; # pair @parameter @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + UNPAIR; # @parameter : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + IF_LEFT + { + # == getBorrowRate == + # sp.transfer(self.calculateBorrowRate(self.utilizationRate(sp.record(borrows = params.borrows, cash = params.cash, reserves = params.reserves))), sp.tez(0), params.cb) # @parameter%getBorrowRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + NIL operation; # list operation : @parameter%getBorrowRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DUP 2; # @parameter%getBorrowRate : list operation : @parameter%getBorrowRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + GET 3; # contract nat : list operation : @parameter%getBorrowRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + PUSH mutez 0; # mutez : contract nat : list operation : @parameter%getBorrowRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DIG 6; # lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation : @parameter%getBorrowRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DIG 6; # lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation : @parameter%getBorrowRate : @storage + DIG 5; # @parameter%getBorrowRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation : @storage + DUP; # @parameter%getBorrowRate : @parameter%getBorrowRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation : @storage + GET 4; # nat : @parameter%getBorrowRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation : @storage + SWAP; # @parameter%getBorrowRate : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation : @storage + DUP; # @parameter%getBorrowRate : @parameter%getBorrowRate : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation : @storage + CAR; # pair (nat %borrows) (nat %cash) : @parameter%getBorrowRate : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation : @storage + CDR; # nat : @parameter%getBorrowRate : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation : @storage + SWAP; # @parameter%getBorrowRate : nat : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation : @storage + CAR; # pair (nat %borrows) (nat %cash) : nat : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation : @storage + CAR; # nat : nat : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation : @storage + PAIR 3; # pair nat (pair nat nat) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation : @storage + SWAP; # lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : pair nat (pair nat nat) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation : @storage + DIG 6; # @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : pair nat (pair nat nat) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation + DIG 2; # pair nat (pair nat nat) : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation + PAIR; # pair (pair nat (pair nat nat)) @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation + EXEC; # pair nat (pair nat (pair nat nat)) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation + UNPAIR; # nat : pair nat (pair nat nat) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation + SWAP; # pair nat (pair nat nat) : nat : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation + DUG 5; # nat : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation : pair nat (pair nat nat) + SWAP; # lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : mutez : contract nat : list operation : pair nat (pair nat nat) + DIG 5; # pair nat (pair nat nat) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : mutez : contract nat : list operation + DIG 2; # nat : pair nat (pair nat nat) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation + PAIR; # pair nat (pair nat (pair nat nat)) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : mutez : contract nat : list operation + EXEC; # pair nat (pair nat (pair nat nat)) : mutez : contract nat : list operation + UNPAIR; # nat : pair nat (pair nat nat) : mutez : contract nat : list operation + SWAP; # pair nat (pair nat nat) : nat : mutez : contract nat : list operation + DUG 4; # nat : mutez : contract nat : list operation : pair nat (pair nat nat) + TRANSFER_TOKENS; # operation : list operation : pair nat (pair nat nat) + CONS; # list operation : pair nat (pair nat nat) + } + { + # == getSupplyRate == + # sp.transfer((self.utilizationRate(sp.record(borrows = params.borrows, cash = params.cash, reserves = params.reserves)) * ((self.calculateBorrowRate(self.utilizationRate(sp.record(borrows = params.borrows, cash = params.cash, reserves = params.reserves))) * sp.as_nat(self.data.scale - params.reserveFactorMantissa)) // self.data.scale)) // self.data.scale, sp.tez(0), params.cb) # @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + NIL operation; # list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DUP 2; # @parameter%getSupplyRate : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + GET 3; # contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + PUSH mutez 0; # mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DUP 5; # @storage : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + GET 4; # nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DUP 6; # @storage : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + GET 4; # nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DUP 6; # @parameter%getSupplyRate : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + GET 5; # nat : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DUP 8; # @storage : nat : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + GET 4; # nat : nat : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + SUB; # int : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + ISNAT; # option nat : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) IF_NONE { - PUSH int 47; # int : nat : nat : mutez : contract nat : list operation : nat : nat : @storage + PUSH int 47; # int : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) FAILWITH; # FAILED } - {}; # @some : nat : nat : mutez : contract nat : list operation : nat : nat : @storage - DIG 6; # nat : @some : nat : nat : mutez : contract nat : list operation : nat : @storage - MUL; # nat : nat : nat : mutez : contract nat : list operation : nat : @storage - EDIV; # option (pair nat nat) : nat : mutez : contract nat : list operation : nat : @storage + {}; # @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DIG 9; # lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DUP 10; # lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DUP 9; # @parameter%getSupplyRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + GET 6; # nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DUP 10; # @parameter%getSupplyRate : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + CAR; # pair (nat %borrows) (nat %cash) : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + CDR; # nat : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DUP 11; # @parameter%getSupplyRate : nat : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + CAR; # pair (nat %borrows) (nat %cash) : nat : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + CAR; # nat : nat : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + PAIR 3; # pair nat (pair nat nat) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + SWAP; # lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : pair nat (pair nat nat) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DIG 10; # @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : pair nat (pair nat nat) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DIG 2; # pair nat (pair nat nat) : @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + PAIR; # pair (pair nat (pair nat nat)) @storage : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + EXEC; # pair nat (pair nat (pair nat nat)) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + UNPAIR; # nat : pair nat (pair nat nat) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DIG 10; # lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : pair nat (pair nat nat) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate + DIG 2; # pair nat (pair nat nat) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate + DUG 10; # lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : pair nat (pair nat nat) + DUG 10; # nat : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : pair nat (pair nat nat) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + SWAP; # lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : pair nat (pair nat nat) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DIG 9; # pair nat (pair nat nat) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DIG 2; # nat : pair nat (pair nat nat) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + PAIR; # pair nat (pair nat (pair nat nat)) : lambda (pair nat (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + EXEC; # pair nat (pair nat (pair nat nat)) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + UNPAIR; # nat : pair nat (pair nat nat) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DIG 9; # lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : pair nat (pair nat nat) : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate + DIG 2; # pair nat (pair nat nat) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate + DUG 9; # lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : pair nat (pair nat nat) + DUG 9; # nat : @some : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : pair nat (pair nat nat) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + MUL; # nat : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : pair nat (pair nat nat) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + EDIV; # option (pair nat nat) : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : pair nat (pair nat nat) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) IF_NONE { - PUSH int 52; # int : nat : mutez : contract nat : list operation : nat : @storage + PUSH int 52; # int : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : pair nat (pair nat nat) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) FAILWITH; # FAILED } { - CAR; # nat : nat : mutez : contract nat : list operation : nat : @storage - }; # nat : nat : mutez : contract nat : list operation : nat : @storage - DIG 5; # nat : nat : nat : mutez : contract nat : list operation : @storage - MUL; # nat : nat : mutez : contract nat : list operation : @storage - EDIV; # option (pair nat nat) : mutez : contract nat : list operation : @storage + CAR; # nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : pair nat (pair nat nat) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + }; # nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : pair nat (pair nat nat) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) + DIG 7; # lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : nat : mutez : contract nat : list operation : @parameter%getSupplyRate : pair nat (pair nat nat) + DIG 6; # @parameter%getSupplyRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : nat : mutez : contract nat : list operation : pair nat (pair nat nat) + DUP; # @parameter%getSupplyRate : @parameter%getSupplyRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : nat : mutez : contract nat : list operation : pair nat (pair nat nat) + GET 6; # nat : @parameter%getSupplyRate : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : nat : mutez : contract nat : list operation : pair nat (pair nat nat) + SWAP; # @parameter%getSupplyRate : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : nat : mutez : contract nat : list operation : pair nat (pair nat nat) + DUP; # @parameter%getSupplyRate : @parameter%getSupplyRate : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : nat : mutez : contract nat : list operation : pair nat (pair nat nat) + CAR; # pair (nat %borrows) (nat %cash) : @parameter%getSupplyRate : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : nat : mutez : contract nat : list operation : pair nat (pair nat nat) + CDR; # nat : @parameter%getSupplyRate : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : nat : mutez : contract nat : list operation : pair nat (pair nat nat) + SWAP; # @parameter%getSupplyRate : nat : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : nat : mutez : contract nat : list operation : pair nat (pair nat nat) + CAR; # pair (nat %borrows) (nat %cash) : nat : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : nat : mutez : contract nat : list operation : pair nat (pair nat nat) + CAR; # nat : nat : nat : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : nat : mutez : contract nat : list operation : pair nat (pair nat nat) + PAIR 3; # pair nat (pair nat nat) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : nat : mutez : contract nat : list operation : pair nat (pair nat nat) + SWAP; # lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : pair nat (pair nat nat) : nat : nat : mutez : contract nat : list operation : pair nat (pair nat nat) + DIG 7; # pair nat (pair nat nat) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : pair nat (pair nat nat) : nat : nat : mutez : contract nat : list operation + DIG 2; # pair nat (pair nat nat) : pair nat (pair nat nat) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : nat : mutez : contract nat : list operation + PAIR; # pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : lambda (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) (pair nat (pair nat (pair nat nat))) : nat : nat : mutez : contract nat : list operation + EXEC; # pair nat (pair nat (pair nat nat)) : nat : nat : mutez : contract nat : list operation + UNPAIR; # nat : pair nat (pair nat nat) : nat : nat : mutez : contract nat : list operation + SWAP; # pair nat (pair nat nat) : nat : nat : nat : mutez : contract nat : list operation + DUG 6; # nat : nat : nat : mutez : contract nat : list operation : pair nat (pair nat nat) + MUL; # nat : nat : mutez : contract nat : list operation : pair nat (pair nat nat) + EDIV; # option (pair nat nat) : mutez : contract nat : list operation : pair nat (pair nat nat) IF_NONE { - PUSH int 53; # int : mutez : contract nat : list operation : @storage + PUSH int 53; # int : mutez : contract nat : list operation : pair nat (pair nat nat) FAILWITH; # FAILED } { - CAR; # nat : mutez : contract nat : list operation : @storage - }; # nat : mutez : contract nat : list operation : @storage - TRANSFER_TOKENS; # operation : list operation : @storage - CONS; # list operation : @storage - }; # list operation : @storage - PAIR; # pair (list operation) @storage + CAR; # nat : mutez : contract nat : list operation : pair nat (pair nat nat) + }; # nat : mutez : contract nat : list operation : pair nat (pair nat nat) + TRANSFER_TOKENS; # operation : list operation : pair nat (pair nat nat) + CONS; # list operation : pair nat (pair nat nat) + }; # list operation : pair nat (pair nat nat) + PAIR; # pair (list operation) (pair nat (pair nat nat)) }; \ No newline at end of file diff --git a/compiled_contracts/CXTZ_IRM/step_000_cont_0_sizes.csv b/compiled_contracts/CXTZ_IRM/step_000_cont_0_sizes.csv index 8d52ff5b..adf16527 100644 --- a/compiled_contracts/CXTZ_IRM/step_000_cont_0_sizes.csv +++ b/compiled_contracts/CXTZ_IRM/step_000_cont_0_sizes.csv @@ -1,2 +1,2 @@ storage,27 -contract,946 \ No newline at end of file +contract,1009 \ No newline at end of file diff --git a/compiled_contracts/CXTZ_IRM/step_000_cont_0_storage.json b/compiled_contracts/CXTZ_IRM/step_000_cont_0_storage.json index f7bedb7f..da01122c 100644 --- a/compiled_contracts/CXTZ_IRM/step_000_cont_0_storage.json +++ b/compiled_contracts/CXTZ_IRM/step_000_cont_0_storage.json @@ -1 +1 @@ -{ "prim": "Pair", "args": [ { "int": "950642634" }, { "prim": "Pair", "args": [ { "int": "76000000000" }, { "int": "1000000000000000000" } ] } ] } \ No newline at end of file +{ "prim": "Pair", "args": [ { "int": "760514107" }, { "prim": "Pair", "args": [ { "int": "334400000000" }, { "int": "1000000000000000000" } ] } ] } \ No newline at end of file diff --git a/compiled_contracts/CXTZ_IRM/step_000_cont_0_storage.py b/compiled_contracts/CXTZ_IRM/step_000_cont_0_storage.py index c040ddeb..864113b9 100644 --- a/compiled_contracts/CXTZ_IRM/step_000_cont_0_storage.py +++ b/compiled_contracts/CXTZ_IRM/step_000_cont_0_storage.py @@ -1 +1 @@ -sp.record(baseRatePerBlock = 950642634, multiplierPerBlock = 76000000000, scale = 1000000000000000000) \ No newline at end of file +sp.record(baseRatePerBlock = 760514107, multiplierPerBlock = 334400000000, scale = 1000000000000000000) \ No newline at end of file diff --git a/compiled_contracts/CXTZ_IRM/step_000_cont_0_storage.tz b/compiled_contracts/CXTZ_IRM/step_000_cont_0_storage.tz index 920b5015..42e07cf1 100644 --- a/compiled_contracts/CXTZ_IRM/step_000_cont_0_storage.tz +++ b/compiled_contracts/CXTZ_IRM/step_000_cont_0_storage.tz @@ -1 +1 @@ -(Pair 950642634 (Pair 76000000000 1000000000000000000)) \ No newline at end of file +(Pair 760514107 (Pair 334400000000 1000000000000000000)) \ No newline at end of file diff --git a/compiled_contracts/CXTZ_IRM/step_000_cont_0_types.py b/compiled_contracts/CXTZ_IRM/step_000_cont_0_types.py index 932ad6f5..fe6a460b 100644 --- a/compiled_contracts/CXTZ_IRM/step_000_cont_0_types.py +++ b/compiled_contracts/CXTZ_IRM/step_000_cont_0_types.py @@ -2,5 +2,5 @@ tstorage = sp.TRecord(baseRatePerBlock = sp.TNat, multiplierPerBlock = sp.TNat, scale = sp.TNat).layout(("baseRatePerBlock", ("multiplierPerBlock", "scale"))) tparameter = sp.TVariant(getBorrowRate = sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserves = sp.TNat).layout((("borrows", "cash"), ("cb", "reserves"))), getSupplyRate = sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserveFactorMantissa = sp.TNat, reserves = sp.TNat).layout((("borrows", "cash"), ("cb", ("reserveFactorMantissa", "reserves"))))).layout(("getBorrowRate", "getSupplyRate")) -tprivates = { } +tprivates = { "calculateBorrowRate": sp.TLambda(sp.TNat, sp.TNat, with_storage="read-only", tstorage=sp.TRecord(baseRatePerBlock = sp.TNat, multiplierPerBlock = sp.TNat, scale = sp.TNat).layout(("baseRatePerBlock", ("multiplierPerBlock", "scale")))), "utilizationRate": sp.TLambda(sp.TRecord(borrows = sp.TNat, cash = sp.TNat, reserves = sp.TNat).layout(("borrows", ("cash", "reserves"))), sp.TNat, with_storage="read-only", tstorage=sp.TRecord(baseRatePerBlock = sp.TNat, multiplierPerBlock = sp.TNat, scale = sp.TNat).layout(("baseRatePerBlock", ("multiplierPerBlock", "scale")))) } tviews = { } diff --git a/compiled_contracts/Comptroller/log.txt b/compiled_contracts/Comptroller/log.txt index 1acb17db..1b876121 100644 --- a/compiled_contracts/Comptroller/log.txt +++ b/compiled_contracts/Comptroller/log.txt @@ -1,10 +1,10 @@ Creating contract KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 - -> (Pair (Pair (Pair (Pair {} (Pair {} "KT1KW6McQpHFZPffW6vZt5JSxibvVKAPnYUq")) (Pair (Pair 500000000000000000 {}) (Pair 1000000000000000000 500000000000000000))) (Pair (Pair (Pair 1050000000000000000 {}) (Pair {} {})) (Pair (Pair 86400 "KT1RiGPbUciuBFykVoAmRawdvne322K8yV6N") (Pair None True)))) {Elt 0 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; RENAME; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP; GET 7; IF_NONE { PUSH string "CMPT_NOT_SET_PENDING_ADMIN"; FAILWITH } {}; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_PENDING_ADMIN"; FAILWITH }; DUP; UNPAIR; UNPAIR; UNPAIR; SWAP; CAR; DIG 4; GET 7; IF_NONE { PUSH int 554; FAILWITH } {}; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; NONE address; UPDATE 7; NIL operation; PAIR }; Elt 1 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } {} } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; RENAME; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; CAR; GET; IF_NONE { PUSH int 212; FAILWITH } {}; CAR; CAR; CAR; NOT; RENAME; IF {} { PUSH string "CMPT_BORROW_PAUSED"; FAILWITH }; SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; CAR; MEM; IF { SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; CAR; GET; IF_NONE { PUSH int 730; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; SWAP; DUP; DUG 2; GET 3; CAR; CDR; SWAP; DUP; DUG 2; GET 3; MEM; NOT; RENAME; IF { DUP; CAR; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CMPT_INVALID_BORROW_SENDER"; FAILWITH }; SWAP; DUP; DUG 2; GET 3; GET 4; SENDER; RENAME; MEM; IF { SWAP; DUP; DUG 2; GET 3; GET 4; SENDER; RENAME; GET; IF_NONE { PUSH int 730; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; SWAP; DUP; DUG 2; GET 3; CAR; CDR; SWAP; DUP; DUG 2; GET 3; MEM; IF { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; DUP; DUP 7; GET 3; DUP; DUG 2; GET; IF_NONE { PUSH int 230; FAILWITH } {}; PUSH bool True; SENDER; RENAME; UPDATE; SOME; SWAP; UPDATE; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR; SWAP } { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; EMPTY_SET address; PUSH bool True; SENDER; RENAME; UPDATE; SOME; DUP 7; GET 3; UPDATE; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR; SWAP } } {}; SWAP; DUP; DUG 2; CAR; CAR; CAR; SWAP; DUP; DUG 2; GET 3; MEM; IF {} { PUSH string "CMPT_LIQUIDITY_ABSENT"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; SWAP; DUP; DUG 2; GET 3; GET; IF_NONE { PUSH int 746; FAILWITH } {}; GET 4; IF {} { PUSH string "CMPT_LIQUIDITY_INVALID"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; SWAP; DUP; DUG 2; GET 3; GET; IF_NONE { PUSH int 748; FAILWITH } {}; GET 3; LEVEL; RENAME; SUB; ISNAT; RENAME; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; DUP; PUSH nat 0; COMPARE; EQ; IF {} { PUSH string "CMPT_LIQUIDITY_OLD"; FAILWITH }; DUP 3; GET 3; GET 4; DUP 3; CAR; GET; IF_NONE { PUSH int 304; FAILWITH } {}; GET 8; LEVEL; DIG 2; DROP; RENAME; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; GET 4; DUP 3; CAR; GET; IF_NONE { PUSH int 305; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; SWAP; DUP; DUG 2; CAR; GET 5; SWAP; DUP; DUG 2; GET 4; DUP 4; GET 3; GET 4; DUP 4; CAR; GET; IF_NONE { PUSH int 191; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; INT; DUP 3; CAR; CAR; CAR; DUP 3; GET 3; GET; IF_NONE { PUSH int 190; FAILWITH } {}; CAR; SUB; PUSH int 0; SWAP; COMPARE; GE; IF {} { PUSH string "CMPT_REDEEMER_SHORTFALL"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; SWAP; DUP; DUG 2; GET 3; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 5; GET 3; DUP; DUG 2; GET; IF_NONE { PUSH int 753; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 2 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; RENAME; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; MEM; IF { SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; GET; IF_NONE { PUSH int 730; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; DIG 6; DUP; DUG 2; GET; IF_NONE { PUSH int 721; FAILWITH } {}; UNPAIR; UNPAIR; SWAP; CDR; PUSH bool False; PAIR; SWAP; PAIR; PAIR; SOME; SWAP; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 3 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; RENAME; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP; ITER { DUP 3; GET 3; GET 4; SWAP; DUP; DUG 2; MEM; IF { DUP 3; GET 3; GET 4; SWAP; DUP; DUG 2; GET; IF_NONE { PUSH int 730; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 3; CAR; GET 3; CDR; SENDER; RENAME; MEM; IF { DIG 2; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; DUP; SENDER; RENAME; DUP; DUG 2; GET; IF_NONE { PUSH int 89; FAILWITH } {}; PUSH bool True; DIG 8; UPDATE; SOME; SWAP; UPDATE; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; SWAP } { DIG 2; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; EMPTY_SET address; PUSH bool True; DIG 7; UPDATE; SOME; SENDER; RENAME; UPDATE; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; SWAP } }; DROP; DUP; CAR; CAR; CAR; SENDER; RENAME; MEM; IF { UNPAIR; UNPAIR; UNPAIR; DUP; SENDER; RENAME; DUP; DUG 2; GET; IF_NONE { PUSH int 753; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } {}; NIL operation; PAIR }; Elt 4 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { DROP } } } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; DUP; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; EMPTY_SET nat; PAIR; SWAP; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 5 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT {} { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; RENAME; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; CAR; CDR; MEM; IF { SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; CAR; CDR; GET; IF_NONE { PUSH int 730; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; GET 3; MEM; IF { SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; GET 3; GET; IF_NONE { PUSH int 730; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; PUSH (pair nat nat) (Pair 0 0); DUP; DUP 4; CAR; GET 3; CDR; DUP 4; CAR; CAR; MEM; IF { DUP 4; CAR; GET 3; CDR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 481; FAILWITH } {}; ITER { DUP; DUP 5; CAR; CAR; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; GET 4; DUP 6; GET 3; GET 4; DUP 3; GET; IF_NONE { PUSH int 304; FAILWITH } {}; GET 8; LEVEL; RENAME; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 7; GET 3; GET 4; DUP 4; GET; IF_NONE { PUSH int 305; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 6; CAR; GET 5; SWAP; DUP 7; CAR; GET 5; DUP 8; GET 3; GET 4; DUP 5; GET; IF_NONE { PUSH int 513; FAILWITH } {}; CAR; CAR; CDR; DUP 9; GET 3; GET 4; DUP 6; GET; IF_NONE { PUSH int 513; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 7; CAR; GET 3; CDR; DUP 4; DUP 8; CAR; CAR; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; CAR; CAR; MEM; IF { DUP 7; CAR; GET 3; CDR; DUP 4; DUP 8; CAR; CAR; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; CAR; CAR; GET; IF_NONE { PUSH int 518; FAILWITH } {}; DUP 4; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 8; CAR; GET 5; DUP 5; DUP 9; CAR; CAR; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 7; CAR; GET 5; DUP 4; DUP 8; CAR; CAR; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; CAR; CDR; DUP 9; GET 3; GET 4; DIG 5; GET; IF_NONE { PUSH int 522; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } } {}; DUP 4; GET 3; CAR; CDR; DUP 4; CAR; CAR; MEM; IF { DUP 4; GET 3; CAR; CDR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 489; FAILWITH } {}; ITER { DUP 5; CAR; GET 3; CDR; DUP 5; CAR; CAR; MEM; IF { DUP 5; CAR; GET 3; CDR; DUP 5; CAR; CAR; GET; IF_NONE { PUSH int 492; FAILWITH } {}; SWAP; DUP; DUG 2; MEM; NOT; RENAME; IF { DUP; DUP 5; CAR; CAR; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; GET 4; DUP 6; GET 3; GET 4; DUP 3; GET; IF_NONE { PUSH int 304; FAILWITH } {}; GET 8; LEVEL; RENAME; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 7; GET 3; GET 4; DUP 4; GET; IF_NONE { PUSH int 305; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 6; CAR; GET 5; SWAP; DUP 7; CAR; GET 5; DUP 8; GET 3; GET 4; DUP 5; GET; IF_NONE { PUSH int 513; FAILWITH } {}; CAR; CAR; CDR; DUP 9; GET 3; GET 4; DUP 6; GET; IF_NONE { PUSH int 513; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 7; CAR; GET 3; CDR; DUP 4; DUP 8; CAR; CAR; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; CAR; CAR; MEM; IF { DUP 7; CAR; GET 3; CDR; DUP 4; DUP 8; CAR; CAR; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; CAR; CAR; GET; IF_NONE { PUSH int 518; FAILWITH } {}; DUP 4; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 8; CAR; GET 5; DUP 5; DUP 9; CAR; CAR; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 7; CAR; GET 5; DUP 4; DUP 8; CAR; CAR; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; CAR; CDR; DUP 9; GET 3; GET 4; DIG 5; GET; IF_NONE { PUSH int 522; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } { DROP } } { DUP; DUP 5; CAR; CAR; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; GET 4; DUP 6; GET 3; GET 4; DUP 3; GET; IF_NONE { PUSH int 304; FAILWITH } {}; GET 8; LEVEL; RENAME; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 7; GET 3; GET 4; DUP 4; GET; IF_NONE { PUSH int 305; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 6; CAR; GET 5; SWAP; DUP 7; CAR; GET 5; DUP 8; GET 3; GET 4; DUP 5; GET; IF_NONE { PUSH int 513; FAILWITH } {}; CAR; CAR; CDR; DUP 9; GET 3; GET 4; DUP 6; GET; IF_NONE { PUSH int 513; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 7; CAR; GET 3; CDR; DUP 4; DUP 8; CAR; CAR; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; CAR; CAR; MEM; IF { DUP 7; CAR; GET 3; CDR; DUP 4; DUP 8; CAR; CAR; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; CAR; CAR; GET; IF_NONE { PUSH int 518; FAILWITH } {}; DUP 4; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 8; CAR; GET 5; DUP 5; DUP 9; CAR; CAR; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 7; CAR; GET 5; DUP 4; DUP 8; CAR; CAR; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; CAR; CDR; DUP 9; GET 3; GET 4; DIG 5; GET; IF_NONE { PUSH int 522; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } }; DROP } { DROP }; UNPAIR; SWAP; SUB; PUSH int 0; COMPARE; GT; IF {} { PUSH string "CMPT_INSUFFICIENT_SHORTFALL"; FAILWITH }; SWAP; DUP; DUG 2; CAR; GET 5; SWAP; DUP; CAR; CDR; SWAP; DUP; DUG 3; CAR; CAR; VIEW "borrowBalanceStoredView" nat; IF_NONE { PUSH string "INVALID ACCOUNT BORROW BALANCE VIEW"; FAILWITH } {}; DUP 4; CAR; GET 3; CAR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; SWAP; DUP; DUG 2; GET 6; SWAP; COMPARE; GE; IF {} { PUSH string "CMPT_TOO_MUCH_REPAY"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; SWAP; DUP; DUG 2; CAR; CAR; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DUP 6; CAR; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 753; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR; SWAP } {}; SWAP; DUP; DUG 2; CAR; CAR; CAR; SWAP; DUP; DUG 2; GET 5; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 5; GET 5; DUP; DUG 2; GET; IF_NONE { PUSH int 753; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 6 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; RENAME; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; CAR; GET; IF_NONE { PUSH int 153; FAILWITH } {}; CAR; GET 4; NOT; RENAME; IF {} { PUSH string "CMPT_MINT_PAUSED"; FAILWITH }; SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; CAR; MEM; IF { SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; CAR; GET; IF_NONE { PUSH int 730; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; SWAP; DUP; DUG 2; GET 3; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 5; GET 3; DUP; DUG 2; GET; IF_NONE { PUSH int 753; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 7 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; RENAME; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; CAR; MEM; IF { SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; CAR; GET; IF_NONE { PUSH int 730; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; SWAP; DUP; DUG 2; CAR; GET 3; CDR; SWAP; DUP; DUG 2; GET 3; MEM; IF { SWAP; DUP; DUG 2; CAR; GET 3; CDR; SWAP; DUP; DUG 2; GET 3; GET; IF_NONE { PUSH int 180; FAILWITH } {}; SWAP; DUP; DUG 2; CAR; MEM } { PUSH bool False }; IF { SWAP; DUP; DUG 2; GET 3; CAR; CDR; SWAP; DUP; DUG 2; GET 3; MEM; IF { PUSH nat 0; DUP 3; GET 3; CAR; CDR; DUP 3; GET 3; GET; IF_NONE { PUSH int 182; FAILWITH } {}; SIZE; COMPARE; NEQ } { PUSH bool False }; IF { SWAP; DUP; DUG 2; CAR; CAR; CAR; SWAP; DUP; DUG 2; GET 3; MEM; IF {} { PUSH string "CMPT_LIQUIDITY_ABSENT"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; SWAP; DUP; DUG 2; GET 3; GET; IF_NONE { PUSH int 746; FAILWITH } {}; GET 4; IF {} { PUSH string "CMPT_LIQUIDITY_INVALID"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; SWAP; DUP; DUG 2; GET 3; GET; IF_NONE { PUSH int 748; FAILWITH } {}; GET 3; LEVEL; RENAME; SUB; ISNAT; RENAME; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; DUP; PUSH nat 0; COMPARE; EQ; IF {} { PUSH string "CMPT_LIQUIDITY_OLD"; FAILWITH }; DUP 3; GET 3; GET 4; DUP 3; CAR; GET; IF_NONE { PUSH int 304; FAILWITH } {}; GET 8; LEVEL; DIG 2; DROP; RENAME; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; GET 4; DUP 3; CAR; GET; IF_NONE { PUSH int 305; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; SWAP; DUP; DUG 2; CAR; GET 5; SWAP; DUP; DUG 2; GET 4; DUP 4; GET 3; GET 4; DUP 4; CAR; GET; IF_NONE { PUSH int 191; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; INT; DUP 3; CAR; CAR; CAR; DUP 3; GET 3; GET; IF_NONE { PUSH int 190; FAILWITH } {}; CAR; SUB; PUSH int 0; SWAP; COMPARE; GE; IF {} { PUSH string "CMPT_REDEEMER_SHORTFALL"; FAILWITH } } {} } {}; SWAP; DUP; DUG 2; CAR; CAR; CAR; SWAP; DUP; DUG 2; GET 3; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 5; GET 3; DUP; DUG 2; GET; IF_NONE { PUSH int 753; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 8 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; RENAME; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; SWAP; DUP; DUG 2; GET 3; GET 4; SENDER; RENAME; MEM; IF { SWAP; DUP; DUG 2; GET 3; GET 4; SENDER; RENAME; GET; IF_NONE { PUSH int 730; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; SWAP; DUP; DUG 2; GET 3; CAR; CDR; SWAP; DUP; DUG 2; MEM; IF { SWAP; DUP; DUG 2; GET 3; CAR; CDR; SWAP; DUP; DUG 2; GET; IF_NONE { PUSH int 239; FAILWITH } {}; SENDER; RENAME; MEM } { PUSH bool False }; IF { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; DUP; DIG 6; DUP; DUG 2; GET; IF_NONE { PUSH int 240; FAILWITH } {}; PUSH bool False; SENDER; RENAME; UPDATE; SOME; SWAP; UPDATE; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR } { DROP }; NIL operation; PAIR }; Elt 9 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; RENAME; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; CAR; MEM; IF { SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; CAR; GET; IF_NONE { PUSH int 730; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; SWAP; DUP; DUG 2; GET 5; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DUP 6; GET 5; DUP; DUG 2; GET; IF_NONE { PUSH int 753; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR; SWAP } {}; SWAP; DUP; DUG 2; CAR; CAR; CAR; SWAP; DUP; DUG 2; GET 3; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 5; GET 3; DUP; DUG 2; GET; IF_NONE { PUSH int 753; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 10 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; RENAME; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; PUSH (pair nat nat) (Pair 0 0); DUP; DUP 4; CAR; GET 3; CDR; DUP 4; MEM; IF { DUP 4; CAR; GET 3; CDR; DUP 4; GET; IF_NONE { PUSH int 481; FAILWITH } {}; ITER { DUP; DUP 5; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; GET 4; DUP 6; GET 3; GET 4; DUP 3; GET; IF_NONE { PUSH int 304; FAILWITH } {}; GET 8; LEVEL; RENAME; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 7; GET 3; GET 4; DUP 4; GET; IF_NONE { PUSH int 305; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 6; CAR; GET 5; SWAP; DUP 7; CAR; GET 5; DUP 8; GET 3; GET 4; DUP 5; GET; IF_NONE { PUSH int 513; FAILWITH } {}; CAR; CAR; CDR; DUP 9; GET 3; GET 4; DUP 6; GET; IF_NONE { PUSH int 513; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 7; CAR; GET 3; CDR; DUP 4; DUP 8; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; CAR; CAR; MEM; IF { DUP 7; CAR; GET 3; CDR; DUP 4; DUP 8; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; CAR; CAR; GET; IF_NONE { PUSH int 518; FAILWITH } {}; DUP 4; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 8; CAR; GET 5; DUP 5; DUP 9; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 7; CAR; GET 5; DUP 4; DUP 8; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; CAR; CDR; DUP 9; GET 3; GET 4; DIG 5; GET; IF_NONE { PUSH int 522; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } } {}; DUP 4; GET 3; CAR; CDR; DUP 4; MEM; IF { DUP 4; GET 3; CAR; CDR; DUP 4; GET; IF_NONE { PUSH int 489; FAILWITH } {}; ITER { DUP 5; CAR; GET 3; CDR; DUP 5; MEM; IF { DUP 5; CAR; GET 3; CDR; DUP 5; GET; IF_NONE { PUSH int 492; FAILWITH } {}; SWAP; DUP; DUG 2; MEM; NOT; RENAME; IF { DUP; DUP 5; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; GET 4; DUP 6; GET 3; GET 4; DUP 3; GET; IF_NONE { PUSH int 304; FAILWITH } {}; GET 8; LEVEL; RENAME; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 7; GET 3; GET 4; DUP 4; GET; IF_NONE { PUSH int 305; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 6; CAR; GET 5; SWAP; DUP 7; CAR; GET 5; DUP 8; GET 3; GET 4; DUP 5; GET; IF_NONE { PUSH int 513; FAILWITH } {}; CAR; CAR; CDR; DUP 9; GET 3; GET 4; DUP 6; GET; IF_NONE { PUSH int 513; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 7; CAR; GET 3; CDR; DUP 4; DUP 8; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; CAR; CAR; MEM; IF { DUP 7; CAR; GET 3; CDR; DUP 4; DUP 8; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; CAR; CAR; GET; IF_NONE { PUSH int 518; FAILWITH } {}; DUP 4; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 8; CAR; GET 5; DUP 5; DUP 9; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 7; CAR; GET 5; DUP 4; DUP 8; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; CAR; CDR; DUP 9; GET 3; GET 4; DIG 5; GET; IF_NONE { PUSH int 522; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } { DROP } } { DUP; DUP 5; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; GET 4; DUP 6; GET 3; GET 4; DUP 3; GET; IF_NONE { PUSH int 304; FAILWITH } {}; GET 8; LEVEL; RENAME; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 7; GET 3; GET 4; DUP 4; GET; IF_NONE { PUSH int 305; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 6; CAR; GET 5; SWAP; DUP 7; CAR; GET 5; DUP 8; GET 3; GET 4; DUP 5; GET; IF_NONE { PUSH int 513; FAILWITH } {}; CAR; CAR; CDR; DUP 9; GET 3; GET 4; DUP 6; GET; IF_NONE { PUSH int 513; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 7; CAR; GET 3; CDR; DUP 4; DUP 8; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; CAR; CAR; MEM; IF { DUP 7; CAR; GET 3; CDR; DUP 4; DUP 8; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; CAR; CAR; GET; IF_NONE { PUSH int 518; FAILWITH } {}; DUP 4; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 8; CAR; GET 5; DUP 5; DUP 9; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 7; CAR; GET 5; DUP 4; DUP 8; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; CAR; CDR; DUP 9; GET 3; GET 4; DIG 5; GET; IF_NONE { PUSH int 522; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } } } {}; SWAP; DUP; DUG 2; DUP 5; CAR; CAR; GET 3; PUSH nat 4; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; DIG 4; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 4; UPDATE; PAIR; SWAP; PUSH bool True; LEVEL; DIG 7; DROP; DIG 7; DROP; RENAME; DIG 6; UNPAIR; SWAP; SUB; PAIR 3; SOME; DIG 5; UPDATE; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 11 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { IF_LEFT {} { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; RENAME; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; GET 3; PUSH nat 1; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 1; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; DUP; CAR; CDR; PUSH nat 0; COMPARE; EQ; IF {} { PUSH string "CMPT_BORROW_IN_MARKET"; FAILWITH }; SWAP; DUP; DUG 2; GET 3; GET 4; SENDER; RENAME; MEM; IF { SWAP; DUP; DUG 2; GET 3; GET 4; SENDER; RENAME; GET; IF_NONE { PUSH int 730; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; SWAP; DUP; DUG 2; CAR; GET 3; CDR; SWAP; DUP; DUG 2; CAR; CAR; MEM; IF { SWAP; DUP; DUG 2; CAR; GET 3; CDR; SWAP; DUP; DUG 2; CAR; CAR; GET; IF_NONE { PUSH int 180; FAILWITH } {}; SENDER; RENAME; MEM } { PUSH bool False }; IF { SWAP; DUP; DUG 2; GET 3; CAR; CDR; SWAP; DUP; DUG 2; CAR; CAR; MEM; IF { PUSH nat 0; DUP 3; GET 3; CAR; CDR; DUP 3; CAR; CAR; GET; IF_NONE { PUSH int 182; FAILWITH } {}; SIZE; COMPARE; NEQ } { PUSH bool False }; IF { SWAP; DUP; DUG 2; CAR; CAR; CAR; SWAP; DUP; DUG 2; CAR; CAR; MEM; IF {} { PUSH string "CMPT_LIQUIDITY_ABSENT"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; SWAP; DUP; DUG 2; CAR; CAR; GET; IF_NONE { PUSH int 746; FAILWITH } {}; GET 4; IF {} { PUSH string "CMPT_LIQUIDITY_INVALID"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; SWAP; DUP; DUG 2; CAR; CAR; GET; IF_NONE { PUSH int 748; FAILWITH } {}; GET 3; LEVEL; RENAME; SUB; ISNAT; RENAME; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; DUP; PUSH nat 0; COMPARE; EQ; IF {} { PUSH string "CMPT_LIQUIDITY_OLD"; FAILWITH }; DUP 3; GET 3; GET 4; SENDER; RENAME; GET; IF_NONE { PUSH int 304; FAILWITH } {}; GET 8; LEVEL; DIG 2; DROP; RENAME; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; GET 4; SENDER; RENAME; GET; IF_NONE { PUSH int 305; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; SWAP; DUP; DUG 2; CAR; GET 5; SWAP; DUP; DUG 2; GET 3; DUP 4; GET 3; GET 4; SENDER; RENAME; GET; IF_NONE { PUSH int 191; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; INT; DUP 3; CAR; CAR; CAR; DUP 3; CAR; CAR; GET; IF_NONE { PUSH int 190; FAILWITH } {}; CAR; SUB; PUSH int 0; SWAP; COMPARE; GE; IF {} { PUSH string "CMPT_REDEEMER_SHORTFALL"; FAILWITH } } {} } {}; SWAP; DUP; DUG 2; CAR; CAR; CAR; SWAP; DUP; DUG 2; CAR; CAR; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DUP 6; CAR; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 753; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR; SWAP } {}; SWAP; DUP; DUG 2; CAR; GET 3; CDR; SWAP; DUP; DUG 2; CAR; CAR; MEM; IF { SWAP; DUP; DUG 2; CAR; GET 3; CDR; SWAP; DUP; DUG 2; CAR; CAR; GET; IF_NONE { PUSH int 133; FAILWITH } {}; SENDER; RENAME; MEM } { PUSH bool False }; IF { SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; DUP; DUP 7; CAR; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 135; FAILWITH } {}; PUSH bool False; SENDER; RENAME; UPDATE; SOME; SWAP; UPDATE; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; SWAP } {}; SWAP; DUP; DUG 2; CAR; CAR; CAR; SWAP; DUP; DUG 2; CAR; CAR; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 5; CAR; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 753; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 12 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } {} } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; RENAME; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; CAR; MEM; IF { SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; CAR; GET; IF_NONE { PUSH int 730; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; DUP 7; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 591; FAILWITH } {}; UNPAIR; UNPAIR; CDR; DIG 9; CDR; PAIR; PAIR; PAIR; SOME; SWAP; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 13 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; RENAME; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; CDR; DIG 4; PAIR; PAIR; SWAP; PAIR; PAIR; NIL operation; PAIR }; Elt 14 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } } { PUSH int -1; FAILWITH } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; RENAME; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; CAR; MEM; IF { SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; CAR; GET; IF_NONE { PUSH int 730; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; DUP 7; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 658; FAILWITH } {}; UNPAIR; UNPAIR; CAR; DIG 9; CDR; SWAP; PAIR; PAIR; PAIR; SOME; SWAP; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 15 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } } { PUSH int -1; FAILWITH } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; RENAME; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; CDR; DIG 4; PAIR; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 16 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT {} { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; RENAME; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; CAR; MEM; IF { SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; CAR; GET; IF_NONE { PUSH int 730; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; DUP 7; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 573; FAILWITH } {}; UNPAIR; UNPAIR; SWAP; CAR; DIG 9; CDR; SWAP; PAIR; SWAP; PAIR; PAIR; SOME; SWAP; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 17 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; RENAME; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SOME; UPDATE 7; NIL operation; PAIR }; Elt 18 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; RENAME; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; SWAP; CDR; DIG 3; UNPAIR; SWAP; PAIR; PAIR; SWAP; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 19 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; RENAME; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; UPDATE 8; NIL operation; PAIR }; Elt 20 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; RENAME; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; CAR; MEM; IF { SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; CAR; GET; IF_NONE { PUSH int 734; FAILWITH } {}; CAR; GET 3; NOT } { PUSH bool True }; RENAME; IF {} { PUSH string "CMPT_MARKET_ALREADY_LISTED"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; PUSH (pair timestamp nat) (Pair "1970-01-01T00:00:00Z" 0); DUP 7; GET 4; PAIR; PUSH nat 0; DUP 8; GET 3; PAIR; PAIR; PUSH (pair (pair bool nat) (pair bool bool)) (Pair (Pair True 500000000000000000) (Pair True True)); PAIR; SOME; DUP 7; CAR; UPDATE; SWAP; DUP 6; CAR; SOME; PUSH string "-USD"; DIG 7; GET 3; CONCAT; UPDATE; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 21 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; RENAME; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; SWAP; DUP; DUG 2; GET 8; NOT; RENAME; IF {} { PUSH string "CMPT_TRANSFER_PAUSED"; FAILWITH }; SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; CAR; CAR; MEM; IF { SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; CAR; CAR; GET; IF_NONE { PUSH int 730; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; SWAP; DUP; DUG 2; CAR; GET 3; CDR; SWAP; DUP; DUG 2; CAR; CDR; MEM; IF { SWAP; DUP; DUG 2; CAR; GET 3; CDR; SWAP; DUP; DUG 2; CAR; CDR; GET; IF_NONE { PUSH int 180; FAILWITH } {}; SWAP; DUP; DUG 2; CAR; CAR; MEM } { PUSH bool False }; IF { SWAP; DUP; DUG 2; GET 3; CAR; CDR; SWAP; DUP; DUG 2; CAR; CDR; MEM; IF { PUSH nat 0; DUP 3; GET 3; CAR; CDR; DUP 3; CAR; CDR; GET; IF_NONE { PUSH int 182; FAILWITH } {}; SIZE; COMPARE; NEQ } { PUSH bool False }; IF { SWAP; DUP; DUG 2; CAR; CAR; CAR; SWAP; DUP; DUG 2; CAR; CDR; MEM; IF {} { PUSH string "CMPT_LIQUIDITY_ABSENT"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; SWAP; DUP; DUG 2; CAR; CDR; GET; IF_NONE { PUSH int 746; FAILWITH } {}; GET 4; IF {} { PUSH string "CMPT_LIQUIDITY_INVALID"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; SWAP; DUP; DUG 2; CAR; CDR; GET; IF_NONE { PUSH int 748; FAILWITH } {}; GET 3; LEVEL; RENAME; SUB; ISNAT; RENAME; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; DUP; PUSH nat 0; COMPARE; EQ; IF {} { PUSH string "CMPT_LIQUIDITY_OLD"; FAILWITH }; DUP 3; GET 3; GET 4; DUP 3; CAR; CAR; GET; IF_NONE { PUSH int 304; FAILWITH } {}; GET 8; LEVEL; DIG 2; DROP; RENAME; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; GET 4; DUP 3; CAR; CAR; GET; IF_NONE { PUSH int 305; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; SWAP; DUP; DUG 2; CAR; GET 5; SWAP; DUP; DUG 2; GET 4; DUP 4; GET 3; GET 4; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 191; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; INT; DUP 3; CAR; CAR; CAR; DUP 3; CAR; CDR; GET; IF_NONE { PUSH int 190; FAILWITH } {}; CAR; SUB; PUSH int 0; SWAP; COMPARE; GE; IF {} { PUSH string "CMPT_REDEEMER_SHORTFALL"; FAILWITH } } {} } {}; SWAP; DUP; DUG 2; CAR; CAR; CAR; SWAP; DUP; DUG 2; CAR; CDR; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 5; CAR; CDR; DUP; DUG 2; GET; IF_NONE { PUSH int 753; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }}) - => ./TezFinBuild/compiled_contracts/Comptroller/step_000_cont_0_storage.tz 1 - => ./TezFinBuild/compiled_contracts/Comptroller/step_000_cont_0_storage.json 5358 - => ./TezFinBuild/compiled_contracts/Comptroller/step_000_cont_0_sizes.csv 2 - => ./TezFinBuild/compiled_contracts/Comptroller/step_000_cont_0_storage.py 1 - => ./TezFinBuild/compiled_contracts/Comptroller/step_000_cont_0_types.py 7 - => ./TezFinBuild/compiled_contracts/Comptroller/step_000_cont_0_contract.tz 1219 - => ./TezFinBuild/compiled_contracts/Comptroller/step_000_cont_0_contract.json 2446 - => ./TezFinBuild/compiled_contracts/Comptroller/step_000_cont_0_contract.py 534 + -> (Pair (Pair (Pair (Pair {} (Pair {} "KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2")) (Pair (Pair 500000000000000000 {}) (Pair 1000000000000000000 500000000000000000))) (Pair (Pair (Pair 1050000000000000000 {}) (Pair {} {})) (Pair (Pair 86400 "KT1LDtNKDnpziwSrmSfx3xCbs7nBMg7VFp4m") (Pair None True)))) {Elt 0 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP; GET 7; IF_NONE { PUSH string "CMPT_NOT_SET_PENDING_ADMIN"; FAILWITH } {}; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_PENDING_ADMIN"; FAILWITH }; DUP; GET 7; IF_NONE { PUSH int 566; FAILWITH } {}; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; CAR; DIG 4; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; NONE address; UPDATE 7; NIL operation; PAIR }; Elt 1 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } {} } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 4; DUP 2; CAR; GET; IF_NONE { PUSH int 212; FAILWITH } {}; CAR; CAR; CAR; IF { PUSH string "CMPT_BORROW_PAUSED"; FAILWITH } {}; DUP 2; GET 3; GET 4; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; CAR; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; GET 3; CAR; CDR; DUP 2; GET 3; MEM; IF {} { DUP; CAR; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_INVALID_BORROW_SENDER"; FAILWITH }; DUP 2; GET 3; GET 4; SENDER; MEM; IF { DUP 2; GET 3; GET 4; SENDER; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; GET 3; CAR; CDR; DUP 2; GET 3; MEM; IF { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; DUP; DUP 7; GET 3; DUP; DUG 2; GET; IF_NONE { PUSH int 230; FAILWITH } {}; PUSH bool True; SENDER; UPDATE; SOME; SWAP; UPDATE; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR; SWAP } { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; EMPTY_SET address; PUSH bool True; SENDER; UPDATE; SOME; DUP 7; GET 3; UPDATE; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR; SWAP } }; DUP 2; CAR; CAR; CAR; DUP 2; GET 3; MEM; IF {} { PUSH string "CMPT_LIQUIDITY_ABSENT"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; GET 3; GET; IF_NONE { PUSH int 758; FAILWITH } {}; GET 4; IF {} { PUSH string "CMPT_LIQUIDITY_INVALID"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; GET 3; GET; IF_NONE { PUSH int 760; FAILWITH } {}; GET 3; LEVEL; SUB; ISNAT; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; PUSH nat 0; DUP 2; COMPARE; EQ; IF {} { PUSH string "CMPT_LIQUIDITY_OLD"; FAILWITH }; DUP 3; GET 3; GET 4; DUP 3; CAR; GET; IF_NONE { PUSH int 306; FAILWITH } {}; GET 8; LEVEL; DIG 2; DROP; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; GET 4; DUP 3; CAR; GET; IF_NONE { PUSH int 307; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 2; CAR; GET 5; DUP 2; GET 4; DUP 4; GET 3; GET 4; DUP 4; CAR; GET; IF_NONE { PUSH int 191; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; INT; DUP 3; CAR; CAR; CAR; DUP 3; GET 3; GET; IF_NONE { PUSH int 190; FAILWITH } {}; CAR; SUB; PUSH int 0; SWAP; COMPARE; GE; IF {} { PUSH string "CMPT_REDEEMER_SHORTFALL"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; GET 3; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 5; GET 3; DUP; DUG 2; GET; IF_NONE { PUSH int 765; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 2 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; DUP 2; GET 3; GET 4; DUP 2; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; DIG 6; DUP; DUG 2; GET; IF_NONE { PUSH int 733; FAILWITH } {}; UNPAIR; UNPAIR; SWAP; CDR; PUSH bool False; PAIR; SWAP; PAIR; PAIR; SOME; SWAP; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 3 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP; ITER { DUP 3; GET 3; GET 4; DUP 2; MEM; IF { DUP 3; GET 3; GET 4; DUP 2; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 3; CAR; GET 3; CDR; SENDER; MEM; IF { DIG 2; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; DUP; SENDER; DUP; DUG 2; GET; IF_NONE { PUSH int 89; FAILWITH } {}; PUSH bool True; DIG 8; UPDATE; SOME; SWAP; UPDATE; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; SWAP } { DIG 2; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; EMPTY_SET address; PUSH bool True; DIG 7; UPDATE; SOME; SENDER; UPDATE; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; SWAP } }; DROP; DUP; CAR; CAR; CAR; SENDER; MEM; IF { UNPAIR; UNPAIR; UNPAIR; DUP; SENDER; DUP; DUG 2; GET; IF_NONE { PUSH int 765; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } {}; NIL operation; PAIR }; Elt 4 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { DROP } } } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; DUP; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; EMPTY_SET nat; PAIR; SWAP; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 5 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT {} { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 4; DUP 2; CAR; CDR; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; CAR; CDR; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; GET 3; GET 4; DUP 2; GET 3; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; GET 3; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; PUSH (pair nat nat) (Pair 0 0); DUP; DUP 4; CAR; GET 3; CDR; DUP 4; CAR; CAR; MEM; IF { DUP 4; CAR; GET 3; CDR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 491; FAILWITH } {}; ITER { DUP; DUP 5; CAR; CAR; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH string "CMPT_OUTDATED_ACCOUNT_SNAPHOT"; FAILWITH } { DROP }; DUP; DUP 5; CAR; CAR; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH int 521; FAILWITH } {}; DUP; GET 4; DUP 7; GET 3; GET 4; DUP 4; GET; IF_NONE { PUSH int 306; FAILWITH } {}; GET 8; LEVEL; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 8; GET 3; GET 4; DUP 5; GET; IF_NONE { PUSH int 307; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 7; CAR; GET 5; SWAP; DUP 8; CAR; GET 5; DUP 9; GET 3; GET 4; DUP 6; GET; IF_NONE { PUSH int 525; FAILWITH } {}; CAR; CAR; CDR; DUP 10; GET 3; GET 4; DUP 7; GET; IF_NONE { PUSH int 525; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; MEM; IF { DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 530; FAILWITH } {}; DUP 5; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 9; CAR; GET 5; DUP 5; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 8; CAR; GET 5; DIG 3; CAR; CDR; DUP 9; GET 3; GET 4; DIG 5; GET; IF_NONE { PUSH int 534; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } } {}; DUP 4; GET 3; CAR; CDR; DUP 4; CAR; CAR; MEM; IF { DUP 4; GET 3; CAR; CDR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 499; FAILWITH } {}; ITER { DUP 5; CAR; GET 3; CDR; DUP 5; CAR; CAR; MEM; IF { DUP 5; CAR; GET 3; CDR; DUP 5; CAR; CAR; GET; IF_NONE { PUSH int 502; FAILWITH } {}; DUP 2; MEM; IF { DROP } { DUP; DUP 5; CAR; CAR; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH string "CMPT_OUTDATED_ACCOUNT_SNAPHOT"; FAILWITH } { DROP }; DUP; DUP 5; CAR; CAR; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH int 521; FAILWITH } {}; DUP; GET 4; DUP 7; GET 3; GET 4; DUP 4; GET; IF_NONE { PUSH int 306; FAILWITH } {}; GET 8; LEVEL; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 8; GET 3; GET 4; DUP 5; GET; IF_NONE { PUSH int 307; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 7; CAR; GET 5; SWAP; DUP 8; CAR; GET 5; DUP 9; GET 3; GET 4; DUP 6; GET; IF_NONE { PUSH int 525; FAILWITH } {}; CAR; CAR; CDR; DUP 10; GET 3; GET 4; DUP 7; GET; IF_NONE { PUSH int 525; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; MEM; IF { DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 530; FAILWITH } {}; DUP 5; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 9; CAR; GET 5; DUP 5; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 8; CAR; GET 5; DIG 3; CAR; CDR; DUP 9; GET 3; GET 4; DIG 5; GET; IF_NONE { PUSH int 534; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } } { DUP; DUP 5; CAR; CAR; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH string "CMPT_OUTDATED_ACCOUNT_SNAPHOT"; FAILWITH } { DROP }; DUP; DUP 5; CAR; CAR; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH int 521; FAILWITH } {}; DUP; GET 4; DUP 7; GET 3; GET 4; DUP 4; GET; IF_NONE { PUSH int 306; FAILWITH } {}; GET 8; LEVEL; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 8; GET 3; GET 4; DUP 5; GET; IF_NONE { PUSH int 307; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 7; CAR; GET 5; SWAP; DUP 8; CAR; GET 5; DUP 9; GET 3; GET 4; DUP 6; GET; IF_NONE { PUSH int 525; FAILWITH } {}; CAR; CAR; CDR; DUP 10; GET 3; GET 4; DUP 7; GET; IF_NONE { PUSH int 525; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; MEM; IF { DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 530; FAILWITH } {}; DUP 5; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 9; CAR; GET 5; DUP 5; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 8; CAR; GET 5; DIG 3; CAR; CDR; DUP 9; GET 3; GET 4; DIG 5; GET; IF_NONE { PUSH int 534; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } }; DROP } { DROP }; UNPAIR; SWAP; SUB; PUSH int 0; COMPARE; GT; IF {} { PUSH string "CMPT_INSUFFICIENT_SHORTFALL"; FAILWITH }; DUP 2; CAR; GET 5; DUP 2; CAR; CDR; DUP 3; CAR; CAR; VIEW "borrowBalanceStoredView" (pair nat nat); IF_NONE { PUSH string "INVALID ACCOUNT BORROW BALANCE VIEW"; FAILWITH } {}; CAR; DUP 4; CAR; GET 3; CAR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; SWAP; DUP; GET 6; DIG 2; COMPARE; GE; IF {} { PUSH string "CMPT_TOO_MUCH_REPAY"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; CAR; CAR; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DUP 6; CAR; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 765; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR; SWAP } {}; DUP 2; CAR; CAR; CAR; DUP 2; GET 5; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 5; GET 5; DUP; DUG 2; GET; IF_NONE { PUSH int 765; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 6 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 4; DUP 2; CAR; GET; IF_NONE { PUSH int 153; FAILWITH } {}; CAR; GET 4; IF { PUSH string "CMPT_MINT_PAUSED"; FAILWITH } {}; DUP 2; GET 3; GET 4; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; CAR; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; GET 3; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 5; GET 3; DUP; DUG 2; GET; IF_NONE { PUSH int 765; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 7 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 4; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; CAR; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; CAR; GET 3; CDR; DUP 2; GET 3; MEM; IF { DUP 2; CAR; GET 3; CDR; DUP 2; GET 3; GET; IF_NONE { PUSH int 180; FAILWITH } {}; DUP 2; CAR; MEM } { PUSH bool False }; IF { DUP 2; GET 3; CAR; CDR; DUP 2; GET 3; MEM; IF { PUSH nat 0; DUP 3; GET 3; CAR; CDR; DUP 3; GET 3; GET; IF_NONE { PUSH int 182; FAILWITH } {}; SIZE; COMPARE; NEQ } { PUSH bool False }; IF { DUP 2; CAR; CAR; CAR; DUP 2; GET 3; MEM; IF {} { PUSH string "CMPT_LIQUIDITY_ABSENT"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; GET 3; GET; IF_NONE { PUSH int 758; FAILWITH } {}; GET 4; IF {} { PUSH string "CMPT_LIQUIDITY_INVALID"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; GET 3; GET; IF_NONE { PUSH int 760; FAILWITH } {}; GET 3; LEVEL; SUB; ISNAT; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; PUSH nat 0; DUP 2; COMPARE; EQ; IF {} { PUSH string "CMPT_LIQUIDITY_OLD"; FAILWITH }; DUP 3; GET 3; GET 4; DUP 3; CAR; GET; IF_NONE { PUSH int 306; FAILWITH } {}; GET 8; LEVEL; DIG 2; DROP; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; GET 4; DUP 3; CAR; GET; IF_NONE { PUSH int 307; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 2; CAR; GET 5; DUP 2; GET 4; DUP 4; GET 3; GET 4; DUP 4; CAR; GET; IF_NONE { PUSH int 191; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; INT; DUP 3; CAR; CAR; CAR; DUP 3; GET 3; GET; IF_NONE { PUSH int 190; FAILWITH } {}; CAR; SUB; PUSH int 0; SWAP; COMPARE; GE; IF {} { PUSH string "CMPT_REDEEMER_SHORTFALL"; FAILWITH } } {} } {}; DUP 2; CAR; CAR; CAR; DUP 2; GET 3; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 5; GET 3; DUP; DUG 2; GET; IF_NONE { PUSH int 765; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 8 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 4; SENDER; MEM; IF { DUP 2; GET 3; GET 4; SENDER; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; GET 3; CAR; CDR; DUP 2; MEM; IF { DUP 2; GET 3; CAR; CDR; DUP 2; GET; IF_NONE { PUSH int 239; FAILWITH } {}; SENDER; MEM } { PUSH bool False }; IF { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; DUP; DIG 6; DUP; DUG 2; GET; IF_NONE { PUSH int 240; FAILWITH } {}; PUSH bool False; SENDER; UPDATE; SOME; SWAP; UPDATE; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR } { DROP }; NIL operation; PAIR }; Elt 9 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 4; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; CAR; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; GET 5; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DUP 6; GET 5; DUP; DUG 2; GET; IF_NONE { PUSH int 765; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR; SWAP } {}; DUP 2; CAR; CAR; CAR; DUP 2; GET 3; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 5; GET 3; DUP; DUG 2; GET; IF_NONE { PUSH int 765; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 10 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; PUSH (pair nat nat) (Pair 0 0); DUP; DUP 4; CAR; GET 3; CDR; DUP 4; MEM; IF { DUP 4; CAR; GET 3; CDR; DUP 4; GET; IF_NONE { PUSH int 491; FAILWITH } {}; ITER { DUP; DUP 5; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH string "CMPT_OUTDATED_ACCOUNT_SNAPHOT"; FAILWITH } { DROP }; DUP; DUP 5; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH int 521; FAILWITH } {}; DUP; GET 4; DUP 7; GET 3; GET 4; DUP 4; GET; IF_NONE { PUSH int 306; FAILWITH } {}; GET 8; LEVEL; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 8; GET 3; GET 4; DUP 5; GET; IF_NONE { PUSH int 307; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 7; CAR; GET 5; SWAP; DUP 8; CAR; GET 5; DUP 9; GET 3; GET 4; DUP 6; GET; IF_NONE { PUSH int 525; FAILWITH } {}; CAR; CAR; CDR; DUP 10; GET 3; GET 4; DUP 7; GET; IF_NONE { PUSH int 525; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; MEM; IF { DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 530; FAILWITH } {}; DUP 5; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 9; CAR; GET 5; DUP 5; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 8; CAR; GET 5; DIG 3; CAR; CDR; DUP 9; GET 3; GET 4; DIG 5; GET; IF_NONE { PUSH int 534; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } } {}; DUP 4; GET 3; CAR; CDR; DUP 4; MEM; IF { DUP 4; GET 3; CAR; CDR; DUP 4; GET; IF_NONE { PUSH int 499; FAILWITH } {}; ITER { DUP 5; CAR; GET 3; CDR; DUP 5; MEM; IF { DUP 5; CAR; GET 3; CDR; DUP 5; GET; IF_NONE { PUSH int 502; FAILWITH } {}; DUP 2; MEM; IF { DROP } { DUP; DUP 5; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH string "CMPT_OUTDATED_ACCOUNT_SNAPHOT"; FAILWITH } { DROP }; DUP; DUP 5; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH int 521; FAILWITH } {}; DUP; GET 4; DUP 7; GET 3; GET 4; DUP 4; GET; IF_NONE { PUSH int 306; FAILWITH } {}; GET 8; LEVEL; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 8; GET 3; GET 4; DUP 5; GET; IF_NONE { PUSH int 307; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 7; CAR; GET 5; SWAP; DUP 8; CAR; GET 5; DUP 9; GET 3; GET 4; DUP 6; GET; IF_NONE { PUSH int 525; FAILWITH } {}; CAR; CAR; CDR; DUP 10; GET 3; GET 4; DUP 7; GET; IF_NONE { PUSH int 525; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; MEM; IF { DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 530; FAILWITH } {}; DUP 5; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 9; CAR; GET 5; DUP 5; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 8; CAR; GET 5; DIG 3; CAR; CDR; DUP 9; GET 3; GET 4; DIG 5; GET; IF_NONE { PUSH int 534; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } } { DUP; DUP 5; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH string "CMPT_OUTDATED_ACCOUNT_SNAPHOT"; FAILWITH } { DROP }; DUP; DUP 5; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH int 521; FAILWITH } {}; DUP; GET 4; DUP 7; GET 3; GET 4; DUP 4; GET; IF_NONE { PUSH int 306; FAILWITH } {}; GET 8; LEVEL; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 8; GET 3; GET 4; DUP 5; GET; IF_NONE { PUSH int 307; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 7; CAR; GET 5; SWAP; DUP 8; CAR; GET 5; DUP 9; GET 3; GET 4; DUP 6; GET; IF_NONE { PUSH int 525; FAILWITH } {}; CAR; CAR; CDR; DUP 10; GET 3; GET 4; DUP 7; GET; IF_NONE { PUSH int 525; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; MEM; IF { DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 530; FAILWITH } {}; DUP 5; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 9; CAR; GET 5; DUP 5; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 8; CAR; GET 5; DIG 3; CAR; CDR; DUP 9; GET 3; GET 4; DIG 5; GET; IF_NONE { PUSH int 534; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } } } {}; DUP 2; DUP 5; CAR; CAR; GET 3; PUSH nat 4; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; DIG 4; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 4; UPDATE; PAIR; SWAP; PUSH bool True; LEVEL; DIG 7; DROP; DIG 7; DROP; DIG 6; UNPAIR; SWAP; SUB; PAIR 3; SOME; DIG 5; UPDATE; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 11 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { IF_LEFT {} { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 3; PUSH nat 1; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 1; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PUSH nat 0; DUP 2; CAR; CDR; COMPARE; EQ; IF {} { PUSH string "CMPT_BORROW_IN_MARKET"; FAILWITH }; DUP 2; GET 3; GET 4; SENDER; MEM; IF { DUP 2; GET 3; GET 4; SENDER; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; CAR; GET 3; CDR; DUP 2; CAR; CAR; MEM; IF { DUP 2; CAR; GET 3; CDR; DUP 2; CAR; CAR; GET; IF_NONE { PUSH int 180; FAILWITH } {}; SENDER; MEM } { PUSH bool False }; IF { DUP 2; GET 3; CAR; CDR; DUP 2; CAR; CAR; MEM; IF { PUSH nat 0; DUP 3; GET 3; CAR; CDR; DUP 3; CAR; CAR; GET; IF_NONE { PUSH int 182; FAILWITH } {}; SIZE; COMPARE; NEQ } { PUSH bool False }; IF { DUP 2; CAR; CAR; CAR; DUP 2; CAR; CAR; MEM; IF {} { PUSH string "CMPT_LIQUIDITY_ABSENT"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; CAR; CAR; GET; IF_NONE { PUSH int 758; FAILWITH } {}; GET 4; IF {} { PUSH string "CMPT_LIQUIDITY_INVALID"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; CAR; CAR; GET; IF_NONE { PUSH int 760; FAILWITH } {}; GET 3; LEVEL; SUB; ISNAT; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; PUSH nat 0; DUP 2; COMPARE; EQ; IF {} { PUSH string "CMPT_LIQUIDITY_OLD"; FAILWITH }; DUP 3; GET 3; GET 4; SENDER; GET; IF_NONE { PUSH int 306; FAILWITH } {}; GET 8; LEVEL; DIG 2; DROP; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; GET 4; SENDER; GET; IF_NONE { PUSH int 307; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 2; CAR; GET 5; DUP 2; GET 3; DUP 4; GET 3; GET 4; SENDER; GET; IF_NONE { PUSH int 191; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; INT; DUP 3; CAR; CAR; CAR; DUP 3; CAR; CAR; GET; IF_NONE { PUSH int 190; FAILWITH } {}; CAR; SUB; PUSH int 0; SWAP; COMPARE; GE; IF {} { PUSH string "CMPT_REDEEMER_SHORTFALL"; FAILWITH } } {} } {}; DUP 2; CAR; CAR; CAR; DUP 2; CAR; CAR; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DUP 6; CAR; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 765; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR; SWAP } {}; DUP 2; CAR; GET 3; CDR; DUP 2; CAR; CAR; MEM; IF { DUP 2; CAR; GET 3; CDR; DUP 2; CAR; CAR; GET; IF_NONE { PUSH int 133; FAILWITH } {}; SENDER; MEM } { PUSH bool False }; IF { SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; DUP; DUP 7; CAR; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 135; FAILWITH } {}; PUSH bool False; SENDER; UPDATE; SOME; SWAP; UPDATE; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; SWAP } {}; DUP 2; CAR; CAR; CAR; DUP 2; CAR; CAR; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 5; CAR; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 765; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 12 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } {} } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 4; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; CAR; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; DUP 7; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 603; FAILWITH } {}; UNPAIR; UNPAIR; CDR; DIG 9; CDR; PAIR; PAIR; PAIR; SOME; SWAP; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 13 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; CDR; DIG 4; PAIR; PAIR; SWAP; PAIR; PAIR; NIL operation; PAIR }; Elt 14 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } } { PUSH int -1; FAILWITH } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; DUP 2; GET 3; GET 4; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; CAR; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; DUP 7; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 670; FAILWITH } {}; UNPAIR; UNPAIR; CAR; DIG 9; CDR; SWAP; PAIR; PAIR; PAIR; SOME; SWAP; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 15 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } } { PUSH int -1; FAILWITH } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; CDR; DIG 4; PAIR; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 16 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT {} { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 4; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; CAR; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; DUP 7; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 585; FAILWITH } {}; UNPAIR; UNPAIR; SWAP; CAR; DIG 9; CDR; SWAP; PAIR; SWAP; PAIR; PAIR; SOME; SWAP; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 17 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SOME; UPDATE 7; NIL operation; PAIR }; Elt 18 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; SWAP; CDR; DIG 3; UNPAIR; SWAP; PAIR; PAIR; SWAP; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 19 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; UPDATE 8; NIL operation; PAIR }; Elt 20 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; DUP 2; GET 3; GET 4; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; CAR; GET; IF_NONE { PUSH int 746; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF { PUSH string "CMPT_MARKET_ALREADY_LISTED"; FAILWITH } {}; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; PUSH (pair timestamp nat) (Pair "1970-01-01T00:00:00Z" 0); DUP 7; GET 4; PAIR; PUSH nat 0; DUP 8; GET 3; PAIR; PAIR; PUSH (pair (pair bool nat) (pair bool bool)) (Pair (Pair True 500000000000000000) (Pair True True)); PAIR; SOME; DUP 7; CAR; UPDATE; SWAP; DUP 6; CAR; SOME; PUSH string "-USD"; DIG 7; GET 3; CONCAT; UPDATE; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 21 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 8; IF { PUSH string "CMPT_TRANSFER_PAUSED"; FAILWITH } {}; DUP 2; GET 3; GET 4; DUP 2; CAR; CAR; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; CAR; CAR; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; CAR; GET 3; CDR; DUP 2; CAR; CDR; MEM; IF { DUP 2; CAR; GET 3; CDR; DUP 2; CAR; CDR; GET; IF_NONE { PUSH int 180; FAILWITH } {}; DUP 2; CAR; CAR; MEM } { PUSH bool False }; IF { DUP 2; GET 3; CAR; CDR; DUP 2; CAR; CDR; MEM; IF { PUSH nat 0; DUP 3; GET 3; CAR; CDR; DUP 3; CAR; CDR; GET; IF_NONE { PUSH int 182; FAILWITH } {}; SIZE; COMPARE; NEQ } { PUSH bool False }; IF { DUP 2; CAR; CAR; CAR; DUP 2; CAR; CDR; MEM; IF {} { PUSH string "CMPT_LIQUIDITY_ABSENT"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; CAR; CDR; GET; IF_NONE { PUSH int 758; FAILWITH } {}; GET 4; IF {} { PUSH string "CMPT_LIQUIDITY_INVALID"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; CAR; CDR; GET; IF_NONE { PUSH int 760; FAILWITH } {}; GET 3; LEVEL; SUB; ISNAT; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; PUSH nat 0; DUP 2; COMPARE; EQ; IF {} { PUSH string "CMPT_LIQUIDITY_OLD"; FAILWITH }; DUP 3; GET 3; GET 4; DUP 3; CAR; CAR; GET; IF_NONE { PUSH int 306; FAILWITH } {}; GET 8; LEVEL; DIG 2; DROP; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; GET 4; DUP 3; CAR; CAR; GET; IF_NONE { PUSH int 307; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 2; CAR; GET 5; DUP 2; GET 4; DUP 4; GET 3; GET 4; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 191; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; INT; DUP 3; CAR; CAR; CAR; DUP 3; CAR; CDR; GET; IF_NONE { PUSH int 190; FAILWITH } {}; CAR; SUB; PUSH int 0; SWAP; COMPARE; GE; IF {} { PUSH string "CMPT_REDEEMER_SHORTFALL"; FAILWITH } } {} } {}; DUP 2; CAR; CAR; CAR; DUP 2; CAR; CDR; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 5; CAR; CDR; DUP; DUG 2; GET; IF_NONE { PUSH int 765; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }}) + => ./compiled_contracts/Comptroller/step_000_cont_0_storage.tz 1 + => ./compiled_contracts/Comptroller/step_000_cont_0_storage.json 4674 + => ./compiled_contracts/Comptroller/step_000_cont_0_sizes.csv 2 + => ./compiled_contracts/Comptroller/step_000_cont_0_storage.py 1 + => ./compiled_contracts/Comptroller/step_000_cont_0_types.py 7 + => ./compiled_contracts/Comptroller/step_000_cont_0_contract.tz 1159 + => ./compiled_contracts/Comptroller/step_000_cont_0_contract.json 1738 + => ./compiled_contracts/Comptroller/step_000_cont_0_contract.py 548 diff --git a/compiled_contracts/Comptroller/step_000_cont_0_contract.json b/compiled_contracts/Comptroller/step_000_cont_0_contract.json index 0061ce15..11d211fc 100644 --- a/compiled_contracts/Comptroller/step_000_cont_0_contract.json +++ b/compiled_contracts/Comptroller/step_000_cont_0_contract.json @@ -700,599 +700,6 @@ "prim": "code", "args": [ [ - { - "prim": "CAST", - "args": [ - { - "prim": "pair", - "args": [ - { - "prim": "or", - "args": [ - { - "prim": "or", - "args": [ - { - "prim": "or", - "args": [ - { - "prim": "or", - "args": [ - { - "prim": "or", - "args": [ - { "prim": "unit" }, - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] } - ] - }, - { - "prim": "or", - "args": [ { "prim": "address" }, { "prim": "or", "args": [ { "prim": "list", "args": [ { "prim": "address" } ] }, { "prim": "unit" } ] } ] - } - ] - }, - { - "prim": "or", - "args": [ - { - "prim": "or", - "args": [ - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "address" } ] }, - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] } - ] - }, - { - "prim": "or", - "args": [ - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }, - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] } - ] - } - ] - }, - { - "prim": "or", - "args": [ - { "prim": "address" }, - { - "prim": "or", - "args": [ - { - "prim": "pair", - "args": [ - { "prim": "address" }, - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] } - ] - }, - { "prim": "address" } - ] - } - ] - } - ] - } - ] - }, - { - "prim": "or", - "args": [ - { - "prim": "or", - "args": [ - { - "prim": "or", - "args": [ - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } - ] - }, - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "bool" } ] } - ] - }, - { - "prim": "or", - "args": [ - { "prim": "nat" }, { "prim": "or", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] } - ] - } - ] - }, - { - "prim": "or", - "args": [ - { - "prim": "or", - "args": [ - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "bool" } ] }, - { "prim": "or", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "int" } ] } ] } - ] - }, - { - "prim": "or", - "args": [ - { "prim": "bool" }, - { - "prim": "or", - "args": [ - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "string" }, { "prim": "nat" } ] } ] }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "address" } ] }, - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } - ] - } - ] - } - ] - } - ] - } - ] - } - ] - }, - { - "prim": "or", - "args": [ - { - "prim": "or", - "args": [ - { "prim": "address" }, - { - "prim": "or", - "args": [ - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] }, - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] } - ] - } - ] - }, - { "prim": "or", "args": [ { "prim": "bool" }, { "prim": "or", "args": [ { "prim": "address" }, { "prim": "unit" } ] } ] } - ] - } - ] - }, - { - "prim": "pair", - "args": [ - { - "prim": "pair", - "args": [ - { - "prim": "pair", - "args": [ - { - "prim": "pair", - "args": [ - { - "prim": "big_map", - "args": [ - { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "int" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "bool" } ] } ] } - ] - }, - { "prim": "pair", "args": [ { "prim": "set", "args": [ { "prim": "nat" } ] }, { "prim": "address" } ] } - ] - }, - { - "prim": "pair", - "args": [ - { - "prim": "pair", - "args": [ { "prim": "nat" }, { "prim": "big_map", "args": [ { "prim": "address" }, { "prim": "set", "args": [ { "prim": "address" } ] } ] } ] - }, - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } - ] - } - ] - }, - { - "prim": "pair", - "args": [ - { - "prim": "pair", - "args": [ - { - "prim": "pair", - "args": [ { "prim": "nat" }, { "prim": "big_map", "args": [ { "prim": "address" }, { "prim": "set", "args": [ { "prim": "address" } ] } ] } ] - }, - { - "prim": "pair", - "args": [ - { "prim": "map", "args": [ { "prim": "string" }, { "prim": "address" } ] }, - { - "prim": "big_map", - "args": [ - { "prim": "address" }, - { - "prim": "pair", - "args": [ - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "bool" }, { "prim": "nat" } ] }, - { "prim": "pair", "args": [ { "prim": "bool" }, { "prim": "bool" } ] } - ] - }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "string" }, { "prim": "nat" } ] }, - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "timestamp" }, { "prim": "nat" } ] } ] } - ] - } - ] - } - ] - } - ] - } - ] - }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "int" }, { "prim": "address" } ] }, - { "prim": "pair", "args": [ { "prim": "option", "args": [ { "prim": "address" } ] }, { "prim": "bool" } ] } - ] - } - ] - } - ] - }, - { - "prim": "big_map", - "args": [ - { "prim": "nat" }, - { - "prim": "lambda", - "args": [ - { - "prim": "pair", - "args": [ - { - "prim": "or", - "args": [ - { - "prim": "or", - "args": [ - { - "prim": "or", - "args": [ - { - "prim": "or", - "args": [ - { "prim": "unit" }, - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] } - ] - }, - { - "prim": "or", - "args": [ - { "prim": "address" }, { "prim": "or", "args": [ { "prim": "list", "args": [ { "prim": "address" } ] }, { "prim": "unit" } ] } - ] - } - ] - }, - { - "prim": "or", - "args": [ - { - "prim": "or", - "args": [ - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "address" } ] }, - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] } - ] - }, - { - "prim": "or", - "args": [ - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }, - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] } - ] - } - ] - }, - { - "prim": "or", - "args": [ - { "prim": "address" }, - { - "prim": "or", - "args": [ - { - "prim": "pair", - "args": [ - { "prim": "address" }, - { - "prim": "pair", - "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] - } - ] - }, - { "prim": "address" } - ] - } - ] - } - ] - } - ] - }, - { - "prim": "or", - "args": [ - { - "prim": "or", - "args": [ - { - "prim": "or", - "args": [ - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } - ] - }, - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "bool" } ] } - ] - }, - { - "prim": "or", - "args": [ - { "prim": "nat" }, - { "prim": "or", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] } - ] - } - ] - }, - { - "prim": "or", - "args": [ - { - "prim": "or", - "args": [ - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "bool" } ] }, - { "prim": "or", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "int" } ] } ] } - ] - }, - { - "prim": "or", - "args": [ - { "prim": "bool" }, - { - "prim": "or", - "args": [ - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "string" }, { "prim": "nat" } ] } ] }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "address" } ] }, - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } - ] - } - ] - } - ] - } - ] - } - ] - } - ] - }, - { - "prim": "pair", - "args": [ - { - "prim": "pair", - "args": [ - { - "prim": "pair", - "args": [ - { - "prim": "big_map", - "args": [ - { "prim": "address" }, - { "prim": "pair", "args": [ { "prim": "int" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "bool" } ] } ] } - ] - }, - { "prim": "pair", "args": [ { "prim": "set", "args": [ { "prim": "nat" } ] }, { "prim": "address" } ] } - ] - }, - { - "prim": "pair", - "args": [ - { - "prim": "pair", - "args": [ - { "prim": "nat" }, { "prim": "big_map", "args": [ { "prim": "address" }, { "prim": "set", "args": [ { "prim": "address" } ] } ] } - ] - }, - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } - ] - } - ] - }, - { - "prim": "pair", - "args": [ - { - "prim": "pair", - "args": [ - { - "prim": "pair", - "args": [ - { "prim": "nat" }, { "prim": "big_map", "args": [ { "prim": "address" }, { "prim": "set", "args": [ { "prim": "address" } ] } ] } - ] - }, - { - "prim": "pair", - "args": [ - { "prim": "map", "args": [ { "prim": "string" }, { "prim": "address" } ] }, - { - "prim": "big_map", - "args": [ - { "prim": "address" }, - { - "prim": "pair", - "args": [ - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "bool" }, { "prim": "nat" } ] }, - { "prim": "pair", "args": [ { "prim": "bool" }, { "prim": "bool" } ] } - ] - }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "string" }, { "prim": "nat" } ] }, - { - "prim": "pair", - "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "timestamp" }, { "prim": "nat" } ] } ] - } - ] - } - ] - } - ] - } - ] - } - ] - }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "int" }, { "prim": "address" } ] }, - { "prim": "pair", "args": [ { "prim": "option", "args": [ { "prim": "address" } ] }, { "prim": "bool" } ] } - ] - } - ] - } - ] - } - ] - }, - { - "prim": "pair", - "args": [ - { "prim": "list", "args": [ { "prim": "operation" } ] }, - { - "prim": "pair", - "args": [ - { - "prim": "pair", - "args": [ - { - "prim": "pair", - "args": [ - { - "prim": "big_map", - "args": [ - { "prim": "address" }, - { "prim": "pair", "args": [ { "prim": "int" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "bool" } ] } ] } - ] - }, - { "prim": "pair", "args": [ { "prim": "set", "args": [ { "prim": "nat" } ] }, { "prim": "address" } ] } - ] - }, - { - "prim": "pair", - "args": [ - { - "prim": "pair", - "args": [ - { "prim": "nat" }, { "prim": "big_map", "args": [ { "prim": "address" }, { "prim": "set", "args": [ { "prim": "address" } ] } ] } - ] - }, - { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } - ] - } - ] - }, - { - "prim": "pair", - "args": [ - { - "prim": "pair", - "args": [ - { - "prim": "pair", - "args": [ - { "prim": "nat" }, { "prim": "big_map", "args": [ { "prim": "address" }, { "prim": "set", "args": [ { "prim": "address" } ] } ] } - ] - }, - { - "prim": "pair", - "args": [ - { "prim": "map", "args": [ { "prim": "string" }, { "prim": "address" } ] }, - { - "prim": "big_map", - "args": [ - { "prim": "address" }, - { - "prim": "pair", - "args": [ - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "bool" }, { "prim": "nat" } ] }, - { "prim": "pair", "args": [ { "prim": "bool" }, { "prim": "bool" } ] } - ] - }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "string" }, { "prim": "nat" } ] }, - { - "prim": "pair", - "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "timestamp" }, { "prim": "nat" } ] } ] - } - ] - } - ] - } - ] - } - ] - } - ] - }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "int" }, { "prim": "address" } ] }, - { "prim": "pair", "args": [ { "prim": "option", "args": [ { "prim": "address" } ] }, { "prim": "bool" } ] } - ] - } - ] - } - ] - } - ] - } - ] - } - ] - } - ] - } - ] - } - ] - }, { "prim": "UNPAIR", "args": [ { "int": "3" } ] }, { "prim": "IF_LEFT", @@ -1488,7 +895,6 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "MUL" }, { "prim": "AMOUNT" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "TEZ_TRANSFERED" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -1534,14 +940,12 @@ ], "annots": [ "%getAccountSnapshot" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "112" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "113" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "SWAP" }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "SELF", "annots": [ "%setAccountSnapAndExitMarket" ] }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "PAIR" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" } @@ -1551,7 +955,8 @@ "prim": "IF_LEFT", "args": [ [ - { "prim": "DUP" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, { "prim": "CONTRACT", @@ -1566,9 +971,7 @@ ], "annots": [ "%transfer" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "12" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "NIL", "args": [ { "prim": "operation" } ] }, - { "prim": "SWAP" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "17" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, @@ -1577,13 +980,13 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" } ], [ - { "prim": "DUP" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "CONTRACT", @@ -1615,9 +1018,7 @@ ], "annots": [ "%transfer" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "38" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "NIL", "args": [ { "prim": "operation" } ] }, - { "prim": "SWAP" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "43" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "NIL", @@ -1650,7 +1051,6 @@ { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "CONS" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR" }, { "prim": "CONS" }, { "prim": "TRANSFER_TOKENS" }, @@ -1671,31 +1071,27 @@ "prim": "IF", "args": [ [ - { "prim": "DUP" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "CONTRACT", "args": [ { "prim": "unit" } ], "annots": [ "%receive" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "20" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "NIL", "args": [ { "prim": "operation" } ] }, - { "prim": "SWAP" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "21" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "BALANCE" }, - { "prim": "RENAME" }, { "prim": "UNIT" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" } ], [ - { "prim": "DUP" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "CONTRACT", "args": [ { "prim": "unit" } ] }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "24" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "NIL", "args": [ { "prim": "operation" } ] }, - { "prim": "SWAP" }, { "prim": "BALANCE" }, - { "prim": "RENAME" }, { "prim": "UNIT" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" } @@ -1712,13 +1108,10 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "MUL" }, { "prim": "AMOUNT" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "TEZ_TRANSFERED" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { @@ -1727,7 +1120,6 @@ [ { "prim": "CDR" }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, @@ -1741,13 +1133,33 @@ "prim": "IF", "args": [ [ - { "prim": "PUSH", "args": [ { "prim": "timestamp" }, { "string": "1970-01-01T00:00:00Z" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "CDR" }, + { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "-USD" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "295" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CONCAT" }, + { "prim": "VIEW", "args": [ { "string": "getPrice" }, { "prim": "pair", "args": [ { "prim": "timestamp" }, { "prim": "nat" } ] } ] }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "invalid oracle view call" } ] }, { "prim": "FAILWITH" } ], [] + ] + }, + { "prim": "PUSH", "args": [ { "prim": "timestamp" }, { "string": "1970-01-01T00:00:00Z" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "296" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "298" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "7" } ] }, { "prim": "COMPARE" }, { "prim": "NEQ" }, @@ -1755,42 +1167,12 @@ "prim": "IF", "args": [ [ - { "prim": "DIG", "args": [ { "int": "2" } ] }, - { "prim": "DUP" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "CAR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "CDR" }, - { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "-USD" } ] }, - { "prim": "DUP", "args": [ { "int": "6" } ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "5" } ] }, - { "prim": "GET" }, - { - "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "294" } ] }, { "prim": "FAILWITH" } ], [] ] - }, - { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CONCAT" }, - { - "prim": "VIEW", - "args": [ { "string": "getPrice" }, { "prim": "pair", "args": [ { "prim": "timestamp" }, { "prim": "nat" } ] } ] - }, - { - "prim": "IF_NONE", - "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "invalid oracle view call" } ] }, { "prim": "FAILWITH" } ], - [] - ] - }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "NOW" }, - { "prim": "RENAME" }, { "prim": "SUB" }, { "prim": "COMPARE" }, { "prim": "LE" }, @@ -1804,7 +1186,17 @@ [] ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "301" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, + { "prim": "MUL" }, + { "prim": "DIG", "args": [ { "int": "4" } ] }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -1813,44 +1205,16 @@ { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "DUP", "args": [ { "int": "9" } ] }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "298" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "300" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "CAR" }, - { "prim": "DUP", "args": [ { "int": "12" } ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "11" } ] }, - { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "299" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "DUP", "args": [ { "int": "13" } ] }, - { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "CDR" }, - { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "-USD" } ] }, - { "prim": "DIG", "args": [ { "int": "14" } ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "14" } ] }, - { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "294" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "CAR" }, - { "prim": "CONCAT" }, - { "prim": "VIEW", "args": [ { "string": "getPrice" }, { "prim": "pair", "args": [ { "prim": "timestamp" }, { "prim": "nat" } ] } ] }, - { - "prim": "IF_NONE", - "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "invalid oracle view call" } ] }, { "prim": "FAILWITH" } ], [] - ] - }, - { "prim": "CDR" }, - { "prim": "MUL" }, + { "prim": "DIG", "args": [ { "int": "9" } ] }, { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, @@ -1859,63 +1223,29 @@ { "prim": "SOME" }, { "prim": "SWAP" }, { "prim": "UPDATE" }, - { "prim": "SWAP" }, - { "prim": "PAIR" }, - { "prim": "SWAP" }, - { "prim": "PAIR" }, - { "prim": "PAIR" }, - { "prim": "SWAP" }, - { "prim": "PAIR" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "3" } ] }, - { "prim": "UNPAIR" }, - { "prim": "SWAP" }, - { "prim": "UNPAIR" }, - { "prim": "UNPAIR" }, - { "prim": "SWAP" }, - { "prim": "UNPAIR" }, - { "prim": "SWAP" }, { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "300" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP", "args": [ { "int": "10" } ] }, - { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "CDR" }, - { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "-USD" } ] }, - { "prim": "DIG", "args": [ { "int": "11" } ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "11" } ] }, - { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "294" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "CAR" }, - { "prim": "CONCAT" }, - { "prim": "VIEW", "args": [ { "string": "getPrice" }, { "prim": "pair", "args": [ { "prim": "timestamp" }, { "prim": "nat" } ] } ] }, - { - "prim": "IF_NONE", - "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "invalid oracle view call" } ] }, { "prim": "FAILWITH" } ], [] - ] - }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "302" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, { "prim": "UPDATE", "args": [ { "int": "7" } ] }, { "prim": "SOME" }, { "prim": "SWAP" }, { "prim": "UPDATE" }, { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "301" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "303" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "LEVEL" }, { "prim": "DIG", "args": [ { "int": "8" } ] }, { "prim": "DROP" }, - { "prim": "RENAME" }, + { "prim": "DIG", "args": [ { "int": "8" } ] }, + { "prim": "DROP" }, { "prim": "UPDATE", "args": [ { "int": "8" } ] }, { "prim": "SOME" }, { "prim": "SWAP" }, @@ -1945,7 +1275,7 @@ [ { "prim": "CDR" }, { "prim": "CONTRACT", "args": [ { "prim": "unit" } ], "annots": [ "%accrueInterest" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "344" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "347" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "UNIT" }, { "prim": "TRANSFER_TOKENS" }, @@ -1969,7 +1299,6 @@ { "prim": "PAIR" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "SELF", "annots": [ "%setAccountLiquidityWithView" ] }, - { "prim": "RENAME" }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, @@ -1980,13 +1309,10 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "MUL" }, { "prim": "AMOUNT" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "TEZ_TRANSFERED" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { @@ -1995,7 +1321,6 @@ [ { "prim": "CDR" }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, @@ -2009,13 +1334,33 @@ "prim": "IF", "args": [ [ - { "prim": "PUSH", "args": [ { "prim": "timestamp" }, { "string": "1970-01-01T00:00:00Z" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "CDR" }, + { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "-USD" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "295" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CONCAT" }, + { "prim": "VIEW", "args": [ { "string": "getPrice" }, { "prim": "pair", "args": [ { "prim": "timestamp" }, { "prim": "nat" } ] } ] }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "invalid oracle view call" } ] }, { "prim": "FAILWITH" } ], [] + ] + }, + { "prim": "PUSH", "args": [ { "prim": "timestamp" }, { "string": "1970-01-01T00:00:00Z" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "296" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "298" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "7" } ] }, { "prim": "COMPARE" }, { "prim": "NEQ" }, @@ -2023,42 +1368,12 @@ "prim": "IF", "args": [ [ - { "prim": "DIG", "args": [ { "int": "2" } ] }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "4" } ] }, - { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "CDR" }, - { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "-USD" } ] }, - { "prim": "DUP", "args": [ { "int": "6" } ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "5" } ] }, - { "prim": "GET" }, - { - "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "294" } ] }, { "prim": "FAILWITH" } ], [] ] - }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "CAR" }, - { "prim": "CONCAT" }, - { - "prim": "VIEW", - "args": [ { "string": "getPrice" }, { "prim": "pair", "args": [ { "prim": "timestamp" }, { "prim": "nat" } ] } ] - }, - { - "prim": "IF_NONE", - "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "invalid oracle view call" } ] }, { "prim": "FAILWITH" } ], - [] - ] - }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "NOW" }, - { "prim": "RENAME" }, { "prim": "SUB" }, { "prim": "COMPARE" }, { "prim": "LE" }, @@ -2072,7 +1387,17 @@ [] ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "301" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, + { "prim": "MUL" }, + { "prim": "DIG", "args": [ { "int": "4" } ] }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -2081,44 +1406,16 @@ { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "DUP", "args": [ { "int": "9" } ] }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "298" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "300" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "CAR" }, - { "prim": "DUP", "args": [ { "int": "12" } ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "11" } ] }, - { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "299" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "DUP", "args": [ { "int": "13" } ] }, - { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "CDR" }, - { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "-USD" } ] }, - { "prim": "DIG", "args": [ { "int": "14" } ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "14" } ] }, - { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "294" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "CAR" }, - { "prim": "CONCAT" }, - { "prim": "VIEW", "args": [ { "string": "getPrice" }, { "prim": "pair", "args": [ { "prim": "timestamp" }, { "prim": "nat" } ] } ] }, - { - "prim": "IF_NONE", - "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "invalid oracle view call" } ] }, { "prim": "FAILWITH" } ], [] - ] - }, - { "prim": "CDR" }, - { "prim": "MUL" }, + { "prim": "DIG", "args": [ { "int": "9" } ] }, { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, @@ -2127,63 +1424,29 @@ { "prim": "SOME" }, { "prim": "SWAP" }, { "prim": "UPDATE" }, - { "prim": "SWAP" }, - { "prim": "PAIR" }, - { "prim": "SWAP" }, - { "prim": "PAIR" }, - { "prim": "PAIR" }, - { "prim": "SWAP" }, - { "prim": "PAIR" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "3" } ] }, - { "prim": "UNPAIR" }, - { "prim": "SWAP" }, - { "prim": "UNPAIR" }, - { "prim": "UNPAIR" }, - { "prim": "SWAP" }, - { "prim": "UNPAIR" }, - { "prim": "SWAP" }, { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "300" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP", "args": [ { "int": "10" } ] }, - { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "CDR" }, - { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "-USD" } ] }, - { "prim": "DIG", "args": [ { "int": "11" } ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "11" } ] }, - { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "294" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "CAR" }, - { "prim": "CONCAT" }, - { "prim": "VIEW", "args": [ { "string": "getPrice" }, { "prim": "pair", "args": [ { "prim": "timestamp" }, { "prim": "nat" } ] } ] }, - { - "prim": "IF_NONE", - "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "invalid oracle view call" } ] }, { "prim": "FAILWITH" } ], [] - ] - }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "302" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, { "prim": "UPDATE", "args": [ { "int": "7" } ] }, { "prim": "SOME" }, { "prim": "SWAP" }, { "prim": "UPDATE" }, { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "301" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "303" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "LEVEL" }, { "prim": "DIG", "args": [ { "int": "8" } ] }, { "prim": "DROP" }, - { "prim": "RENAME" }, + { "prim": "DIG", "args": [ { "int": "8" } ] }, + { "prim": "DROP" }, { "prim": "UPDATE", "args": [ { "int": "8" } ] }, { "prim": "SOME" }, { "prim": "SWAP" }, @@ -2238,37 +1501,28 @@ { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%cTokenBorrowed" ] }, { "prim": "address", "annots": [ "%cTokenCollateral" ] } ] } ] }, - { "prim": "nat" }, + { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, [ { "prim": "UNPAIR", "args": [ { "int": "3" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "304" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "306" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "8" } ] }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_UPDATE_PRICE" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "305" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "307" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, @@ -2277,12 +1531,11 @@ { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "304" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "306" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "8" } ] }, { "prim": "LEVEL" }, { "prim": "DIG", "args": [ { "int": "5" } ] }, { "prim": "DROP" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_UPDATE_PRICE" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -2292,7 +1545,7 @@ { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "305" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "307" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, @@ -2302,7 +1555,7 @@ { "prim": "IF", "args": [ - [ { "prim": "DUP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "COMPARE" }, { "prim": "NEQ" } ], + [ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "COMPARE" }, { "prim": "NEQ" } ], [ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] } ] ] }, @@ -2324,16 +1577,17 @@ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "UNIT" }, - { "prim": "VIEW", "args": [ { "string": "exchangeRateStoredView" }, { "prim": "nat" } ] }, + { "prim": "VIEW", "args": [ { "string": "exchangeRateStoredView" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID EXCHANGE RATE VIEW" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CAR" }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "MUL" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "207" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] }, - { "prim": "DUP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "COMPARE" }, - { "prim": "LT" }, + { "prim": "GT" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, @@ -2342,15 +1596,22 @@ { "prim": "MUL" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "244" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "UNIT" }, + { "prim": "VIEW", "args": [ { "string": "exchangeRateStoredView" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID EXCHANGE RATE VIEW" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CDR" }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "MUL" }, { "prim": "EDIV" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "61" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "61" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] }, + { "prim": "PAIR" } ] ] }, @@ -2364,82 +1625,113 @@ { "prim": "UNPAIR", "args": [ { "int": "3" } ] }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "DROP" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "MEM" }, { "prim": "IF", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "730" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "464" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] } ], [ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] } ] ] }, - { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_MARKET_NOT_LISTED" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, - { "prim": "CDR" }, - { "prim": "MEM" }, { "prim": "IF", "args": [ [ - { "prim": "SWAP" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, - { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "730" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "3" } ] } + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "SWAP" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "467" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "NOT" } + ], + [ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] } ] + ] + } ], - [ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] } ] + [ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] } ] ] }, - { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_MARKET_NOT_LISTED" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP" }, - { "prim": "CDR" }, - { "prim": "UNIT" }, - { "prim": "VIEW", "args": [ { "string": "comptroller" }, { "prim": "address" } ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID COMPTROLLER VIEW" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "SWAP" }, - { "prim": "CAR" }, - { "prim": "UNIT" }, - { "prim": "VIEW", "args": [ { "string": "comptroller" }, { "prim": "address" } ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID COMPTROLLER VIEW" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "COMPARE" }, - { "prim": "EQ" }, - { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_COMPTROLLER_MISMATCH" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] } + { + "prim": "IF", + "args": [ + [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] } ], + [ + { "prim": "DUP" }, + { "prim": "CAR" }, + { "prim": "UNIT" }, + { "prim": "VIEW", "args": [ { "string": "comptroller" }, { "prim": "address" } ] }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] } ], + [ + { "prim": "DROP" }, + { "prim": "DUP" }, + { "prim": "CDR" }, + { "prim": "UNIT" }, + { "prim": "VIEW", "args": [ { "string": "comptroller" }, { "prim": "address" } ] }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] } ], + [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] } ] + ] + } + ] + ] + }, + { + "prim": "IF", + "args": [ + [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] } ], + [ + { "prim": "DUP" }, + { "prim": "CDR" }, + { "prim": "UNIT" }, + { "prim": "VIEW", "args": [ { "string": "comptroller" }, { "prim": "address" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "479" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "SWAP" }, + { "prim": "CAR" }, + { "prim": "UNIT" }, + { "prim": "VIEW", "args": [ { "string": "comptroller" }, { "prim": "address" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "478" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "COMPARE" }, + { "prim": "EQ" } + ] + ] + } + ] + ] + } ] ] } diff --git a/compiled_contracts/Comptroller/step_000_cont_0_contract.py b/compiled_contracts/Comptroller/step_000_cont_0_contract.py index 2fe118ca..a4d0a499 100644 --- a/compiled_contracts/Comptroller/step_000_cont_0_contract.py +++ b/compiled_contracts/Comptroller/step_000_cont_0_contract.py @@ -5,7 +5,7 @@ def __init__(self): self.init_type(sp.TRecord(account_liquidity = sp.TBigMap(sp.TAddress, sp.TRecord(liquidity = sp.TInt, updateLevel = sp.TNat, valid = sp.TBool).layout(("liquidity", ("updateLevel", "valid")))), activeOperations = sp.TSet(sp.TNat), administrator = sp.TAddress, closeFactorMantissa = sp.TNat, collaterals = sp.TBigMap(sp.TAddress, sp.TSet(sp.TAddress)), expScale = sp.TNat, halfExpScale = sp.TNat, liquidationIncentiveMantissa = sp.TNat, loans = sp.TBigMap(sp.TAddress, sp.TSet(sp.TAddress)), marketNameToAddress = sp.TMap(sp.TString, sp.TAddress), markets = sp.TBigMap(sp.TAddress, sp.TRecord(borrowPaused = sp.TBool, collateralFactor = sp.TRecord(mantissa = sp.TNat).layout("mantissa"), isListed = sp.TBool, mintPaused = sp.TBool, name = sp.TString, price = sp.TRecord(mantissa = sp.TNat).layout("mantissa"), priceExp = sp.TNat, priceTimestamp = sp.TTimestamp, updateLevel = sp.TNat).layout(((("borrowPaused", "collateralFactor"), ("isListed", "mintPaused")), (("name", "price"), ("priceExp", ("priceTimestamp", "updateLevel")))))), maxPriceTimeDifference = sp.TInt, oracleAddress = sp.TAddress, pendingAdministrator = sp.TOption(sp.TAddress), transferPaused = sp.TBool).layout(((("account_liquidity", ("activeOperations", "administrator")), (("closeFactorMantissa", "collaterals"), ("expScale", "halfExpScale"))), ((("liquidationIncentiveMantissa", "loans"), ("marketNameToAddress", "markets")), (("maxPriceTimeDifference", "oracleAddress"), ("pendingAdministrator", "transferPaused")))))) self.init(account_liquidity = {}, activeOperations = sp.set([]), - administrator = sp.address('KT1KW6McQpHFZPffW6vZt5JSxibvVKAPnYUq'), + administrator = sp.address('KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2'), closeFactorMantissa = 500000000000000000, collaterals = {}, expScale = 1000000000000000000, @@ -15,11 +15,11 @@ def __init__(self): marketNameToAddress = {}, markets = {}, maxPriceTimeDifference = 86400, - oracleAddress = sp.address('KT1RiGPbUciuBFykVoAmRawdvne322K8yV6N'), + oracleAddress = sp.address('KT1LDtNKDnpziwSrmSfx3xCbs7nBMg7VFp4m'), pendingAdministrator = sp.none, transferPaused = True) - @sp.entry_point + @sp.entrypoint def acceptGovernance(self, params): sp.verify(sp.amount == sp.mul(sp.set_type_expr(0, sp.TNat), sp.mutez(1)), 'TEZ_TRANSFERED') sp.set_type(params, sp.TUnit) @@ -27,7 +27,7 @@ def acceptGovernance(self, params): self.data.administrator = self.data.pendingAdministrator.open_some() self.data.pendingAdministrator = sp.none - @sp.entry_point + @sp.entrypoint def borrowAllowed(self, params): sp.verify(sp.amount == sp.mul(sp.set_type_expr(0, sp.TNat), sp.mutez(1)), 'TEZ_TRANSFERED') sp.set_type(params, sp.TRecord(borrowAmount = sp.TNat, borrower = sp.TAddress, cToken = sp.TAddress).layout(("cToken", ("borrower", "borrowAmount")))) @@ -44,8 +44,8 @@ def borrowAllowed(self, params): sp.verify(self.data.account_liquidity[params.borrower].valid, 'CMPT_LIQUIDITY_INVALID') sp.set_type(sp.level, sp.TNat) sp.set_type(self.data.account_liquidity[params.borrower].updateLevel, sp.TNat) - compute_Comptroller_747 = sp.local("compute_Comptroller_747", sp.as_nat(sp.level - self.data.account_liquidity[params.borrower].updateLevel, message = 'SUBTRACTION_UNDERFLOW')) - sp.verify(compute_Comptroller_747.value == 0, 'CMPT_LIQUIDITY_OLD') + compute_Comptroller_759 = sp.local("compute_Comptroller_759", sp.as_nat(sp.level - self.data.account_liquidity[params.borrower].updateLevel, message = 'SUBTRACTION_UNDERFLOW')) + sp.verify(compute_Comptroller_759.value == 0, 'CMPT_LIQUIDITY_OLD') sp.verify(sp.level == self.data.markets[params.cToken].updateLevel, 'CMPT_UPDATE_PRICE') sp.verify(self.data.markets[params.cToken].price.mantissa > 0, 'CMPT_INVALID_PRICE') sp.set_type(self.data.markets[params.cToken].price, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) @@ -58,7 +58,7 @@ def borrowAllowed(self, params): sp.if self.data.account_liquidity.contains(params.borrower): self.data.account_liquidity[params.borrower].valid = False - @sp.entry_point + @sp.entrypoint def disableMarket(self, params): sp.verify(sp.amount == sp.mul(sp.set_type_expr(0, sp.TNat), sp.mutez(1)), 'TEZ_TRANSFERED') sp.set_type(params, sp.TAddress) @@ -66,7 +66,7 @@ def disableMarket(self, params): sp.verify((self.data.markets.contains(params)) & self.data.markets[params].isListed, 'CMPT_MARKET_NOT_LISTED') self.data.markets[params].isListed = False - @sp.entry_point + @sp.entrypoint def enterMarkets(self, params): sp.verify(sp.amount == sp.mul(sp.set_type_expr(0, sp.TNat), sp.mutez(1)), 'TEZ_TRANSFERED') sp.set_type(params, sp.TList(sp.TAddress)) @@ -79,20 +79,20 @@ def enterMarkets(self, params): sp.if self.data.account_liquidity.contains(sp.sender): self.data.account_liquidity[sp.sender].valid = False - @sp.entry_point + @sp.entrypoint def exitMarket(self, params): sp.verify(sp.amount == sp.mul(sp.set_type_expr(0, sp.TNat), sp.mutez(1)), 'TEZ_TRANSFERED') sp.set_type(params, sp.TAddress) self.data.activeOperations.add(1) - sp.transfer((sp.sender, sp.self_entry_point('setAccountSnapAndExitMarket')), sp.tez(0), sp.contract(sp.TPair(sp.TAddress, sp.TContract(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))), params, entry_point='getAccountSnapshot').open_some()) + sp.transfer((sp.sender, sp.self_entrypoint('setAccountSnapAndExitMarket')), sp.tez(0), sp.contract(sp.TPair(sp.TAddress, sp.TContract(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))), params, entrypoint='getAccountSnapshot').open_some()) - @sp.entry_point + @sp.entrypoint def hardResetOp(self, params): sp.set_type(params, sp.TUnit) sp.verify(sp.sender == self.data.administrator, 'CMPT_NOT_ADMIN') self.data.activeOperations = sp.set([]) - @sp.entry_point + @sp.entrypoint def liquidateBorrowAllowed(self, params): sp.verify(sp.amount == sp.mul(sp.set_type_expr(0, sp.TNat), sp.mutez(1)), 'TEZ_TRANSFERED') sp.set_type(params, sp.TRecord(borrower = sp.TAddress, cTokenBorrowed = sp.TAddress, cTokenCollateral = sp.TAddress, liquidator = sp.TAddress, repayAmount = sp.TNat).layout((("borrower", "cTokenBorrowed"), ("cTokenCollateral", ("liquidator", "repayAmount"))))) @@ -102,110 +102,116 @@ def liquidateBorrowAllowed(self, params): temp = sp.local("temp", sp.record(sumBorrowPlusEffects = 0, sumCollateral = 0)) sp.if self.data.collaterals.contains(params.borrower): sp.for asset in self.data.collaterals[params.borrower].elements(): - sp.set_type(sp.view("getAccountSnapshotView", params.borrower, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').exchangeRateMantissa, sp.TNat) - compute_Comptroller_510 = sp.local("compute_Comptroller_510", sp.record(mantissa = sp.view("getAccountSnapshotView", params.borrower, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').exchangeRateMantissa)) + sp.verify(sp.view("getAccountSnapshotView", params.borrower, asset, sp.TOption(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').is_some(), 'CMPT_OUTDATED_ACCOUNT_SNAPHOT') + params = sp.local("params", sp.view("getAccountSnapshotView", params.borrower, asset, sp.TOption(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').open_some()) + sp.set_type(params.value.exchangeRateMantissa, sp.TNat) + compute_Comptroller_522 = sp.local("compute_Comptroller_522", sp.record(mantissa = params.value.exchangeRateMantissa)) sp.verify(sp.level == self.data.markets[asset].updateLevel, 'CMPT_UPDATE_PRICE') sp.verify(self.data.markets[asset].price.mantissa > 0, 'CMPT_INVALID_PRICE') sp.set_type(self.data.markets[asset].price, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(self.data.markets[asset].collateralFactor, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale, sp.TNat) sp.set_type(sp.record(mantissa = (self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(compute_Comptroller_510.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type((((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_510.value.mantissa) // self.data.expScale, sp.TNat) - compute_Comptroller_514 = sp.local("compute_Comptroller_514", sp.record(mantissa = (((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_510.value.mantissa) // self.data.expScale)) + sp.set_type(compute_Comptroller_522.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type((((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_522.value.mantissa) // self.data.expScale, sp.TNat) + compute_Comptroller_526 = sp.local("compute_Comptroller_526", sp.record(mantissa = (((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_522.value.mantissa) // self.data.expScale)) calc = sp.local("calc", sp.record(sumBorrowPlusEffects = 0, sumCollateral = 0)) - sp.if (self.data.collaterals.contains(sp.view("getAccountSnapshotView", params.borrower, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').account)) & (self.data.collaterals[sp.view("getAccountSnapshotView", params.borrower, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').account].contains(asset)): - sp.set_type(compute_Comptroller_514.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(compute_Comptroller_514.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(sp.view("getAccountSnapshotView", params.borrower, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').cTokenBalance, sp.TNat) - sp.set_type(compute_Comptroller_514.value.mantissa * sp.view("getAccountSnapshotView", params.borrower, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').cTokenBalance, sp.TNat) - sp.set_type(sp.record(mantissa = compute_Comptroller_514.value.mantissa * sp.view("getAccountSnapshotView", params.borrower, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').cTokenBalance), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - calc.value.sumCollateral += (compute_Comptroller_514.value.mantissa * sp.view("getAccountSnapshotView", params.borrower, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').cTokenBalance) // self.data.expScale + sp.if (self.data.collaterals.contains(params.value.account)) & (self.data.collaterals[params.value.account].contains(asset)): + sp.set_type(compute_Comptroller_526.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_Comptroller_526.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(params.value.cTokenBalance, sp.TNat) + sp.set_type(compute_Comptroller_526.value.mantissa * params.value.cTokenBalance, sp.TNat) + sp.set_type(sp.record(mantissa = compute_Comptroller_526.value.mantissa * params.value.cTokenBalance), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + calc.value.sumCollateral += (compute_Comptroller_526.value.mantissa * params.value.cTokenBalance) // self.data.expScale sp.set_type(self.data.markets[asset].price, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(self.data.markets[asset].price, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(sp.view("getAccountSnapshotView", params.borrower, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').borrowBalance, sp.TNat) - sp.set_type(self.data.markets[asset].price.mantissa * sp.view("getAccountSnapshotView", params.borrower, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').borrowBalance, sp.TNat) - sp.set_type(sp.record(mantissa = self.data.markets[asset].price.mantissa * sp.view("getAccountSnapshotView", params.borrower, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').borrowBalance), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - calc.value.sumBorrowPlusEffects += (self.data.markets[asset].price.mantissa * sp.view("getAccountSnapshotView", params.borrower, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').borrowBalance) // self.data.expScale + sp.set_type(params.value.borrowBalance, sp.TNat) + sp.set_type(self.data.markets[asset].price.mantissa * params.value.borrowBalance, sp.TNat) + sp.set_type(sp.record(mantissa = self.data.markets[asset].price.mantissa * params.value.borrowBalance), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + calc.value.sumBorrowPlusEffects += (self.data.markets[asset].price.mantissa * params.value.borrowBalance) // self.data.expScale calculation.value.sumCollateral += calc.value.sumCollateral calculation.value.sumBorrowPlusEffects += calc.value.sumBorrowPlusEffects sp.if self.data.loans.contains(params.borrower): sp.for asset in self.data.loans[params.borrower].elements(): sp.if self.data.collaterals.contains(params.borrower): sp.if ~ (self.data.collaterals[params.borrower].contains(asset)): - sp.set_type(sp.view("getAccountSnapshotView", params.borrower, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').exchangeRateMantissa, sp.TNat) - compute_Comptroller_510 = sp.local("compute_Comptroller_510", sp.record(mantissa = sp.view("getAccountSnapshotView", params.borrower, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').exchangeRateMantissa)) + sp.verify(sp.view("getAccountSnapshotView", params.borrower, asset, sp.TOption(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').is_some(), 'CMPT_OUTDATED_ACCOUNT_SNAPHOT') + params = sp.local("params", sp.view("getAccountSnapshotView", params.borrower, asset, sp.TOption(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').open_some()) + sp.set_type(params.value.exchangeRateMantissa, sp.TNat) + compute_Comptroller_522 = sp.local("compute_Comptroller_522", sp.record(mantissa = params.value.exchangeRateMantissa)) sp.verify(sp.level == self.data.markets[asset].updateLevel, 'CMPT_UPDATE_PRICE') sp.verify(self.data.markets[asset].price.mantissa > 0, 'CMPT_INVALID_PRICE') sp.set_type(self.data.markets[asset].price, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(self.data.markets[asset].collateralFactor, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale, sp.TNat) sp.set_type(sp.record(mantissa = (self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(compute_Comptroller_510.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type((((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_510.value.mantissa) // self.data.expScale, sp.TNat) - compute_Comptroller_514 = sp.local("compute_Comptroller_514", sp.record(mantissa = (((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_510.value.mantissa) // self.data.expScale)) + sp.set_type(compute_Comptroller_522.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type((((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_522.value.mantissa) // self.data.expScale, sp.TNat) + compute_Comptroller_526 = sp.local("compute_Comptroller_526", sp.record(mantissa = (((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_522.value.mantissa) // self.data.expScale)) calc = sp.local("calc", sp.record(sumBorrowPlusEffects = 0, sumCollateral = 0)) - sp.if (self.data.collaterals.contains(sp.view("getAccountSnapshotView", params.borrower, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').account)) & (self.data.collaterals[sp.view("getAccountSnapshotView", params.borrower, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').account].contains(asset)): - sp.set_type(compute_Comptroller_514.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(compute_Comptroller_514.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(sp.view("getAccountSnapshotView", params.borrower, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').cTokenBalance, sp.TNat) - sp.set_type(compute_Comptroller_514.value.mantissa * sp.view("getAccountSnapshotView", params.borrower, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').cTokenBalance, sp.TNat) - sp.set_type(sp.record(mantissa = compute_Comptroller_514.value.mantissa * sp.view("getAccountSnapshotView", params.borrower, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').cTokenBalance), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - calc.value.sumCollateral += (compute_Comptroller_514.value.mantissa * sp.view("getAccountSnapshotView", params.borrower, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').cTokenBalance) // self.data.expScale + sp.if (self.data.collaterals.contains(params.value.account)) & (self.data.collaterals[params.value.account].contains(asset)): + sp.set_type(compute_Comptroller_526.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_Comptroller_526.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(params.value.cTokenBalance, sp.TNat) + sp.set_type(compute_Comptroller_526.value.mantissa * params.value.cTokenBalance, sp.TNat) + sp.set_type(sp.record(mantissa = compute_Comptroller_526.value.mantissa * params.value.cTokenBalance), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + calc.value.sumCollateral += (compute_Comptroller_526.value.mantissa * params.value.cTokenBalance) // self.data.expScale sp.set_type(self.data.markets[asset].price, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(self.data.markets[asset].price, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(sp.view("getAccountSnapshotView", params.borrower, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').borrowBalance, sp.TNat) - sp.set_type(self.data.markets[asset].price.mantissa * sp.view("getAccountSnapshotView", params.borrower, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').borrowBalance, sp.TNat) - sp.set_type(sp.record(mantissa = self.data.markets[asset].price.mantissa * sp.view("getAccountSnapshotView", params.borrower, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').borrowBalance), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - calc.value.sumBorrowPlusEffects += (self.data.markets[asset].price.mantissa * sp.view("getAccountSnapshotView", params.borrower, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').borrowBalance) // self.data.expScale + sp.set_type(params.value.borrowBalance, sp.TNat) + sp.set_type(self.data.markets[asset].price.mantissa * params.value.borrowBalance, sp.TNat) + sp.set_type(sp.record(mantissa = self.data.markets[asset].price.mantissa * params.value.borrowBalance), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + calc.value.sumBorrowPlusEffects += (self.data.markets[asset].price.mantissa * params.value.borrowBalance) // self.data.expScale calculation.value.sumCollateral += calc.value.sumCollateral calculation.value.sumBorrowPlusEffects += calc.value.sumBorrowPlusEffects sp.else: - sp.set_type(sp.view("getAccountSnapshotView", params.borrower, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').exchangeRateMantissa, sp.TNat) - compute_Comptroller_510 = sp.local("compute_Comptroller_510", sp.record(mantissa = sp.view("getAccountSnapshotView", params.borrower, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').exchangeRateMantissa)) + sp.verify(sp.view("getAccountSnapshotView", params.borrower, asset, sp.TOption(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').is_some(), 'CMPT_OUTDATED_ACCOUNT_SNAPHOT') + params = sp.local("params", sp.view("getAccountSnapshotView", params.borrower, asset, sp.TOption(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').open_some()) + sp.set_type(params.value.exchangeRateMantissa, sp.TNat) + compute_Comptroller_522 = sp.local("compute_Comptroller_522", sp.record(mantissa = params.value.exchangeRateMantissa)) sp.verify(sp.level == self.data.markets[asset].updateLevel, 'CMPT_UPDATE_PRICE') sp.verify(self.data.markets[asset].price.mantissa > 0, 'CMPT_INVALID_PRICE') sp.set_type(self.data.markets[asset].price, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(self.data.markets[asset].collateralFactor, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale, sp.TNat) sp.set_type(sp.record(mantissa = (self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(compute_Comptroller_510.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type((((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_510.value.mantissa) // self.data.expScale, sp.TNat) - compute_Comptroller_514 = sp.local("compute_Comptroller_514", sp.record(mantissa = (((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_510.value.mantissa) // self.data.expScale)) + sp.set_type(compute_Comptroller_522.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type((((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_522.value.mantissa) // self.data.expScale, sp.TNat) + compute_Comptroller_526 = sp.local("compute_Comptroller_526", sp.record(mantissa = (((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_522.value.mantissa) // self.data.expScale)) calc = sp.local("calc", sp.record(sumBorrowPlusEffects = 0, sumCollateral = 0)) - sp.if (self.data.collaterals.contains(sp.view("getAccountSnapshotView", params.borrower, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').account)) & (self.data.collaterals[sp.view("getAccountSnapshotView", params.borrower, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').account].contains(asset)): - sp.set_type(compute_Comptroller_514.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(compute_Comptroller_514.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(sp.view("getAccountSnapshotView", params.borrower, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').cTokenBalance, sp.TNat) - sp.set_type(compute_Comptroller_514.value.mantissa * sp.view("getAccountSnapshotView", params.borrower, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').cTokenBalance, sp.TNat) - sp.set_type(sp.record(mantissa = compute_Comptroller_514.value.mantissa * sp.view("getAccountSnapshotView", params.borrower, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').cTokenBalance), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - calc.value.sumCollateral += (compute_Comptroller_514.value.mantissa * sp.view("getAccountSnapshotView", params.borrower, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').cTokenBalance) // self.data.expScale + sp.if (self.data.collaterals.contains(params.value.account)) & (self.data.collaterals[params.value.account].contains(asset)): + sp.set_type(compute_Comptroller_526.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_Comptroller_526.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(params.value.cTokenBalance, sp.TNat) + sp.set_type(compute_Comptroller_526.value.mantissa * params.value.cTokenBalance, sp.TNat) + sp.set_type(sp.record(mantissa = compute_Comptroller_526.value.mantissa * params.value.cTokenBalance), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + calc.value.sumCollateral += (compute_Comptroller_526.value.mantissa * params.value.cTokenBalance) // self.data.expScale sp.set_type(self.data.markets[asset].price, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(self.data.markets[asset].price, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(sp.view("getAccountSnapshotView", params.borrower, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').borrowBalance, sp.TNat) - sp.set_type(self.data.markets[asset].price.mantissa * sp.view("getAccountSnapshotView", params.borrower, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').borrowBalance, sp.TNat) - sp.set_type(sp.record(mantissa = self.data.markets[asset].price.mantissa * sp.view("getAccountSnapshotView", params.borrower, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').borrowBalance), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - calc.value.sumBorrowPlusEffects += (self.data.markets[asset].price.mantissa * sp.view("getAccountSnapshotView", params.borrower, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').borrowBalance) // self.data.expScale + sp.set_type(params.value.borrowBalance, sp.TNat) + sp.set_type(self.data.markets[asset].price.mantissa * params.value.borrowBalance, sp.TNat) + sp.set_type(sp.record(mantissa = self.data.markets[asset].price.mantissa * params.value.borrowBalance), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + calc.value.sumBorrowPlusEffects += (self.data.markets[asset].price.mantissa * params.value.borrowBalance) // self.data.expScale calculation.value.sumCollateral += calc.value.sumCollateral calculation.value.sumBorrowPlusEffects += calc.value.sumBorrowPlusEffects calcLiquidity = sp.local("calcLiquidity", calculation.value) - compute_Comptroller_378 = sp.local("compute_Comptroller_378", calcLiquidity.value.sumCollateral - calcLiquidity.value.sumBorrowPlusEffects) - liquidtiy = sp.local("liquidtiy", compute_Comptroller_378.value) + compute_Comptroller_380 = sp.local("compute_Comptroller_380", calcLiquidity.value.sumCollateral - calcLiquidity.value.sumBorrowPlusEffects) + liquidtiy = sp.local("liquidtiy", compute_Comptroller_380.value) sp.verify(liquidtiy.value < 0, 'CMPT_INSUFFICIENT_SHORTFALL') sp.set_type(self.data.closeFactorMantissa, sp.TNat) sp.set_type(sp.record(mantissa = self.data.closeFactorMantissa), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(sp.record(mantissa = self.data.closeFactorMantissa), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(sp.view("borrowBalanceStoredView", params.borrower, params.cTokenBorrowed, sp.TNat).open_some(message = 'INVALID ACCOUNT BORROW BALANCE VIEW'), sp.TNat) - sp.set_type(self.data.closeFactorMantissa * sp.view("borrowBalanceStoredView", params.borrower, params.cTokenBorrowed, sp.TNat).open_some(message = 'INVALID ACCOUNT BORROW BALANCE VIEW'), sp.TNat) - sp.set_type(sp.record(mantissa = self.data.closeFactorMantissa * sp.view("borrowBalanceStoredView", params.borrower, params.cTokenBorrowed, sp.TNat).open_some(message = 'INVALID ACCOUNT BORROW BALANCE VIEW')), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - maxClose = sp.local("maxClose", (self.data.closeFactorMantissa * sp.view("borrowBalanceStoredView", params.borrower, params.cTokenBorrowed, sp.TNat).open_some(message = 'INVALID ACCOUNT BORROW BALANCE VIEW')) // self.data.expScale) + sp.set_type(sp.fst(sp.view("borrowBalanceStoredView", params.borrower, params.cTokenBorrowed, sp.TPair(sp.TNat, sp.TNat)).open_some(message = 'INVALID ACCOUNT BORROW BALANCE VIEW')), sp.TNat) + sp.set_type(self.data.closeFactorMantissa * sp.fst(sp.view("borrowBalanceStoredView", params.borrower, params.cTokenBorrowed, sp.TPair(sp.TNat, sp.TNat)).open_some(message = 'INVALID ACCOUNT BORROW BALANCE VIEW')), sp.TNat) + sp.set_type(sp.record(mantissa = self.data.closeFactorMantissa * sp.fst(sp.view("borrowBalanceStoredView", params.borrower, params.cTokenBorrowed, sp.TPair(sp.TNat, sp.TNat)).open_some(message = 'INVALID ACCOUNT BORROW BALANCE VIEW'))), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + maxClose = sp.local("maxClose", (self.data.closeFactorMantissa * sp.fst(sp.view("borrowBalanceStoredView", params.borrower, params.cTokenBorrowed, sp.TPair(sp.TNat, sp.TNat)).open_some(message = 'INVALID ACCOUNT BORROW BALANCE VIEW'))) // self.data.expScale) sp.verify(maxClose.value >= params.repayAmount, 'CMPT_TOO_MUCH_REPAY') sp.if self.data.account_liquidity.contains(params.borrower): self.data.account_liquidity[params.borrower].valid = False sp.if self.data.account_liquidity.contains(params.liquidator): self.data.account_liquidity[params.liquidator].valid = False - @sp.entry_point + @sp.entrypoint def mintAllowed(self, params): sp.verify(sp.amount == sp.mul(sp.set_type_expr(0, sp.TNat), sp.mutez(1)), 'TEZ_TRANSFERED') sp.set_type(params, sp.TRecord(cToken = sp.TAddress, mintAmount = sp.TNat, minter = sp.TAddress).layout(("cToken", ("minter", "mintAmount")))) @@ -214,7 +220,7 @@ def mintAllowed(self, params): sp.if self.data.account_liquidity.contains(params.minter): self.data.account_liquidity[params.minter].valid = False - @sp.entry_point + @sp.entrypoint def redeemAllowed(self, params): sp.verify(sp.amount == sp.mul(sp.set_type_expr(0, sp.TNat), sp.mutez(1)), 'TEZ_TRANSFERED') sp.set_type(params, sp.TRecord(cToken = sp.TAddress, redeemAmount = sp.TNat, redeemer = sp.TAddress).layout(("cToken", ("redeemer", "redeemAmount")))) @@ -225,8 +231,8 @@ def redeemAllowed(self, params): sp.verify(self.data.account_liquidity[params.redeemer].valid, 'CMPT_LIQUIDITY_INVALID') sp.set_type(sp.level, sp.TNat) sp.set_type(self.data.account_liquidity[params.redeemer].updateLevel, sp.TNat) - compute_Comptroller_747 = sp.local("compute_Comptroller_747", sp.as_nat(sp.level - self.data.account_liquidity[params.redeemer].updateLevel, message = 'SUBTRACTION_UNDERFLOW')) - sp.verify(compute_Comptroller_747.value == 0, 'CMPT_LIQUIDITY_OLD') + compute_Comptroller_759 = sp.local("compute_Comptroller_759", sp.as_nat(sp.level - self.data.account_liquidity[params.redeemer].updateLevel, message = 'SUBTRACTION_UNDERFLOW')) + sp.verify(compute_Comptroller_759.value == 0, 'CMPT_LIQUIDITY_OLD') sp.verify(sp.level == self.data.markets[params.cToken].updateLevel, 'CMPT_UPDATE_PRICE') sp.verify(self.data.markets[params.cToken].price.mantissa > 0, 'CMPT_INVALID_PRICE') sp.set_type(self.data.markets[params.cToken].price, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) @@ -239,14 +245,14 @@ def redeemAllowed(self, params): sp.if self.data.account_liquidity.contains(params.redeemer): self.data.account_liquidity[params.redeemer].valid = False - @sp.entry_point + @sp.entrypoint def removeFromLoans(self, params): sp.verify(sp.amount == sp.mul(sp.set_type_expr(0, sp.TNat), sp.mutez(1)), 'TEZ_TRANSFERED') sp.verify((self.data.markets.contains(sp.sender)) & self.data.markets[sp.sender].isListed, 'CMPT_MARKET_NOT_LISTED') sp.if (self.data.loans.contains(params)) & (self.data.loans[params].contains(sp.sender)): self.data.loans[params].remove(sp.sender) - @sp.entry_point + @sp.entrypoint def repayBorrowAllowed(self, params): sp.verify(sp.amount == sp.mul(sp.set_type_expr(0, sp.TNat), sp.mutez(1)), 'TEZ_TRANSFERED') sp.set_type(params, sp.TRecord(borrower = sp.TAddress, cToken = sp.TAddress, payer = sp.TAddress, repayAmount = sp.TNat).layout(("cToken", ("payer", ("borrower", "repayAmount"))))) @@ -256,7 +262,7 @@ def repayBorrowAllowed(self, params): sp.if self.data.account_liquidity.contains(params.payer): self.data.account_liquidity[params.payer].valid = False - @sp.entry_point + @sp.entrypoint def setAccountLiquidityWithView(self, params): sp.verify(sp.amount == sp.mul(sp.set_type_expr(0, sp.TNat), sp.mutez(1)), 'TEZ_TRANSFERED') sp.set_type(params, sp.TAddress) @@ -264,90 +270,96 @@ def setAccountLiquidityWithView(self, params): temp = sp.local("temp", sp.record(sumBorrowPlusEffects = 0, sumCollateral = 0)) sp.if self.data.collaterals.contains(params): sp.for asset in self.data.collaterals[params].elements(): - sp.set_type(sp.view("getAccountSnapshotView", params, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').exchangeRateMantissa, sp.TNat) - compute_Comptroller_510 = sp.local("compute_Comptroller_510", sp.record(mantissa = sp.view("getAccountSnapshotView", params, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').exchangeRateMantissa)) + sp.verify(sp.view("getAccountSnapshotView", params, asset, sp.TOption(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').is_some(), 'CMPT_OUTDATED_ACCOUNT_SNAPHOT') + params = sp.local("params", sp.view("getAccountSnapshotView", params, asset, sp.TOption(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').open_some()) + sp.set_type(params.value.exchangeRateMantissa, sp.TNat) + compute_Comptroller_522 = sp.local("compute_Comptroller_522", sp.record(mantissa = params.value.exchangeRateMantissa)) sp.verify(sp.level == self.data.markets[asset].updateLevel, 'CMPT_UPDATE_PRICE') sp.verify(self.data.markets[asset].price.mantissa > 0, 'CMPT_INVALID_PRICE') sp.set_type(self.data.markets[asset].price, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(self.data.markets[asset].collateralFactor, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale, sp.TNat) sp.set_type(sp.record(mantissa = (self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(compute_Comptroller_510.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type((((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_510.value.mantissa) // self.data.expScale, sp.TNat) - compute_Comptroller_514 = sp.local("compute_Comptroller_514", sp.record(mantissa = (((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_510.value.mantissa) // self.data.expScale)) + sp.set_type(compute_Comptroller_522.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type((((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_522.value.mantissa) // self.data.expScale, sp.TNat) + compute_Comptroller_526 = sp.local("compute_Comptroller_526", sp.record(mantissa = (((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_522.value.mantissa) // self.data.expScale)) calc = sp.local("calc", sp.record(sumBorrowPlusEffects = 0, sumCollateral = 0)) - sp.if (self.data.collaterals.contains(sp.view("getAccountSnapshotView", params, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').account)) & (self.data.collaterals[sp.view("getAccountSnapshotView", params, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').account].contains(asset)): - sp.set_type(compute_Comptroller_514.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(compute_Comptroller_514.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(sp.view("getAccountSnapshotView", params, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').cTokenBalance, sp.TNat) - sp.set_type(compute_Comptroller_514.value.mantissa * sp.view("getAccountSnapshotView", params, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').cTokenBalance, sp.TNat) - sp.set_type(sp.record(mantissa = compute_Comptroller_514.value.mantissa * sp.view("getAccountSnapshotView", params, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').cTokenBalance), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - calc.value.sumCollateral += (compute_Comptroller_514.value.mantissa * sp.view("getAccountSnapshotView", params, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').cTokenBalance) // self.data.expScale + sp.if (self.data.collaterals.contains(params.value.account)) & (self.data.collaterals[params.value.account].contains(asset)): + sp.set_type(compute_Comptroller_526.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_Comptroller_526.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(params.value.cTokenBalance, sp.TNat) + sp.set_type(compute_Comptroller_526.value.mantissa * params.value.cTokenBalance, sp.TNat) + sp.set_type(sp.record(mantissa = compute_Comptroller_526.value.mantissa * params.value.cTokenBalance), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + calc.value.sumCollateral += (compute_Comptroller_526.value.mantissa * params.value.cTokenBalance) // self.data.expScale sp.set_type(self.data.markets[asset].price, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(self.data.markets[asset].price, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(sp.view("getAccountSnapshotView", params, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').borrowBalance, sp.TNat) - sp.set_type(self.data.markets[asset].price.mantissa * sp.view("getAccountSnapshotView", params, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').borrowBalance, sp.TNat) - sp.set_type(sp.record(mantissa = self.data.markets[asset].price.mantissa * sp.view("getAccountSnapshotView", params, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').borrowBalance), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - calc.value.sumBorrowPlusEffects += (self.data.markets[asset].price.mantissa * sp.view("getAccountSnapshotView", params, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').borrowBalance) // self.data.expScale + sp.set_type(params.value.borrowBalance, sp.TNat) + sp.set_type(self.data.markets[asset].price.mantissa * params.value.borrowBalance, sp.TNat) + sp.set_type(sp.record(mantissa = self.data.markets[asset].price.mantissa * params.value.borrowBalance), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + calc.value.sumBorrowPlusEffects += (self.data.markets[asset].price.mantissa * params.value.borrowBalance) // self.data.expScale calculation.value.sumCollateral += calc.value.sumCollateral calculation.value.sumBorrowPlusEffects += calc.value.sumBorrowPlusEffects sp.if self.data.loans.contains(params): sp.for asset in self.data.loans[params].elements(): sp.if self.data.collaterals.contains(params): sp.if ~ (self.data.collaterals[params].contains(asset)): - sp.set_type(sp.view("getAccountSnapshotView", params, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').exchangeRateMantissa, sp.TNat) - compute_Comptroller_510 = sp.local("compute_Comptroller_510", sp.record(mantissa = sp.view("getAccountSnapshotView", params, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').exchangeRateMantissa)) + sp.verify(sp.view("getAccountSnapshotView", params, asset, sp.TOption(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').is_some(), 'CMPT_OUTDATED_ACCOUNT_SNAPHOT') + params = sp.local("params", sp.view("getAccountSnapshotView", params, asset, sp.TOption(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').open_some()) + sp.set_type(params.value.exchangeRateMantissa, sp.TNat) + compute_Comptroller_522 = sp.local("compute_Comptroller_522", sp.record(mantissa = params.value.exchangeRateMantissa)) sp.verify(sp.level == self.data.markets[asset].updateLevel, 'CMPT_UPDATE_PRICE') sp.verify(self.data.markets[asset].price.mantissa > 0, 'CMPT_INVALID_PRICE') sp.set_type(self.data.markets[asset].price, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(self.data.markets[asset].collateralFactor, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale, sp.TNat) sp.set_type(sp.record(mantissa = (self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(compute_Comptroller_510.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type((((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_510.value.mantissa) // self.data.expScale, sp.TNat) - compute_Comptroller_514 = sp.local("compute_Comptroller_514", sp.record(mantissa = (((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_510.value.mantissa) // self.data.expScale)) + sp.set_type(compute_Comptroller_522.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type((((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_522.value.mantissa) // self.data.expScale, sp.TNat) + compute_Comptroller_526 = sp.local("compute_Comptroller_526", sp.record(mantissa = (((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_522.value.mantissa) // self.data.expScale)) calc = sp.local("calc", sp.record(sumBorrowPlusEffects = 0, sumCollateral = 0)) - sp.if (self.data.collaterals.contains(sp.view("getAccountSnapshotView", params, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').account)) & (self.data.collaterals[sp.view("getAccountSnapshotView", params, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').account].contains(asset)): - sp.set_type(compute_Comptroller_514.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(compute_Comptroller_514.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(sp.view("getAccountSnapshotView", params, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').cTokenBalance, sp.TNat) - sp.set_type(compute_Comptroller_514.value.mantissa * sp.view("getAccountSnapshotView", params, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').cTokenBalance, sp.TNat) - sp.set_type(sp.record(mantissa = compute_Comptroller_514.value.mantissa * sp.view("getAccountSnapshotView", params, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').cTokenBalance), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - calc.value.sumCollateral += (compute_Comptroller_514.value.mantissa * sp.view("getAccountSnapshotView", params, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').cTokenBalance) // self.data.expScale + sp.if (self.data.collaterals.contains(params.value.account)) & (self.data.collaterals[params.value.account].contains(asset)): + sp.set_type(compute_Comptroller_526.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_Comptroller_526.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(params.value.cTokenBalance, sp.TNat) + sp.set_type(compute_Comptroller_526.value.mantissa * params.value.cTokenBalance, sp.TNat) + sp.set_type(sp.record(mantissa = compute_Comptroller_526.value.mantissa * params.value.cTokenBalance), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + calc.value.sumCollateral += (compute_Comptroller_526.value.mantissa * params.value.cTokenBalance) // self.data.expScale sp.set_type(self.data.markets[asset].price, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(self.data.markets[asset].price, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(sp.view("getAccountSnapshotView", params, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').borrowBalance, sp.TNat) - sp.set_type(self.data.markets[asset].price.mantissa * sp.view("getAccountSnapshotView", params, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').borrowBalance, sp.TNat) - sp.set_type(sp.record(mantissa = self.data.markets[asset].price.mantissa * sp.view("getAccountSnapshotView", params, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').borrowBalance), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - calc.value.sumBorrowPlusEffects += (self.data.markets[asset].price.mantissa * sp.view("getAccountSnapshotView", params, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').borrowBalance) // self.data.expScale + sp.set_type(params.value.borrowBalance, sp.TNat) + sp.set_type(self.data.markets[asset].price.mantissa * params.value.borrowBalance, sp.TNat) + sp.set_type(sp.record(mantissa = self.data.markets[asset].price.mantissa * params.value.borrowBalance), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + calc.value.sumBorrowPlusEffects += (self.data.markets[asset].price.mantissa * params.value.borrowBalance) // self.data.expScale calculation.value.sumCollateral += calc.value.sumCollateral calculation.value.sumBorrowPlusEffects += calc.value.sumBorrowPlusEffects sp.else: - sp.set_type(sp.view("getAccountSnapshotView", params, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').exchangeRateMantissa, sp.TNat) - compute_Comptroller_510 = sp.local("compute_Comptroller_510", sp.record(mantissa = sp.view("getAccountSnapshotView", params, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').exchangeRateMantissa)) + sp.verify(sp.view("getAccountSnapshotView", params, asset, sp.TOption(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').is_some(), 'CMPT_OUTDATED_ACCOUNT_SNAPHOT') + params = sp.local("params", sp.view("getAccountSnapshotView", params, asset, sp.TOption(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').open_some()) + sp.set_type(params.value.exchangeRateMantissa, sp.TNat) + compute_Comptroller_522 = sp.local("compute_Comptroller_522", sp.record(mantissa = params.value.exchangeRateMantissa)) sp.verify(sp.level == self.data.markets[asset].updateLevel, 'CMPT_UPDATE_PRICE') sp.verify(self.data.markets[asset].price.mantissa > 0, 'CMPT_INVALID_PRICE') sp.set_type(self.data.markets[asset].price, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(self.data.markets[asset].collateralFactor, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale, sp.TNat) sp.set_type(sp.record(mantissa = (self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(compute_Comptroller_510.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type((((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_510.value.mantissa) // self.data.expScale, sp.TNat) - compute_Comptroller_514 = sp.local("compute_Comptroller_514", sp.record(mantissa = (((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_510.value.mantissa) // self.data.expScale)) + sp.set_type(compute_Comptroller_522.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type((((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_522.value.mantissa) // self.data.expScale, sp.TNat) + compute_Comptroller_526 = sp.local("compute_Comptroller_526", sp.record(mantissa = (((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_522.value.mantissa) // self.data.expScale)) calc = sp.local("calc", sp.record(sumBorrowPlusEffects = 0, sumCollateral = 0)) - sp.if (self.data.collaterals.contains(sp.view("getAccountSnapshotView", params, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').account)) & (self.data.collaterals[sp.view("getAccountSnapshotView", params, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').account].contains(asset)): - sp.set_type(compute_Comptroller_514.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(compute_Comptroller_514.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(sp.view("getAccountSnapshotView", params, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').cTokenBalance, sp.TNat) - sp.set_type(compute_Comptroller_514.value.mantissa * sp.view("getAccountSnapshotView", params, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').cTokenBalance, sp.TNat) - sp.set_type(sp.record(mantissa = compute_Comptroller_514.value.mantissa * sp.view("getAccountSnapshotView", params, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').cTokenBalance), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - calc.value.sumCollateral += (compute_Comptroller_514.value.mantissa * sp.view("getAccountSnapshotView", params, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').cTokenBalance) // self.data.expScale + sp.if (self.data.collaterals.contains(params.value.account)) & (self.data.collaterals[params.value.account].contains(asset)): + sp.set_type(compute_Comptroller_526.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_Comptroller_526.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(params.value.cTokenBalance, sp.TNat) + sp.set_type(compute_Comptroller_526.value.mantissa * params.value.cTokenBalance, sp.TNat) + sp.set_type(sp.record(mantissa = compute_Comptroller_526.value.mantissa * params.value.cTokenBalance), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + calc.value.sumCollateral += (compute_Comptroller_526.value.mantissa * params.value.cTokenBalance) // self.data.expScale sp.set_type(self.data.markets[asset].price, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(self.data.markets[asset].price, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(sp.view("getAccountSnapshotView", params, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').borrowBalance, sp.TNat) - sp.set_type(self.data.markets[asset].price.mantissa * sp.view("getAccountSnapshotView", params, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').borrowBalance, sp.TNat) - sp.set_type(sp.record(mantissa = self.data.markets[asset].price.mantissa * sp.view("getAccountSnapshotView", params, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').borrowBalance), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - calc.value.sumBorrowPlusEffects += (self.data.markets[asset].price.mantissa * sp.view("getAccountSnapshotView", params, asset, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').borrowBalance) // self.data.expScale + sp.set_type(params.value.borrowBalance, sp.TNat) + sp.set_type(self.data.markets[asset].price.mantissa * params.value.borrowBalance, sp.TNat) + sp.set_type(sp.record(mantissa = self.data.markets[asset].price.mantissa * params.value.borrowBalance), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + calc.value.sumBorrowPlusEffects += (self.data.markets[asset].price.mantissa * params.value.borrowBalance) // self.data.expScale calculation.value.sumCollateral += calc.value.sumCollateral calculation.value.sumBorrowPlusEffects += calc.value.sumBorrowPlusEffects liquidity = sp.local("liquidity", calculation.value) @@ -355,7 +367,7 @@ def setAccountLiquidityWithView(self, params): self.data.activeOperations.remove(4) self.data.account_liquidity[params] = sp.record(liquidity = liquidity.value.sumCollateral - liquidity.value.sumBorrowPlusEffects, updateLevel = sp.level, valid = True) - @sp.entry_point + @sp.entrypoint def setAccountSnapAndExitMarket(self, params): sp.verify(sp.amount == sp.mul(sp.set_type_expr(0, sp.TNat), sp.mutez(1)), 'TEZ_TRANSFERED') sp.set_type(params, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))) @@ -369,8 +381,8 @@ def setAccountSnapAndExitMarket(self, params): sp.verify(self.data.account_liquidity[params.account].valid, 'CMPT_LIQUIDITY_INVALID') sp.set_type(sp.level, sp.TNat) sp.set_type(self.data.account_liquidity[params.account].updateLevel, sp.TNat) - compute_Comptroller_747 = sp.local("compute_Comptroller_747", sp.as_nat(sp.level - self.data.account_liquidity[params.account].updateLevel, message = 'SUBTRACTION_UNDERFLOW')) - sp.verify(compute_Comptroller_747.value == 0, 'CMPT_LIQUIDITY_OLD') + compute_Comptroller_759 = sp.local("compute_Comptroller_759", sp.as_nat(sp.level - self.data.account_liquidity[params.account].updateLevel, message = 'SUBTRACTION_UNDERFLOW')) + sp.verify(compute_Comptroller_759.value == 0, 'CMPT_LIQUIDITY_OLD') sp.verify(sp.level == self.data.markets[sp.sender].updateLevel, 'CMPT_UPDATE_PRICE') sp.verify(self.data.markets[sp.sender].price.mantissa > 0, 'CMPT_INVALID_PRICE') sp.set_type(self.data.markets[sp.sender].price, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) @@ -387,7 +399,7 @@ def setAccountSnapAndExitMarket(self, params): sp.if self.data.account_liquidity.contains(params.account): self.data.account_liquidity[params.account].valid = False - @sp.entry_point + @sp.entrypoint def setBorrowPaused(self, params): sp.verify(sp.amount == sp.mul(sp.set_type_expr(0, sp.TNat), sp.mutez(1)), 'TEZ_TRANSFERED') sp.set_type(params, sp.TRecord(cToken = sp.TAddress, state = sp.TBool).layout(("cToken", "state"))) @@ -395,14 +407,14 @@ def setBorrowPaused(self, params): sp.verify(sp.sender == self.data.administrator, 'CMPT_NOT_ADMIN') self.data.markets[params.cToken].borrowPaused = params.state - @sp.entry_point + @sp.entrypoint def setCloseFactor(self, params): sp.verify(sp.amount == sp.mul(sp.set_type_expr(0, sp.TNat), sp.mutez(1)), 'TEZ_TRANSFERED') sp.set_type(params, sp.TNat) sp.verify(sp.sender == self.data.administrator, 'CMPT_NOT_ADMIN') self.data.closeFactorMantissa = params - @sp.entry_point + @sp.entrypoint def setCollateralFactor(self, params): sp.verify(sp.amount == sp.mul(sp.set_type_expr(0, sp.TNat), sp.mutez(1)), 'TEZ_TRANSFERED') sp.set_type(params, sp.TRecord(cToken = sp.TAddress, newCollateralFactor = sp.TNat).layout(("cToken", "newCollateralFactor"))) @@ -410,14 +422,14 @@ def setCollateralFactor(self, params): sp.verify((self.data.markets.contains(params.cToken)) & self.data.markets[params.cToken].isListed, 'CMPT_MARKET_NOT_LISTED') self.data.markets[params.cToken].collateralFactor.mantissa = params.newCollateralFactor - @sp.entry_point + @sp.entrypoint def setLiquidationIncentive(self, params): sp.verify(sp.amount == sp.mul(sp.set_type_expr(0, sp.TNat), sp.mutez(1)), 'TEZ_TRANSFERED') sp.set_type(params, sp.TNat) sp.verify(sp.sender == self.data.administrator, 'CMPT_NOT_ADMIN') self.data.liquidationIncentiveMantissa = params - @sp.entry_point + @sp.entrypoint def setMintPaused(self, params): sp.verify(sp.amount == sp.mul(sp.set_type_expr(0, sp.TNat), sp.mutez(1)), 'TEZ_TRANSFERED') sp.set_type(params, sp.TRecord(cToken = sp.TAddress, state = sp.TBool).layout(("cToken", "state"))) @@ -425,14 +437,14 @@ def setMintPaused(self, params): sp.verify(sp.sender == self.data.administrator, 'CMPT_NOT_ADMIN') self.data.markets[params.cToken].mintPaused = params.state - @sp.entry_point + @sp.entrypoint def setPendingGovernance(self, params): sp.verify(sp.amount == sp.mul(sp.set_type_expr(0, sp.TNat), sp.mutez(1)), 'TEZ_TRANSFERED') sp.set_type(params, sp.TAddress) sp.verify(sp.sender == self.data.administrator, 'CMPT_NOT_ADMIN') self.data.pendingAdministrator = sp.some(params) - @sp.entry_point + @sp.entrypoint def setPriceOracleAndTimeDiff(self, params): sp.verify(sp.amount == sp.mul(sp.set_type_expr(0, sp.TNat), sp.mutez(1)), 'TEZ_TRANSFERED') sp.set_type(params, sp.TRecord(priceOracle = sp.TAddress, timeDiff = sp.TInt).layout(("priceOracle", "timeDiff"))) @@ -440,14 +452,14 @@ def setPriceOracleAndTimeDiff(self, params): self.data.maxPriceTimeDifference = params.timeDiff self.data.oracleAddress = params.priceOracle - @sp.entry_point + @sp.entrypoint def setTransferPaused(self, params): sp.verify(sp.amount == sp.mul(sp.set_type_expr(0, sp.TNat), sp.mutez(1)), 'TEZ_TRANSFERED') sp.set_type(params, sp.TBool) sp.verify(sp.sender == self.data.administrator, 'CMPT_NOT_ADMIN') self.data.transferPaused = params - @sp.entry_point + @sp.entrypoint def supportMarket(self, params): sp.verify(sp.amount == sp.mul(sp.set_type_expr(0, sp.TNat), sp.mutez(1)), 'TEZ_TRANSFERED') sp.set_type(params, sp.TRecord(cToken = sp.TAddress, name = sp.TString, priceExp = sp.TNat).layout(("cToken", ("name", "priceExp")))) @@ -458,17 +470,17 @@ def supportMarket(self, params): self.data.markets[params.cToken] = sp.record(borrowPaused = True, collateralFactor = sp.record(mantissa = 500000000000000000), isListed = True, mintPaused = True, name = params.name, price = sp.record(mantissa = 0), priceExp = params.priceExp, priceTimestamp = sp.timestamp(0), updateLevel = 0) self.data.marketNameToAddress[params.name + '-USD'] = params.cToken - @sp.entry_point + @sp.entrypoint def sweepFA12(self, params): sp.set_type(params, sp.TRecord(amount = sp.TNat, tokenAddress = sp.TAddress).layout(("amount", "tokenAddress"))) - sp.transfer(sp.record(from_ = sp.self_address, to_ = self.data.administrator, value = params.amount), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), params.tokenAddress, entry_point='transfer').open_some()) + sp.transfer(sp.record(from_ = sp.self_address, to_ = self.data.administrator, value = params.amount), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), params.tokenAddress, entrypoint='transfer').open_some()) - @sp.entry_point + @sp.entrypoint def sweepFA2(self, params): sp.set_type(params, sp.TRecord(amount = sp.TNat, id = sp.TNat, tokenAddress = sp.TAddress).layout(("amount", ("id", "tokenAddress")))) - sp.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(to_ = self.data.administrator, token_id = params.id, amount = params.amount)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), params.tokenAddress, entry_point='transfer').open_some()) + sp.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(amount = params.amount, to_ = self.data.administrator, token_id = params.id)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), params.tokenAddress, entrypoint='transfer').open_some()) - @sp.entry_point + @sp.entrypoint def sweepMutez(self, params): sp.set_type(params, sp.TBool) sp.if params: @@ -476,7 +488,7 @@ def sweepMutez(self, params): sp.else: sp.send(self.data.administrator, sp.balance) - @sp.entry_point + @sp.entrypoint def transferAllowed(self, params): sp.verify(sp.amount == sp.mul(sp.set_type_expr(0, sp.TNat), sp.mutez(1)), 'TEZ_TRANSFERED') sp.set_type(params, sp.TRecord(cToken = sp.TAddress, dst = sp.TAddress, src = sp.TAddress, transferTokens = sp.TNat).layout((("cToken", "src"), ("dst", "transferTokens")))) @@ -488,8 +500,8 @@ def transferAllowed(self, params): sp.verify(self.data.account_liquidity[params.src].valid, 'CMPT_LIQUIDITY_INVALID') sp.set_type(sp.level, sp.TNat) sp.set_type(self.data.account_liquidity[params.src].updateLevel, sp.TNat) - compute_Comptroller_747 = sp.local("compute_Comptroller_747", sp.as_nat(sp.level - self.data.account_liquidity[params.src].updateLevel, message = 'SUBTRACTION_UNDERFLOW')) - sp.verify(compute_Comptroller_747.value == 0, 'CMPT_LIQUIDITY_OLD') + compute_Comptroller_759 = sp.local("compute_Comptroller_759", sp.as_nat(sp.level - self.data.account_liquidity[params.src].updateLevel, message = 'SUBTRACTION_UNDERFLOW')) + sp.verify(compute_Comptroller_759.value == 0, 'CMPT_LIQUIDITY_OLD') sp.verify(sp.level == self.data.markets[params.cToken].updateLevel, 'CMPT_UPDATE_PRICE') sp.verify(self.data.markets[params.cToken].price.mantissa > 0, 'CMPT_INVALID_PRICE') sp.set_type(self.data.markets[params.cToken].price, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) @@ -502,33 +514,35 @@ def transferAllowed(self, params): sp.if self.data.account_liquidity.contains(params.src): self.data.account_liquidity[params.src].valid = False - @sp.entry_point + @sp.entrypoint def updateAccountLiquidityWithView(self, params): sp.verify(sp.amount == sp.mul(sp.set_type_expr(0, sp.TNat), sp.mutez(1)), 'TEZ_TRANSFERED') sp.set_type(params, sp.TAddress) sp.for asset in self.data.marketNameToAddress.values(): sp.if self.data.markets[asset].updateLevel < sp.level: + pricePair = sp.local("pricePair", sp.view("getPrice", self.data.markets[asset].name + '-USD', self.data.oracleAddress, sp.TPair(sp.TTimestamp, sp.TNat)).open_some(message = 'invalid oracle view call')) sp.if self.data.markets[asset].priceTimestamp != sp.timestamp(0): - sp.verify((sp.now - sp.fst(sp.view("getPrice", self.data.markets[asset].name + '-USD', self.data.oracleAddress, sp.TPair(sp.TTimestamp, sp.TNat)).open_some(message = 'invalid oracle view call'))) <= self.data.maxPriceTimeDifference, 'STALE_ASSET_PRICE') - sp.set_type(sp.snd(sp.view("getPrice", self.data.markets[asset].name + '-USD', self.data.oracleAddress, sp.TPair(sp.TTimestamp, sp.TNat)).open_some(message = 'invalid oracle view call')) * self.data.markets[asset].priceExp, sp.TNat) - self.data.markets[asset].price = sp.record(mantissa = sp.snd(sp.view("getPrice", self.data.markets[asset].name + '-USD', self.data.oracleAddress, sp.TPair(sp.TTimestamp, sp.TNat)).open_some(message = 'invalid oracle view call')) * self.data.markets[asset].priceExp) - self.data.markets[asset].priceTimestamp = sp.fst(sp.view("getPrice", self.data.markets[asset].name + '-USD', self.data.oracleAddress, sp.TPair(sp.TTimestamp, sp.TNat)).open_some(message = 'invalid oracle view call')) + sp.verify((sp.now - sp.fst(pricePair.value)) <= self.data.maxPriceTimeDifference, 'STALE_ASSET_PRICE') + sp.set_type(sp.snd(pricePair.value) * self.data.markets[asset].priceExp, sp.TNat) + self.data.markets[asset].price = sp.record(mantissa = sp.snd(pricePair.value) * self.data.markets[asset].priceExp) + self.data.markets[asset].priceTimestamp = sp.fst(pricePair.value) self.data.markets[asset].updateLevel = sp.level sp.for asset in self.data.marketNameToAddress.values(): sp.send(asset, sp.tez(0)) self.data.activeOperations.add(4) - sp.transfer(params, sp.tez(0), sp.self_entry_point('setAccountLiquidityWithView')) + sp.transfer(params, sp.tez(0), sp.self_entrypoint('setAccountLiquidityWithView')) - @sp.entry_point + @sp.entrypoint def updateAllAssetPricesWithView(self): sp.verify(sp.amount == sp.mul(sp.set_type_expr(0, sp.TNat), sp.mutez(1)), 'TEZ_TRANSFERED') sp.for asset in self.data.marketNameToAddress.values(): sp.if self.data.markets[asset].updateLevel < sp.level: + pricePair = sp.local("pricePair", sp.view("getPrice", self.data.markets[asset].name + '-USD', self.data.oracleAddress, sp.TPair(sp.TTimestamp, sp.TNat)).open_some(message = 'invalid oracle view call')) sp.if self.data.markets[asset].priceTimestamp != sp.timestamp(0): - sp.verify((sp.now - sp.fst(sp.view("getPrice", self.data.markets[asset].name + '-USD', self.data.oracleAddress, sp.TPair(sp.TTimestamp, sp.TNat)).open_some(message = 'invalid oracle view call'))) <= self.data.maxPriceTimeDifference, 'STALE_ASSET_PRICE') - sp.set_type(sp.snd(sp.view("getPrice", self.data.markets[asset].name + '-USD', self.data.oracleAddress, sp.TPair(sp.TTimestamp, sp.TNat)).open_some(message = 'invalid oracle view call')) * self.data.markets[asset].priceExp, sp.TNat) - self.data.markets[asset].price = sp.record(mantissa = sp.snd(sp.view("getPrice", self.data.markets[asset].name + '-USD', self.data.oracleAddress, sp.TPair(sp.TTimestamp, sp.TNat)).open_some(message = 'invalid oracle view call')) * self.data.markets[asset].priceExp) - self.data.markets[asset].priceTimestamp = sp.fst(sp.view("getPrice", self.data.markets[asset].name + '-USD', self.data.oracleAddress, sp.TPair(sp.TTimestamp, sp.TNat)).open_some(message = 'invalid oracle view call')) + sp.verify((sp.now - sp.fst(pricePair.value)) <= self.data.maxPriceTimeDifference, 'STALE_ASSET_PRICE') + sp.set_type(sp.snd(pricePair.value) * self.data.markets[asset].priceExp, sp.TNat) + self.data.markets[asset].price = sp.record(mantissa = sp.snd(pricePair.value) * self.data.markets[asset].priceExp) + self.data.markets[asset].priceTimestamp = sp.fst(pricePair.value) self.data.markets[asset].updateLevel = sp.level sp.add_compilation_target("test", Contract()) \ No newline at end of file diff --git a/compiled_contracts/Comptroller/step_000_cont_0_contract.tz b/compiled_contracts/Comptroller/step_000_cont_0_contract.tz index ee194588..8710f0dd 100644 --- a/compiled_contracts/Comptroller/step_000_cont_0_contract.tz +++ b/compiled_contracts/Comptroller/step_000_cont_0_contract.tz @@ -2,11 +2,10 @@ parameter (or (or (or (or (or (unit %acceptGovernance) (pair %borrowAllowed (add storage (pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))))) (big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))))); code { - CAST (pair (or (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (or (or address (or (pair nat address) (pair nat (pair nat address)))) (or bool (or address unit)))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))) (big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))))))); # pair (or (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (or (or address (or (pair nat address) (pair nat (pair nat address)))) (or bool (or address unit)))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))) (big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))))) - UNPAIR 3; # or (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (or (or address (or (pair nat address) (pair nat (pair nat address)))) (or bool (or address unit))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + UNPAIR 3; # @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) IF_LEFT { - DUP; # or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP; # @parameter.left : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) IF_LEFT { IF_LEFT @@ -15,72 +14,83 @@ code { IF_LEFT { - DROP; # or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 0; # nat : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # == acceptGovernance == # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 0; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) } { - DROP; # or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 1; # nat : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # nat : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # == borrowAllowed == # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 1; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + }; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) } { IF_LEFT { - DROP; # or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 2; # nat : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # == disableMarket == # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 2; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) } { IF_LEFT { - DROP; # or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 3; # nat : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # == enterMarkets == # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 3; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) } { - DROP; # or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 4; # nat : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # nat : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # nat : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # nat : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # == hardResetOp == # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 4; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + }; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + }; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + }; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) } { IF_LEFT { IF_LEFT { - DROP; # or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 5; # nat : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # == liquidateBorrowAllowed == # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 5; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) } { IF_LEFT { - DROP; # or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 6; # nat : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # == mintAllowed == # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 6; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) } { - DROP; # or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 7; # nat : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # nat : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # nat : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # == redeemAllowed == # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 7; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + }; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + }; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) } { IF_LEFT { - DROP; # or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 8; # nat : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # == removeFromLoans == # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 8; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) } { IF_LEFT { - DROP; # or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 9; # nat : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # == repayBorrowAllowed == # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 9; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) } { - DROP; # or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 10; # nat : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # nat : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # nat : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # nat : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # nat : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # == setAccountLiquidityWithView == # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 10; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + }; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + }; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + }; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + }; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) } { IF_LEFT @@ -89,84 +99,97 @@ code { IF_LEFT { - DROP; # or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 11; # nat : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # == setAccountSnapAndExitMarket == # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 11; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) } { - DROP; # or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 12; # nat : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # nat : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # == setBorrowPaused == # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 12; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + }; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) } { IF_LEFT { - DROP; # or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 13; # nat : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # == setCloseFactor == # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 13; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) } { IF_LEFT { - DROP; # or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 14; # nat : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # == setCollateralFactor == # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 14; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) } { - DROP; # or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 15; # nat : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # nat : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # nat : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # nat : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # == setLiquidationIncentive == # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 15; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + }; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + }; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + }; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) } { IF_LEFT { IF_LEFT { - DROP; # or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 16; # nat : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # == setMintPaused == # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 16; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) } { IF_LEFT { - DROP; # or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 17; # nat : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # == setPendingGovernance == # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 17; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) } { - DROP; # or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 18; # nat : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # nat : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # nat : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # == setPriceOracleAndTimeDiff == # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 18; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + }; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + }; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) } { IF_LEFT { - DROP; # or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 19; # nat : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # == setTransferPaused == # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 19; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) } { IF_LEFT { - DROP; # or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 20; # nat : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # == supportMarket == # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 20; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) } { - DROP; # or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 21; # nat : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # nat : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # nat : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # nat : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # nat : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # nat : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 4; # big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) : nat : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # nat : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET; # option (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # == transferAllowed == # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 21; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + }; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + }; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + }; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + }; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + }; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP 4; # big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) : nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # nat : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET; # option (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int -1; # int : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int -1; # int : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUG 2; # or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : @some : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))) : @some : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + { + # missing entrypoint # @some : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + }; # @some : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUG 2; # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @some : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair @parameter.left (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))))) : @some : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) EXEC; # pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) UNPAIR; # list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) } @@ -175,729 +198,615 @@ code { IF_LEFT { - PUSH mutez 1; # mutez : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 0; # nat : mutez : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - MUL; # mutez : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - AMOUNT; # @amount : mutez : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - RENAME; # mutez : mutez : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - COMPARE; # int : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - EQ; # bool : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # == exitMarket == + # sp.verify(sp.amount == sp.mul(sp.set_type_expr(0, sp.TNat), sp.mutez(1)), 'TEZ_TRANSFERED') # @parameter%exitMarket : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH mutez 1; # mutez : @parameter%exitMarket : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 0; # nat : mutez : @parameter%exitMarket : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + MUL; # mutez : @parameter%exitMarket : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + AMOUNT; # @amount : mutez : @parameter%exitMarket : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + COMPARE; # int : @parameter%exitMarket : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + EQ; # bool : @parameter%exitMarket : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) IF {} { - PUSH string "TEZ_TRANSFERED"; # string : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH string "TEZ_TRANSFERED"; # string : @parameter%exitMarket : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED - }; # address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)) : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # pair (big_map address (pair int (pair nat bool))) (pair (set nat) address) : pair (pair nat (big_map address (set address))) (pair nat nat) : pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)) : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # big_map address (pair int (pair nat bool)) : pair (set nat) address : pair (pair nat (big_map address (set address))) (pair nat nat) : pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)) : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # pair (set nat) address : big_map address (pair int (pair nat bool)) : pair (pair nat (big_map address (set address))) (pair nat nat) : pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)) : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # set nat : address : big_map address (pair int (pair nat bool)) : pair (pair nat (big_map address (set address))) (pair nat nat) : pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)) : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH bool True; # bool : set nat : address : big_map address (pair int (pair nat bool)) : pair (pair nat (big_map address (set address))) (pair nat nat) : pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)) : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 1; # nat : bool : set nat : address : big_map address (pair int (pair nat bool)) : pair (pair nat (big_map address (set address))) (pair nat nat) : pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)) : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UPDATE; # set nat : address : big_map address (pair int (pair nat bool)) : pair (pair nat (big_map address (set address))) (pair nat nat) : pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)) : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (set nat) address : big_map address (pair int (pair nat bool)) : pair (pair nat (big_map address (set address))) (pair nat nat) : pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)) : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # big_map address (pair int (pair nat bool)) : pair (set nat) address : pair (pair nat (big_map address (set address))) (pair nat nat) : pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)) : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (big_map address (pair int (pair nat bool))) (pair (set nat) address) : pair (pair nat (big_map address (set address))) (pair nat nat) : pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)) : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)) : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CONTRACT %getAccountSnapshot (pair address (contract (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))))); # option (contract (pair address (contract (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + }; # @parameter%exitMarket : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter%exitMarket : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # self.data.activeOperations.add(1) # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter%exitMarket : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + UNPAIR; # pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : @parameter%exitMarket : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + UNPAIR; # pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator)) : pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : @parameter%exitMarket : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + UNPAIR; # big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid))) : pair (set %activeOperations nat) (address %administrator) : pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : @parameter%exitMarket : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # pair (set %activeOperations nat) (address %administrator) : big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid))) : pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : @parameter%exitMarket : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + UNPAIR; # set nat : address : big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid))) : pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : @parameter%exitMarket : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH bool True; # bool : set nat : address : big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid))) : pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : @parameter%exitMarket : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 1; # nat : bool : set nat : address : big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid))) : pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : @parameter%exitMarket : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + UPDATE; # set nat : address : big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid))) : pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : @parameter%exitMarket : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair (set nat) address : big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid))) : pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : @parameter%exitMarket : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid))) : pair (set nat) address : pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : @parameter%exitMarket : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address) : pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : @parameter%exitMarket : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : @parameter%exitMarket : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter%exitMarket : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # @parameter%exitMarket : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # sp.transfer((sp.sender, sp.self_entrypoint('setAccountSnapAndExitMarket')), sp.tez(0), sp.contract(sp.TPair(sp.TAddress, sp.TContract(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))), params, entrypoint='getAccountSnapshot').open_some()) # @parameter%exitMarket : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CONTRACT %getAccountSnapshot (pair address (contract (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))))); # option (contract (pair address (contract (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))))) : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int 112; # int : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int 113; # int : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - NIL operation; # list operation : @some : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # @some : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH mutez 0; # mutez : @some : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SELF %setAccountSnapAndExitMarket; # @self : mutez : @some : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - RENAME; # contract (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))) : mutez : @some : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SENDER; # @sender : contract (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))) : mutez : @some : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - RENAME; # address : contract (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))) : mutez : @some : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair address (contract (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))) : mutez : @some : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CONS; # list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + NIL operation; # list operation : @some : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # @some : list operation : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH mutez 0; # mutez : @some : list operation : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SELF %setAccountSnapAndExitMarket; # @self : mutez : @some : list operation : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SENDER; # @sender : @self : mutez : @some : list operation : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair @sender @self : mutez : @some : list operation : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CONS; # list operation : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) } { IF_LEFT { - DUP; # pair nat address : pair nat address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CDR; # address : pair nat address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CONTRACT %transfer (pair (address %from) (pair (address %to) (nat %value))); # option (contract (pair (address %from) (pair (address %to) (nat %value)))) : pair nat address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # == sweepFA12 == + # sp.transfer(sp.record(from_ = sp.self_address, to_ = self.data.administrator, value = params.amount), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), params.tokenAddress, entrypoint='transfer').open_some()) # @parameter%sweepFA12 : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + NIL operation; # list operation : @parameter%sweepFA12 : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP 2; # @parameter%sweepFA12 : list operation : @parameter%sweepFA12 : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CDR; # address : list operation : @parameter%sweepFA12 : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CONTRACT %transfer (pair (address %from) (pair (address %to) (nat %value))); # option (contract (pair (address %from) (pair (address %to) (nat %value)))) : list operation : @parameter%sweepFA12 : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int 12; # int : pair nat address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int 17; # int : list operation : @parameter%sweepFA12 : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : pair nat address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - NIL operation; # list operation : @some : pair nat address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # @some : list operation : pair nat address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH mutez 0; # mutez : @some : list operation : pair nat address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DIG 3; # pair nat address : mutez : @some : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CAR; # nat : mutez : @some : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 5; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : nat : mutez : @some : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CAR; # pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : nat : mutez : @some : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CAR; # pair (big_map address (pair int (pair nat bool))) (pair (set nat) address) : nat : mutez : @some : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 4; # address : nat : mutez : @some : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SELF_ADDRESS; # @self : address : nat : mutez : @some : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - RENAME; # address : address : nat : mutez : @some : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR 3; # pair address (pair address nat) : mutez : @some : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CONS; # list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : list operation : @parameter%sweepFA12 : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH mutez 0; # mutez : @some : list operation : @parameter%sweepFA12 : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DIG 3; # @parameter%sweepFA12 : mutez : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CAR; # nat : mutez : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP 5; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : nat : mutez : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CAR; # pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : mutez : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CAR; # pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator)) : nat : mutez : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET 4; # address : nat : mutez : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SELF_ADDRESS; # @self : address : nat : mutez : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PAIR 3; # pair @self (pair address nat) : mutez : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CONS; # list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) } { - DUP; # pair nat (pair nat address) : pair nat (pair nat address) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 4; # address : pair nat (pair nat address) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CONTRACT %transfer (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))); # option (contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount))))))) : pair nat (pair nat address) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # == sweepFA2 == + # sp.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(amount = params.amount, to_ = self.data.administrator, token_id = params.id)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), params.tokenAddress, entrypoint='transfer').open_some()) # @parameter%sweepFA2 : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + NIL operation; # list operation : @parameter%sweepFA2 : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP 2; # @parameter%sweepFA2 : list operation : @parameter%sweepFA2 : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET 4; # address : list operation : @parameter%sweepFA2 : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CONTRACT %transfer (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))); # option (contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount))))))) : list operation : @parameter%sweepFA2 : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int 38; # int : pair nat (pair nat address) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int 43; # int : list operation : @parameter%sweepFA2 : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : pair nat (pair nat address) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - NIL operation; # list operation : @some : pair nat (pair nat address) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # @some : list operation : pair nat (pair nat address) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH mutez 0; # mutez : @some : list operation : pair nat (pair nat address) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - NIL (pair address (list (pair address (pair nat nat)))); # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair nat (pair nat address) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - NIL (pair address (pair nat nat)); # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair nat (pair nat address) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DIG 5; # pair nat (pair nat address) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP; # pair nat (pair nat address) : pair nat (pair nat address) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CAR; # nat : pair nat (pair nat address) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # pair nat (pair nat address) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 8; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CAR; # pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CAR; # pair (big_map address (pair int (pair nat bool))) (pair (set nat) address) : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 4; # address : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR 3; # pair address (pair nat nat) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SELF_ADDRESS; # @self : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - RENAME; # address : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CONS; # list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : list operation : @parameter%sweepFA2 : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH mutez 0; # mutez : @some : list operation : @parameter%sweepFA2 : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + NIL (pair address (list (pair address (pair nat nat)))); # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%sweepFA2 : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + NIL (pair address (pair nat nat)); # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%sweepFA2 : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DIG 5; # @parameter%sweepFA2 : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP; # @parameter%sweepFA2 : @parameter%sweepFA2 : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CAR; # nat : @parameter%sweepFA2 : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # @parameter%sweepFA2 : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP 8; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CAR; # pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CAR; # pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator)) : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET 4; # address : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PAIR 3; # pair address (pair nat nat) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SELF_ADDRESS; # @self : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair @self (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CONS; # list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + }; # list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + }; # list operation : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) } { IF_LEFT { + # == sweepMutez == + # if params: # @parameter%sweepMutez : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) IF { - DUP; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CAR; # pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CAR; # pair (big_map address (pair int (pair nat bool))) (pair (set nat) address) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 4; # address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CONTRACT %receive unit; # option (contract unit) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # sp.send(self.data.administrator, sp.balance) # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + NIL operation; # list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP 2; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CAR; # pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CAR; # pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator)) : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET 4; # address : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CONTRACT %receive unit; # option (contract unit) : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int 20; # int : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int 21; # int : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - NIL operation; # list operation : @some : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # @some : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - BALANCE; # @balance : @some : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - RENAME; # mutez : @some : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNIT; # unit : mutez : @some : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CONS; # list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + BALANCE; # @balance : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + UNIT; # unit : @balance : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CONS; # list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) } { - DUP; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CAR; # pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CAR; # pair (big_map address (pair int (pair nat bool))) (pair (set nat) address) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 4; # address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CONTRACT unit; # option (contract unit) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # sp.send(self.data.administrator, sp.balance) # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + NIL operation; # list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP 2; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CAR; # pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CAR; # pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator)) : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET 4; # address : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CONTRACT unit; # option (contract unit) : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int 24; # int : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int 24; # int : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - NIL operation; # list operation : @some : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # @some : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - BALANCE; # @balance : @some : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - RENAME; # mutez : @some : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNIT; # unit : mutez : @some : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CONS; # list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + BALANCE; # @balance : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + UNIT; # unit : @balance : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CONS; # list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + }; # list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) } { IF_LEFT { - PUSH mutez 1; # mutez : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 0; # nat : mutez : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - MUL; # mutez : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - AMOUNT; # @amount : mutez : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - RENAME; # mutez : mutez : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - COMPARE; # int : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - EQ; # bool : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # == updateAccountLiquidityWithView == + # sp.verify(sp.amount == sp.mul(sp.set_type_expr(0, sp.TNat), sp.mutez(1)), 'TEZ_TRANSFERED') # @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH mutez 1; # mutez : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 0; # nat : mutez : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + MUL; # mutez : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + AMOUNT; # @amount : mutez : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + COMPARE; # int : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + EQ; # bool : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) IF {} { - PUSH string "TEZ_TRANSFERED"; # string : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH string "TEZ_TRANSFERED"; # string : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED - }; # address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUG 2; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))))) : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # map string address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + }; # @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # for asset in self.data.marketNameToAddress.values(): ... # @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP 2; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # map string address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) ITER { - CDR; # address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - LEVEL; # @level : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - RENAME; # nat : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 4; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : nat : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))))) : nat : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 4; # big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : nat : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 3; # address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : nat : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET; # option (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : nat : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CDR; # address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # if self.data.markets[asset].updateLevel < sp.level: # address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + LEVEL; # @level : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP 4; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @level : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : @level : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET 4; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @level : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP 3; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @level : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @level : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int 293; # int : nat : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int 293; # int : @level : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : nat : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 8; # nat : nat : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - COMPARE; # int : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - LT; # bool : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : @level : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET 8; # nat : @level : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + COMPARE; # int : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + LT; # bool : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) IF { - PUSH timestamp "1970-01-01T00:00:00Z"; # timestamp : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 4; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : timestamp : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))))) : timestamp : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 4; # big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : timestamp : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 3; # address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : timestamp : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET; # option (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : timestamp : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - IF_NONE - { - PUSH int 296; # int : timestamp : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - FAILWITH; # FAILED - } - {}; # @some : timestamp : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 7; # timestamp : timestamp : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - COMPARE; # int : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - NEQ; # bool : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - IF - { - DIG 2; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 5; # pair int address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CAR; # int : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : int : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : int : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUG 4; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : int : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 5; # pair int address : int : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CDR; # address : int : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH string "-USD"; # string : address : int : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 6; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : string : address : int : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))))) : string : address : int : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 4; # big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : string : address : int : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 5; # address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : string : address : int : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET; # option (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : string : address : int : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - IF_NONE - { - PUSH int 294; # int : string : address : int : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - FAILWITH; # FAILED - } - {}; # @some : string : address : int : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # pair string nat : string : address : int : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CAR; # string : string : address : int : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CONCAT; # string : address : int : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - VIEW "getPrice" (pair timestamp nat); # option (pair timestamp nat) : int : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - IF_NONE - { - PUSH string "invalid oracle view call"; # string : int : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - FAILWITH; # FAILED - } - {}; # @some : int : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CAR; # timestamp : int : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - NOW; # @now : timestamp : int : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - RENAME; # timestamp : timestamp : int : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SUB; # int : int : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - COMPARE; # int : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - LE; # bool : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - IF - {} - { - PUSH string "STALE_ASSET_PRICE"; # string : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - FAILWITH; # FAILED - }; # address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - } - {}; # address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 3; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))))) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # pair nat (big_map address (set address)) : pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # map string address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP; # big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 7; # address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP; # address : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUG 2; # address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET; # option (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # pricePair = sp.local("pricePair", sp.view("getPrice", self.data.markets[asset].name + '-USD', self.data.oracleAddress, sp.TPair(sp.TTimestamp, sp.TNat)).open_some(message = 'invalid oracle view call')) # address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP 3; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET 5; # pair (int %maxPriceTimeDifference) (address %oracleAddress) : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CDR; # address : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH string "-USD"; # string : address : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP 5; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : string : address : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : string : address : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET 4; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : string : address : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP 4; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : string : address : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : string : address : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int 298; # int : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int 295; # int : string : address : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # pair (pair bool nat) (pair bool bool) : pair (pair string nat) (pair nat (pair timestamp nat)) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # pair (pair string nat) (pair nat (pair timestamp nat)) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # pair string nat : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CAR; # string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 12; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))))) : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 4; # big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 11; # address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET; # option (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : string : address : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # pair (string %name) (nat %price) : string : address : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CAR; # string : string : address : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CONCAT; # string : address : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + VIEW "getPrice" (pair timestamp nat); # option (pair timestamp nat) : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int 299; # int : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH string "invalid oracle view call"; # string : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 5; # nat : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 13; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : nat : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 5; # pair int address : nat : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CDR; # address : nat : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH string "-USD"; # string : address : nat : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DIG 14; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : string : address : nat : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))))) : string : address : nat : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 4; # big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : string : address : nat : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 14; # address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : string : address : nat : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET; # option (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : string : address : nat : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # if self.data.markets[asset].priceTimestamp != sp.timestamp(0): # @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH timestamp "1970-01-01T00:00:00Z"; # timestamp : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP 5; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : timestamp : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : timestamp : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET 4; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : timestamp : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP 4; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : timestamp : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : timestamp : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int 294; # int : string : address : nat : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int 298; # int : timestamp : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : string : address : nat : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # pair string nat : string : address : nat : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CAR; # string : string : address : nat : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CONCAT; # string : address : nat : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - VIEW "getPrice" (pair timestamp nat); # option (pair timestamp nat) : nat : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - IF_NONE + {}; # @some : timestamp : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET 7; # timestamp : timestamp : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + COMPARE; # int : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + NEQ; # bool : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + IF { - PUSH string "invalid oracle view call"; # string : nat : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - FAILWITH; # FAILED + # sp.verify((sp.now - sp.fst(pricePair.value)) <= self.data.maxPriceTimeDifference, 'STALE_ASSET_PRICE') # @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP 4; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET 5; # pair (int %maxPriceTimeDifference) (address %oracleAddress) : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CAR; # int : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP 2; # @some : int : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CAR; # timestamp : int : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + NOW; # @now : timestamp : int : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SUB; # int : int : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + COMPARE; # int : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + LE; # bool : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + IF + {} + { + PUSH string "STALE_ASSET_PRICE"; # string : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + FAILWITH; # FAILED + }; # @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) } - {}; # @some : nat : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CDR; # nat : nat : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - MUL; # nat : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # string : nat : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair string nat : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (pair string nat) (pair nat (pair timestamp nat)) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # pair (pair bool nat) (pair bool bool) : pair (pair string nat) (pair nat (pair timestamp nat)) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SOME; # option (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # address : option (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UPDATE; # big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # map string address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # pair nat (big_map address (set address)) : pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))))) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUG 3; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))))) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # pair nat (big_map address (set address)) : pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # map string address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP; # big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 7; # address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP; # address : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUG 2; # address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET; # option (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # self.data.markets[asset].price = sp.record(mantissa = sp.snd(pricePair.value) * self.data.markets[asset].priceExp) # @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP 4; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET 4; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP 3; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int 300; # int : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int 301; # int : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 10; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 5; # pair int address : @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CDR; # address : @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH string "-USD"; # string : address : @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DIG 11; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : string : address : @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))))) : string : address : @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 4; # big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : string : address : @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 11; # address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : string : address : @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET; # option (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : string : address : @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET 5; # nat : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP 2; # @some : nat : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CDR; # nat : nat : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + MUL; # nat : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DIG 4; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + UNPAIR; # pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + UNPAIR; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + UNPAIR; # pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + UNPAIR; # map string address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP 9; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP; # address : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUG 2; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int 294; # int : string : address : @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int 300; # int : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : string : address : @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # pair string nat : string : address : @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CAR; # string : string : address : @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CONCAT; # string : address : @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - VIEW "getPrice" (pair timestamp nat); # option (pair timestamp nat) : @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + UNPAIR; # pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))) : pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + UNPAIR; # pair (string %name) (nat %price) : pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)) : pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CAR; # string : pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)) : pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DIG 9; # nat : string : pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)) : pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # string : nat : pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)) : pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair string nat : pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)) : pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))) : pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SOME; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # address : option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + UPDATE; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # self.data.markets[asset].priceTimestamp = sp.fst(pricePair.value) # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP 8; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP; # address : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUG 2; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH string "invalid oracle view call"; # string : @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int 302; # int : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CAR; # timestamp : @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UPDATE 7; # @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SOME; # option (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # address : option (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UPDATE; # big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP; # big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 7; # address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP; # address : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUG 2; # address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET; # option (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP 8; # @some : @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CAR; # timestamp : @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + UPDATE 7; # @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SOME; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # address : option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + UPDATE; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # self.data.markets[asset].updateLevel = sp.level # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP 8; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP; # address : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUG 2; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int 301; # int : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int 303; # int : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - LEVEL; # @level : @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DIG 8; # address : @level : @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DROP; # @level : @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - RENAME; # nat : @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UPDATE 8; # @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SOME; # option (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # address : option (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UPDATE; # big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # map string address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # pair nat (big_map address (set address)) : pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))))) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)) : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + LEVEL; # @level : @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DIG 8; # @some : @level : @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @level : @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DIG 8; # address : @level : @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @level : @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + UPDATE 8; # @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SOME; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # address : option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + UPDATE; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # map string address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair (map string address) (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (map string address) (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map string address) (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map string address) (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map string address) (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map string address) (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map string address) (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) } { - DROP; # address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - NIL operation; # list operation : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 3; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : list operation : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))))) : list operation : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # map string address : list operation : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + }; # @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map string address) (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + }; # @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # for asset in self.data.marketNameToAddress.values(): ... # @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + NIL operation; # list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP 3; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # map string address : list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) ITER { - CDR; # address : list operation : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CONTRACT %accrueInterest unit; # option (contract unit) : list operation : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CDR; # address : list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # sp.send(asset, sp.tez(0)) # address : list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CONTRACT %accrueInterest unit; # option (contract unit) : list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int 344; # int : list operation : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int 347; # int : list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : list operation : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH mutez 0; # mutez : @some : list operation : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNIT; # unit : mutez : @some : list operation : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - TRANSFER_TOKENS; # operation : list operation : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CONS; # list operation : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # list operation : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DIG 2; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : list operation : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)) : list operation : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # pair (big_map address (pair int (pair nat bool))) (pair (set nat) address) : pair (pair nat (big_map address (set address))) (pair nat nat) : pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)) : list operation : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # big_map address (pair int (pair nat bool)) : pair (set nat) address : pair (pair nat (big_map address (set address))) (pair nat nat) : pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)) : list operation : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # pair (set nat) address : big_map address (pair int (pair nat bool)) : pair (pair nat (big_map address (set address))) (pair nat nat) : pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)) : list operation : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # set nat : address : big_map address (pair int (pair nat bool)) : pair (pair nat (big_map address (set address))) (pair nat nat) : pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)) : list operation : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH bool True; # bool : set nat : address : big_map address (pair int (pair nat bool)) : pair (pair nat (big_map address (set address))) (pair nat nat) : pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)) : list operation : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 4; # nat : bool : set nat : address : big_map address (pair int (pair nat bool)) : pair (pair nat (big_map address (set address))) (pair nat nat) : pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)) : list operation : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UPDATE; # set nat : address : big_map address (pair int (pair nat bool)) : pair (pair nat (big_map address (set address))) (pair nat nat) : pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)) : list operation : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (set nat) address : big_map address (pair int (pair nat bool)) : pair (pair nat (big_map address (set address))) (pair nat nat) : pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)) : list operation : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # big_map address (pair int (pair nat bool)) : pair (set nat) address : pair (pair nat (big_map address (set address))) (pair nat nat) : pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)) : list operation : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (big_map address (pair int (pair nat bool))) (pair (set nat) address) : pair (pair nat (big_map address (set address))) (pair nat nat) : pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)) : list operation : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)) : list operation : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : list operation : address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUG 2; # list operation : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SELF %setAccountLiquidityWithView; # @self : list operation : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - RENAME; # contract address : list operation : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH mutez 0; # mutez : contract address : list operation : address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DIG 3; # address : mutez : contract address : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CONS; # list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH mutez 0; # mutez : @some : list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + UNIT; # unit : mutez : @some : list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + TRANSFER_TOKENS; # operation : list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CONS; # list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + }; # list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # self.data.activeOperations.add(4) # list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DIG 2; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : list operation : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + UNPAIR; # pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : list operation : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + UNPAIR; # pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator)) : pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : list operation : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + UNPAIR; # big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid))) : pair (set %activeOperations nat) (address %administrator) : pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : list operation : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # pair (set %activeOperations nat) (address %administrator) : big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid))) : pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : list operation : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + UNPAIR; # set nat : address : big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid))) : pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : list operation : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH bool True; # bool : set nat : address : big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid))) : pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : list operation : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 4; # nat : bool : set nat : address : big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid))) : pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : list operation : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + UPDATE; # set nat : address : big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid))) : pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : list operation : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair (set nat) address : big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid))) : pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : list operation : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid))) : pair (set nat) address : pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : list operation : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address) : pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : list operation : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : list operation : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : list operation : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUG 2; # list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # sp.transfer(params, sp.tez(0), sp.self_entrypoint('setAccountLiquidityWithView')) # list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SELF %setAccountLiquidityWithView; # @self : list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH mutez 0; # mutez : @self : list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DIG 3; # @parameter%updateAccountLiquidityWithView : mutez : @self : list operation : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CONS; # list operation : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) } { - PUSH mutez 1; # mutez : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 0; # nat : mutez : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - MUL; # mutez : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - AMOUNT; # @amount : mutez : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - RENAME; # mutez : mutez : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - COMPARE; # int : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - EQ; # bool : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # == updateAllAssetPricesWithView == + # sp.verify(sp.amount == sp.mul(sp.set_type_expr(0, sp.TNat), sp.mutez(1)), 'TEZ_TRANSFERED') # @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH mutez 1; # mutez : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 0; # nat : mutez : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + MUL; # mutez : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + AMOUNT; # @amount : mutez : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + COMPARE; # int : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + EQ; # bool : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) IF {} { - PUSH string "TEZ_TRANSFERED"; # string : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH string "TEZ_TRANSFERED"; # string : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED - }; # unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUG 2; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))))) : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # map string address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + }; # @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # for asset in self.data.marketNameToAddress.values(): ... # @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP 2; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # map string address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) ITER { - CDR; # address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - LEVEL; # @level : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - RENAME; # nat : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 4; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : nat : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))))) : nat : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 4; # big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : nat : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 3; # address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : nat : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET; # option (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : nat : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CDR; # address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # if self.data.markets[asset].updateLevel < sp.level: # address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + LEVEL; # @level : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP 4; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @level : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : @level : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET 4; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @level : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP 3; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @level : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @level : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int 293; # int : nat : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int 293; # int : @level : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : nat : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 8; # nat : nat : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - COMPARE; # int : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - LT; # bool : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : @level : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET 8; # nat : @level : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + COMPARE; # int : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + LT; # bool : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) IF { - PUSH timestamp "1970-01-01T00:00:00Z"; # timestamp : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 4; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : timestamp : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))))) : timestamp : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 4; # big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : timestamp : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 3; # address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : timestamp : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET; # option (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : timestamp : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # pricePair = sp.local("pricePair", sp.view("getPrice", self.data.markets[asset].name + '-USD', self.data.oracleAddress, sp.TPair(sp.TTimestamp, sp.TNat)).open_some(message = 'invalid oracle view call')) # address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP 3; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET 5; # pair (int %maxPriceTimeDifference) (address %oracleAddress) : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CDR; # address : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH string "-USD"; # string : address : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP 5; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : string : address : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : string : address : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET 4; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : string : address : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP 4; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : string : address : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : string : address : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int 296; # int : timestamp : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int 295; # int : string : address : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : timestamp : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 7; # timestamp : timestamp : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - COMPARE; # int : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - NEQ; # bool : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - IF - { - DIG 2; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 5; # pair int address : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CAR; # int : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : int : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : int : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUG 4; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : int : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 5; # pair int address : int : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CDR; # address : int : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH string "-USD"; # string : address : int : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 6; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : string : address : int : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))))) : string : address : int : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 4; # big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : string : address : int : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 5; # address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : string : address : int : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET; # option (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : string : address : int : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - IF_NONE - { - PUSH int 294; # int : string : address : int : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - FAILWITH; # FAILED - } - {}; # @some : string : address : int : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # pair string nat : string : address : int : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CAR; # string : string : address : int : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CONCAT; # string : address : int : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - VIEW "getPrice" (pair timestamp nat); # option (pair timestamp nat) : int : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - IF_NONE - { - PUSH string "invalid oracle view call"; # string : int : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - FAILWITH; # FAILED - } - {}; # @some : int : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CAR; # timestamp : int : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - NOW; # @now : timestamp : int : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - RENAME; # timestamp : timestamp : int : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SUB; # int : int : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - COMPARE; # int : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - LE; # bool : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - IF - {} - { - PUSH string "STALE_ASSET_PRICE"; # string : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - FAILWITH; # FAILED - }; # address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - } - {}; # address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 3; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))))) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # pair nat (big_map address (set address)) : pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # map string address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP; # big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 7; # address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP; # address : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUG 2; # address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET; # option (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - IF_NONE - { - PUSH int 298; # int : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - FAILWITH; # FAILED - } - {}; # @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # pair (pair bool nat) (pair bool bool) : pair (pair string nat) (pair nat (pair timestamp nat)) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # pair (pair string nat) (pair nat (pair timestamp nat)) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # pair string nat : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CAR; # string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 12; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))))) : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 4; # big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 11; # address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET; # option (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : string : address : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # pair (string %name) (nat %price) : string : address : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CAR; # string : string : address : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CONCAT; # string : address : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + VIEW "getPrice" (pair timestamp nat); # option (pair timestamp nat) : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int 299; # int : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH string "invalid oracle view call"; # string : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 5; # nat : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 13; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : nat : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 5; # pair int address : nat : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CDR; # address : nat : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH string "-USD"; # string : address : nat : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DIG 14; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : string : address : nat : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))))) : string : address : nat : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 4; # big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : string : address : nat : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 14; # address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : string : address : nat : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET; # option (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : string : address : nat : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # if self.data.markets[asset].priceTimestamp != sp.timestamp(0): # @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH timestamp "1970-01-01T00:00:00Z"; # timestamp : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP 5; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : timestamp : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : timestamp : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET 4; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : timestamp : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP 4; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : timestamp : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : timestamp : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int 294; # int : string : address : nat : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int 298; # int : timestamp : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : string : address : nat : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # pair string nat : string : address : nat : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CAR; # string : string : address : nat : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CONCAT; # string : address : nat : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - VIEW "getPrice" (pair timestamp nat); # option (pair timestamp nat) : nat : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - IF_NONE + {}; # @some : timestamp : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET 7; # timestamp : timestamp : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + COMPARE; # int : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + NEQ; # bool : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + IF { - PUSH string "invalid oracle view call"; # string : nat : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - FAILWITH; # FAILED + # sp.verify((sp.now - sp.fst(pricePair.value)) <= self.data.maxPriceTimeDifference, 'STALE_ASSET_PRICE') # @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP 4; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET 5; # pair (int %maxPriceTimeDifference) (address %oracleAddress) : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CAR; # int : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP 2; # @some : int : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CAR; # timestamp : int : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + NOW; # @now : timestamp : int : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SUB; # int : int : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + COMPARE; # int : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + LE; # bool : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + IF + {} + { + PUSH string "STALE_ASSET_PRICE"; # string : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + FAILWITH; # FAILED + }; # @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) } - {}; # @some : nat : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CDR; # nat : nat : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - MUL; # nat : string : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # string : nat : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair string nat : pair nat (pair timestamp nat) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (pair string nat) (pair nat (pair timestamp nat)) : pair (pair bool nat) (pair bool bool) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # pair (pair bool nat) (pair bool bool) : pair (pair string nat) (pair nat (pair timestamp nat)) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SOME; # option (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # address : option (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UPDATE; # big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # map string address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # pair nat (big_map address (set address)) : pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))))) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUG 3; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))))) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # pair nat (big_map address (set address)) : pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # map string address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP; # big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 7; # address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP; # address : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUG 2; # address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET; # option (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # self.data.markets[asset].price = sp.record(mantissa = sp.snd(pricePair.value) * self.data.markets[asset].priceExp) # @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP 4; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET 4; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP 3; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int 300; # int : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int 301; # int : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 10; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 5; # pair int address : @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CDR; # address : @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH string "-USD"; # string : address : @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DIG 11; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : string : address : @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))))) : string : address : @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 4; # big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : string : address : @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 11; # address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : string : address : @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET; # option (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : string : address : @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET 5; # nat : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP 2; # @some : nat : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CDR; # nat : nat : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + MUL; # nat : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DIG 4; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + UNPAIR; # pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + UNPAIR; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + UNPAIR; # pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + UNPAIR; # map string address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP 9; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP; # address : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUG 2; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int 294; # int : string : address : @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int 300; # int : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : string : address : @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # pair string nat : string : address : @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CAR; # string : string : address : @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CONCAT; # string : address : @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - VIEW "getPrice" (pair timestamp nat); # option (pair timestamp nat) : @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + UNPAIR; # pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))) : pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + UNPAIR; # pair (string %name) (nat %price) : pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)) : pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CAR; # string : pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)) : pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DIG 9; # nat : string : pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)) : pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # string : nat : pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)) : pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair string nat : pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)) : pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))) : pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SOME; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # address : option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + UPDATE; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # self.data.markets[asset].priceTimestamp = sp.fst(pricePair.value) # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP 8; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP; # address : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUG 2; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH string "invalid oracle view call"; # string : @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int 302; # int : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CAR; # timestamp : @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UPDATE 7; # @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SOME; # option (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # address : option (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UPDATE; # big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP; # big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 7; # address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP; # address : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUG 2; # address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET; # option (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP 8; # @some : @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CAR; # timestamp : @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + UPDATE 7; # @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SOME; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # address : option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + UPDATE; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # self.data.markets[asset].updateLevel = sp.level # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP 8; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP; # address : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUG 2; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int 301; # int : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int 303; # int : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - LEVEL; # @level : @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : address : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DIG 8; # address : @level : @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DROP; # @level : @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - RENAME; # nat : @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UPDATE 8; # @some : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SOME; # option (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # address : option (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UPDATE; # big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : map string address : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # map string address : big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))) : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) : pair nat (big_map address (set address)) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # pair nat (big_map address (set address)) : pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat)))))) : pair (pair int address) (pair (option address) bool) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)) : pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat)) : pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)) : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : unit : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + LEVEL; # @level : @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DIG 8; # @some : @level : @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @level : @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DIG 8; # address : @level : @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @level : @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + UPDATE 8; # @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SOME; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # address : option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + UPDATE; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # map string address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair (map string address) (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (map string address) (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map string address) (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map string address) (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map string address) (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map string address) (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map string address) (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) } { - DROP; # unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # unit : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DROP; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - NIL operation; # list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + }; # @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map string address) (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + }; # @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + NIL operation; # list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + }; # list operation : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + }; # list operation : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + }; # list operation : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) }; # list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) NIL operation; # list operation : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) SWAP; # list operation : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) @@ -911,28 +820,24 @@ code PAIR; # pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))) (big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))))) }; view - "liquidateCalculateSeizeTokens" (pair (nat %actualRepayAmount) (pair (address %cTokenBorrowed) (address %cTokenCollateral))) nat + "liquidateCalculateSeizeTokens" (pair (nat %actualRepayAmount) (pair (address %cTokenBorrowed) (address %cTokenCollateral))) (pair nat nat) { UNPAIR 3; # @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUG 2; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # sp.verify(sp.level == self.data.markets[params.cTokenBorrowed].updateLevel, 'CMPT_UPDATE_PRICE') # @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP 2; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) GET 3; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) GET 4; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # @parameter : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP; # @parameter : @parameter : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUG 2; # @parameter : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP 2; # @parameter : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) GET 3; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int 304; # int : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int 306; # int : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } {}; # @some : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) GET 8; # nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) LEVEL; # @level : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - RENAME; # nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) COMPARE; # int : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) EQ; # bool : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) IF @@ -941,24 +846,22 @@ view PUSH string "CMPT_UPDATE_PRICE"; # string : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED }; # @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUG 2; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # priceBorrowedMantissa = sp.local("priceBorrowedMantissa", self.data.markets[params.cTokenBorrowed].price) # @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP 2; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) GET 3; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) GET 4; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # @parameter : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP; # @parameter : @parameter : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUG 2; # @parameter : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP 2; # @parameter : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) GET 3; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int 305; # int : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int 307; # int : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } {}; # @some : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) GET 3; # pair (string %name) (nat %price) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) CDR; # nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # sp.verify(sp.level == self.data.markets[params.cTokenCollateral].updateLevel, 'CMPT_UPDATE_PRICE') # nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) DUP 3; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) GET 3; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) GET 4; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) @@ -967,7 +870,7 @@ view GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int 304; # int : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int 306; # int : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } {}; # @some : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) @@ -975,7 +878,6 @@ view LEVEL; # @level : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) DIG 5; # big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) : @level : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) DROP; # @level : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - RENAME; # nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) COMPARE; # int : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) EQ; # bool : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) IF @@ -984,6 +886,7 @@ view PUSH string "CMPT_UPDATE_PRICE"; # string : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) FAILWITH; # FAILED }; # nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + # priceCollateralMantissa = sp.local("priceCollateralMantissa", self.data.markets[params.cTokenCollateral].price) # nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) DUP 3; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) GET 3; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) GET 4; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) @@ -992,20 +895,21 @@ view GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) IF_NONE { - PUSH int 305; # int : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + PUSH int 307; # int : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) FAILWITH; # FAILED } {}; # @some : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) GET 3; # pair (string %name) (nat %price) : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) CDR; # nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + # sp.verify((priceBorrowedMantissa.value.mantissa != 0) & (priceCollateralMantissa.value.mantissa != 0), 'CMPT_PRICE_ERROR') # nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) PUSH nat 0; # nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) DUP 3; # nat : nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) COMPARE; # int : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) NEQ; # bool : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) IF { - DUP; # nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - PUSH nat 0; # nat : nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + PUSH nat 0; # nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + DUP 2; # nat : nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) COMPARE; # int : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) NEQ; # bool : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) } @@ -1018,6 +922,7 @@ view PUSH string "CMPT_PRICE_ERROR"; # string : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) FAILWITH; # FAILED }; # nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + # numerator = sp.local("numerator", sp.record(mantissa = (self.data.liquidationIncentiveMantissa * priceBorrowedMantissa.value.mantissa) // self.data.expScale)) # nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) DUP 4; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) CAR; # pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) GET 5; # nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) @@ -1036,20 +941,22 @@ view { CAR; # nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) }; # nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + # denominator = sp.local("denominator", sp.record(mantissa = (priceCollateralMantissa.value.mantissa * sp.fst(sp.view("exchangeRateStoredView", sp.unit, params.cTokenCollateral, sp.TPair(sp.TNat, sp.TNat)).open_some(message = 'INVALID EXCHANGE RATE VIEW'))) // self.data.expScale)) # nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) DUP 4; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) CAR; # pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) GET 5; # nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) DUP 4; # @parameter : nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) GET 4; # address : nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) UNIT; # unit : address : nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - VIEW "exchangeRateStoredView" nat; # option nat : nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + VIEW "exchangeRateStoredView" (pair nat nat); # option (pair nat nat) : nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) IF_NONE { PUSH string "INVALID EXCHANGE RATE VIEW"; # string : nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) FAILWITH; # FAILED } {}; # @some : nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - DIG 3; # nat : @some : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + CAR; # nat : nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + DIG 3; # nat : nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) MUL; # nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) EDIV; # option (pair nat nat) : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) IF_NONE @@ -1060,16 +967,18 @@ view { CAR; # nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) }; # nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - DUP; # nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - PUSH nat 0; # nat : nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + # sp.verify(denominator.value.mantissa > 0, 'DIVISION_BY_ZERO') # nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + PUSH nat 0; # nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + DUP 2; # nat : nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) COMPARE; # int : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - LT; # bool : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + GT; # bool : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) IF {} { PUSH string "DIVISION_BY_ZERO"; # string : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) FAILWITH; # FAILED }; # nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + # ratio = sp.local("ratio", sp.record(mantissa = (numerator.value.mantissa * self.data.expScale) // denominator.value.mantissa)) # nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) DUP 4; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) CAR; # pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) GET 5; # nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) @@ -1084,22 +993,35 @@ view { CAR; # nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) }; # nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - DIG 2; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : nat : @parameter - CAR; # pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @parameter - GET 5; # nat : nat : @parameter - DIG 2; # @parameter : nat : nat - CAR; # nat : nat : nat - DIG 2; # nat : nat : nat - MUL; # nat : nat - EDIV; # option (pair nat nat) + # sp.result(((ratio.value.mantissa * params.actualRepayAmount) // self.data.expScale, sp.snd(sp.view("exchangeRateStoredView", sp.unit, params.cTokenCollateral, sp.TPair(sp.TNat, sp.TNat)).open_some(message = 'INVALID EXCHANGE RATE VIEW')))) # nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + DUP 2; # @parameter : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + GET 4; # address : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + UNIT; # unit : address : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + VIEW "exchangeRateStoredView" (pair nat nat); # option (pair nat nat) : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) IF_NONE { - PUSH int 61; # int + PUSH string "INVALID EXCHANGE RATE VIEW"; # string : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + FAILWITH; # FAILED + } + {}; # @some : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + CDR; # nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + DIG 3; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : nat : nat : @parameter + CAR; # pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : nat : @parameter + GET 5; # nat : nat : nat : @parameter + DIG 3; # @parameter : nat : nat : nat + CAR; # nat : nat : nat : nat + DIG 3; # nat : nat : nat : nat + MUL; # nat : nat : nat + EDIV; # option (pair nat nat) : nat + IF_NONE + { + PUSH int 61; # int : nat FAILWITH; # FAILED } { - CAR; # nat - }; # nat + CAR; # nat : nat + }; # nat : nat + PAIR; # pair nat nat }; view "seizeAllowed" (pair (address %cTokenBorrowed) (address %cTokenCollateral)) bool @@ -1107,31 +1029,24 @@ view UNPAIR 3; # @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) DIG 2; # big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) DROP; # @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - SWAP; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter - DUP; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter - DUG 2; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + # if (~ ((self.data.markets.contains(params.cTokenBorrowed)) & self.data.markets[params.cTokenBorrowed].isListed)) | (~ ((self.data.markets.contains(params.cTokenCollateral)) & self.data.markets[params.cTokenCollateral].isListed)): # @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + DUP 2; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) GET 3; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) GET 4; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - SWAP; # @parameter : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - DUP; # @parameter : @parameter : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - DUG 2; # @parameter : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + DUP 2; # @parameter : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) CAR; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) MEM; # bool : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) IF { - SWAP; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter - DUP; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter - DUG 2; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + DUP 2; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) GET 3; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) GET 4; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - SWAP; # @parameter : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - DUP; # @parameter : @parameter : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - DUG 2; # @parameter : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + DUP 2; # @parameter : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) CAR; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) IF_NONE { - PUSH int 730; # int : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + PUSH int 464; # int : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) FAILWITH; # FAILED } {}; # @some : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) @@ -1141,79 +1056,104 @@ view { PUSH bool False; # bool : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) }; # bool : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - IF - {} - { - PUSH string "CMPT_MARKET_NOT_LISTED"; # string : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - FAILWITH; # FAILED - }; # @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - SWAP; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter - DUP; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter - DUG 2; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - GET 3; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - GET 4; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - SWAP; # @parameter : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - DUP; # @parameter : @parameter : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - DUG 2; # @parameter : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - CDR; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - MEM; # bool : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) IF { - SWAP; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter - GET 3; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : @parameter - GET 4; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter - SWAP; # @parameter : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) - DUP; # @parameter : @parameter : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) - DUG 2; # @parameter : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter - CDR; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter - GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter - IF_NONE + DUP 2; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + GET 3; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + GET 4; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + DUP 2; # @parameter : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + CDR; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + MEM; # bool : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + IF { - PUSH int 730; # int : @parameter - FAILWITH; # FAILED + SWAP; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter + GET 3; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : @parameter + GET 4; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter + DUP 2; # @parameter : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter + CDR; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter + GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter + IF_NONE + { + PUSH int 467; # int : @parameter + FAILWITH; # FAILED + } + {}; # @some : @parameter + CAR; # pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : @parameter + GET 3; # bool : @parameter + NOT; # bool : @parameter } - {}; # @some : @parameter - CAR; # pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : @parameter - GET 3; # bool : @parameter + { + SWAP; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter + DROP; # @parameter + PUSH bool True; # bool : @parameter + }; # bool : @parameter } { SWAP; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter DROP; # @parameter - PUSH bool False; # bool : @parameter + PUSH bool True; # bool : @parameter }; # bool : @parameter IF - {} - { - PUSH string "CMPT_MARKET_NOT_LISTED"; # string : @parameter - FAILWITH; # FAILED - }; # @parameter - DUP; # @parameter : @parameter - CDR; # address : @parameter - UNIT; # unit : address : @parameter - VIEW "comptroller" address; # option address : @parameter - IF_NONE - { - PUSH string "INVALID COMPTROLLER VIEW"; # string : @parameter - FAILWITH; # FAILED - } - {}; # @some : @parameter - SWAP; # @parameter : @some - CAR; # address : @some - UNIT; # unit : address : @some - VIEW "comptroller" address; # option address : @some - IF_NONE { - PUSH string "INVALID COMPTROLLER VIEW"; # string : @some - FAILWITH; # FAILED + DROP; # + # sp.result(False) # + PUSH bool False; # bool } - {}; # @some : @some - COMPARE; # int - EQ; # bool - IF - {} { - PUSH string "CMPT_COMPTROLLER_MISMATCH"; # string - FAILWITH; # FAILED - }; # - PUSH bool True; # bool + # if sp.view("comptroller", sp.unit, params.cTokenBorrowed, sp.TAddress).is_variant('None') | sp.view("comptroller", sp.unit, params.cTokenCollateral, sp.TAddress).is_variant('None'): # @parameter + DUP; # @parameter : @parameter + CAR; # address : @parameter + UNIT; # unit : address : @parameter + VIEW "comptroller" address; # option address : @parameter + IF_NONE + { + PUSH bool True; # bool : @parameter + } + { + DROP; # @parameter + DUP; # @parameter : @parameter + CDR; # address : @parameter + UNIT; # unit : address : @parameter + VIEW "comptroller" address; # option address : @parameter + IF_NONE + { + PUSH bool True; # bool : @parameter + } + { + DROP; # @parameter + PUSH bool False; # bool : @parameter + }; # bool : @parameter + }; # bool : @parameter + IF + { + DROP; # + # sp.result(False) # + PUSH bool False; # bool + } + { + # sp.result(sp.view("comptroller", sp.unit, params.cTokenBorrowed, sp.TAddress).open_some() == sp.view("comptroller", sp.unit, params.cTokenCollateral, sp.TAddress).open_some()) # @parameter + DUP; # @parameter : @parameter + CDR; # address : @parameter + UNIT; # unit : address : @parameter + VIEW "comptroller" address; # option address : @parameter + IF_NONE + { + PUSH int 479; # int : @parameter + FAILWITH; # FAILED + } + {}; # @some : @parameter + SWAP; # @parameter : @some + CAR; # address : @some + UNIT; # unit : address : @some + VIEW "comptroller" address; # option address : @some + IF_NONE + { + PUSH int 478; # int : @some + FAILWITH; # FAILED + } + {}; # @some : @some + COMPARE; # int + EQ; # bool + }; # bool + }; # bool }; \ No newline at end of file diff --git a/compiled_contracts/Comptroller/step_000_cont_0_sizes.csv b/compiled_contracts/Comptroller/step_000_cont_0_sizes.csv index a05470e7..ee756e1c 100644 --- a/compiled_contracts/Comptroller/step_000_cont_0_sizes.csv +++ b/compiled_contracts/Comptroller/step_000_cont_0_sizes.csv @@ -1,2 +1,2 @@ -storage,23978 -contract,8179 \ No newline at end of file +storage,20540 +contract,6771 \ No newline at end of file diff --git a/compiled_contracts/Comptroller/step_000_cont_0_storage.json b/compiled_contracts/Comptroller/step_000_cont_0_storage.json index e72b8401..9c556592 100644 --- a/compiled_contracts/Comptroller/step_000_cont_0_storage.json +++ b/compiled_contracts/Comptroller/step_000_cont_0_storage.json @@ -7,7 +7,7 @@ { "prim": "Pair", "args": [ - { "prim": "Pair", "args": [ [], { "prim": "Pair", "args": [ [], { "string": "KT1KW6McQpHFZPffW6vZt5JSxibvVKAPnYUq" } ] } ] }, + { "prim": "Pair", "args": [ [], { "prim": "Pair", "args": [ [], { "string": "KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2" } ] } ] }, { "prim": "Pair", "args": [ @@ -24,7 +24,7 @@ { "prim": "Pair", "args": [ - { "prim": "Pair", "args": [ { "int": "86400" }, { "string": "KT1RiGPbUciuBFykVoAmRawdvne322K8yV6N" } ] }, + { "prim": "Pair", "args": [ { "int": "86400" }, { "string": "KT1LDtNKDnpziwSrmSfx3xCbs7nBMg7VFp4m" } ] }, { "prim": "Pair", "args": [ { "prim": "None" }, { "prim": "True" } ] } ] } @@ -71,7 +71,6 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "MUL" }, { "prim": "AMOUNT" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "TEZ_TRANSFERED" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -79,19 +78,19 @@ { "prim": "GET", "args": [ { "int": "7" } ] }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_NOT_SET_PENDING_ADMIN" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_NOT_PENDING_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "DUP" }, + { "prim": "GET", "args": [ { "int": "7" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "566" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "CAR" }, { "prim": "DIG", "args": [ { "int": "4" } ] }, - { "prim": "GET", "args": [ { "int": "7" } ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "554" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" }, @@ -138,52 +137,37 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "MUL" }, { "prim": "AMOUNT" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "TEZ_TRANSFERED" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "GET" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "212" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, - { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_BORROW_PAUSED" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "IF", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_BORROW_PAUSED" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "MEM" }, { "prim": "IF", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "730" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "742" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] } ], @@ -191,51 +175,39 @@ ] }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_MARKET_NOT_LISTED" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "DUP" }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_INVALID_BORROW_SENDER" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" }, { "prim": "IF", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "730" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "742" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] } ], @@ -243,15 +215,11 @@ ] }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_MARKET_NOT_LISTED" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, { @@ -274,7 +242,6 @@ { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "230" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "UPDATE" }, { "prim": "SOME" }, { "prim": "SWAP" }, @@ -298,7 +265,6 @@ { "prim": "EMPTY_SET", "args": [ { "prim": "address" } ] }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "UPDATE" }, { "prim": "SOME" }, { "prim": "DUP", "args": [ { "int": "7" } ] }, @@ -314,57 +280,42 @@ ] ] } - ], - [] + ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_LIQUIDITY_ABSENT" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "746" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "758" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_LIQUIDITY_INVALID" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "748" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "760" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_LIQUIDITY_OLD" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -374,12 +325,11 @@ { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "304" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "306" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "8" } ] }, { "prim": "LEVEL" }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "DROP" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_UPDATE_PRICE" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -390,20 +340,16 @@ { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "305" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "307" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "COMPARE" }, { "prim": "GT" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_INVALID_PRICE" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, @@ -433,15 +379,11 @@ { "prim": "COMPARE" }, { "prim": "GE" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_REDEEMER_SHORTFALL" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, { @@ -458,7 +400,7 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "753" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "765" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] }, { "prim": "UPDATE", "args": [ { "int": "4" } ] }, { "prim": "SOME" }, @@ -509,44 +451,32 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "MUL" }, { "prim": "AMOUNT" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "TEZ_TRANSFERED" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "MEM" }, { "prim": "IF", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "730" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "742" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] } ], @@ -567,7 +497,7 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "721" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "733" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, @@ -633,7 +563,6 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "MUL" }, { "prim": "AMOUNT" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "TEZ_TRANSFERED" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -645,9 +574,7 @@ { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "MEM" }, { "prim": "IF", @@ -656,11 +583,9 @@ { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "730" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "742" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] } ], @@ -673,7 +598,6 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" }, { "prim": "IF", @@ -688,7 +612,6 @@ { "prim": "SWAP" }, { "prim": "DUP" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, @@ -721,7 +644,6 @@ { "prim": "UPDATE" }, { "prim": "SOME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "UPDATE" }, { "prim": "SWAP" }, { "prim": "PAIR" }, @@ -742,7 +664,6 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" }, { "prim": "IF", @@ -753,11 +674,10 @@ { "prim": "UNPAIR" }, { "prim": "DUP" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "753" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "765" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] }, { "prim": "UPDATE", "args": [ { "int": "4" } ] }, { "prim": "SOME" }, @@ -822,7 +742,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -875,18 +794,13 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "MUL" }, { "prim": "AMOUNT" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "TEZ_TRANSFERED" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, { "prim": "MEM" }, @@ -894,18 +808,14 @@ "prim": "IF", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "730" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "742" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] } ], @@ -913,31 +823,23 @@ ] }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_MARKET_NOT_LISTED" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, { "prim": "IF", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "730" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "742" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] } ], @@ -967,7 +869,7 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "481" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "491" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "ITER", "args": [ @@ -981,10 +883,47 @@ "args": [ { "string": "getAccountSnapshotView" }, { - "prim": "pair", + "prim": "option", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, + { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] } + ] + } + ] + } + ] + }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID ACCOUNT SNAPSHOT VIEW" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_OUTDATED_ACCOUNT_SNAPHOT" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "DROP" } ] + ] + }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { + "prim": "VIEW", + "args": [ + { "string": "getAccountSnapshotView" }, + { + "prim": "option", "args": [ - { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, - { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] } + { + "prim": "pair", + "args": [ + { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, + { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] } + ] + } ] } ] @@ -993,53 +932,54 @@ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID ACCOUNT SNAPSHOT VIEW" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "521" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DUP" }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "304" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "306" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "8" } ] }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_UPDATE_PRICE" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "305" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "307" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "COMPARE" }, { "prim": "GT" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_INVALID_PRICE" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "SWAP" }, - { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "DUP", "args": [ { "int": "8" } ] }, + { "prim": "DUP", "args": [ { "int": "9" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "513" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "525" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CDR" }, - { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "DUP", "args": [ { "int": "10" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "513" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "525" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "MUL" }, @@ -1052,31 +992,11 @@ "prim": "PUSH", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } ] }, - { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "8" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { - "prim": "VIEW", - "args": [ - { "string": "getAccountSnapshotView" }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, - { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] } - ] - } - ] - }, - { - "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID ACCOUNT SNAPSHOT VIEW" } ] }, { "prim": "FAILWITH" } ], [] ] - }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "MEM" }, @@ -1084,36 +1004,16 @@ "prim": "IF", "args": [ [ - { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "8" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { - "prim": "VIEW", - "args": [ - { "string": "getAccountSnapshotView" }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, - { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] } - ] - } - ] - }, - { - "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID ACCOUNT SNAPSHOT VIEW" } ] }, { "prim": "FAILWITH" } ], [] ] - }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "518" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "530" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "MEM" } ], [ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] } ] @@ -1125,30 +1025,10 @@ [ { "prim": "DUP" }, { "prim": "CDR" }, - { "prim": "DUP", "args": [ { "int": "8" } ] }, + { "prim": "DUP", "args": [ { "int": "9" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, - { "prim": "DUP", "args": [ { "int": "9" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { - "prim": "VIEW", - "args": [ - { "string": "getAccountSnapshotView" }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, - { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] } - ] - } - ] - }, - { - "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID ACCOUNT SNAPSHOT VIEW" } ] }, { "prim": "FAILWITH" } ], [] ] - }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DIG", "args": [ { "int": "4" } ] }, { "prim": "MUL" }, @@ -1165,30 +1045,10 @@ }, { "prim": "DUP" }, { "prim": "CAR" }, - { "prim": "DUP", "args": [ { "int": "7" } ] }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, - { "prim": "CAR" }, - { - "prim": "VIEW", - "args": [ - { "string": "getAccountSnapshotView" }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, - { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] } - ] - } - ] - }, - { - "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID ACCOUNT SNAPSHOT VIEW" } ] }, { "prim": "FAILWITH" } ], [] ] - }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "9" } ] }, @@ -1196,7 +1056,7 @@ { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "DIG", "args": [ { "int": "5" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "522" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "534" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "MUL" }, @@ -1245,7 +1105,7 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "489" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "499" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "ITER", "args": [ @@ -1270,16 +1130,13 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "492" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "502" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [ { "prim": "DROP" } ], [ { "prim": "DUP" }, { "prim": "DUP", "args": [ { "int": "5" } ] }, @@ -1290,12 +1147,17 @@ "args": [ { "string": "getAccountSnapshotView" }, { - "prim": "pair", + "prim": "option", "args": [ - { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, { "prim": "pair", - "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] + "args": [ + { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, + { + "prim": "pair", + "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] + } + ] } ] } @@ -1307,29 +1169,68 @@ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID ACCOUNT SNAPSHOT VIEW" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "6" } ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "304" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "GET", "args": [ { "int": "8" } ] }, - { "prim": "LEVEL" }, - { "prim": "RENAME" }, - { "prim": "COMPARE" }, - { "prim": "EQ" }, { - "prim": "IF", - "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_UPDATE_PRICE" } ] }, { "prim": "FAILWITH" } ] ] + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_OUTDATED_ACCOUNT_SNAPHOT" } ] }, { "prim": "FAILWITH" } ], + [ { "prim": "DROP" } ] + ] }, - { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { + "prim": "VIEW", + "args": [ + { "string": "getAccountSnapshotView" }, + { + "prim": "option", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, + { + "prim": "pair", + "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] + } + ] + } + ] + } + ] + }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID ACCOUNT SNAPSHOT VIEW" } ] }, { "prim": "FAILWITH" } ], [] + ] + }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "521" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DUP" }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "305" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "306" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "GET", "args": [ { "int": "8" } ] }, + { "prim": "LEVEL" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { + "prim": "IF", + "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_UPDATE_PRICE" } ] }, { "prim": "FAILWITH" } ] ] + }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "307" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "COMPARE" }, @@ -1338,28 +1239,28 @@ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_INVALID_PRICE" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "SWAP" }, - { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "DUP", "args": [ { "int": "8" } ] }, + { "prim": "DUP", "args": [ { "int": "9" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "513" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "525" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CDR" }, - { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "DUP", "args": [ { "int": "10" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "513" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "525" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "MUL" }, @@ -1380,36 +1281,11 @@ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } ] }, - { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "8" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { - "prim": "VIEW", - "args": [ - { "string": "getAccountSnapshotView" }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, - { - "prim": "pair", - "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] - } - ] - } - ] - }, - { - "prim": "IF_NONE", - "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID ACCOUNT SNAPSHOT VIEW" } ] }, { "prim": "FAILWITH" } ], [] - ] - }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "MEM" }, @@ -1417,44 +1293,16 @@ "prim": "IF", "args": [ [ - { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "8" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { - "prim": "VIEW", - "args": [ - { "string": "getAccountSnapshotView" }, - { - "prim": "pair", - "args": [ - { - "prim": "pair", - "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] - }, - { - "prim": "pair", - "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] - } - ] - } - ] - }, - { - "prim": "IF_NONE", - "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID ACCOUNT SNAPSHOT VIEW" } ] }, { "prim": "FAILWITH" } ], [] - ] - }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "518" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "530" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "MEM" } ], [ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] } ] @@ -1466,38 +1314,10 @@ [ { "prim": "DUP" }, { "prim": "CDR" }, - { "prim": "DUP", "args": [ { "int": "8" } ] }, + { "prim": "DUP", "args": [ { "int": "9" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, - { "prim": "DUP", "args": [ { "int": "9" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { - "prim": "VIEW", - "args": [ - { "string": "getAccountSnapshotView" }, - { - "prim": "pair", - "args": [ - { - "prim": "pair", - "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] - }, - { - "prim": "pair", - "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] - } - ] - } - ] - }, - { - "prim": "IF_NONE", - "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID ACCOUNT SNAPSHOT VIEW" } ] }, { "prim": "FAILWITH" } ], [] - ] - }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DIG", "args": [ { "int": "4" } ] }, { "prim": "MUL" }, @@ -1514,35 +1334,10 @@ }, { "prim": "DUP" }, { "prim": "CAR" }, - { "prim": "DUP", "args": [ { "int": "7" } ] }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, - { "prim": "CAR" }, - { - "prim": "VIEW", - "args": [ - { "string": "getAccountSnapshotView" }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, - { - "prim": "pair", - "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] - } - ] - } - ] - }, - { - "prim": "IF_NONE", - "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID ACCOUNT SNAPSHOT VIEW" } ] }, { "prim": "FAILWITH" } ], [] - ] - }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "9" } ] }, @@ -1550,7 +1345,7 @@ { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "DIG", "args": [ { "int": "5" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "522" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "534" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "MUL" }, @@ -1575,8 +1370,7 @@ { "prim": "ADD" }, { "prim": "UPDATE", "args": [ { "int": "1" } ] }, { "prim": "SWAP" } - ], - [ { "prim": "DROP" } ] + ] ] } ], @@ -1590,10 +1384,18 @@ "args": [ { "string": "getAccountSnapshotView" }, { - "prim": "pair", + "prim": "option", "args": [ - { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, - { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] } + { + "prim": "pair", + "args": [ + { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, + { + "prim": "pair", + "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] + } + ] + } ] } ] @@ -1602,26 +1404,63 @@ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID ACCOUNT SNAPSHOT VIEW" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_OUTDATED_ACCOUNT_SNAPHOT" } ] }, { "prim": "FAILWITH" } ], + [ { "prim": "DROP" } ] + ] + }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { + "prim": "VIEW", + "args": [ + { "string": "getAccountSnapshotView" }, + { + "prim": "option", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, + { + "prim": "pair", + "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] + } + ] + } + ] + } + ] + }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID ACCOUNT SNAPSHOT VIEW" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "521" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DUP" }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "304" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "306" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "8" } ] }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_UPDATE_PRICE" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "305" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "307" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "COMPARE" }, @@ -1630,28 +1469,28 @@ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_INVALID_PRICE" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "SWAP" }, - { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "DUP", "args": [ { "int": "8" } ] }, + { "prim": "DUP", "args": [ { "int": "9" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "513" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "525" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CDR" }, - { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "DUP", "args": [ { "int": "10" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "513" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "525" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "MUL" }, @@ -1670,31 +1509,11 @@ "prim": "PUSH", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } ] }, - { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "8" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { - "prim": "VIEW", - "args": [ - { "string": "getAccountSnapshotView" }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, - { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] } - ] - } - ] - }, - { - "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID ACCOUNT SNAPSHOT VIEW" } ] }, { "prim": "FAILWITH" } ], [] ] - }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "MEM" }, @@ -1702,41 +1521,16 @@ "prim": "IF", "args": [ [ - { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "8" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { - "prim": "VIEW", - "args": [ - { "string": "getAccountSnapshotView" }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, - { - "prim": "pair", - "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] - } - ] - } - ] - }, - { - "prim": "IF_NONE", - "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID ACCOUNT SNAPSHOT VIEW" } ] }, { "prim": "FAILWITH" } ], [] - ] - }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "518" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "530" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "MEM" } ], [ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] } ] @@ -1748,35 +1542,10 @@ [ { "prim": "DUP" }, { "prim": "CDR" }, - { "prim": "DUP", "args": [ { "int": "8" } ] }, + { "prim": "DUP", "args": [ { "int": "9" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, - { "prim": "DUP", "args": [ { "int": "9" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { - "prim": "VIEW", - "args": [ - { "string": "getAccountSnapshotView" }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, - { - "prim": "pair", - "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] - } - ] - } - ] - }, - { - "prim": "IF_NONE", - "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID ACCOUNT SNAPSHOT VIEW" } ] }, { "prim": "FAILWITH" } ], [] - ] - }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DIG", "args": [ { "int": "4" } ] }, { "prim": "MUL" }, @@ -1793,30 +1562,10 @@ }, { "prim": "DUP" }, { "prim": "CAR" }, - { "prim": "DUP", "args": [ { "int": "7" } ] }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, - { "prim": "CAR" }, - { - "prim": "VIEW", - "args": [ - { "string": "getAccountSnapshotView" }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, - { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] } - ] - } - ] - }, - { - "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID ACCOUNT SNAPSHOT VIEW" } ] }, { "prim": "FAILWITH" } ], [] ] - }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "9" } ] }, @@ -1824,7 +1573,7 @@ { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "DIG", "args": [ { "int": "5" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "522" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "534" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "MUL" }, @@ -1865,27 +1614,23 @@ { "prim": "SUB" }, { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "0" } ] }, { "prim": "COMPARE" }, - { "prim": "GT" }, - { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_INSUFFICIENT_SHORTFALL" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "GT" }, + { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_INSUFFICIENT_SHORTFALL" } ] }, { "prim": "FAILWITH" } ] ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "VIEW", "args": [ { "string": "borrowBalanceStoredView" }, { "prim": "nat" } ] }, + { "prim": "VIEW", "args": [ { "string": "borrowBalanceStoredView" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID ACCOUNT BORROW BALANCE VIEW" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, @@ -1895,21 +1640,16 @@ { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "61" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] }, { "prim": "SWAP" }, { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "6" } ] }, - { "prim": "SWAP" }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "COMPARE" }, { "prim": "GE" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_TOO_MUCH_REPAY" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "MEM" }, @@ -1928,7 +1668,7 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "753" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "765" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] }, { "prim": "UPDATE", "args": [ { "int": "4" } ] }, { "prim": "SOME" }, @@ -1942,15 +1682,11 @@ [] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "MEM" }, { @@ -1967,7 +1703,7 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "753" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "765" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] }, { "prim": "UPDATE", "args": [ { "int": "4" } ] }, { "prim": "SOME" }, @@ -2026,51 +1762,36 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "MUL" }, { "prim": "AMOUNT" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "TEZ_TRANSFERED" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "GET" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "153" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "NOT" }, - { "prim": "RENAME" }, - { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_MINT_PAUSED" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "IF", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_MINT_PAUSED" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "MEM" }, { "prim": "IF", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "730" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "742" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] } ], @@ -2078,15 +1799,11 @@ ] }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_MARKET_NOT_LISTED" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, { @@ -2103,7 +1820,7 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "753" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "765" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] }, { "prim": "UPDATE", "args": [ { "int": "4" } ] }, { "prim": "SOME" }, @@ -2162,35 +1879,26 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "MUL" }, { "prim": "AMOUNT" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "TEZ_TRANSFERED" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "MEM" }, { "prim": "IF", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "730" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "742" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] } ], @@ -2198,36 +1906,26 @@ ] }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_MARKET_NOT_LISTED" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, { "prim": "IF", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "180" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "MEM" } ], @@ -2238,15 +1936,11 @@ "prim": "IF", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, { @@ -2273,56 +1967,42 @@ "prim": "IF", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_LIQUIDITY_ABSENT" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "746" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "758" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_LIQUIDITY_INVALID" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "748" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "760" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_LIQUIDITY_OLD" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -2332,12 +2012,11 @@ { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "304" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "306" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "8" } ] }, { "prim": "LEVEL" }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "DROP" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_UPDATE_PRICE" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -2348,20 +2027,16 @@ { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "305" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "307" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "COMPARE" }, { "prim": "GT" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_INVALID_PRICE" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, @@ -2399,15 +2074,11 @@ [] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, { @@ -2424,7 +2095,7 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "753" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "765" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] }, { "prim": "UPDATE", "args": [ { "int": "4" } ] }, { "prim": "SOME" }, @@ -2475,31 +2146,24 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "MUL" }, { "prim": "AMOUNT" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "TEZ_TRANSFERED" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" }, { "prim": "IF", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "730" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "742" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] } ], @@ -2507,33 +2171,24 @@ ] }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_MARKET_NOT_LISTED" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "MEM" }, { "prim": "IF", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "239" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" } ], [ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] } ] @@ -2558,7 +2213,6 @@ { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "240" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "UPDATE" }, { "prim": "SOME" }, { "prim": "SWAP" }, @@ -2619,35 +2273,26 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "MUL" }, { "prim": "AMOUNT" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "TEZ_TRANSFERED" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "MEM" }, { "prim": "IF", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "730" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "742" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] } ], @@ -2655,15 +2300,11 @@ ] }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_MARKET_NOT_LISTED" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "MEM" }, { @@ -2680,7 +2321,7 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "753" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "765" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] }, { "prim": "UPDATE", "args": [ { "int": "4" } ] }, { "prim": "SOME" }, @@ -2694,15 +2335,11 @@ [] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, { @@ -2719,7 +2356,7 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "753" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "765" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] }, { "prim": "UPDATE", "args": [ { "int": "4" } ] }, { "prim": "SOME" }, @@ -2778,7 +2415,6 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "MUL" }, { "prim": "AMOUNT" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "TEZ_TRANSFERED" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -2800,7 +2436,7 @@ { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "481" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "491" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "ITER", "args": [ @@ -2812,10 +2448,45 @@ "args": [ { "string": "getAccountSnapshotView" }, { - "prim": "pair", + "prim": "option", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, + { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] } + ] + } + ] + } + ] + }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID ACCOUNT SNAPSHOT VIEW" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_OUTDATED_ACCOUNT_SNAPHOT" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "DROP" } ] + ] + }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { + "prim": "VIEW", + "args": [ + { "string": "getAccountSnapshotView" }, + { + "prim": "option", "args": [ - { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, - { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] } + { + "prim": "pair", + "args": [ + { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, + { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] } + ] + } ] } ] @@ -2824,53 +2495,54 @@ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID ACCOUNT SNAPSHOT VIEW" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "521" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DUP" }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "304" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "306" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "8" } ] }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_UPDATE_PRICE" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "305" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "307" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "COMPARE" }, { "prim": "GT" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_INVALID_PRICE" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "SWAP" }, - { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "DUP", "args": [ { "int": "8" } ] }, + { "prim": "DUP", "args": [ { "int": "9" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "513" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "525" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CDR" }, - { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "DUP", "args": [ { "int": "10" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "513" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "525" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "MUL" }, @@ -2883,29 +2555,11 @@ "prim": "PUSH", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } ] }, - { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "8" } ] }, - { - "prim": "VIEW", - "args": [ - { "string": "getAccountSnapshotView" }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, - { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] } - ] - } - ] - }, - { - "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID ACCOUNT SNAPSHOT VIEW" } ] }, { "prim": "FAILWITH" } ], [] ] - }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "MEM" }, @@ -2913,67 +2567,31 @@ "prim": "IF", "args": [ [ - { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "8" } ] }, - { - "prim": "VIEW", - "args": [ - { "string": "getAccountSnapshotView" }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, - { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] } - ] - } - ] - }, - { - "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID ACCOUNT SNAPSHOT VIEW" } ] }, { "prim": "FAILWITH" } ], [] ] - }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "518" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "530" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "MEM" } ], [ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] } ] ] }, { - "prim": "IF", - "args": [ - [ - { "prim": "DUP" }, - { "prim": "CDR" }, - { "prim": "DUP", "args": [ { "int": "8" } ] }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "DUP", "args": [ { "int": "5" } ] }, - { "prim": "DUP", "args": [ { "int": "9" } ] }, - { - "prim": "VIEW", - "args": [ - { "string": "getAccountSnapshotView" }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, - { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] } - ] - } - ] - }, - { - "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID ACCOUNT SNAPSHOT VIEW" } ] }, { "prim": "FAILWITH" } ], [] ] - }, + "prim": "IF", + "args": [ + [ + { "prim": "DUP" }, + { "prim": "CDR" }, + { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DIG", "args": [ { "int": "4" } ] }, { "prim": "MUL" }, @@ -2990,28 +2608,10 @@ }, { "prim": "DUP" }, { "prim": "CAR" }, - { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "8" } ] }, - { - "prim": "VIEW", - "args": [ - { "string": "getAccountSnapshotView" }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, - { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] } - ] - } - ] - }, - { - "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID ACCOUNT SNAPSHOT VIEW" } ] }, { "prim": "FAILWITH" } ], [] ] - }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "9" } ] }, @@ -3019,7 +2619,7 @@ { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "DIG", "args": [ { "int": "5" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "522" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "534" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "MUL" }, @@ -3064,7 +2664,7 @@ { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "489" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "499" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "ITER", "args": [ @@ -3085,16 +2685,13 @@ { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "492" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "502" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [ { "prim": "DROP" } ], [ { "prim": "DUP" }, { "prim": "DUP", "args": [ { "int": "5" } ] }, @@ -3103,12 +2700,53 @@ "args": [ { "string": "getAccountSnapshotView" }, { - "prim": "pair", + "prim": "option", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, + { + "prim": "pair", + "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] + } + ] + } + ] + } + ] + }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID ACCOUNT SNAPSHOT VIEW" } ] }, { "prim": "FAILWITH" } ], [] + ] + }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_OUTDATED_ACCOUNT_SNAPHOT" } ] }, { "prim": "FAILWITH" } ], + [ { "prim": "DROP" } ] + ] + }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { + "prim": "VIEW", + "args": [ + { "string": "getAccountSnapshotView" }, + { + "prim": "option", "args": [ - { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, { "prim": "pair", - "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] + "args": [ + { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, + { + "prim": "pair", + "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] + } + ] } ] } @@ -3120,16 +2758,17 @@ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID ACCOUNT SNAPSHOT VIEW" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "521" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DUP" }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "304" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "306" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "8" } ] }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -3137,12 +2776,12 @@ "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_UPDATE_PRICE" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "305" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "307" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "COMPARE" }, @@ -3151,28 +2790,28 @@ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_INVALID_PRICE" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "SWAP" }, - { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "DUP", "args": [ { "int": "8" } ] }, + { "prim": "DUP", "args": [ { "int": "9" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "513" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "525" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CDR" }, - { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "DUP", "args": [ { "int": "10" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "513" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "525" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "MUL" }, @@ -3193,34 +2832,11 @@ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } ] }, - { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "8" } ] }, - { - "prim": "VIEW", - "args": [ - { "string": "getAccountSnapshotView" }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, - { - "prim": "pair", - "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] - } - ] - } - ] - }, - { - "prim": "IF_NONE", - "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID ACCOUNT SNAPSHOT VIEW" } ] }, { "prim": "FAILWITH" } ], [] - ] - }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "MEM" }, @@ -3228,42 +2844,16 @@ "prim": "IF", "args": [ [ - { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "8" } ] }, - { - "prim": "VIEW", - "args": [ - { "string": "getAccountSnapshotView" }, - { - "prim": "pair", - "args": [ - { - "prim": "pair", - "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] - }, - { - "prim": "pair", - "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] - } - ] - } - ] - }, - { - "prim": "IF_NONE", - "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID ACCOUNT SNAPSHOT VIEW" } ] }, { "prim": "FAILWITH" } ], [] - ] - }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "518" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "530" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "MEM" } ], [ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] } ] @@ -3275,36 +2865,10 @@ [ { "prim": "DUP" }, { "prim": "CDR" }, - { "prim": "DUP", "args": [ { "int": "8" } ] }, + { "prim": "DUP", "args": [ { "int": "9" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, - { "prim": "DUP", "args": [ { "int": "9" } ] }, - { - "prim": "VIEW", - "args": [ - { "string": "getAccountSnapshotView" }, - { - "prim": "pair", - "args": [ - { - "prim": "pair", - "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] - }, - { - "prim": "pair", - "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] - } - ] - } - ] - }, - { - "prim": "IF_NONE", - "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID ACCOUNT SNAPSHOT VIEW" } ] }, { "prim": "FAILWITH" } ], [] - ] - }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DIG", "args": [ { "int": "4" } ] }, { "prim": "MUL" }, @@ -3321,33 +2885,10 @@ }, { "prim": "DUP" }, { "prim": "CAR" }, - { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "8" } ] }, - { - "prim": "VIEW", - "args": [ - { "string": "getAccountSnapshotView" }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, - { - "prim": "pair", - "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] - } - ] - } - ] - }, - { - "prim": "IF_NONE", - "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID ACCOUNT SNAPSHOT VIEW" } ] }, { "prim": "FAILWITH" } ], [] - ] - }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "9" } ] }, @@ -3355,7 +2896,7 @@ { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "DIG", "args": [ { "int": "5" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "522" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "534" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "MUL" }, @@ -3380,8 +2921,7 @@ { "prim": "ADD" }, { "prim": "UPDATE", "args": [ { "int": "1" } ] }, { "prim": "SWAP" } - ], - [ { "prim": "DROP" } ] + ] ] } ], @@ -3393,10 +2933,52 @@ "args": [ { "string": "getAccountSnapshotView" }, { - "prim": "pair", + "prim": "option", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, + { + "prim": "pair", + "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] + } + ] + } + ] + } + ] + }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID ACCOUNT SNAPSHOT VIEW" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { + "prim": "IF_NONE", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_OUTDATED_ACCOUNT_SNAPHOT" } ] }, { "prim": "FAILWITH" } ], + [ { "prim": "DROP" } ] + ] + }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { + "prim": "VIEW", + "args": [ + { "string": "getAccountSnapshotView" }, + { + "prim": "option", "args": [ - { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, - { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] } + { + "prim": "pair", + "args": [ + { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, + { + "prim": "pair", + "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] + } + ] + } ] } ] @@ -3405,26 +2987,27 @@ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID ACCOUNT SNAPSHOT VIEW" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "521" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DUP" }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "304" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "306" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "8" } ] }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_UPDATE_PRICE" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "305" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "307" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "COMPARE" }, @@ -3433,28 +3016,28 @@ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_INVALID_PRICE" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "SWAP" }, - { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "DUP", "args": [ { "int": "8" } ] }, + { "prim": "DUP", "args": [ { "int": "9" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "513" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "525" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CDR" }, - { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "DUP", "args": [ { "int": "10" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "513" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "525" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "MUL" }, @@ -3473,29 +3056,11 @@ "prim": "PUSH", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } ] }, - { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "8" } ] }, - { - "prim": "VIEW", - "args": [ - { "string": "getAccountSnapshotView" }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, - { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] } - ] - } - ] - }, - { - "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID ACCOUNT SNAPSHOT VIEW" } ] }, { "prim": "FAILWITH" } ], [] ] - }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "MEM" }, @@ -3503,77 +3068,31 @@ "prim": "IF", "args": [ [ - { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "8" } ] }, - { - "prim": "VIEW", - "args": [ - { "string": "getAccountSnapshotView" }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, - { - "prim": "pair", - "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] - } - ] - } - ] - }, - { - "prim": "IF_NONE", - "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID ACCOUNT SNAPSHOT VIEW" } ] }, { "prim": "FAILWITH" } ], [] - ] - }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "518" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "530" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "MEM" } ], [ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] } ] ] - }, - { - "prim": "IF", - "args": [ - [ - { "prim": "DUP" }, - { "prim": "CDR" }, - { "prim": "DUP", "args": [ { "int": "8" } ] }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "DUP", "args": [ { "int": "5" } ] }, - { "prim": "DUP", "args": [ { "int": "9" } ] }, - { - "prim": "VIEW", - "args": [ - { "string": "getAccountSnapshotView" }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, - { - "prim": "pair", - "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] - } - ] - } - ] - }, - { - "prim": "IF_NONE", - "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID ACCOUNT SNAPSHOT VIEW" } ] }, { "prim": "FAILWITH" } ], [] - ] - }, + }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DUP" }, + { "prim": "CDR" }, + { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DIG", "args": [ { "int": "4" } ] }, { "prim": "MUL" }, @@ -3590,28 +3109,10 @@ }, { "prim": "DUP" }, { "prim": "CAR" }, - { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "8" } ] }, - { - "prim": "VIEW", - "args": [ - { "string": "getAccountSnapshotView" }, - { - "prim": "pair", - "args": [ - { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, - { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] } - ] - } - ] - }, - { - "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID ACCOUNT SNAPSHOT VIEW" } ] }, { "prim": "FAILWITH" } ], [] ] - }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "9" } ] }, @@ -3619,7 +3120,7 @@ { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "DIG", "args": [ { "int": "5" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "522" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "534" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "MUL" }, @@ -3654,9 +3155,7 @@ [] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, @@ -3681,7 +3180,6 @@ { "prim": "DROP" }, { "prim": "DIG", "args": [ { "int": "7" } ] }, { "prim": "DROP" }, - { "prim": "RENAME" }, { "prim": "DIG", "args": [ { "int": "6" } ] }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, @@ -3731,13 +3229,10 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "MUL" }, { "prim": "AMOUNT" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "TEZ_TRANSFERED" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, @@ -3759,34 +3254,28 @@ { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "SWAP" }, - { "prim": "DUP" }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, - { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_BORROW_IN_MARKET" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" }, { "prim": "IF", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "730" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "742" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] } ], @@ -3794,15 +3283,11 @@ ] }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_MARKET_NOT_LISTED" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "MEM" }, @@ -3810,21 +3295,16 @@ "prim": "IF", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "180" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" } ], [ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] } ] @@ -3834,15 +3314,11 @@ "prim": "IF", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "MEM" }, @@ -3871,59 +3347,45 @@ "prim": "IF", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "MEM" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_LIQUIDITY_ABSENT" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "746" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "758" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_LIQUIDITY_INVALID" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "748" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "760" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_LIQUIDITY_OLD" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -3931,14 +3393,12 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "304" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "306" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "8" } ] }, { "prim": "LEVEL" }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "DROP" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_UPDATE_PRICE" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -3947,28 +3407,22 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "305" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "307" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "COMPARE" }, { "prim": "GT" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_INVALID_PRICE" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "GET" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "191" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, @@ -4001,15 +3455,11 @@ [] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "MEM" }, @@ -4028,7 +3478,7 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "753" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "765" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] }, { "prim": "UPDATE", "args": [ { "int": "4" } ] }, { "prim": "SOME" }, @@ -4042,15 +3492,11 @@ [] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "MEM" }, @@ -4058,21 +3504,16 @@ "prim": "IF", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "133" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" } ], [ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] } ] @@ -4099,7 +3540,6 @@ { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "135" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "UPDATE" }, { "prim": "SOME" }, { "prim": "SWAP" }, @@ -4115,15 +3555,11 @@ [] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "MEM" }, @@ -4142,7 +3578,7 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "753" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "765" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] }, { "prim": "UPDATE", "args": [ { "int": "4" } ] }, { "prim": "SOME" }, @@ -4193,35 +3629,26 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "MUL" }, { "prim": "AMOUNT" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "TEZ_TRANSFERED" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "MEM" }, { "prim": "IF", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "730" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "742" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] } ], @@ -4229,14 +3656,11 @@ ] }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_MARKET_NOT_LISTED" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -4254,7 +3678,7 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "591" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "603" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "CDR" }, @@ -4311,18 +3735,14 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "MUL" }, { "prim": "AMOUNT" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "TEZ_TRANSFERED" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -4384,46 +3804,34 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "MUL" }, { "prim": "AMOUNT" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "TEZ_TRANSFERED" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "MEM" }, { "prim": "IF", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "730" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "742" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] } ], @@ -4445,7 +3853,7 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "658" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "670" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "CAR" }, @@ -4511,18 +3919,14 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "MUL" }, { "prim": "AMOUNT" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "TEZ_TRANSFERED" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -4576,35 +3980,26 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "MUL" }, { "prim": "AMOUNT" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "TEZ_TRANSFERED" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "MEM" }, { "prim": "IF", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "730" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "742" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] } ], @@ -4612,14 +4007,11 @@ ] }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_MARKET_NOT_LISTED" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -4637,7 +4029,7 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "573" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "585" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, @@ -4705,18 +4097,14 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "MUL" }, { "prim": "AMOUNT" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "TEZ_TRANSFERED" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -4768,18 +4156,14 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "MUL" }, { "prim": "AMOUNT" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "TEZ_TRANSFERED" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -4836,18 +4220,14 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "MUL" }, { "prim": "AMOUNT" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "TEZ_TRANSFERED" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -4898,55 +4278,41 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "MUL" }, { "prim": "AMOUNT" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "TEZ_TRANSFERED" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "MEM" }, { "prim": "IF", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "734" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "746" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "NOT" } + { "prim": "GET", "args": [ { "int": "3" } ] } ], - [ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] } ] + [ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] } ] ] }, - { "prim": "RENAME" }, - { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_MARKET_ALREADY_LISTED" } ] }, { "prim": "FAILWITH" } ] ] }, + { "prim": "IF", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_MARKET_ALREADY_LISTED" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, @@ -5050,25 +4416,16 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "MUL" }, { "prim": "AMOUNT" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "TEZ_TRANSFERED" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "8" } ] }, - { "prim": "NOT" }, - { "prim": "RENAME" }, - { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_TRANSFER_PAUSED" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "IF", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_TRANSFER_PAUSED" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "MEM" }, @@ -5076,18 +4433,14 @@ "prim": "IF", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "730" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "742" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] } ], @@ -5095,15 +4448,11 @@ ] }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_MARKET_NOT_LISTED" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, { "prim": "MEM" }, @@ -5111,22 +4460,16 @@ "prim": "IF", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, { "prim": "GET" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "180" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "MEM" } @@ -5138,15 +4481,11 @@ "prim": "IF", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, { "prim": "MEM" }, @@ -5175,59 +4514,45 @@ "prim": "IF", "args": [ [ - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, { "prim": "MEM" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_LIQUIDITY_ABSENT" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "746" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "758" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_LIQUIDITY_INVALID" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "748" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "760" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_LIQUIDITY_OLD" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -5238,12 +4563,11 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "304" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "306" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "8" } ] }, { "prim": "LEVEL" }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "DROP" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_UPDATE_PRICE" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -5255,20 +4579,16 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "305" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "307" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "COMPARE" }, { "prim": "GT" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_INVALID_PRICE" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, @@ -5308,15 +4628,11 @@ [] ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, { "prim": "MEM" }, @@ -5335,7 +4651,7 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "753" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "765" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] }, { "prim": "UPDATE", "args": [ { "int": "4" } ] }, { "prim": "SOME" }, diff --git a/compiled_contracts/Comptroller/step_000_cont_0_storage.py b/compiled_contracts/Comptroller/step_000_cont_0_storage.py index ccac5daf..f7edbb25 100644 --- a/compiled_contracts/Comptroller/step_000_cont_0_storage.py +++ b/compiled_contracts/Comptroller/step_000_cont_0_storage.py @@ -1 +1 @@ -sp.record(account_liquidity = {}, activeOperations = sp.set([]), administrator = sp.address('KT1KW6McQpHFZPffW6vZt5JSxibvVKAPnYUq'), closeFactorMantissa = 500000000000000000, collaterals = {}, expScale = 1000000000000000000, halfExpScale = 500000000000000000, liquidationIncentiveMantissa = 1050000000000000000, loans = {}, marketNameToAddress = {}, markets = {}, maxPriceTimeDifference = 86400, oracleAddress = sp.address('KT1RiGPbUciuBFykVoAmRawdvne322K8yV6N'), pendingAdministrator = sp.none, transferPaused = True) \ No newline at end of file +sp.record(account_liquidity = {}, activeOperations = sp.set([]), administrator = sp.address('KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2'), closeFactorMantissa = 500000000000000000, collaterals = {}, expScale = 1000000000000000000, halfExpScale = 500000000000000000, liquidationIncentiveMantissa = 1050000000000000000, loans = {}, marketNameToAddress = {}, markets = {}, maxPriceTimeDifference = 86400, oracleAddress = sp.address('KT1LDtNKDnpziwSrmSfx3xCbs7nBMg7VFp4m'), pendingAdministrator = sp.none, transferPaused = True) \ No newline at end of file diff --git a/compiled_contracts/Comptroller/step_000_cont_0_storage.tz b/compiled_contracts/Comptroller/step_000_cont_0_storage.tz index 236d5b76..f1d01563 100644 --- a/compiled_contracts/Comptroller/step_000_cont_0_storage.tz +++ b/compiled_contracts/Comptroller/step_000_cont_0_storage.tz @@ -1 +1 @@ -(Pair (Pair (Pair (Pair {} (Pair {} "KT1KW6McQpHFZPffW6vZt5JSxibvVKAPnYUq")) (Pair (Pair 500000000000000000 {}) (Pair 1000000000000000000 500000000000000000))) (Pair (Pair (Pair 1050000000000000000 {}) (Pair {} {})) (Pair (Pair 86400 "KT1RiGPbUciuBFykVoAmRawdvne322K8yV6N") (Pair None True)))) {Elt 0 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; RENAME; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP; GET 7; IF_NONE { PUSH string "CMPT_NOT_SET_PENDING_ADMIN"; FAILWITH } {}; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_PENDING_ADMIN"; FAILWITH }; DUP; UNPAIR; UNPAIR; UNPAIR; SWAP; CAR; DIG 4; GET 7; IF_NONE { PUSH int 554; FAILWITH } {}; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; NONE address; UPDATE 7; NIL operation; PAIR }; Elt 1 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } {} } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; RENAME; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; CAR; GET; IF_NONE { PUSH int 212; FAILWITH } {}; CAR; CAR; CAR; NOT; RENAME; IF {} { PUSH string "CMPT_BORROW_PAUSED"; FAILWITH }; SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; CAR; MEM; IF { SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; CAR; GET; IF_NONE { PUSH int 730; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; SWAP; DUP; DUG 2; GET 3; CAR; CDR; SWAP; DUP; DUG 2; GET 3; MEM; NOT; RENAME; IF { DUP; CAR; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CMPT_INVALID_BORROW_SENDER"; FAILWITH }; SWAP; DUP; DUG 2; GET 3; GET 4; SENDER; RENAME; MEM; IF { SWAP; DUP; DUG 2; GET 3; GET 4; SENDER; RENAME; GET; IF_NONE { PUSH int 730; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; SWAP; DUP; DUG 2; GET 3; CAR; CDR; SWAP; DUP; DUG 2; GET 3; MEM; IF { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; DUP; DUP 7; GET 3; DUP; DUG 2; GET; IF_NONE { PUSH int 230; FAILWITH } {}; PUSH bool True; SENDER; RENAME; UPDATE; SOME; SWAP; UPDATE; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR; SWAP } { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; EMPTY_SET address; PUSH bool True; SENDER; RENAME; UPDATE; SOME; DUP 7; GET 3; UPDATE; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR; SWAP } } {}; SWAP; DUP; DUG 2; CAR; CAR; CAR; SWAP; DUP; DUG 2; GET 3; MEM; IF {} { PUSH string "CMPT_LIQUIDITY_ABSENT"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; SWAP; DUP; DUG 2; GET 3; GET; IF_NONE { PUSH int 746; FAILWITH } {}; GET 4; IF {} { PUSH string "CMPT_LIQUIDITY_INVALID"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; SWAP; DUP; DUG 2; GET 3; GET; IF_NONE { PUSH int 748; FAILWITH } {}; GET 3; LEVEL; RENAME; SUB; ISNAT; RENAME; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; DUP; PUSH nat 0; COMPARE; EQ; IF {} { PUSH string "CMPT_LIQUIDITY_OLD"; FAILWITH }; DUP 3; GET 3; GET 4; DUP 3; CAR; GET; IF_NONE { PUSH int 304; FAILWITH } {}; GET 8; LEVEL; DIG 2; DROP; RENAME; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; GET 4; DUP 3; CAR; GET; IF_NONE { PUSH int 305; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; SWAP; DUP; DUG 2; CAR; GET 5; SWAP; DUP; DUG 2; GET 4; DUP 4; GET 3; GET 4; DUP 4; CAR; GET; IF_NONE { PUSH int 191; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; INT; DUP 3; CAR; CAR; CAR; DUP 3; GET 3; GET; IF_NONE { PUSH int 190; FAILWITH } {}; CAR; SUB; PUSH int 0; SWAP; COMPARE; GE; IF {} { PUSH string "CMPT_REDEEMER_SHORTFALL"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; SWAP; DUP; DUG 2; GET 3; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 5; GET 3; DUP; DUG 2; GET; IF_NONE { PUSH int 753; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 2 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; RENAME; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; MEM; IF { SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; GET; IF_NONE { PUSH int 730; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; DIG 6; DUP; DUG 2; GET; IF_NONE { PUSH int 721; FAILWITH } {}; UNPAIR; UNPAIR; SWAP; CDR; PUSH bool False; PAIR; SWAP; PAIR; PAIR; SOME; SWAP; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 3 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; RENAME; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP; ITER { DUP 3; GET 3; GET 4; SWAP; DUP; DUG 2; MEM; IF { DUP 3; GET 3; GET 4; SWAP; DUP; DUG 2; GET; IF_NONE { PUSH int 730; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 3; CAR; GET 3; CDR; SENDER; RENAME; MEM; IF { DIG 2; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; DUP; SENDER; RENAME; DUP; DUG 2; GET; IF_NONE { PUSH int 89; FAILWITH } {}; PUSH bool True; DIG 8; UPDATE; SOME; SWAP; UPDATE; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; SWAP } { DIG 2; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; EMPTY_SET address; PUSH bool True; DIG 7; UPDATE; SOME; SENDER; RENAME; UPDATE; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; SWAP } }; DROP; DUP; CAR; CAR; CAR; SENDER; RENAME; MEM; IF { UNPAIR; UNPAIR; UNPAIR; DUP; SENDER; RENAME; DUP; DUG 2; GET; IF_NONE { PUSH int 753; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } {}; NIL operation; PAIR }; Elt 4 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { DROP } } } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; DUP; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; EMPTY_SET nat; PAIR; SWAP; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 5 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT {} { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; RENAME; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; CAR; CDR; MEM; IF { SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; CAR; CDR; GET; IF_NONE { PUSH int 730; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; GET 3; MEM; IF { SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; GET 3; GET; IF_NONE { PUSH int 730; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; PUSH (pair nat nat) (Pair 0 0); DUP; DUP 4; CAR; GET 3; CDR; DUP 4; CAR; CAR; MEM; IF { DUP 4; CAR; GET 3; CDR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 481; FAILWITH } {}; ITER { DUP; DUP 5; CAR; CAR; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; GET 4; DUP 6; GET 3; GET 4; DUP 3; GET; IF_NONE { PUSH int 304; FAILWITH } {}; GET 8; LEVEL; RENAME; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 7; GET 3; GET 4; DUP 4; GET; IF_NONE { PUSH int 305; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 6; CAR; GET 5; SWAP; DUP 7; CAR; GET 5; DUP 8; GET 3; GET 4; DUP 5; GET; IF_NONE { PUSH int 513; FAILWITH } {}; CAR; CAR; CDR; DUP 9; GET 3; GET 4; DUP 6; GET; IF_NONE { PUSH int 513; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 7; CAR; GET 3; CDR; DUP 4; DUP 8; CAR; CAR; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; CAR; CAR; MEM; IF { DUP 7; CAR; GET 3; CDR; DUP 4; DUP 8; CAR; CAR; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; CAR; CAR; GET; IF_NONE { PUSH int 518; FAILWITH } {}; DUP 4; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 8; CAR; GET 5; DUP 5; DUP 9; CAR; CAR; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 7; CAR; GET 5; DUP 4; DUP 8; CAR; CAR; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; CAR; CDR; DUP 9; GET 3; GET 4; DIG 5; GET; IF_NONE { PUSH int 522; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } } {}; DUP 4; GET 3; CAR; CDR; DUP 4; CAR; CAR; MEM; IF { DUP 4; GET 3; CAR; CDR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 489; FAILWITH } {}; ITER { DUP 5; CAR; GET 3; CDR; DUP 5; CAR; CAR; MEM; IF { DUP 5; CAR; GET 3; CDR; DUP 5; CAR; CAR; GET; IF_NONE { PUSH int 492; FAILWITH } {}; SWAP; DUP; DUG 2; MEM; NOT; RENAME; IF { DUP; DUP 5; CAR; CAR; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; GET 4; DUP 6; GET 3; GET 4; DUP 3; GET; IF_NONE { PUSH int 304; FAILWITH } {}; GET 8; LEVEL; RENAME; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 7; GET 3; GET 4; DUP 4; GET; IF_NONE { PUSH int 305; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 6; CAR; GET 5; SWAP; DUP 7; CAR; GET 5; DUP 8; GET 3; GET 4; DUP 5; GET; IF_NONE { PUSH int 513; FAILWITH } {}; CAR; CAR; CDR; DUP 9; GET 3; GET 4; DUP 6; GET; IF_NONE { PUSH int 513; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 7; CAR; GET 3; CDR; DUP 4; DUP 8; CAR; CAR; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; CAR; CAR; MEM; IF { DUP 7; CAR; GET 3; CDR; DUP 4; DUP 8; CAR; CAR; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; CAR; CAR; GET; IF_NONE { PUSH int 518; FAILWITH } {}; DUP 4; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 8; CAR; GET 5; DUP 5; DUP 9; CAR; CAR; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 7; CAR; GET 5; DUP 4; DUP 8; CAR; CAR; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; CAR; CDR; DUP 9; GET 3; GET 4; DIG 5; GET; IF_NONE { PUSH int 522; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } { DROP } } { DUP; DUP 5; CAR; CAR; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; GET 4; DUP 6; GET 3; GET 4; DUP 3; GET; IF_NONE { PUSH int 304; FAILWITH } {}; GET 8; LEVEL; RENAME; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 7; GET 3; GET 4; DUP 4; GET; IF_NONE { PUSH int 305; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 6; CAR; GET 5; SWAP; DUP 7; CAR; GET 5; DUP 8; GET 3; GET 4; DUP 5; GET; IF_NONE { PUSH int 513; FAILWITH } {}; CAR; CAR; CDR; DUP 9; GET 3; GET 4; DUP 6; GET; IF_NONE { PUSH int 513; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 7; CAR; GET 3; CDR; DUP 4; DUP 8; CAR; CAR; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; CAR; CAR; MEM; IF { DUP 7; CAR; GET 3; CDR; DUP 4; DUP 8; CAR; CAR; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; CAR; CAR; GET; IF_NONE { PUSH int 518; FAILWITH } {}; DUP 4; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 8; CAR; GET 5; DUP 5; DUP 9; CAR; CAR; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 7; CAR; GET 5; DUP 4; DUP 8; CAR; CAR; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; CAR; CDR; DUP 9; GET 3; GET 4; DIG 5; GET; IF_NONE { PUSH int 522; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } }; DROP } { DROP }; UNPAIR; SWAP; SUB; PUSH int 0; COMPARE; GT; IF {} { PUSH string "CMPT_INSUFFICIENT_SHORTFALL"; FAILWITH }; SWAP; DUP; DUG 2; CAR; GET 5; SWAP; DUP; CAR; CDR; SWAP; DUP; DUG 3; CAR; CAR; VIEW "borrowBalanceStoredView" nat; IF_NONE { PUSH string "INVALID ACCOUNT BORROW BALANCE VIEW"; FAILWITH } {}; DUP 4; CAR; GET 3; CAR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; SWAP; DUP; DUG 2; GET 6; SWAP; COMPARE; GE; IF {} { PUSH string "CMPT_TOO_MUCH_REPAY"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; SWAP; DUP; DUG 2; CAR; CAR; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DUP 6; CAR; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 753; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR; SWAP } {}; SWAP; DUP; DUG 2; CAR; CAR; CAR; SWAP; DUP; DUG 2; GET 5; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 5; GET 5; DUP; DUG 2; GET; IF_NONE { PUSH int 753; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 6 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; RENAME; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; CAR; GET; IF_NONE { PUSH int 153; FAILWITH } {}; CAR; GET 4; NOT; RENAME; IF {} { PUSH string "CMPT_MINT_PAUSED"; FAILWITH }; SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; CAR; MEM; IF { SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; CAR; GET; IF_NONE { PUSH int 730; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; SWAP; DUP; DUG 2; GET 3; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 5; GET 3; DUP; DUG 2; GET; IF_NONE { PUSH int 753; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 7 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; RENAME; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; CAR; MEM; IF { SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; CAR; GET; IF_NONE { PUSH int 730; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; SWAP; DUP; DUG 2; CAR; GET 3; CDR; SWAP; DUP; DUG 2; GET 3; MEM; IF { SWAP; DUP; DUG 2; CAR; GET 3; CDR; SWAP; DUP; DUG 2; GET 3; GET; IF_NONE { PUSH int 180; FAILWITH } {}; SWAP; DUP; DUG 2; CAR; MEM } { PUSH bool False }; IF { SWAP; DUP; DUG 2; GET 3; CAR; CDR; SWAP; DUP; DUG 2; GET 3; MEM; IF { PUSH nat 0; DUP 3; GET 3; CAR; CDR; DUP 3; GET 3; GET; IF_NONE { PUSH int 182; FAILWITH } {}; SIZE; COMPARE; NEQ } { PUSH bool False }; IF { SWAP; DUP; DUG 2; CAR; CAR; CAR; SWAP; DUP; DUG 2; GET 3; MEM; IF {} { PUSH string "CMPT_LIQUIDITY_ABSENT"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; SWAP; DUP; DUG 2; GET 3; GET; IF_NONE { PUSH int 746; FAILWITH } {}; GET 4; IF {} { PUSH string "CMPT_LIQUIDITY_INVALID"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; SWAP; DUP; DUG 2; GET 3; GET; IF_NONE { PUSH int 748; FAILWITH } {}; GET 3; LEVEL; RENAME; SUB; ISNAT; RENAME; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; DUP; PUSH nat 0; COMPARE; EQ; IF {} { PUSH string "CMPT_LIQUIDITY_OLD"; FAILWITH }; DUP 3; GET 3; GET 4; DUP 3; CAR; GET; IF_NONE { PUSH int 304; FAILWITH } {}; GET 8; LEVEL; DIG 2; DROP; RENAME; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; GET 4; DUP 3; CAR; GET; IF_NONE { PUSH int 305; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; SWAP; DUP; DUG 2; CAR; GET 5; SWAP; DUP; DUG 2; GET 4; DUP 4; GET 3; GET 4; DUP 4; CAR; GET; IF_NONE { PUSH int 191; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; INT; DUP 3; CAR; CAR; CAR; DUP 3; GET 3; GET; IF_NONE { PUSH int 190; FAILWITH } {}; CAR; SUB; PUSH int 0; SWAP; COMPARE; GE; IF {} { PUSH string "CMPT_REDEEMER_SHORTFALL"; FAILWITH } } {} } {}; SWAP; DUP; DUG 2; CAR; CAR; CAR; SWAP; DUP; DUG 2; GET 3; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 5; GET 3; DUP; DUG 2; GET; IF_NONE { PUSH int 753; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 8 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; RENAME; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; SWAP; DUP; DUG 2; GET 3; GET 4; SENDER; RENAME; MEM; IF { SWAP; DUP; DUG 2; GET 3; GET 4; SENDER; RENAME; GET; IF_NONE { PUSH int 730; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; SWAP; DUP; DUG 2; GET 3; CAR; CDR; SWAP; DUP; DUG 2; MEM; IF { SWAP; DUP; DUG 2; GET 3; CAR; CDR; SWAP; DUP; DUG 2; GET; IF_NONE { PUSH int 239; FAILWITH } {}; SENDER; RENAME; MEM } { PUSH bool False }; IF { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; DUP; DIG 6; DUP; DUG 2; GET; IF_NONE { PUSH int 240; FAILWITH } {}; PUSH bool False; SENDER; RENAME; UPDATE; SOME; SWAP; UPDATE; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR } { DROP }; NIL operation; PAIR }; Elt 9 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; RENAME; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; CAR; MEM; IF { SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; CAR; GET; IF_NONE { PUSH int 730; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; SWAP; DUP; DUG 2; GET 5; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DUP 6; GET 5; DUP; DUG 2; GET; IF_NONE { PUSH int 753; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR; SWAP } {}; SWAP; DUP; DUG 2; CAR; CAR; CAR; SWAP; DUP; DUG 2; GET 3; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 5; GET 3; DUP; DUG 2; GET; IF_NONE { PUSH int 753; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 10 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; RENAME; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; PUSH (pair nat nat) (Pair 0 0); DUP; DUP 4; CAR; GET 3; CDR; DUP 4; MEM; IF { DUP 4; CAR; GET 3; CDR; DUP 4; GET; IF_NONE { PUSH int 481; FAILWITH } {}; ITER { DUP; DUP 5; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; GET 4; DUP 6; GET 3; GET 4; DUP 3; GET; IF_NONE { PUSH int 304; FAILWITH } {}; GET 8; LEVEL; RENAME; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 7; GET 3; GET 4; DUP 4; GET; IF_NONE { PUSH int 305; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 6; CAR; GET 5; SWAP; DUP 7; CAR; GET 5; DUP 8; GET 3; GET 4; DUP 5; GET; IF_NONE { PUSH int 513; FAILWITH } {}; CAR; CAR; CDR; DUP 9; GET 3; GET 4; DUP 6; GET; IF_NONE { PUSH int 513; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 7; CAR; GET 3; CDR; DUP 4; DUP 8; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; CAR; CAR; MEM; IF { DUP 7; CAR; GET 3; CDR; DUP 4; DUP 8; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; CAR; CAR; GET; IF_NONE { PUSH int 518; FAILWITH } {}; DUP 4; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 8; CAR; GET 5; DUP 5; DUP 9; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 7; CAR; GET 5; DUP 4; DUP 8; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; CAR; CDR; DUP 9; GET 3; GET 4; DIG 5; GET; IF_NONE { PUSH int 522; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } } {}; DUP 4; GET 3; CAR; CDR; DUP 4; MEM; IF { DUP 4; GET 3; CAR; CDR; DUP 4; GET; IF_NONE { PUSH int 489; FAILWITH } {}; ITER { DUP 5; CAR; GET 3; CDR; DUP 5; MEM; IF { DUP 5; CAR; GET 3; CDR; DUP 5; GET; IF_NONE { PUSH int 492; FAILWITH } {}; SWAP; DUP; DUG 2; MEM; NOT; RENAME; IF { DUP; DUP 5; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; GET 4; DUP 6; GET 3; GET 4; DUP 3; GET; IF_NONE { PUSH int 304; FAILWITH } {}; GET 8; LEVEL; RENAME; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 7; GET 3; GET 4; DUP 4; GET; IF_NONE { PUSH int 305; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 6; CAR; GET 5; SWAP; DUP 7; CAR; GET 5; DUP 8; GET 3; GET 4; DUP 5; GET; IF_NONE { PUSH int 513; FAILWITH } {}; CAR; CAR; CDR; DUP 9; GET 3; GET 4; DUP 6; GET; IF_NONE { PUSH int 513; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 7; CAR; GET 3; CDR; DUP 4; DUP 8; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; CAR; CAR; MEM; IF { DUP 7; CAR; GET 3; CDR; DUP 4; DUP 8; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; CAR; CAR; GET; IF_NONE { PUSH int 518; FAILWITH } {}; DUP 4; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 8; CAR; GET 5; DUP 5; DUP 9; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 7; CAR; GET 5; DUP 4; DUP 8; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; CAR; CDR; DUP 9; GET 3; GET 4; DIG 5; GET; IF_NONE { PUSH int 522; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } { DROP } } { DUP; DUP 5; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; GET 4; DUP 6; GET 3; GET 4; DUP 3; GET; IF_NONE { PUSH int 304; FAILWITH } {}; GET 8; LEVEL; RENAME; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 7; GET 3; GET 4; DUP 4; GET; IF_NONE { PUSH int 305; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 6; CAR; GET 5; SWAP; DUP 7; CAR; GET 5; DUP 8; GET 3; GET 4; DUP 5; GET; IF_NONE { PUSH int 513; FAILWITH } {}; CAR; CAR; CDR; DUP 9; GET 3; GET 4; DUP 6; GET; IF_NONE { PUSH int 513; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 7; CAR; GET 3; CDR; DUP 4; DUP 8; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; CAR; CAR; MEM; IF { DUP 7; CAR; GET 3; CDR; DUP 4; DUP 8; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; CAR; CAR; GET; IF_NONE { PUSH int 518; FAILWITH } {}; DUP 4; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 8; CAR; GET 5; DUP 5; DUP 9; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 7; CAR; GET 5; DUP 4; DUP 8; VIEW "getAccountSnapshotView" (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; CAR; CDR; DUP 9; GET 3; GET 4; DIG 5; GET; IF_NONE { PUSH int 522; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } } } {}; SWAP; DUP; DUG 2; DUP 5; CAR; CAR; GET 3; PUSH nat 4; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; DIG 4; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 4; UPDATE; PAIR; SWAP; PUSH bool True; LEVEL; DIG 7; DROP; DIG 7; DROP; RENAME; DIG 6; UNPAIR; SWAP; SUB; PAIR 3; SOME; DIG 5; UPDATE; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 11 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { IF_LEFT {} { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; RENAME; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; GET 3; PUSH nat 1; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 1; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; DUP; CAR; CDR; PUSH nat 0; COMPARE; EQ; IF {} { PUSH string "CMPT_BORROW_IN_MARKET"; FAILWITH }; SWAP; DUP; DUG 2; GET 3; GET 4; SENDER; RENAME; MEM; IF { SWAP; DUP; DUG 2; GET 3; GET 4; SENDER; RENAME; GET; IF_NONE { PUSH int 730; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; SWAP; DUP; DUG 2; CAR; GET 3; CDR; SWAP; DUP; DUG 2; CAR; CAR; MEM; IF { SWAP; DUP; DUG 2; CAR; GET 3; CDR; SWAP; DUP; DUG 2; CAR; CAR; GET; IF_NONE { PUSH int 180; FAILWITH } {}; SENDER; RENAME; MEM } { PUSH bool False }; IF { SWAP; DUP; DUG 2; GET 3; CAR; CDR; SWAP; DUP; DUG 2; CAR; CAR; MEM; IF { PUSH nat 0; DUP 3; GET 3; CAR; CDR; DUP 3; CAR; CAR; GET; IF_NONE { PUSH int 182; FAILWITH } {}; SIZE; COMPARE; NEQ } { PUSH bool False }; IF { SWAP; DUP; DUG 2; CAR; CAR; CAR; SWAP; DUP; DUG 2; CAR; CAR; MEM; IF {} { PUSH string "CMPT_LIQUIDITY_ABSENT"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; SWAP; DUP; DUG 2; CAR; CAR; GET; IF_NONE { PUSH int 746; FAILWITH } {}; GET 4; IF {} { PUSH string "CMPT_LIQUIDITY_INVALID"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; SWAP; DUP; DUG 2; CAR; CAR; GET; IF_NONE { PUSH int 748; FAILWITH } {}; GET 3; LEVEL; RENAME; SUB; ISNAT; RENAME; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; DUP; PUSH nat 0; COMPARE; EQ; IF {} { PUSH string "CMPT_LIQUIDITY_OLD"; FAILWITH }; DUP 3; GET 3; GET 4; SENDER; RENAME; GET; IF_NONE { PUSH int 304; FAILWITH } {}; GET 8; LEVEL; DIG 2; DROP; RENAME; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; GET 4; SENDER; RENAME; GET; IF_NONE { PUSH int 305; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; SWAP; DUP; DUG 2; CAR; GET 5; SWAP; DUP; DUG 2; GET 3; DUP 4; GET 3; GET 4; SENDER; RENAME; GET; IF_NONE { PUSH int 191; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; INT; DUP 3; CAR; CAR; CAR; DUP 3; CAR; CAR; GET; IF_NONE { PUSH int 190; FAILWITH } {}; CAR; SUB; PUSH int 0; SWAP; COMPARE; GE; IF {} { PUSH string "CMPT_REDEEMER_SHORTFALL"; FAILWITH } } {} } {}; SWAP; DUP; DUG 2; CAR; CAR; CAR; SWAP; DUP; DUG 2; CAR; CAR; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DUP 6; CAR; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 753; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR; SWAP } {}; SWAP; DUP; DUG 2; CAR; GET 3; CDR; SWAP; DUP; DUG 2; CAR; CAR; MEM; IF { SWAP; DUP; DUG 2; CAR; GET 3; CDR; SWAP; DUP; DUG 2; CAR; CAR; GET; IF_NONE { PUSH int 133; FAILWITH } {}; SENDER; RENAME; MEM } { PUSH bool False }; IF { SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; DUP; DUP 7; CAR; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 135; FAILWITH } {}; PUSH bool False; SENDER; RENAME; UPDATE; SOME; SWAP; UPDATE; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; SWAP } {}; SWAP; DUP; DUG 2; CAR; CAR; CAR; SWAP; DUP; DUG 2; CAR; CAR; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 5; CAR; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 753; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 12 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } {} } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; RENAME; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; CAR; MEM; IF { SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; CAR; GET; IF_NONE { PUSH int 730; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; DUP 7; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 591; FAILWITH } {}; UNPAIR; UNPAIR; CDR; DIG 9; CDR; PAIR; PAIR; PAIR; SOME; SWAP; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 13 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; RENAME; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; CDR; DIG 4; PAIR; PAIR; SWAP; PAIR; PAIR; NIL operation; PAIR }; Elt 14 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } } { PUSH int -1; FAILWITH } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; RENAME; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; CAR; MEM; IF { SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; CAR; GET; IF_NONE { PUSH int 730; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; DUP 7; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 658; FAILWITH } {}; UNPAIR; UNPAIR; CAR; DIG 9; CDR; SWAP; PAIR; PAIR; PAIR; SOME; SWAP; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 15 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } } { PUSH int -1; FAILWITH } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; RENAME; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; CDR; DIG 4; PAIR; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 16 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT {} { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; RENAME; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; CAR; MEM; IF { SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; CAR; GET; IF_NONE { PUSH int 730; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; DUP 7; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 573; FAILWITH } {}; UNPAIR; UNPAIR; SWAP; CAR; DIG 9; CDR; SWAP; PAIR; SWAP; PAIR; PAIR; SOME; SWAP; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 17 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; RENAME; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SOME; UPDATE 7; NIL operation; PAIR }; Elt 18 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; RENAME; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; SWAP; CDR; DIG 3; UNPAIR; SWAP; PAIR; PAIR; SWAP; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 19 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; RENAME; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; UPDATE 8; NIL operation; PAIR }; Elt 20 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; RENAME; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; CAR; MEM; IF { SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; CAR; GET; IF_NONE { PUSH int 734; FAILWITH } {}; CAR; GET 3; NOT } { PUSH bool True }; RENAME; IF {} { PUSH string "CMPT_MARKET_ALREADY_LISTED"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; PUSH (pair timestamp nat) (Pair "1970-01-01T00:00:00Z" 0); DUP 7; GET 4; PAIR; PUSH nat 0; DUP 8; GET 3; PAIR; PAIR; PUSH (pair (pair bool nat) (pair bool bool)) (Pair (Pair True 500000000000000000) (Pair True True)); PAIR; SOME; DUP 7; CAR; UPDATE; SWAP; DUP 6; CAR; SOME; PUSH string "-USD"; DIG 7; GET 3; CONCAT; UPDATE; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 21 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; RENAME; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; SWAP; DUP; DUG 2; GET 8; NOT; RENAME; IF {} { PUSH string "CMPT_TRANSFER_PAUSED"; FAILWITH }; SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; CAR; CAR; MEM; IF { SWAP; DUP; DUG 2; GET 3; GET 4; SWAP; DUP; DUG 2; CAR; CAR; GET; IF_NONE { PUSH int 730; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; SWAP; DUP; DUG 2; CAR; GET 3; CDR; SWAP; DUP; DUG 2; CAR; CDR; MEM; IF { SWAP; DUP; DUG 2; CAR; GET 3; CDR; SWAP; DUP; DUG 2; CAR; CDR; GET; IF_NONE { PUSH int 180; FAILWITH } {}; SWAP; DUP; DUG 2; CAR; CAR; MEM } { PUSH bool False }; IF { SWAP; DUP; DUG 2; GET 3; CAR; CDR; SWAP; DUP; DUG 2; CAR; CDR; MEM; IF { PUSH nat 0; DUP 3; GET 3; CAR; CDR; DUP 3; CAR; CDR; GET; IF_NONE { PUSH int 182; FAILWITH } {}; SIZE; COMPARE; NEQ } { PUSH bool False }; IF { SWAP; DUP; DUG 2; CAR; CAR; CAR; SWAP; DUP; DUG 2; CAR; CDR; MEM; IF {} { PUSH string "CMPT_LIQUIDITY_ABSENT"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; SWAP; DUP; DUG 2; CAR; CDR; GET; IF_NONE { PUSH int 746; FAILWITH } {}; GET 4; IF {} { PUSH string "CMPT_LIQUIDITY_INVALID"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; SWAP; DUP; DUG 2; CAR; CDR; GET; IF_NONE { PUSH int 748; FAILWITH } {}; GET 3; LEVEL; RENAME; SUB; ISNAT; RENAME; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; DUP; PUSH nat 0; COMPARE; EQ; IF {} { PUSH string "CMPT_LIQUIDITY_OLD"; FAILWITH }; DUP 3; GET 3; GET 4; DUP 3; CAR; CAR; GET; IF_NONE { PUSH int 304; FAILWITH } {}; GET 8; LEVEL; DIG 2; DROP; RENAME; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; GET 4; DUP 3; CAR; CAR; GET; IF_NONE { PUSH int 305; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; SWAP; DUP; DUG 2; CAR; GET 5; SWAP; DUP; DUG 2; GET 4; DUP 4; GET 3; GET 4; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 191; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; INT; DUP 3; CAR; CAR; CAR; DUP 3; CAR; CDR; GET; IF_NONE { PUSH int 190; FAILWITH } {}; CAR; SUB; PUSH int 0; SWAP; COMPARE; GE; IF {} { PUSH string "CMPT_REDEEMER_SHORTFALL"; FAILWITH } } {} } {}; SWAP; DUP; DUG 2; CAR; CAR; CAR; SWAP; DUP; DUG 2; CAR; CDR; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 5; CAR; CDR; DUP; DUG 2; GET; IF_NONE { PUSH int 753; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }}) \ No newline at end of file +(Pair (Pair (Pair (Pair {} (Pair {} "KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2")) (Pair (Pair 500000000000000000 {}) (Pair 1000000000000000000 500000000000000000))) (Pair (Pair (Pair 1050000000000000000 {}) (Pair {} {})) (Pair (Pair 86400 "KT1LDtNKDnpziwSrmSfx3xCbs7nBMg7VFp4m") (Pair None True)))) {Elt 0 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP; GET 7; IF_NONE { PUSH string "CMPT_NOT_SET_PENDING_ADMIN"; FAILWITH } {}; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_PENDING_ADMIN"; FAILWITH }; DUP; GET 7; IF_NONE { PUSH int 566; FAILWITH } {}; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; CAR; DIG 4; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; NONE address; UPDATE 7; NIL operation; PAIR }; Elt 1 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } {} } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 4; DUP 2; CAR; GET; IF_NONE { PUSH int 212; FAILWITH } {}; CAR; CAR; CAR; IF { PUSH string "CMPT_BORROW_PAUSED"; FAILWITH } {}; DUP 2; GET 3; GET 4; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; CAR; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; GET 3; CAR; CDR; DUP 2; GET 3; MEM; IF {} { DUP; CAR; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_INVALID_BORROW_SENDER"; FAILWITH }; DUP 2; GET 3; GET 4; SENDER; MEM; IF { DUP 2; GET 3; GET 4; SENDER; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; GET 3; CAR; CDR; DUP 2; GET 3; MEM; IF { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; DUP; DUP 7; GET 3; DUP; DUG 2; GET; IF_NONE { PUSH int 230; FAILWITH } {}; PUSH bool True; SENDER; UPDATE; SOME; SWAP; UPDATE; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR; SWAP } { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; EMPTY_SET address; PUSH bool True; SENDER; UPDATE; SOME; DUP 7; GET 3; UPDATE; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR; SWAP } }; DUP 2; CAR; CAR; CAR; DUP 2; GET 3; MEM; IF {} { PUSH string "CMPT_LIQUIDITY_ABSENT"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; GET 3; GET; IF_NONE { PUSH int 758; FAILWITH } {}; GET 4; IF {} { PUSH string "CMPT_LIQUIDITY_INVALID"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; GET 3; GET; IF_NONE { PUSH int 760; FAILWITH } {}; GET 3; LEVEL; SUB; ISNAT; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; PUSH nat 0; DUP 2; COMPARE; EQ; IF {} { PUSH string "CMPT_LIQUIDITY_OLD"; FAILWITH }; DUP 3; GET 3; GET 4; DUP 3; CAR; GET; IF_NONE { PUSH int 306; FAILWITH } {}; GET 8; LEVEL; DIG 2; DROP; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; GET 4; DUP 3; CAR; GET; IF_NONE { PUSH int 307; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 2; CAR; GET 5; DUP 2; GET 4; DUP 4; GET 3; GET 4; DUP 4; CAR; GET; IF_NONE { PUSH int 191; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; INT; DUP 3; CAR; CAR; CAR; DUP 3; GET 3; GET; IF_NONE { PUSH int 190; FAILWITH } {}; CAR; SUB; PUSH int 0; SWAP; COMPARE; GE; IF {} { PUSH string "CMPT_REDEEMER_SHORTFALL"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; GET 3; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 5; GET 3; DUP; DUG 2; GET; IF_NONE { PUSH int 765; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 2 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; DUP 2; GET 3; GET 4; DUP 2; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; DIG 6; DUP; DUG 2; GET; IF_NONE { PUSH int 733; FAILWITH } {}; UNPAIR; UNPAIR; SWAP; CDR; PUSH bool False; PAIR; SWAP; PAIR; PAIR; SOME; SWAP; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 3 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP; ITER { DUP 3; GET 3; GET 4; DUP 2; MEM; IF { DUP 3; GET 3; GET 4; DUP 2; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 3; CAR; GET 3; CDR; SENDER; MEM; IF { DIG 2; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; DUP; SENDER; DUP; DUG 2; GET; IF_NONE { PUSH int 89; FAILWITH } {}; PUSH bool True; DIG 8; UPDATE; SOME; SWAP; UPDATE; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; SWAP } { DIG 2; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; EMPTY_SET address; PUSH bool True; DIG 7; UPDATE; SOME; SENDER; UPDATE; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; SWAP } }; DROP; DUP; CAR; CAR; CAR; SENDER; MEM; IF { UNPAIR; UNPAIR; UNPAIR; DUP; SENDER; DUP; DUG 2; GET; IF_NONE { PUSH int 765; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } {}; NIL operation; PAIR }; Elt 4 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { DROP } } } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; DUP; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; EMPTY_SET nat; PAIR; SWAP; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 5 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT {} { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 4; DUP 2; CAR; CDR; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; CAR; CDR; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; GET 3; GET 4; DUP 2; GET 3; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; GET 3; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; PUSH (pair nat nat) (Pair 0 0); DUP; DUP 4; CAR; GET 3; CDR; DUP 4; CAR; CAR; MEM; IF { DUP 4; CAR; GET 3; CDR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 491; FAILWITH } {}; ITER { DUP; DUP 5; CAR; CAR; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH string "CMPT_OUTDATED_ACCOUNT_SNAPHOT"; FAILWITH } { DROP }; DUP; DUP 5; CAR; CAR; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH int 521; FAILWITH } {}; DUP; GET 4; DUP 7; GET 3; GET 4; DUP 4; GET; IF_NONE { PUSH int 306; FAILWITH } {}; GET 8; LEVEL; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 8; GET 3; GET 4; DUP 5; GET; IF_NONE { PUSH int 307; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 7; CAR; GET 5; SWAP; DUP 8; CAR; GET 5; DUP 9; GET 3; GET 4; DUP 6; GET; IF_NONE { PUSH int 525; FAILWITH } {}; CAR; CAR; CDR; DUP 10; GET 3; GET 4; DUP 7; GET; IF_NONE { PUSH int 525; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; MEM; IF { DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 530; FAILWITH } {}; DUP 5; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 9; CAR; GET 5; DUP 5; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 8; CAR; GET 5; DIG 3; CAR; CDR; DUP 9; GET 3; GET 4; DIG 5; GET; IF_NONE { PUSH int 534; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } } {}; DUP 4; GET 3; CAR; CDR; DUP 4; CAR; CAR; MEM; IF { DUP 4; GET 3; CAR; CDR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 499; FAILWITH } {}; ITER { DUP 5; CAR; GET 3; CDR; DUP 5; CAR; CAR; MEM; IF { DUP 5; CAR; GET 3; CDR; DUP 5; CAR; CAR; GET; IF_NONE { PUSH int 502; FAILWITH } {}; DUP 2; MEM; IF { DROP } { DUP; DUP 5; CAR; CAR; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH string "CMPT_OUTDATED_ACCOUNT_SNAPHOT"; FAILWITH } { DROP }; DUP; DUP 5; CAR; CAR; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH int 521; FAILWITH } {}; DUP; GET 4; DUP 7; GET 3; GET 4; DUP 4; GET; IF_NONE { PUSH int 306; FAILWITH } {}; GET 8; LEVEL; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 8; GET 3; GET 4; DUP 5; GET; IF_NONE { PUSH int 307; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 7; CAR; GET 5; SWAP; DUP 8; CAR; GET 5; DUP 9; GET 3; GET 4; DUP 6; GET; IF_NONE { PUSH int 525; FAILWITH } {}; CAR; CAR; CDR; DUP 10; GET 3; GET 4; DUP 7; GET; IF_NONE { PUSH int 525; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; MEM; IF { DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 530; FAILWITH } {}; DUP 5; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 9; CAR; GET 5; DUP 5; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 8; CAR; GET 5; DIG 3; CAR; CDR; DUP 9; GET 3; GET 4; DIG 5; GET; IF_NONE { PUSH int 534; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } } { DUP; DUP 5; CAR; CAR; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH string "CMPT_OUTDATED_ACCOUNT_SNAPHOT"; FAILWITH } { DROP }; DUP; DUP 5; CAR; CAR; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH int 521; FAILWITH } {}; DUP; GET 4; DUP 7; GET 3; GET 4; DUP 4; GET; IF_NONE { PUSH int 306; FAILWITH } {}; GET 8; LEVEL; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 8; GET 3; GET 4; DUP 5; GET; IF_NONE { PUSH int 307; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 7; CAR; GET 5; SWAP; DUP 8; CAR; GET 5; DUP 9; GET 3; GET 4; DUP 6; GET; IF_NONE { PUSH int 525; FAILWITH } {}; CAR; CAR; CDR; DUP 10; GET 3; GET 4; DUP 7; GET; IF_NONE { PUSH int 525; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; MEM; IF { DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 530; FAILWITH } {}; DUP 5; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 9; CAR; GET 5; DUP 5; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 8; CAR; GET 5; DIG 3; CAR; CDR; DUP 9; GET 3; GET 4; DIG 5; GET; IF_NONE { PUSH int 534; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } }; DROP } { DROP }; UNPAIR; SWAP; SUB; PUSH int 0; COMPARE; GT; IF {} { PUSH string "CMPT_INSUFFICIENT_SHORTFALL"; FAILWITH }; DUP 2; CAR; GET 5; DUP 2; CAR; CDR; DUP 3; CAR; CAR; VIEW "borrowBalanceStoredView" (pair nat nat); IF_NONE { PUSH string "INVALID ACCOUNT BORROW BALANCE VIEW"; FAILWITH } {}; CAR; DUP 4; CAR; GET 3; CAR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; SWAP; DUP; GET 6; DIG 2; COMPARE; GE; IF {} { PUSH string "CMPT_TOO_MUCH_REPAY"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; CAR; CAR; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DUP 6; CAR; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 765; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR; SWAP } {}; DUP 2; CAR; CAR; CAR; DUP 2; GET 5; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 5; GET 5; DUP; DUG 2; GET; IF_NONE { PUSH int 765; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 6 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 4; DUP 2; CAR; GET; IF_NONE { PUSH int 153; FAILWITH } {}; CAR; GET 4; IF { PUSH string "CMPT_MINT_PAUSED"; FAILWITH } {}; DUP 2; GET 3; GET 4; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; CAR; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; GET 3; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 5; GET 3; DUP; DUG 2; GET; IF_NONE { PUSH int 765; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 7 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 4; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; CAR; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; CAR; GET 3; CDR; DUP 2; GET 3; MEM; IF { DUP 2; CAR; GET 3; CDR; DUP 2; GET 3; GET; IF_NONE { PUSH int 180; FAILWITH } {}; DUP 2; CAR; MEM } { PUSH bool False }; IF { DUP 2; GET 3; CAR; CDR; DUP 2; GET 3; MEM; IF { PUSH nat 0; DUP 3; GET 3; CAR; CDR; DUP 3; GET 3; GET; IF_NONE { PUSH int 182; FAILWITH } {}; SIZE; COMPARE; NEQ } { PUSH bool False }; IF { DUP 2; CAR; CAR; CAR; DUP 2; GET 3; MEM; IF {} { PUSH string "CMPT_LIQUIDITY_ABSENT"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; GET 3; GET; IF_NONE { PUSH int 758; FAILWITH } {}; GET 4; IF {} { PUSH string "CMPT_LIQUIDITY_INVALID"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; GET 3; GET; IF_NONE { PUSH int 760; FAILWITH } {}; GET 3; LEVEL; SUB; ISNAT; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; PUSH nat 0; DUP 2; COMPARE; EQ; IF {} { PUSH string "CMPT_LIQUIDITY_OLD"; FAILWITH }; DUP 3; GET 3; GET 4; DUP 3; CAR; GET; IF_NONE { PUSH int 306; FAILWITH } {}; GET 8; LEVEL; DIG 2; DROP; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; GET 4; DUP 3; CAR; GET; IF_NONE { PUSH int 307; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 2; CAR; GET 5; DUP 2; GET 4; DUP 4; GET 3; GET 4; DUP 4; CAR; GET; IF_NONE { PUSH int 191; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; INT; DUP 3; CAR; CAR; CAR; DUP 3; GET 3; GET; IF_NONE { PUSH int 190; FAILWITH } {}; CAR; SUB; PUSH int 0; SWAP; COMPARE; GE; IF {} { PUSH string "CMPT_REDEEMER_SHORTFALL"; FAILWITH } } {} } {}; DUP 2; CAR; CAR; CAR; DUP 2; GET 3; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 5; GET 3; DUP; DUG 2; GET; IF_NONE { PUSH int 765; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 8 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 4; SENDER; MEM; IF { DUP 2; GET 3; GET 4; SENDER; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; GET 3; CAR; CDR; DUP 2; MEM; IF { DUP 2; GET 3; CAR; CDR; DUP 2; GET; IF_NONE { PUSH int 239; FAILWITH } {}; SENDER; MEM } { PUSH bool False }; IF { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; DUP; DIG 6; DUP; DUG 2; GET; IF_NONE { PUSH int 240; FAILWITH } {}; PUSH bool False; SENDER; UPDATE; SOME; SWAP; UPDATE; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR } { DROP }; NIL operation; PAIR }; Elt 9 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 4; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; CAR; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; GET 5; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DUP 6; GET 5; DUP; DUG 2; GET; IF_NONE { PUSH int 765; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR; SWAP } {}; DUP 2; CAR; CAR; CAR; DUP 2; GET 3; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 5; GET 3; DUP; DUG 2; GET; IF_NONE { PUSH int 765; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 10 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; PUSH (pair nat nat) (Pair 0 0); DUP; DUP 4; CAR; GET 3; CDR; DUP 4; MEM; IF { DUP 4; CAR; GET 3; CDR; DUP 4; GET; IF_NONE { PUSH int 491; FAILWITH } {}; ITER { DUP; DUP 5; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH string "CMPT_OUTDATED_ACCOUNT_SNAPHOT"; FAILWITH } { DROP }; DUP; DUP 5; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH int 521; FAILWITH } {}; DUP; GET 4; DUP 7; GET 3; GET 4; DUP 4; GET; IF_NONE { PUSH int 306; FAILWITH } {}; GET 8; LEVEL; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 8; GET 3; GET 4; DUP 5; GET; IF_NONE { PUSH int 307; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 7; CAR; GET 5; SWAP; DUP 8; CAR; GET 5; DUP 9; GET 3; GET 4; DUP 6; GET; IF_NONE { PUSH int 525; FAILWITH } {}; CAR; CAR; CDR; DUP 10; GET 3; GET 4; DUP 7; GET; IF_NONE { PUSH int 525; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; MEM; IF { DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 530; FAILWITH } {}; DUP 5; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 9; CAR; GET 5; DUP 5; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 8; CAR; GET 5; DIG 3; CAR; CDR; DUP 9; GET 3; GET 4; DIG 5; GET; IF_NONE { PUSH int 534; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } } {}; DUP 4; GET 3; CAR; CDR; DUP 4; MEM; IF { DUP 4; GET 3; CAR; CDR; DUP 4; GET; IF_NONE { PUSH int 499; FAILWITH } {}; ITER { DUP 5; CAR; GET 3; CDR; DUP 5; MEM; IF { DUP 5; CAR; GET 3; CDR; DUP 5; GET; IF_NONE { PUSH int 502; FAILWITH } {}; DUP 2; MEM; IF { DROP } { DUP; DUP 5; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH string "CMPT_OUTDATED_ACCOUNT_SNAPHOT"; FAILWITH } { DROP }; DUP; DUP 5; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH int 521; FAILWITH } {}; DUP; GET 4; DUP 7; GET 3; GET 4; DUP 4; GET; IF_NONE { PUSH int 306; FAILWITH } {}; GET 8; LEVEL; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 8; GET 3; GET 4; DUP 5; GET; IF_NONE { PUSH int 307; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 7; CAR; GET 5; SWAP; DUP 8; CAR; GET 5; DUP 9; GET 3; GET 4; DUP 6; GET; IF_NONE { PUSH int 525; FAILWITH } {}; CAR; CAR; CDR; DUP 10; GET 3; GET 4; DUP 7; GET; IF_NONE { PUSH int 525; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; MEM; IF { DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 530; FAILWITH } {}; DUP 5; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 9; CAR; GET 5; DUP 5; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 8; CAR; GET 5; DIG 3; CAR; CDR; DUP 9; GET 3; GET 4; DIG 5; GET; IF_NONE { PUSH int 534; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } } { DUP; DUP 5; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH string "CMPT_OUTDATED_ACCOUNT_SNAPHOT"; FAILWITH } { DROP }; DUP; DUP 5; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH int 521; FAILWITH } {}; DUP; GET 4; DUP 7; GET 3; GET 4; DUP 4; GET; IF_NONE { PUSH int 306; FAILWITH } {}; GET 8; LEVEL; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 8; GET 3; GET 4; DUP 5; GET; IF_NONE { PUSH int 307; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 7; CAR; GET 5; SWAP; DUP 8; CAR; GET 5; DUP 9; GET 3; GET 4; DUP 6; GET; IF_NONE { PUSH int 525; FAILWITH } {}; CAR; CAR; CDR; DUP 10; GET 3; GET 4; DUP 7; GET; IF_NONE { PUSH int 525; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; MEM; IF { DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 530; FAILWITH } {}; DUP 5; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 9; CAR; GET 5; DUP 5; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 8; CAR; GET 5; DIG 3; CAR; CDR; DUP 9; GET 3; GET 4; DIG 5; GET; IF_NONE { PUSH int 534; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } } } {}; DUP 2; DUP 5; CAR; CAR; GET 3; PUSH nat 4; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; DIG 4; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 4; UPDATE; PAIR; SWAP; PUSH bool True; LEVEL; DIG 7; DROP; DIG 7; DROP; DIG 6; UNPAIR; SWAP; SUB; PAIR 3; SOME; DIG 5; UPDATE; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 11 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { IF_LEFT {} { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 3; PUSH nat 1; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 1; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PUSH nat 0; DUP 2; CAR; CDR; COMPARE; EQ; IF {} { PUSH string "CMPT_BORROW_IN_MARKET"; FAILWITH }; DUP 2; GET 3; GET 4; SENDER; MEM; IF { DUP 2; GET 3; GET 4; SENDER; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; CAR; GET 3; CDR; DUP 2; CAR; CAR; MEM; IF { DUP 2; CAR; GET 3; CDR; DUP 2; CAR; CAR; GET; IF_NONE { PUSH int 180; FAILWITH } {}; SENDER; MEM } { PUSH bool False }; IF { DUP 2; GET 3; CAR; CDR; DUP 2; CAR; CAR; MEM; IF { PUSH nat 0; DUP 3; GET 3; CAR; CDR; DUP 3; CAR; CAR; GET; IF_NONE { PUSH int 182; FAILWITH } {}; SIZE; COMPARE; NEQ } { PUSH bool False }; IF { DUP 2; CAR; CAR; CAR; DUP 2; CAR; CAR; MEM; IF {} { PUSH string "CMPT_LIQUIDITY_ABSENT"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; CAR; CAR; GET; IF_NONE { PUSH int 758; FAILWITH } {}; GET 4; IF {} { PUSH string "CMPT_LIQUIDITY_INVALID"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; CAR; CAR; GET; IF_NONE { PUSH int 760; FAILWITH } {}; GET 3; LEVEL; SUB; ISNAT; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; PUSH nat 0; DUP 2; COMPARE; EQ; IF {} { PUSH string "CMPT_LIQUIDITY_OLD"; FAILWITH }; DUP 3; GET 3; GET 4; SENDER; GET; IF_NONE { PUSH int 306; FAILWITH } {}; GET 8; LEVEL; DIG 2; DROP; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; GET 4; SENDER; GET; IF_NONE { PUSH int 307; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 2; CAR; GET 5; DUP 2; GET 3; DUP 4; GET 3; GET 4; SENDER; GET; IF_NONE { PUSH int 191; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; INT; DUP 3; CAR; CAR; CAR; DUP 3; CAR; CAR; GET; IF_NONE { PUSH int 190; FAILWITH } {}; CAR; SUB; PUSH int 0; SWAP; COMPARE; GE; IF {} { PUSH string "CMPT_REDEEMER_SHORTFALL"; FAILWITH } } {} } {}; DUP 2; CAR; CAR; CAR; DUP 2; CAR; CAR; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DUP 6; CAR; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 765; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR; SWAP } {}; DUP 2; CAR; GET 3; CDR; DUP 2; CAR; CAR; MEM; IF { DUP 2; CAR; GET 3; CDR; DUP 2; CAR; CAR; GET; IF_NONE { PUSH int 133; FAILWITH } {}; SENDER; MEM } { PUSH bool False }; IF { SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; DUP; DUP 7; CAR; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 135; FAILWITH } {}; PUSH bool False; SENDER; UPDATE; SOME; SWAP; UPDATE; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; SWAP } {}; DUP 2; CAR; CAR; CAR; DUP 2; CAR; CAR; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 5; CAR; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 765; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 12 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } {} } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 4; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; CAR; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; DUP 7; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 603; FAILWITH } {}; UNPAIR; UNPAIR; CDR; DIG 9; CDR; PAIR; PAIR; PAIR; SOME; SWAP; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 13 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; CDR; DIG 4; PAIR; PAIR; SWAP; PAIR; PAIR; NIL operation; PAIR }; Elt 14 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } } { PUSH int -1; FAILWITH } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; DUP 2; GET 3; GET 4; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; CAR; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; DUP 7; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 670; FAILWITH } {}; UNPAIR; UNPAIR; CAR; DIG 9; CDR; SWAP; PAIR; PAIR; PAIR; SOME; SWAP; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 15 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } } { PUSH int -1; FAILWITH } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; CDR; DIG 4; PAIR; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 16 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT {} { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 4; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; CAR; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; DUP 7; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 585; FAILWITH } {}; UNPAIR; UNPAIR; SWAP; CAR; DIG 9; CDR; SWAP; PAIR; SWAP; PAIR; PAIR; SOME; SWAP; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 17 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SOME; UPDATE 7; NIL operation; PAIR }; Elt 18 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; SWAP; CDR; DIG 3; UNPAIR; SWAP; PAIR; PAIR; SWAP; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 19 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; UPDATE 8; NIL operation; PAIR }; Elt 20 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; DUP 2; GET 3; GET 4; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; CAR; GET; IF_NONE { PUSH int 746; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF { PUSH string "CMPT_MARKET_ALREADY_LISTED"; FAILWITH } {}; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; PUSH (pair timestamp nat) (Pair "1970-01-01T00:00:00Z" 0); DUP 7; GET 4; PAIR; PUSH nat 0; DUP 8; GET 3; PAIR; PAIR; PUSH (pair (pair bool nat) (pair bool bool)) (Pair (Pair True 500000000000000000) (Pair True True)); PAIR; SOME; DUP 7; CAR; UPDATE; SWAP; DUP 6; CAR; SOME; PUSH string "-USD"; DIG 7; GET 3; CONCAT; UPDATE; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 21 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 8; IF { PUSH string "CMPT_TRANSFER_PAUSED"; FAILWITH } {}; DUP 2; GET 3; GET 4; DUP 2; CAR; CAR; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; CAR; CAR; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; CAR; GET 3; CDR; DUP 2; CAR; CDR; MEM; IF { DUP 2; CAR; GET 3; CDR; DUP 2; CAR; CDR; GET; IF_NONE { PUSH int 180; FAILWITH } {}; DUP 2; CAR; CAR; MEM } { PUSH bool False }; IF { DUP 2; GET 3; CAR; CDR; DUP 2; CAR; CDR; MEM; IF { PUSH nat 0; DUP 3; GET 3; CAR; CDR; DUP 3; CAR; CDR; GET; IF_NONE { PUSH int 182; FAILWITH } {}; SIZE; COMPARE; NEQ } { PUSH bool False }; IF { DUP 2; CAR; CAR; CAR; DUP 2; CAR; CDR; MEM; IF {} { PUSH string "CMPT_LIQUIDITY_ABSENT"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; CAR; CDR; GET; IF_NONE { PUSH int 758; FAILWITH } {}; GET 4; IF {} { PUSH string "CMPT_LIQUIDITY_INVALID"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; CAR; CDR; GET; IF_NONE { PUSH int 760; FAILWITH } {}; GET 3; LEVEL; SUB; ISNAT; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; PUSH nat 0; DUP 2; COMPARE; EQ; IF {} { PUSH string "CMPT_LIQUIDITY_OLD"; FAILWITH }; DUP 3; GET 3; GET 4; DUP 3; CAR; CAR; GET; IF_NONE { PUSH int 306; FAILWITH } {}; GET 8; LEVEL; DIG 2; DROP; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; GET 4; DUP 3; CAR; CAR; GET; IF_NONE { PUSH int 307; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 2; CAR; GET 5; DUP 2; GET 4; DUP 4; GET 3; GET 4; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 191; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; INT; DUP 3; CAR; CAR; CAR; DUP 3; CAR; CDR; GET; IF_NONE { PUSH int 190; FAILWITH } {}; CAR; SUB; PUSH int 0; SWAP; COMPARE; GE; IF {} { PUSH string "CMPT_REDEEMER_SHORTFALL"; FAILWITH } } {} } {}; DUP 2; CAR; CAR; CAR; DUP 2; CAR; CDR; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 5; CAR; CDR; DUP; DUG 2; GET; IF_NONE { PUSH int 765; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }}) \ No newline at end of file diff --git a/compiled_contracts/Comptroller/step_000_cont_0_types.py b/compiled_contracts/Comptroller/step_000_cont_0_types.py index a6d894b7..62145139 100644 --- a/compiled_contracts/Comptroller/step_000_cont_0_types.py +++ b/compiled_contracts/Comptroller/step_000_cont_0_types.py @@ -3,4 +3,4 @@ tstorage = sp.TRecord(account_liquidity = sp.TBigMap(sp.TAddress, sp.TRecord(liquidity = sp.TInt, updateLevel = sp.TNat, valid = sp.TBool).layout(("liquidity", ("updateLevel", "valid")))), activeOperations = sp.TSet(sp.TNat), administrator = sp.TAddress, closeFactorMantissa = sp.TNat, collaterals = sp.TBigMap(sp.TAddress, sp.TSet(sp.TAddress)), expScale = sp.TNat, halfExpScale = sp.TNat, liquidationIncentiveMantissa = sp.TNat, loans = sp.TBigMap(sp.TAddress, sp.TSet(sp.TAddress)), marketNameToAddress = sp.TMap(sp.TString, sp.TAddress), markets = sp.TBigMap(sp.TAddress, sp.TRecord(borrowPaused = sp.TBool, collateralFactor = sp.TRecord(mantissa = sp.TNat).layout("mantissa"), isListed = sp.TBool, mintPaused = sp.TBool, name = sp.TString, price = sp.TRecord(mantissa = sp.TNat).layout("mantissa"), priceExp = sp.TNat, priceTimestamp = sp.TTimestamp, updateLevel = sp.TNat).layout(((("borrowPaused", "collateralFactor"), ("isListed", "mintPaused")), (("name", "price"), ("priceExp", ("priceTimestamp", "updateLevel")))))), maxPriceTimeDifference = sp.TInt, oracleAddress = sp.TAddress, pendingAdministrator = sp.TOption(sp.TAddress), transferPaused = sp.TBool).layout(((("account_liquidity", ("activeOperations", "administrator")), (("closeFactorMantissa", "collaterals"), ("expScale", "halfExpScale"))), ((("liquidationIncentiveMantissa", "loans"), ("marketNameToAddress", "markets")), (("maxPriceTimeDifference", "oracleAddress"), ("pendingAdministrator", "transferPaused"))))) tparameter = sp.TVariant(acceptGovernance = sp.TUnit, borrowAllowed = sp.TRecord(borrowAmount = sp.TNat, borrower = sp.TAddress, cToken = sp.TAddress).layout(("cToken", ("borrower", "borrowAmount"))), disableMarket = sp.TAddress, enterMarkets = sp.TList(sp.TAddress), exitMarket = sp.TAddress, hardResetOp = sp.TUnit, liquidateBorrowAllowed = sp.TRecord(borrower = sp.TAddress, cTokenBorrowed = sp.TAddress, cTokenCollateral = sp.TAddress, liquidator = sp.TAddress, repayAmount = sp.TNat).layout((("borrower", "cTokenBorrowed"), ("cTokenCollateral", ("liquidator", "repayAmount")))), mintAllowed = sp.TRecord(cToken = sp.TAddress, mintAmount = sp.TNat, minter = sp.TAddress).layout(("cToken", ("minter", "mintAmount"))), redeemAllowed = sp.TRecord(cToken = sp.TAddress, redeemAmount = sp.TNat, redeemer = sp.TAddress).layout(("cToken", ("redeemer", "redeemAmount"))), removeFromLoans = sp.TAddress, repayBorrowAllowed = sp.TRecord(borrower = sp.TAddress, cToken = sp.TAddress, payer = sp.TAddress, repayAmount = sp.TNat).layout(("cToken", ("payer", ("borrower", "repayAmount")))), setAccountLiquidityWithView = sp.TAddress, setAccountSnapAndExitMarket = sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))), setBorrowPaused = sp.TRecord(cToken = sp.TAddress, state = sp.TBool).layout(("cToken", "state")), setCloseFactor = sp.TNat, setCollateralFactor = sp.TRecord(cToken = sp.TAddress, newCollateralFactor = sp.TNat).layout(("cToken", "newCollateralFactor")), setLiquidationIncentive = sp.TNat, setMintPaused = sp.TRecord(cToken = sp.TAddress, state = sp.TBool).layout(("cToken", "state")), setPendingGovernance = sp.TAddress, setPriceOracleAndTimeDiff = sp.TRecord(priceOracle = sp.TAddress, timeDiff = sp.TInt).layout(("priceOracle", "timeDiff")), setTransferPaused = sp.TBool, supportMarket = sp.TRecord(cToken = sp.TAddress, name = sp.TString, priceExp = sp.TNat).layout(("cToken", ("name", "priceExp"))), sweepFA12 = sp.TRecord(amount = sp.TNat, tokenAddress = sp.TAddress).layout(("amount", "tokenAddress")), sweepFA2 = sp.TRecord(amount = sp.TNat, id = sp.TNat, tokenAddress = sp.TAddress).layout(("amount", ("id", "tokenAddress"))), sweepMutez = sp.TBool, transferAllowed = sp.TRecord(cToken = sp.TAddress, dst = sp.TAddress, src = sp.TAddress, transferTokens = sp.TNat).layout((("cToken", "src"), ("dst", "transferTokens"))), updateAccountLiquidityWithView = sp.TAddress, updateAllAssetPricesWithView = sp.TUnit).layout((((("acceptGovernance", ("borrowAllowed", "disableMarket")), (("enterMarkets", "exitMarket"), ("hardResetOp", "liquidateBorrowAllowed"))), (("mintAllowed", ("redeemAllowed", "removeFromLoans")), (("repayBorrowAllowed", "setAccountLiquidityWithView"), ("setAccountSnapAndExitMarket", "setBorrowPaused")))), ((("setCloseFactor", ("setCollateralFactor", "setLiquidationIncentive")), (("setMintPaused", "setPendingGovernance"), ("setPriceOracleAndTimeDiff", "setTransferPaused"))), (("supportMarket", ("sweepFA12", "sweepFA2")), (("sweepMutez", "transferAllowed"), ("updateAccountLiquidityWithView", "updateAllAssetPricesWithView")))))) tprivates = { } -tviews = { "liquidateCalculateSeizeTokens": (sp.TRecord(actualRepayAmount = sp.TNat, cTokenBorrowed = sp.TAddress, cTokenCollateral = sp.TAddress).layout(("actualRepayAmount", ("cTokenBorrowed", "cTokenCollateral"))), sp.TNat), "seizeAllowed": (sp.TRecord(cTokenBorrowed = sp.TAddress, cTokenCollateral = sp.TAddress).layout(("cTokenBorrowed", "cTokenCollateral")), sp.TBool) } +tviews = { "liquidateCalculateSeizeTokens": (sp.TRecord(actualRepayAmount = sp.TNat, cTokenBorrowed = sp.TAddress, cTokenCollateral = sp.TAddress).layout(("actualRepayAmount", ("cTokenBorrowed", "cTokenCollateral"))), sp.TPair(sp.TNat, sp.TNat)), "seizeAllowed": (sp.TRecord(cTokenBorrowed = sp.TAddress, cTokenCollateral = sp.TAddress).layout(("cTokenBorrowed", "cTokenCollateral")), sp.TBool) } diff --git a/compiled_contracts/CtzBTC/log.txt b/compiled_contracts/CtzBTC/log.txt index d2213846..f8531d7b 100644 --- a/compiled_contracts/CtzBTC/log.txt +++ b/compiled_contracts/CtzBTC/log.txt @@ -1,10 +1,10 @@ Creating contract KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 - -> (Pair (Pair (Pair (Pair (Pair 0 (Pair {} "KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2")) (Pair 1000000000000000000 (Pair 800000000000 0))) (Pair (Pair {} (Pair "KT1DiWBT6RBC97iWrvLHRzKL7AWQKorBiuRG" 0)) (Pair 1000000000000000000 (Pair "KT1PWx2mnDueood7fEmfbBDKx1D9BAnnXitn" 500000000000000000)))) (Pair (Pair (Pair 1000000000000000000 (Pair "KT1Vzf3fXVBry4TDxWAfYzsn6ZPyMroMKUdW" {})) (Pair {Elt "" 0x74657a6f732d73746f726167653a64617461; Elt "data" 0x7b226e616d65223a202254657a46696e20496e7465726573742d42656172696e6720747a425443222c20226465736372697074696f6e223a2022496e7465726573742d62656172696e6720746f6b656e20666f7220747a42544320287772617070656420426974636f696e206f6e2054657a6f732920737570706c69656420746f207468652054657a46696e206c656e64696e672070726f746f636f6c2e222c202276657273696f6e223a2022332e30222c2022617574686f7273223a205b2254657a6f732046696e616e63652050726f746f636f6c225d2c2022686f6d6570616765223a202268747470733a2f2f74657a6f732e66696e616e6365222c2022696e7465726661636573223a205b22545a49502d303037222c2022545a49502d303136225d7d} (Pair None 100000000000000))) (Pair (Pair 50000000000000000 (Pair 1000000000000000000 0)) (Pair (Pair {Elt 0 (Pair 0 {Elt "decimals" 0x38; Elt "name" 0x54657a46696e20496e7465726573742d42656172696e6720747a425443; Elt "symbol" 0xea9cb0747a425443})} 0) (Pair 0 0))))) {Elt 0 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; DUP; GET 3; GET 5; IF_NONE { PUSH string "CT_NOT_SET_PENDING_ADMIN"; FAILWITH } {}; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_PENDING_ADMIN"; FAILWITH }; DUP; GET 3; GET 5; IF_NONE { PUSH int 812; FAILWITH } {}; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 1 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; NIL operation; DUP 3; GET 3; CAR; GET 3; CONTRACT %getBorrowRate (pair (pair (nat %borrows) (nat %cash)) (pair (contract %cb nat) (nat %reserves))); IF_NONE { PUSH int 744; FAILWITH } {}; PUSH mutez 0; DUP 5; GET 9; DIG 4; PAIR; DUP 5; CAR; GET 3; GET 4; DUP 6; GET 7; CDR; PAIR; PAIR; TRANSFER_TOKENS; CONS; PAIR }; Elt 2 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; RENAME; SENDER; RENAME; COMPARE; NEQ; IF {} { PUSH string "CT_INTERNAL_CALL"; FAILWITH }; DUP 2; GET 3; CAR; GET 4; SENDER; RENAME; GET; IF_NONE { PUSH int 454; FAILWITH } {}; CAR; DUP 2; CAR; MEM; IF { PUSH bool True } { PUSH nat 1000; DUP 3; GET 3; CAR; GET 4; SENDER; RENAME; GET; IF_NONE { PUSH int 455; FAILWITH } {}; CAR; SIZE; COMPARE; LT }; IF {} { PUSH string "FA1.2_MaxApprovalsReached"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; CAR; GET 4; SENDER; RENAME; GET; IF_NONE { PUSH int 457; FAILWITH } {}; CAR; DUP 3; CAR; GET; IF_NONE { PUSH nat 0 } {}; COMPARE; EQ; IF { PUSH bool True } { PUSH nat 0; DUP 2; CDR; COMPARE; EQ }; IF {} { PUSH string "FA1.2_UnsafeAllowanceChange"; FAILWITH }; PUSH nat 0; DUP 2; CDR; COMPARE; EQ; IF { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; SENDER; RENAME; DUP; DUG 2; GET; IF_NONE { PUSH int 462; FAILWITH } {}; DUP; CAR; NONE nat; DIG 10; CAR; UPDATE; UPDATE 1; SOME; SWAP; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR } { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; SENDER; RENAME; DUP; DUG 2; GET; IF_NONE { PUSH int 464; FAILWITH } {}; DUP; CAR; DUP 10; CDR; SOME; DIG 10; CAR; UPDATE; UPDATE 1; SOME; SWAP; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR }; NIL operation; PAIR }; Elt 3 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH }; DUP 2; GET 3; CAR; GET 3; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_SENDER_NOT_IRM"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 8; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 8; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; CAR; GET 5; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_BORROW_RATE"; FAILWITH }; DUP 2; CAR; CAR; CAR; CAR; LEVEL; RENAME; SUB; ISNAT; RENAME; IF_NONE { PUSH int 759; FAILWITH } {}; DUP 2; MUL; DUP 3; CAR; GET 5; DUP 4; GET 7; CDR; DUP 3; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; DUP 4; GET 7; CDR; DUP 2; ADD; DIG 4; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; CAR; DIG 5; SWAP; PAIR; PAIR; SWAP; PAIR; SWAP; PAIR; SWAP; PAIR; DUG 3; DUP 4; GET 9; DUP 5; CAR; GET 5; DUP 3; DUP 7; GET 5; CAR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; DIG 4; SWAP; UPDATE 9; DUG 3; DUP 4; CAR; CAR; GET 3; DUP 5; CAR; GET 5; DUP 6; CAR; CAR; GET 3; DUP 5; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; DIG 4; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; DIG 4; PAIR; SWAP; CDR; LEVEL; DIG 5; DROP; DIG 5; DROP; DIG 5; DROP; RENAME; PAIR; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 4 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } } } { PUSH int -1; FAILWITH }; DUP; CAR; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; EMPTY_SET nat; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 5 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 12; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 12; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP; DUP 3; CAR; GET 3; GET 4; COMPARE; GE; IF {} { PUSH string "CT_INSUFFICIENT_CASH"; FAILWITH }; DUP 2; GET 9; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_REDUCE_AMOUNT"; FAILWITH }; DUP; DUP 3; GET 9; SUB; ISNAT; RENAME; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; DIG 2; SWAP; UPDATE 9; SWAP; NIL operation; DUP 3; CAR; GET 7; CONTRACT %transfer (pair (address %from) (pair (address %to) (nat %value))); IF_NONE { PUSH int 17; FAILWITH } {}; PUSH mutez 0; DIG 3; DUP 5; CAR; CAR; CAR; GET 4; SELF_ADDRESS; RENAME; PAIR 3; TRANSFER_TOKENS; CONS; PAIR }; Elt 6 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } }; DUP; CAR; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 7 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 13; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 13; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; GET 7; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INVALID_CASH_SENDER"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; NIL operation; PAIR }; Elt 8 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } }; DUP 2; CAR; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; DIG 5; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; NIL operation; PAIR }; Elt 9 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT {} { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } }; SELF_ADDRESS; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 9; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 9; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; DIG 5; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 10 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } {} } { PUSH int -1; FAILWITH } } }; DUP 2; CAR; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; DIG 5; SOME; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 11 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } }; SELF_ADDRESS; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 10; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 10; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; CAR; CAR; CAR; LEVEL; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTEREST_OLD"; FAILWITH }; DUP 2; GET 5; GET 3; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_RESERVE_FACTOR"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; CDR; DIG 4; PAIR; PAIR; SWAP; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 12 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } }; DUP 2; CAR; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }}) + -> (Pair (Pair (Pair (Pair (Pair 0 (Pair {} "KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2")) (Pair 1000000000000000000 (Pair 800000000000 0))) (Pair (Pair {} (Pair "KT1DiWBT6RBC97iWrvLHRzKL7AWQKorBiuRG" 0)) (Pair 1000000000000000000 (Pair "KT1PWx2mnDueood7fEmfbBDKx1D9BAnnXitn" 500000000000000000)))) (Pair (Pair (Pair 1000000000000000000 (Pair "KT1Vzf3fXVBry4TDxWAfYzsn6ZPyMroMKUdW" {})) (Pair {Elt "" 0x74657a6f732d73746f726167653a64617461; Elt "data" 0x7b226e616d65223a202254657a46696e20496e7465726573742d42656172696e6720747a425443222c20226465736372697074696f6e223a2022496e7465726573742d62656172696e6720746f6b656e20666f7220747a42544320287772617070656420426974636f696e206f6e2054657a6f732920737570706c69656420746f207468652054657a46696e206c656e64696e672070726f746f636f6c2e222c202276657273696f6e223a2022332e30222c2022617574686f7273223a205b2254657a6f732046696e616e63652050726f746f636f6c225d2c2022686f6d6570616765223a202268747470733a2f2f74657a6f732e66696e616e6365222c2022696e7465726661636573223a205b22545a49502d303037222c2022545a49502d303136225d7d} (Pair None 100000000000000))) (Pair (Pair 50000000000000000 (Pair 1000000000000000000 0)) (Pair (Pair {Elt 0 (Pair 0 {Elt "decimals" 0x38; Elt "name" 0x54657a46696e20496e7465726573742d42656172696e6720747a425443; Elt "symbol" 0xea9cb0747a425443})} 0) (Pair 0 0))))) {Elt 0 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; DUP; GET 3; GET 5; IF_NONE { PUSH string "CT_NOT_SET_PENDING_ADMIN"; FAILWITH } {}; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_PENDING_ADMIN"; FAILWITH }; DUP; GET 3; GET 5; IF_NONE { PUSH int 822; FAILWITH } {}; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 1 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; NIL operation; DUP 3; GET 3; CAR; GET 3; CONTRACT %getBorrowRate (pair (pair (nat %borrows) (nat %cash)) (pair (contract %cb nat) (nat %reserves))); IF_NONE { PUSH int 754; FAILWITH } {}; PUSH mutez 0; DUP 5; GET 9; DIG 4; PAIR; DUP 5; CAR; GET 3; GET 4; DUP 6; GET 7; CDR; PAIR; PAIR; TRANSFER_TOKENS; CONS; PAIR }; Elt 2 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; SENDER; COMPARE; NEQ; IF {} { PUSH string "CT_INTERNAL_CALL"; FAILWITH }; DUP 2; GET 3; CAR; GET 4; SENDER; MEM; IF {} { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; PUSH (option (pair (map address nat) nat)) (Some (Pair {} 0)); SENDER; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR; SWAP }; DUP 2; CAR; GET 3; CAR; SENDER; MEM; IF {} { SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; PUSH (option (pair nat nat)) (Some (Pair 0 0)); SENDER; UPDATE; PAIR; PAIR; SWAP; PAIR; PAIR; SWAP }; DUP 2; GET 3; CAR; GET 4; SENDER; GET; IF_NONE { PUSH int 460; FAILWITH } {}; CAR; DUP 2; CAR; MEM; IF { PUSH bool True } { PUSH nat 1000; DUP 3; GET 3; CAR; GET 4; SENDER; GET; IF_NONE { PUSH int 461; FAILWITH } {}; CAR; SIZE; COMPARE; LT }; IF {} { PUSH (pair string unit) (Pair "FA1.2_MaxApprovalsReached" Unit); FAILWITH }; PUSH nat 0; DUP 3; GET 3; CAR; GET 4; SENDER; GET; IF_NONE { PUSH int 463; FAILWITH } {}; CAR; DUP 3; CAR; GET; IF_NONE { PUSH nat 0 } {}; COMPARE; EQ; IF { PUSH bool True } { PUSH nat 0; DUP 2; CDR; COMPARE; EQ }; IF {} { DUP 2; GET 3; CAR; GET 4; SENDER; GET; IF_NONE { PUSH int 463; FAILWITH } {}; CAR; DUP 2; CAR; GET; IF_NONE { PUSH nat 0 } {}; PUSH string "UnsafeAllowanceChange"; PAIR; FAILWITH }; PUSH nat 0; DUP 2; CDR; COMPARE; EQ; IF { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; SENDER; DUP; DUG 2; GET; IF_NONE { PUSH int 468; FAILWITH } {}; DUP; CAR; NONE nat; DIG 10; CAR; UPDATE; UPDATE 1; SOME; SWAP; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR } { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; SENDER; DUP; DUG 2; GET; IF_NONE { PUSH int 470; FAILWITH } {}; DUP; CAR; DUP 10; CDR; SOME; DIG 10; CAR; UPDATE; UPDATE 1; SOME; SWAP; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR }; NIL operation; PAIR }; Elt 3 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH }; DUP 2; GET 3; CAR; GET 3; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_SENDER_NOT_IRM"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 8; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 8; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; CAR; GET 5; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_BORROW_RATE"; FAILWITH }; DUP 2; CAR; CAR; CAR; CAR; LEVEL; SUB; ISNAT; IF_NONE { PUSH int 769; FAILWITH } {}; DUP 2; MUL; DUP 3; CAR; GET 5; DUP 4; GET 7; CDR; DUP 3; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; DUP 4; GET 7; CDR; DUP 2; ADD; DIG 4; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; CAR; DIG 5; SWAP; PAIR; PAIR; SWAP; PAIR; SWAP; PAIR; SWAP; PAIR; DUG 3; DUP 4; GET 9; DUP 5; CAR; GET 5; DUP 3; DUP 7; GET 5; CAR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; DIG 4; SWAP; UPDATE 9; DUG 3; DUP 4; CAR; CAR; GET 3; DUP 5; CAR; GET 5; DUP 6; CAR; CAR; GET 3; DUP 5; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; DIG 4; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; DIG 4; PAIR; SWAP; CDR; LEVEL; DIG 5; DROP; DIG 5; DROP; DIG 5; DROP; PAIR; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 4 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } } } { PUSH int -1; FAILWITH }; DUP; CAR; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; EMPTY_SET nat; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 5 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 12; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 12; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP; DUP 3; CAR; GET 3; GET 4; COMPARE; GE; IF {} { PUSH string "CT_INSUFFICIENT_CASH"; FAILWITH }; DUP 2; GET 9; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_REDUCE_AMOUNT"; FAILWITH }; DUP; DUP 3; GET 9; SUB; ISNAT; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; DIG 2; SWAP; UPDATE 9; SWAP; NIL operation; DUP 3; CAR; GET 7; CONTRACT %transfer (pair (address %from) (pair (address %to) (nat %value))); IF_NONE { PUSH int 17; FAILWITH } {}; PUSH mutez 0; DIG 3; DUP 5; CAR; CAR; CAR; GET 4; SELF_ADDRESS; PAIR 3; TRANSFER_TOKENS; CONS; PAIR }; Elt 6 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } }; DUP; CAR; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 7 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 13; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 13; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; GET 7; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INVALID_CASH_SENDER"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; NIL operation; PAIR }; Elt 8 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } }; DUP 2; CAR; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; DIG 5; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; NIL operation; PAIR }; Elt 9 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT {} { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } }; SELF_ADDRESS; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 9; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 9; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; DIG 5; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 10 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } {} } { PUSH int -1; FAILWITH } } }; DUP 2; CAR; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; DIG 5; SOME; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 11 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } }; SELF_ADDRESS; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 10; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 10; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; CAR; CAR; CAR; LEVEL; COMPARE; EQ; IF {} { PUSH string "CT_INTEREST_OLD"; FAILWITH }; DUP 2; GET 5; GET 3; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_RESERVE_FACTOR"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; CDR; DIG 4; PAIR; PAIR; SWAP; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 12 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } }; DUP 2; CAR; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }}) => ./compiled_contracts/CtzBTC/step_000_cont_0_storage.tz 1 - => ./compiled_contracts/CtzBTC/step_000_cont_0_storage.json 1286 + => ./compiled_contracts/CtzBTC/step_000_cont_0_storage.json 1370 => ./compiled_contracts/CtzBTC/step_000_cont_0_sizes.csv 2 => ./compiled_contracts/CtzBTC/step_000_cont_0_storage.py 1 => ./compiled_contracts/CtzBTC/step_000_cont_0_types.py 7 - => ./compiled_contracts/CtzBTC/step_000_cont_0_contract.tz 4852 - => ./compiled_contracts/CtzBTC/step_000_cont_0_contract.json 5727 - => ./compiled_contracts/CtzBTC/step_000_cont_0_contract.py 747 + => ./compiled_contracts/CtzBTC/step_000_cont_0_contract.tz 5084 + => ./compiled_contracts/CtzBTC/step_000_cont_0_contract.json 5692 + => ./compiled_contracts/CtzBTC/step_000_cont_0_contract.py 757 diff --git a/compiled_contracts/CtzBTC/step_000_cont_0_contract.json b/compiled_contracts/CtzBTC/step_000_cont_0_contract.json index a6de46a4..864115bf 100644 --- a/compiled_contracts/CtzBTC/step_000_cont_0_contract.json +++ b/compiled_contracts/CtzBTC/step_000_cont_0_contract.json @@ -488,8 +488,16 @@ { "prim": "or", "args": [ - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ], "annots": [ "%borrowBalanceStored" ] }, - { "prim": "pair", "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ], "annots": [ "%exchangeRateStored" ] } + { + "prim": "pair", + "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ], + "annots": [ "%borrowBalanceStored" ] + }, + { + "prim": "pair", + "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ], + "annots": [ "%exchangeRateStored" ] + } ] } ] @@ -543,8 +551,16 @@ { "prim": "or", "args": [ - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ], "annots": [ "%getBalanceOfUnderlying" ] }, - { "prim": "pair", "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ], "annots": [ "%getCash" ] } + { + "prim": "pair", + "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ], + "annots": [ "%getBalanceOfUnderlying" ] + }, + { + "prim": "pair", + "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ], + "annots": [ "%getCash" ] + } ] }, { @@ -851,9 +867,7 @@ { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "33" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "SELF", "annots": [ "%setCash" ] }, - { "prim": "RENAME" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" } @@ -867,7 +881,6 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "NEQ" }, { @@ -896,7 +909,6 @@ { "prim": "DROP" }, { "prim": "DIG", "args": [ { "int": "6" } ] }, { "prim": "DROP" }, - { "prim": "RENAME" }, { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "PAIR" }, @@ -926,7 +938,6 @@ { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "CONTRACT", "args": [ { "prim": "contract", "args": [ { "prim": "nat" } ] } ], @@ -934,11 +945,10 @@ }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "735" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "745" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "SELF", "annots": [ "%doAccrueInterest" ] }, - { "prim": "RENAME" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" } ] @@ -955,9 +965,7 @@ "args": [ [ { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "NEQ" }, { @@ -996,17 +1004,13 @@ { "prim": "SWAP" }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "SELF", "annots": [ "%accrueInterest" ] }, - { "prim": "RENAME" }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "UNIT" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, { "prim": "SELF", "annots": [ "%addReservesInternal" ] }, - { "prim": "RENAME" }, { "prim": "AMOUNT" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DIG", "args": [ { "int": "4" } ] }, { "prim": "PAIR" }, { "prim": "TRANSFER_TOKENS" }, @@ -1014,9 +1018,7 @@ ], [ { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -1059,7 +1061,6 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -1088,7 +1089,6 @@ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "CDR" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, @@ -1115,9 +1115,7 @@ "args": [ [ { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "NEQ" }, { @@ -1129,13 +1127,11 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -1159,7 +1155,6 @@ ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "UPDATE" }, { "prim": "SWAP" }, { "prim": "PAIR" }, @@ -1170,8 +1165,7 @@ { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -1179,13 +1173,11 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -1201,7 +1193,6 @@ ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "PAIR" }, @@ -1209,8 +1200,7 @@ { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, @@ -1235,9 +1225,7 @@ { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, @@ -1258,7 +1246,6 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -1285,9 +1272,7 @@ { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, @@ -1297,7 +1282,6 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" }, { "prim": "IF", @@ -1308,9 +1292,8 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "638" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, @@ -1335,7 +1318,7 @@ { "prim": "IF_NONE", "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "641" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], @@ -1354,7 +1337,6 @@ { "prim": "UNPAIR" }, { "prim": "DUP" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, @@ -1383,7 +1365,6 @@ { "prim": "UNPAIR" }, { "prim": "DUP" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, @@ -1444,7 +1425,7 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "638" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -1470,7 +1451,7 @@ { "prim": "IF_NONE", "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "641" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], @@ -1481,6 +1462,13 @@ [] ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, @@ -1532,7 +1520,6 @@ { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -1542,10 +1529,9 @@ { "prim": "ADD" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "681" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, @@ -1559,6 +1545,13 @@ [] ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, @@ -1613,7 +1606,6 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -1627,7 +1619,7 @@ { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "573" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "579" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" }, { "prim": "UPDATE", "args": [ { "int": "3" } ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, @@ -1651,7 +1643,7 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "638" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -1677,7 +1669,7 @@ { "prim": "IF_NONE", "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "641" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], @@ -1738,7 +1730,6 @@ { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -1748,10 +1739,9 @@ { "prim": "ADD" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "681" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, @@ -1806,7 +1796,7 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "549" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "555" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, @@ -1828,7 +1818,7 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "550" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "556" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -1837,7 +1827,7 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "550" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "556" } ] }, { "prim": "FAILWITH" } ], [] ] } ], [] @@ -1878,7 +1868,7 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "489" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "495" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" } ], @@ -1950,7 +1940,6 @@ { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -1960,10 +1949,9 @@ { "prim": "ADD" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "681" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, @@ -1979,23 +1967,29 @@ }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "521" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "527" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "MUL" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "61" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] }, + { "prim": "PAIR" }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, @@ -2007,8 +2001,14 @@ [ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "PAIR" }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, @@ -2066,18 +2066,16 @@ ], "annots": [ "%liquidateBorrowAllowed" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "357" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "360" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "PAIR" }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "PAIR" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "CAR" }, { "prim": "PAIR" }, @@ -2085,7 +2083,6 @@ { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "COMPARE" }, @@ -2120,7 +2117,6 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -2148,7 +2144,7 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "638" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -2174,7 +2170,7 @@ { "prim": "IF_NONE", "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "641" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], @@ -2185,8 +2181,25 @@ [] ] }, - { "prim": "SWAP" }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "COMPARE" }, + { "prim": "LE" }, + { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "7" } ] }, + { "prim": "CDR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "COMPARE" }, + { "prim": "LE" }, + { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "7" } ] }, { @@ -2205,46 +2218,29 @@ { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "17" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "5" } ] }, - { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "COMPARE" }, - { "prim": "LE" }, - { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, - { "prim": "SWAP" }, - { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "DUG", "args": [ { "int": "3" } ] }, + { "prim": "DIG", "args": [ { "int": "5" } ] }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "DUP", "args": [ { "int": "11" } ] }, { "prim": "CAR" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "263" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP", "args": [ { "int": "10" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "9" } ] }, - { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "COMPARE" }, - { "prim": "LE" }, - { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, - { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "266" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DIG", "args": [ { "int": "8" } ] }, + { "prim": "DIG", "args": [ { "int": "9" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -2276,7 +2272,7 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "265" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "268" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DIG", "args": [ { "int": "7" } ] }, { "prim": "UPDATE", "args": [ { "int": "1" } ] }, { "prim": "SOME" }, @@ -2288,20 +2284,11 @@ { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "DUG", "args": [ { "int": "3" } ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "COMPARE" }, - { "prim": "LE" }, - { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "7" } ] }, { "prim": "CDR" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -2336,7 +2323,7 @@ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "268" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "271" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" }, { "prim": "COMPARE" }, { "prim": "EQ" }, @@ -2351,7 +2338,7 @@ { "prim": "CONTRACT", "args": [ { "prim": "address" } ], "annots": [ "%removeFromLoans" ] }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "270" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "273" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, @@ -2369,11 +2356,13 @@ { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, - { "prim": "VIEW", "args": [ { "string": "liquidateCalculateSeizeTokens" }, { "prim": "nat" } ] }, + { + "prim": "VIEW", + "args": [ { "string": "liquidateCalculateSeizeTokens" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] + }, { "prim": "IF_NONE", "args": [ @@ -2384,6 +2373,7 @@ [] ] }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, @@ -2421,7 +2411,7 @@ ], "annots": [ "%seize" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "382" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "385" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, @@ -2430,11 +2420,13 @@ { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, - { "prim": "VIEW", "args": [ { "string": "liquidateCalculateSeizeTokens" }, { "prim": "nat" } ] }, + { + "prim": "VIEW", + "args": [ { "string": "liquidateCalculateSeizeTokens" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] + }, { "prim": "IF_NONE", "args": [ @@ -2445,8 +2437,8 @@ [] ] }, + { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DIG", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, @@ -2479,9 +2471,7 @@ "args": [ [ { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "NEQ" }, { @@ -2493,13 +2483,11 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -2523,7 +2511,6 @@ ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "UPDATE" }, { "prim": "SWAP" }, { "prim": "PAIR" }, @@ -2534,8 +2521,7 @@ { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -2543,13 +2529,11 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -2565,7 +2549,6 @@ ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "PAIR" }, @@ -2573,8 +2556,7 @@ { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, @@ -2599,9 +2581,7 @@ { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, @@ -2611,7 +2591,6 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -2638,9 +2617,7 @@ { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, @@ -2684,7 +2661,6 @@ { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -2694,8 +2670,7 @@ { "prim": "ADD" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "681" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, { @@ -2748,7 +2723,6 @@ { "prim": "SWAP" }, { "prim": "DUP" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, @@ -2777,9 +2751,7 @@ "args": [ [ { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "NEQ" }, { @@ -2811,9 +2783,7 @@ { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, @@ -2860,7 +2830,6 @@ { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -2870,10 +2839,9 @@ { "prim": "ADD" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "681" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, @@ -2940,7 +2908,6 @@ { "prim": "LEVEL" }, { "prim": "DIG", "args": [ { "int": "5" } ] }, { "prim": "DROP" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -2954,7 +2921,6 @@ { "prim": "GET", "args": [ { "int": "10" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -2970,7 +2936,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "GET" }, { "prim": "IF_NONE", @@ -2979,7 +2944,6 @@ { "prim": "CDR" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -2997,7 +2961,6 @@ { "prim": "SWAP" }, { "prim": "DUP" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, @@ -3043,9 +3006,7 @@ { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" } @@ -3056,9 +3017,7 @@ ], [ { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "NEQ" }, { @@ -3090,9 +3049,7 @@ { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, @@ -3140,7 +3097,6 @@ { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -3150,10 +3106,9 @@ { "prim": "ADD" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "681" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, @@ -3168,7 +3123,7 @@ ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "DUP" }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "COMPARE" }, { "prim": "GT" }, @@ -3252,7 +3207,6 @@ { "prim": "LEVEL" }, { "prim": "DIG", "args": [ { "int": "5" } ] }, { "prim": "DROP" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -3266,7 +3220,6 @@ { "prim": "GET", "args": [ { "int": "10" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -3282,7 +3235,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "GET" }, { "prim": "IF_NONE", @@ -3291,7 +3243,6 @@ { "prim": "CDR" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -3309,7 +3260,6 @@ { "prim": "SWAP" }, { "prim": "DUP" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, @@ -3355,9 +3305,7 @@ { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" } @@ -3387,7 +3335,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -3426,24 +3373,19 @@ { "prim": "SWAP" }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "SELF", "annots": [ "%accrueInterest" ] }, - { "prim": "RENAME" }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "UNIT" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, { "prim": "SELF", "annots": [ "%reduceReservesInternal" ] }, - { "prim": "RENAME" }, { "prim": "AMOUNT" }, - { "prim": "RENAME" }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" } ], [ { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "NEQ" }, { @@ -3455,13 +3397,11 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -3488,7 +3428,6 @@ ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "UPDATE" }, { "prim": "SWAP" }, { "prim": "PAIR" }, @@ -3499,8 +3438,7 @@ { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -3508,13 +3446,11 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -3530,7 +3466,6 @@ ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "PAIR" }, @@ -3538,8 +3473,7 @@ { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, @@ -3570,15 +3504,12 @@ ], "annots": [ "%repayBorrowAllowed" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "276" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "279" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "4" } ] }, { "prim": "DIG", "args": [ { "int": "4" } ] }, { "prim": "DROP" }, @@ -3590,7 +3521,6 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -3603,7 +3533,6 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" }, { "prim": "IF", @@ -3614,11 +3543,10 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "638" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -3644,7 +3572,7 @@ { "prim": "IF_NONE", "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "641" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], @@ -3655,8 +3583,24 @@ [] ] }, - { "prim": "SWAP" }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "COMPARE" }, + { "prim": "LE" }, + { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "7" } ] }, + { "prim": "CDR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "COMPARE" }, + { "prim": "LE" }, + { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "7" } ] }, { @@ -3675,21 +3619,13 @@ { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "17" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, - { "prim": "DUP", "args": [ { "int": "5" } ] }, - { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "COMPARE" }, - { "prim": "LE" }, - { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, - { "prim": "SWAP" }, - { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "DUG", "args": [ { "int": "3" } ] }, + { "prim": "DIG", "args": [ { "int": "4" } ] }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, @@ -3697,22 +3633,14 @@ { "prim": "UNPAIR" }, { "prim": "DUP" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "263" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP", "args": [ { "int": "10" } ] }, - { "prim": "DUP", "args": [ { "int": "9" } ] }, - { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "COMPARE" }, - { "prim": "LE" }, - { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, - { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "266" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DIG", "args": [ { "int": "8" } ] }, + { "prim": "DIG", "args": [ { "int": "9" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -3740,11 +3668,10 @@ { "prim": "UNPAIR" }, { "prim": "DUP" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "265" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "268" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DIG", "args": [ { "int": "7" } ] }, { "prim": "UPDATE", "args": [ { "int": "1" } ] }, { "prim": "SOME" }, @@ -3755,20 +3682,12 @@ { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, - { "prim": "DUG", "args": [ { "int": "3" } ] }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "COMPARE" }, - { "prim": "LE" }, - { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "7" } ] }, { "prim": "CDR" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -3801,9 +3720,8 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "268" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "271" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" }, { "prim": "COMPARE" }, { "prim": "EQ" }, @@ -3818,11 +3736,10 @@ { "prim": "CONTRACT", "args": [ { "prim": "address" } ], "annots": [ "%removeFromLoans" ] }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "270" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "273" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" } ], @@ -3839,9 +3756,7 @@ "args": [ [ { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "NEQ" }, { @@ -3853,13 +3768,11 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -3886,7 +3799,6 @@ ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "UPDATE" }, { "prim": "SWAP" }, { "prim": "PAIR" }, @@ -3897,8 +3809,7 @@ { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -3906,13 +3817,11 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -3928,7 +3837,6 @@ ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "PAIR" }, @@ -3936,8 +3844,7 @@ { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, @@ -3968,16 +3875,14 @@ ], "annots": [ "%repayBorrowAllowed" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "276" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "279" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "4" } ] }, { "prim": "DIG", "args": [ { "int": "4" } ] }, { "prim": "DROP" }, @@ -3989,7 +3894,6 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -4017,7 +3921,7 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "638" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -4043,7 +3947,7 @@ { "prim": "IF_NONE", "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "641" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], @@ -4054,8 +3958,25 @@ [] ] }, - { "prim": "SWAP" }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CDR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "COMPARE" }, + { "prim": "LE" }, + { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "7" } ] }, + { "prim": "CDR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "COMPARE" }, + { "prim": "LE" }, + { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "7" } ] }, { @@ -4074,46 +3995,29 @@ { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "17" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, - { "prim": "CDR" }, - { "prim": "DUP", "args": [ { "int": "5" } ] }, - { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "COMPARE" }, - { "prim": "LE" }, - { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, - { "prim": "SWAP" }, - { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "DUG", "args": [ { "int": "3" } ] }, + { "prim": "DIG", "args": [ { "int": "5" } ] }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "DUP", "args": [ { "int": "11" } ] }, { "prim": "CAR" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "263" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "DUP", "args": [ { "int": "10" } ] }, - { "prim": "CDR" }, - { "prim": "DUP", "args": [ { "int": "9" } ] }, - { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "COMPARE" }, - { "prim": "LE" }, - { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, - { "prim": "DUP", "args": [ { "int": "9" } ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "266" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DIG", "args": [ { "int": "8" } ] }, + { "prim": "DIG", "args": [ { "int": "9" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -4145,7 +4049,7 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "265" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "268" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DIG", "args": [ { "int": "7" } ] }, { "prim": "UPDATE", "args": [ { "int": "1" } ] }, { "prim": "SOME" }, @@ -4157,20 +4061,11 @@ { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "DUG", "args": [ { "int": "3" } ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "CDR" }, - { "prim": "SWAP" }, - { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "COMPARE" }, - { "prim": "LE" }, - { "prim": "IF", "args": [ [ { "prim": "DROP" } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "7" } ] }, { "prim": "CDR" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -4205,7 +4100,7 @@ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "268" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "271" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" }, { "prim": "COMPARE" }, { "prim": "EQ" }, @@ -4220,7 +4115,7 @@ { "prim": "CONTRACT", "args": [ { "prim": "address" } ], "annots": [ "%removeFromLoans" ] }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "270" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "273" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, @@ -4240,11 +4135,10 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -4282,8 +4176,7 @@ { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -4293,11 +4186,10 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -4321,8 +4213,7 @@ { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -4330,9 +4221,7 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "PAIR" }, { "prim": "VIEW", "args": [ { "string": "seizeAllowed" }, { "prim": "bool" } ] }, { @@ -4373,7 +4262,6 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -4436,7 +4324,6 @@ { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -4446,10 +4333,9 @@ { "prim": "ADD" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "681" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, @@ -4485,7 +4371,6 @@ { "prim": "GET", "args": [ { "int": "10" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -4505,11 +4390,10 @@ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "307" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "310" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -4531,7 +4415,7 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "334" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "337" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DIG", "args": [ { "int": "8" } ] }, { "prim": "UPDATE", "args": [ { "int": "2" } ] }, { "prim": "SOME" }, @@ -4543,7 +4427,7 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "335" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "338" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP" }, { "prim": "CDR" }, { "prim": "DIG", "args": [ { "int": "9" } ] }, @@ -4551,7 +4435,6 @@ { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ @@ -4597,7 +4480,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -4636,13 +4518,11 @@ { "prim": "SWAP" }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "SELF", "annots": [ "%accrueInterest" ] }, - { "prim": "RENAME" }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "UNIT" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, { "prim": "SELF", "annots": [ "%setInterestRateModelInternal" ] }, - { "prim": "RENAME" }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, @@ -4659,7 +4539,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -4698,13 +4577,11 @@ { "prim": "SWAP" }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "SELF", "annots": [ "%accrueInterest" ] }, - { "prim": "RENAME" }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "UNIT" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, { "prim": "SELF", "annots": [ "%setReserveFactorInternal" ] }, - { "prim": "RENAME" }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, @@ -4748,7 +4625,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" } @@ -4842,7 +4718,6 @@ { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "CONS" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR" }, { "prim": "CONS" }, { "prim": "TRANSFER_TOKENS" }, @@ -4865,7 +4740,6 @@ "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "21" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "BALANCE" }, - { "prim": "RENAME" }, { "prim": "UNIT" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" } @@ -4883,7 +4757,6 @@ "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "24" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "BALANCE" }, - { "prim": "RENAME" }, { "prim": "UNIT" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" } @@ -4900,7 +4773,6 @@ "args": [ [ { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "COMPARE" }, @@ -4921,15 +4793,14 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "404" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "407" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "404" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "407" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "COMPARE" }, { "prim": "GE" } @@ -4938,12 +4809,38 @@ }, { "prim": "IF", - "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA1.2_NotAllowed" } ] }, { "prim": "FAILWITH" } ] ] + "args": [ + [], + [ + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "408" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "CAR" }, + { "prim": "SENDER" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "408" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "PAIR" }, + { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "NotEnoughAllowance" } ] }, + { "prim": "PAIR" }, + { "prim": "FAILWITH" } + ] + ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "NEQ" }, { @@ -4957,11 +4854,10 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -4999,8 +4895,7 @@ { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -5010,11 +4905,10 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, - { "prim": "NOT" }, - { "prim": "RENAME" }, { "prim": "IF", "args": [ + [], [ { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -5038,8 +4932,7 @@ { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "SWAP" } - ], - [] + ] ] }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, @@ -5060,7 +4953,7 @@ ], "annots": [ "%transferAllowed" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "427" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "431" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, @@ -5070,7 +4963,6 @@ { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "TRANSFER_TOKENS" }, @@ -5084,14 +4976,34 @@ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "413" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "417" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" }, { "prim": "COMPARE" }, { "prim": "GE" }, { "prim": "IF", "args": [ - [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA1.2_InsufficientBalance" } ] }, { "prim": "FAILWITH" } ] + [], + [ + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "418" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "CDR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "PAIR" }, + { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "NotEnoughBalance" } ] }, + { "prim": "PAIR" }, + { "prim": "FAILWITH" } + ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -5103,12 +5015,11 @@ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "416" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "420" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "415" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "419" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, @@ -5124,7 +5035,7 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "415" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "419" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DIG", "args": [ { "int": "8" } ] }, { "prim": "UPDATE", "args": [ { "int": "2" } ] }, { "prim": "SOME" }, @@ -5136,7 +5047,7 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "417" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "421" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP" }, { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "11" } ] }, @@ -5156,7 +5067,6 @@ { "prim": "PAIR" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "COMPARE" }, @@ -5182,7 +5092,7 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "419" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "423" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP" }, { "prim": "CAR" }, @@ -5197,26 +5107,23 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "420" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "424" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "420" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "424" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "419" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "423" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "SOME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "UPDATE" }, { "prim": "UPDATE", "args": [ { "int": "1" } ] }, { "prim": "SOME" }, @@ -5241,15 +5148,14 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "421" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "425" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "421" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "425" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "COMPARE" }, { "prim": "EQ" }, @@ -5274,13 +5180,12 @@ { "prim": "GET" }, { "prim": "IF_NONE", - "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "422" } ] }, { "prim": "FAILWITH" } ], [] ] + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "426" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP" }, { "prim": "CAR" }, { "prim": "NONE", "args": [ { "prim": "nat" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "UPDATE" }, { "prim": "UPDATE", "args": [ { "int": "1" } ] }, { "prim": "SOME" }, @@ -5311,7 +5216,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -5403,7 +5307,7 @@ { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SWAP" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "503" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "509" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" } ], [ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ] @@ -5417,7 +5321,7 @@ "args": [ { "string": "borrowBalanceStoredView" }, { "prim": "address" }, - { "prim": "nat" }, + { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, [ { "prim": "UNPAIR", "args": [ { "int": "3" } ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, @@ -5437,7 +5341,7 @@ { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "638" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, @@ -5455,7 +5359,7 @@ { "prim": "DROP" }, { "prim": "DUP" }, { "prim": "CAR" }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, @@ -5463,15 +5367,22 @@ { "prim": "CDR" }, { "prim": "MUL" }, { "prim": "EDIV" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "641" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], - [ { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ] + [ { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "DROP" } ] ] } ], - [ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ] + [ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "DROP" } ] ] - } + }, + { "prim": "SWAP" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" } ] ] }, @@ -5489,7 +5400,7 @@ "args": [ { "string": "exchangeRateStoredView" }, { "prim": "unit" }, - { "prim": "nat" }, + { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, [ { "prim": "UNPAIR", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -5525,26 +5436,31 @@ { "prim": "GET", "args": [ { "int": "7" } ] }, { "prim": "CDR" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "DIG", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "ADD" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "681" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "257" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], - [ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ] + [ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "DROP" } ] ] - } + }, + { "prim": "SWAP" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" } ] ] }, @@ -5554,171 +5470,220 @@ { "string": "getAccountSnapshotView" }, { "prim": "address" }, { - "prim": "pair", + "prim": "option", "args": [ - { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, - { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] } + { + "prim": "pair", + "args": [ + { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] }, + { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ] } + ] + } ] }, [ { "prim": "UNPAIR", "args": [ { "int": "3" } ] }, - { "prim": "PUSH", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } ] }, - { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "LEVEL" }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "DROP" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "PAIR" }, - { "prim": "PAIR" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "MEM" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, { "prim": "IF", "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] } ], [ - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "LEVEL" }, - { "prim": "RENAME" }, - { "prim": "COMPARE" }, - { "prim": "EQ" }, - { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "573" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "CDR" }, - { "prim": "UPDATE", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "MEM" }, + { "prim": "NOT" } + ] + ] + }, + { + "prim": "IF", + "args": [ + [ + { "prim": "PUSH", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, - { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, { "prim": "IF", "args": [ [ + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "LEVEL" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "579" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CDR" }, + { "prim": "UPDATE", "args": [ { "int": "3" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, - { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "628" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "638" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, + { "prim": "COMPARE" }, + { "prim": "GT" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "SWAP" }, + { "prim": "DROP" }, + { "prim": "DUP" }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, + { "prim": "MUL" }, + { "prim": "EDIV" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "641" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] + } + ], + [ { "prim": "DROP" } ] + ] + } + ], + [] + ] + }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "DUP", "args": [ { "int": "2" } ] }, - { "prim": "CDR" }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "GET", "args": [ { "int": "10" } ] }, { "prim": "COMPARE" }, { "prim": "GT" }, { "prim": "IF", "args": [ [ + { "prim": "DROP", "args": [ { "int": "2" } ] }, { "prim": "SWAP" }, { "prim": "DROP" }, - { "prim": "DUP" }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "10" } ] }, + { "prim": "COMPARE" }, + { "prim": "GT" }, + { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "10" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "9" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, - { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "7" } ] }, + { "prim": "CDR" }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "DIG", "args": [ { "int": "6" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, - { "prim": "CDR" }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { + "prim": "IF_NONE", + "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] + }, + { "prim": "ADD" }, + { "prim": "SUB" }, + { "prim": "ISNAT" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "681" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "MUL" }, { "prim": "EDIV" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "257" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } ], - [ { "prim": "DROP" } ] + [ + { "prim": "SWAP" }, + { "prim": "DROP" }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "DROP" }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "DROP" } + ] ] - } + }, + { "prim": "UPDATE", "args": [ { "int": "4" } ] } ], - [] + [ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ] ] }, - { "prim": "SWAP" }, - { "prim": "UNPAIR" }, - { "prim": "CAR" }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "SWAP" }, - { "prim": "PAIR" }, - { "prim": "PAIR" }, - { "prim": "SWAP" }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, - { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "DUP", "args": [ { "int": "6" } ] }, - { "prim": "GET", "args": [ { "int": "10" } ] }, - { "prim": "COMPARE" }, - { "prim": "GT" }, + { "prim": "SOME" } + ], + [ + { "prim": "DROP", "args": [ { "int": "2" } ] }, { - "prim": "IF", + "prim": "NONE", "args": [ - [ - { "prim": "DROP", "args": [ { "int": "2" } ] }, - { "prim": "SWAP" }, - { "prim": "DROP" }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, - { "prim": "DROP" }, - { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "10" } ] }, - { "prim": "COMPARE" }, - { "prim": "GT" }, - { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP", "args": [ { "int": "2" } ] }, - { "prim": "GET", "args": [ { "int": "10" } ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "DUP", "args": [ { "int": "4" } ] }, - { "prim": "GET", "args": [ { "int": "9" } ] }, - { "prim": "DUP", "args": [ { "int": "5" } ] }, - { "prim": "GET", "args": [ { "int": "7" } ] }, - { "prim": "CDR" }, - { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, - { "prim": "DIG", "args": [ { "int": "6" } ] }, - { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "SUB" }, - { "prim": "ISNAT" }, - { "prim": "RENAME" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "ADD" }, - { "prim": "SUB" }, - { "prim": "ISNAT" }, - { "prim": "RENAME" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "671" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "MUL" }, - { "prim": "EDIV" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "257" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] } - ], - [ - { "prim": "SWAP" }, - { "prim": "DROP" }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, - { "prim": "DROP" }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, - { "prim": "DROP" }, - { "prim": "DIG", "args": [ { "int": "2" } ] }, - { "prim": "DROP" } - ] + { + "prim": "pair", + "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] + } ] - }, - { "prim": "UPDATE", "args": [ { "int": "4" } ] } - ], - [ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ] + } + ] ] } ] diff --git a/compiled_contracts/CtzBTC/step_000_cont_0_contract.py b/compiled_contracts/CtzBTC/step_000_cont_0_contract.py index 71954d96..6863f754 100644 --- a/compiled_contracts/CtzBTC/step_000_cont_0_contract.py +++ b/compiled_contracts/CtzBTC/step_000_cont_0_contract.py @@ -78,8 +78,12 @@ def addReservesInternal(self, params): def approve(self, params): sp.set_type(params, sp.TRecord(spender = sp.TAddress, value = sp.TNat).layout(("spender", "value"))) sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') - sp.verify((self.data.ledger[sp.sender].approvals.contains(params.spender)) | (sp.len(self.data.ledger[sp.sender].approvals) < 1000), 'FA1.2_MaxApprovalsReached') - sp.verify((self.data.ledger[sp.sender].approvals.get(params.spender, default_value = 0) == 0) | (params.value == 0), 'FA1.2_UnsafeAllowanceChange') + sp.if ~ (self.data.ledger.contains(sp.sender)): + self.data.ledger[sp.sender] = sp.record(approvals = {}, balance = 0) + sp.if ~ (self.data.borrows.contains(sp.sender)): + self.data.borrows[sp.sender] = sp.record(interestIndex = 0, principal = 0) + sp.verify((self.data.ledger[sp.sender].approvals.contains(params.spender)) | (sp.len(self.data.ledger[sp.sender].approvals) < 1000), ('FA1.2_MaxApprovalsReached', sp.unit)) + sp.verify((self.data.ledger[sp.sender].approvals.get(params.spender, default_value = 0) == 0) | (params.value == 0), ('UnsafeAllowanceChange', self.data.ledger[sp.sender].approvals.get(params.spender, default_value = 0))) sp.if params.value == 0: del self.data.ledger[sp.sender].approvals[params.spender] sp.else: @@ -116,8 +120,8 @@ def borrowBalanceStored(self, params): borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[sp.fst(params)]) sp.if borrowSnapshot.value.principal > 0: borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex - sp.result(borrowBalance.value) - sp.set_type(sp.snd(params), sp.TContract(sp.TNat)) + sp.result((borrowBalance.value, self.data.accrualBlockNumber)) + sp.set_type(sp.snd(params), sp.TContract(sp.TPair(sp.TNat, sp.TNat))) sp.transfer(__s1.value, sp.tez(0), sp.snd(params)) @sp.entrypoint @@ -131,32 +135,32 @@ def doAccrueInterest(self, params): sp.set_type(sp.record(mantissa = params), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(sp.as_nat(sp.level - self.data.accrualBlockNumber), sp.TNat) sp.set_type(params * sp.as_nat(sp.level - self.data.accrualBlockNumber), sp.TNat) - compute_CToken_761 = sp.local("compute_CToken_761", sp.record(mantissa = params * sp.as_nat(sp.level - self.data.accrualBlockNumber))) - sp.set_type(compute_CToken_761.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(compute_CToken_761.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + compute_CToken_771 = sp.local("compute_CToken_771", sp.record(mantissa = params * sp.as_nat(sp.level - self.data.accrualBlockNumber))) + sp.set_type(compute_CToken_771.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_CToken_771.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(self.data.totalBorrows, sp.TNat) - sp.set_type(compute_CToken_761.value.mantissa * self.data.totalBorrows, sp.TNat) - sp.set_type(sp.record(mantissa = compute_CToken_761.value.mantissa * self.data.totalBorrows), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - compute_CToken_763 = sp.local("compute_CToken_763", (compute_CToken_761.value.mantissa * self.data.totalBorrows) // self.data.expScale) - self.data.totalBorrows = compute_CToken_763.value + self.data.totalBorrows + sp.set_type(compute_CToken_771.value.mantissa * self.data.totalBorrows, sp.TNat) + sp.set_type(sp.record(mantissa = compute_CToken_771.value.mantissa * self.data.totalBorrows), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + compute_CToken_773 = sp.local("compute_CToken_773", (compute_CToken_771.value.mantissa * self.data.totalBorrows) // self.data.expScale) + self.data.totalBorrows = compute_CToken_773.value + self.data.totalBorrows sp.set_type(sp.record(mantissa = self.data.reserveFactorMantissa), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(compute_CToken_763.value, sp.TNat) + sp.set_type(compute_CToken_773.value, sp.TNat) sp.set_type(self.data.totalReserves, sp.TNat) sp.set_type(sp.record(mantissa = self.data.reserveFactorMantissa), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(sp.record(mantissa = self.data.reserveFactorMantissa), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(compute_CToken_763.value, sp.TNat) - sp.set_type(self.data.reserveFactorMantissa * compute_CToken_763.value, sp.TNat) - sp.set_type(sp.record(mantissa = self.data.reserveFactorMantissa * compute_CToken_763.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - self.data.totalReserves = ((self.data.reserveFactorMantissa * compute_CToken_763.value) // self.data.expScale) + self.data.totalReserves - sp.set_type(compute_CToken_761.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_CToken_773.value, sp.TNat) + sp.set_type(self.data.reserveFactorMantissa * compute_CToken_773.value, sp.TNat) + sp.set_type(sp.record(mantissa = self.data.reserveFactorMantissa * compute_CToken_773.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + self.data.totalReserves = ((self.data.reserveFactorMantissa * compute_CToken_773.value) // self.data.expScale) + self.data.totalReserves + sp.set_type(compute_CToken_771.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(self.data.borrowIndex, sp.TNat) sp.set_type(self.data.borrowIndex, sp.TNat) - sp.set_type(compute_CToken_761.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(compute_CToken_761.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_CToken_771.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_CToken_771.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(self.data.borrowIndex, sp.TNat) - sp.set_type(compute_CToken_761.value.mantissa * self.data.borrowIndex, sp.TNat) - sp.set_type(sp.record(mantissa = compute_CToken_761.value.mantissa * self.data.borrowIndex), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - self.data.borrowIndex = ((compute_CToken_761.value.mantissa * self.data.borrowIndex) // self.data.expScale) + self.data.borrowIndex + sp.set_type(compute_CToken_771.value.mantissa * self.data.borrowIndex, sp.TNat) + sp.set_type(sp.record(mantissa = compute_CToken_771.value.mantissa * self.data.borrowIndex), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + self.data.borrowIndex = ((compute_CToken_771.value.mantissa * self.data.borrowIndex) // self.data.expScale) + self.data.borrowIndex self.data.accrualBlockNumber = sp.level @sp.entrypoint @@ -175,24 +179,24 @@ def exchangeRateStored(self, params): sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') sp.set_type((sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat) excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply - sp.result(excRate.value) - sp.set_type(sp.snd(params), sp.TContract(sp.TNat)) + sp.result((excRate.value, self.data.accrualBlockNumber)) + sp.set_type(sp.snd(params), sp.TContract(sp.TPair(sp.TNat, sp.TNat))) sp.transfer(__s2.value, sp.tez(0), sp.snd(params)) @sp.entrypoint def getAccountSnapshot(self, params): __s3 = sp.bind_block("__s3"): with __s3: - compute_CToken_565 = sp.local("compute_CToken_565", sp.record(account = sp.fst(params), borrowBalance = 0, cTokenBalance = 0, exchangeRateMantissa = 0)) + compute_CToken_571 = sp.local("compute_CToken_571", sp.record(account = sp.fst(params), borrowBalance = 0, cTokenBalance = 0, exchangeRateMantissa = 0)) sp.if self.data.ledger.contains(sp.fst(params)): sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') - compute_CToken_565.value.cTokenBalance = self.data.ledger[sp.fst(params)].balance + compute_CToken_571.value.cTokenBalance = self.data.ledger[sp.fst(params)].balance borrowBalance = sp.local("borrowBalance", 0) sp.if self.data.borrows.contains(sp.fst(params)): borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[sp.fst(params)]) sp.if borrowSnapshot.value.principal > 0: borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex - compute_CToken_565.value.borrowBalance = borrowBalance.value + compute_CToken_571.value.borrowBalance = borrowBalance.value excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) sp.if self.data.totalSupply > 0: sp.set_type(self.data.currentCash, sp.TNat) @@ -204,8 +208,8 @@ def getAccountSnapshot(self, params): sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') sp.set_type((sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat) excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply - compute_CToken_565.value.exchangeRateMantissa = excRate.value - sp.result(compute_CToken_565.value) + compute_CToken_571.value.exchangeRateMantissa = excRate.value + sp.result(compute_CToken_571.value) sp.set_type(sp.snd(params), sp.TContract(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))) sp.transfer(__s3.value, sp.tez(0), sp.snd(params)) @@ -254,8 +258,8 @@ def getBalanceOfUnderlying(self, params): sp.set_type(self.data.ledger[sp.fst(params)].balance, sp.TNat) sp.set_type(excRate.value * self.data.ledger[sp.fst(params)].balance, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value * self.data.ledger[sp.fst(params)].balance), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.result((excRate.value * self.data.ledger[sp.fst(params)].balance) // self.data.expScale) - sp.set_type(sp.snd(params), sp.TContract(sp.TNat)) + sp.result(((excRate.value * self.data.ledger[sp.fst(params)].balance) // self.data.expScale, self.data.accrualBlockNumber)) + sp.set_type(sp.snd(params), sp.TContract(sp.TPair(sp.TNat, sp.TNat))) sp.transfer(__s6.value, sp.tez(0), sp.snd(params)) @sp.entrypoint @@ -263,8 +267,8 @@ def getCash(self, params): __s7 = sp.bind_block("__s7"): with __s7: sp.set_type(sp.fst(params), sp.TUnit) - sp.result(self.data.currentCash) - sp.set_type(sp.snd(params), sp.TContract(sp.TNat)) + sp.result((self.data.currentCash, self.data.accrualBlockNumber)) + sp.set_type(sp.snd(params), sp.TContract(sp.TPair(sp.TNat, sp.TNat))) sp.transfer(__s7.value, sp.tez(0), sp.snd(params)) @sp.entrypoint @@ -294,18 +298,20 @@ def liquidateBorrow(self, params): borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[params.borrower]) sp.if borrowSnapshot.value.principal > 0: borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex - sp.transfer(sp.record(from_ = sp.sender, to_ = sp.self_address, value = sp.min(borrowBalance.value, params.repayAmount)), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entrypoint='transfer').open_some()) + repayAmount = sp.local("repayAmount", sp.min(borrowBalance.value, params.repayAmount)) + actualRepayAmount = sp.local("actualRepayAmount", sp.min(repayAmount.value, self.data.totalBorrows)) + sp.transfer(sp.record(from_ = sp.sender, to_ = sp.self_address, value = repayAmount.value), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entrypoint='transfer').open_some()) sp.set_type(borrowBalance.value, sp.TNat) - sp.set_type(sp.min(borrowBalance.value, params.repayAmount), sp.TNat) - self.data.borrows[params.borrower].principal = sp.as_nat(borrowBalance.value - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW') + sp.set_type(repayAmount.value, sp.TNat) + self.data.borrows[params.borrower].principal = sp.as_nat(borrowBalance.value - repayAmount.value, message = 'SUBTRACTION_UNDERFLOW') self.data.borrows[params.borrower].interestIndex = self.data.borrowIndex sp.set_type(self.data.totalBorrows, sp.TNat) - sp.set_type(sp.min(borrowBalance.value, params.repayAmount), sp.TNat) - self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW') + sp.set_type(actualRepayAmount.value, sp.TNat) + self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - actualRepayAmount.value, message = 'SUBTRACTION_UNDERFLOW') sp.if self.data.borrows[params.borrower].principal == 0: sp.transfer(params.borrower, sp.tez(0), sp.contract(sp.TAddress, self.data.comptroller, entrypoint='removeFromLoans').open_some()) - sp.verify(sp.view("balanceOf", params.borrower, params.cTokenCollateral, sp.TNat).open_some(message = 'INVALID BALANCE OF VIEW') >= sp.view("liquidateCalculateSeizeTokens", sp.record(actualRepayAmount = params.repayAmount, cTokenBorrowed = sp.self_address, cTokenCollateral = params.cTokenCollateral), self.data.comptroller, sp.TNat).open_some(message = 'INVALID LIQUIDATE CALC SEIZE TOKEN VIEW'), 'LIQUIDATE_SEIZE_TOO_MUCH') - sp.transfer(sp.record(borrower = params.borrower, liquidator = sp.sender, seizeTokens = sp.view("liquidateCalculateSeizeTokens", sp.record(actualRepayAmount = params.repayAmount, cTokenBorrowed = sp.self_address, cTokenCollateral = params.cTokenCollateral), self.data.comptroller, sp.TNat).open_some(message = 'INVALID LIQUIDATE CALC SEIZE TOKEN VIEW')), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, liquidator = sp.TAddress, seizeTokens = sp.TNat).layout(("borrower", ("liquidator", "seizeTokens"))), params.cTokenCollateral, entrypoint='seize').open_some()) + sp.verify(sp.view("balanceOf", params.borrower, params.cTokenCollateral, sp.TNat).open_some(message = 'INVALID BALANCE OF VIEW') >= sp.fst(sp.view("liquidateCalculateSeizeTokens", sp.record(actualRepayAmount = params.repayAmount, cTokenBorrowed = sp.self_address, cTokenCollateral = params.cTokenCollateral), self.data.comptroller, sp.TPair(sp.TNat, sp.TNat)).open_some(message = 'INVALID LIQUIDATE CALC SEIZE TOKEN VIEW')), 'LIQUIDATE_SEIZE_TOO_MUCH') + sp.transfer(sp.record(borrower = params.borrower, liquidator = sp.sender, seizeTokens = sp.fst(sp.view("liquidateCalculateSeizeTokens", sp.record(actualRepayAmount = params.repayAmount, cTokenBorrowed = sp.self_address, cTokenCollateral = params.cTokenCollateral), self.data.comptroller, sp.TPair(sp.TNat, sp.TNat)).open_some(message = 'INVALID LIQUIDATE CALC SEIZE TOKEN VIEW'))), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, liquidator = sp.TAddress, seizeTokens = sp.TNat).layout(("borrower", ("liquidator", "seizeTokens"))), params.cTokenCollateral, entrypoint='seize').open_some()) @sp.entrypoint def mint(self, params): @@ -335,8 +341,8 @@ def mint(self, params): sp.set_type(params, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO') - compute_CToken_965 = sp.local("compute_CToken_965", (params * self.data.expScale) // excRate.value) - amount.value = compute_CToken_965.value + compute_CToken_975 = sp.local("compute_CToken_975", (params * self.data.expScale) // excRate.value) + amount.value = compute_CToken_975.value sp.else: sp.set_type(excRate.value, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) @@ -344,8 +350,8 @@ def mint(self, params): sp.set_type(params, sp.TNat) sp.set_type(excRate.value * params, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value * params), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - compute_CToken_968 = sp.local("compute_CToken_968", (excRate.value * params) // self.data.expScale) - amount.value = compute_CToken_968.value + compute_CToken_978 = sp.local("compute_CToken_978", (excRate.value * params) // self.data.expScale) + amount.value = compute_CToken_978.value sp.verify(amount.value > 0, 'CT_MINT_AMOUNT_IS_INVALID') self.data.totalSupply += amount.value self.data.ledger[sp.sender].balance += amount.value @@ -376,8 +382,8 @@ def redeem(self, params): sp.set_type(params, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO') - compute_CToken_965 = sp.local("compute_CToken_965", (params * self.data.expScale) // excRate.value) - amount.value = compute_CToken_965.value + compute_CToken_975 = sp.local("compute_CToken_975", (params * self.data.expScale) // excRate.value) + amount.value = compute_CToken_975.value sp.else: sp.set_type(excRate.value, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) @@ -385,8 +391,8 @@ def redeem(self, params): sp.set_type(params, sp.TNat) sp.set_type(excRate.value * params, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value * params), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - compute_CToken_968 = sp.local("compute_CToken_968", (excRate.value * params) // self.data.expScale) - amount.value = compute_CToken_968.value + compute_CToken_978 = sp.local("compute_CToken_978", (excRate.value * params) // self.data.expScale) + amount.value = compute_CToken_978.value redeem_amount.value = amount.value redeem_tokens = sp.local("redeem_tokens", 0) sp.if False: @@ -411,8 +417,8 @@ def redeem(self, params): compute_Exponential_280 = sp.local("compute_Exponential_280", compute_Exponential_277.value // excRate.value) sp.if (compute_Exponential_277.value % excRate.value) > 0: pass - compute_CToken_976 = sp.local("compute_CToken_976", compute_Exponential_280.value + 1) - amount.value = compute_CToken_976.value + compute_CToken_986 = sp.local("compute_CToken_986", compute_Exponential_280.value + 1) + amount.value = compute_CToken_986.value sp.else: sp.set_type(excRate.value, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) @@ -420,8 +426,8 @@ def redeem(self, params): sp.set_type(params, sp.TNat) sp.set_type(excRate.value * params, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value * params), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - compute_CToken_979 = sp.local("compute_CToken_979", (excRate.value * params) // self.data.expScale) - amount.value = compute_CToken_979.value + compute_CToken_989 = sp.local("compute_CToken_989", (excRate.value * params) // self.data.expScale) + amount.value = compute_CToken_989.value redeem_tokens.value = amount.value sp.else: redeem_tokens.value = params @@ -458,8 +464,8 @@ def redeemUnderlying(self, params): sp.set_type(params, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO') - compute_CToken_965 = sp.local("compute_CToken_965", (params * self.data.expScale) // excRate.value) - amount.value = compute_CToken_965.value + compute_CToken_975 = sp.local("compute_CToken_975", (params * self.data.expScale) // excRate.value) + amount.value = compute_CToken_975.value sp.else: sp.set_type(excRate.value, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) @@ -467,8 +473,8 @@ def redeemUnderlying(self, params): sp.set_type(params, sp.TNat) sp.set_type(excRate.value * params, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value * params), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - compute_CToken_968 = sp.local("compute_CToken_968", (excRate.value * params) // self.data.expScale) - amount.value = compute_CToken_968.value + compute_CToken_978 = sp.local("compute_CToken_978", (excRate.value * params) // self.data.expScale) + amount.value = compute_CToken_978.value redeem_amount.value = amount.value redeem_tokens = sp.local("redeem_tokens", 0) sp.if True: @@ -493,8 +499,8 @@ def redeemUnderlying(self, params): compute_Exponential_280 = sp.local("compute_Exponential_280", compute_Exponential_277.value // excRate.value) sp.if (compute_Exponential_277.value % excRate.value) > 0: pass - compute_CToken_976 = sp.local("compute_CToken_976", compute_Exponential_280.value + 1) - amount.value = compute_CToken_976.value + compute_CToken_986 = sp.local("compute_CToken_986", compute_Exponential_280.value + 1) + amount.value = compute_CToken_986.value sp.else: sp.set_type(excRate.value, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) @@ -502,8 +508,8 @@ def redeemUnderlying(self, params): sp.set_type(params, sp.TNat) sp.set_type(excRate.value * params, sp.TNat) sp.set_type(sp.record(mantissa = excRate.value * params), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - compute_CToken_979 = sp.local("compute_CToken_979", (excRate.value * params) // self.data.expScale) - amount.value = compute_CToken_979.value + compute_CToken_989 = sp.local("compute_CToken_989", (excRate.value * params) // self.data.expScale) + amount.value = compute_CToken_989.value redeem_tokens.value = amount.value sp.else: redeem_tokens.value = params @@ -556,14 +562,16 @@ def repayBorrow(self, params): borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[sp.sender]) sp.if borrowSnapshot.value.principal > 0: borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex - sp.transfer(sp.record(from_ = sp.sender, to_ = sp.self_address, value = sp.min(borrowBalance.value, params)), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entrypoint='transfer').open_some()) + repayAmount = sp.local("repayAmount", sp.min(borrowBalance.value, params)) + actualRepayAmount = sp.local("actualRepayAmount", sp.min(repayAmount.value, self.data.totalBorrows)) + sp.transfer(sp.record(from_ = sp.sender, to_ = sp.self_address, value = repayAmount.value), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entrypoint='transfer').open_some()) sp.set_type(borrowBalance.value, sp.TNat) - sp.set_type(sp.min(borrowBalance.value, params), sp.TNat) - self.data.borrows[sp.sender].principal = sp.as_nat(borrowBalance.value - sp.min(borrowBalance.value, params), message = 'SUBTRACTION_UNDERFLOW') + sp.set_type(repayAmount.value, sp.TNat) + self.data.borrows[sp.sender].principal = sp.as_nat(borrowBalance.value - repayAmount.value, message = 'SUBTRACTION_UNDERFLOW') self.data.borrows[sp.sender].interestIndex = self.data.borrowIndex sp.set_type(self.data.totalBorrows, sp.TNat) - sp.set_type(sp.min(borrowBalance.value, params), sp.TNat) - self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - sp.min(borrowBalance.value, params), message = 'SUBTRACTION_UNDERFLOW') + sp.set_type(actualRepayAmount.value, sp.TNat) + self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - actualRepayAmount.value, message = 'SUBTRACTION_UNDERFLOW') sp.if self.data.borrows[sp.sender].principal == 0: sp.transfer(sp.sender, sp.tez(0), sp.contract(sp.TAddress, self.data.comptroller, entrypoint='removeFromLoans').open_some()) @@ -582,14 +590,16 @@ def repayBorrowBehalf(self, params): borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[params.borrower]) sp.if borrowSnapshot.value.principal > 0: borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex - sp.transfer(sp.record(from_ = sp.sender, to_ = sp.self_address, value = sp.min(borrowBalance.value, params.repayAmount)), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entrypoint='transfer').open_some()) + repayAmount = sp.local("repayAmount", sp.min(borrowBalance.value, params.repayAmount)) + actualRepayAmount = sp.local("actualRepayAmount", sp.min(repayAmount.value, self.data.totalBorrows)) + sp.transfer(sp.record(from_ = sp.sender, to_ = sp.self_address, value = repayAmount.value), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entrypoint='transfer').open_some()) sp.set_type(borrowBalance.value, sp.TNat) - sp.set_type(sp.min(borrowBalance.value, params.repayAmount), sp.TNat) - self.data.borrows[params.borrower].principal = sp.as_nat(borrowBalance.value - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW') + sp.set_type(repayAmount.value, sp.TNat) + self.data.borrows[params.borrower].principal = sp.as_nat(borrowBalance.value - repayAmount.value, message = 'SUBTRACTION_UNDERFLOW') self.data.borrows[params.borrower].interestIndex = self.data.borrowIndex sp.set_type(self.data.totalBorrows, sp.TNat) - sp.set_type(sp.min(borrowBalance.value, params.repayAmount), sp.TNat) - self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW') + sp.set_type(actualRepayAmount.value, sp.TNat) + self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - actualRepayAmount.value, message = 'SUBTRACTION_UNDERFLOW') sp.if self.data.borrows[params.borrower].principal == 0: sp.transfer(params.borrower, sp.tez(0), sp.contract(sp.TAddress, self.data.comptroller, entrypoint='removeFromLoans').open_some()) @@ -716,7 +726,7 @@ def sweepMutez(self, params): @sp.entrypoint def transfer(self, params): sp.set_type(params, sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value")))) - sp.verify((params.from_ == sp.sender) | (self.data.ledger[params.from_].approvals[sp.sender] >= params.value), 'FA1.2_NotAllowed') + sp.verify((params.from_ == sp.sender) | (self.data.ledger[params.from_].approvals[sp.sender] >= params.value), ('NotEnoughAllowance', (params.value, self.data.ledger[params.from_].approvals[sp.sender]))) sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') sp.if ~ (self.data.ledger.contains(params.to_)): self.data.ledger[params.to_] = sp.record(approvals = {}, balance = 0) @@ -724,7 +734,7 @@ def transfer(self, params): self.data.borrows[params.to_] = sp.record(interestIndex = 0, principal = 0) sp.transfer(sp.record(cToken = sp.self_address, dst = params.to_, src = params.from_, transferTokens = params.value), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, dst = sp.TAddress, src = sp.TAddress, transferTokens = sp.TNat).layout((("cToken", "src"), ("dst", "transferTokens"))), self.data.comptroller, entrypoint='transferAllowed').open_some()) sp.set_type(sp.record(from_ = params.from_, sender = sp.sender, to_ = params.to_, value = params.value), sp.TRecord(from_ = sp.TAddress, sender = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout((("from_", "sender"), ("to_", "value")))) - sp.verify(self.data.ledger[params.from_].balance >= params.value, 'FA1.2_InsufficientBalance') + sp.verify(self.data.ledger[params.from_].balance >= params.value, ('NotEnoughBalance', (params.value, self.data.ledger[params.from_].balance))) self.data.ledger[params.from_].balance = sp.as_nat(self.data.ledger[params.from_].balance - params.value) self.data.ledger[params.to_].balance += params.value sp.if params.from_ != sp.sender: diff --git a/compiled_contracts/CtzBTC/step_000_cont_0_contract.tz b/compiled_contracts/CtzBTC/step_000_cont_0_contract.tz index 64eac756..60362680 100644 --- a/compiled_contracts/CtzBTC/step_000_cont_0_contract.tz +++ b/compiled_contracts/CtzBTC/step_000_cont_0_contract.tz @@ -1,4 +1,4 @@ -parameter (or (or (or (or (unit %acceptGovernance) (or (contract %accrueInterestInternal nat) (pair %approve (address %spender) (nat %value)))) (or (nat %doAccrueInterest) (or (unit %hardResetOp) (nat %reduceReservesInternal)))) (or (or (unit %removePendingGovernance) (or (nat %setCash) (address %setComptroller))) (or (or (address %setInterestRateModelInternal) (address %setPendingGovernance)) (or (nat %setReserveFactorInternal) (nat %updateProtocolSeizeShare))))) (or (or (or (or (unit %accrueInterest) (or (nat %addReserves) (pair %addReservesInternal (nat %addAmount) (address %originalSender)))) (or (nat %borrow) (or (pair %borrowBalanceStored address (contract nat)) (pair %exchangeRateStored unit (contract nat))))) (or (or (pair %getAccountSnapshot address (contract (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))))) (or (pair %getAllowance (pair (address %owner) (address %spender)) (contract nat)) (pair %getBalance address (contract nat)))) (or (or (pair %getBalanceOfUnderlying address (contract nat)) (pair %getCash unit (contract nat))) (or (pair %getTotalSupply unit (contract nat)) (pair %liquidateBorrow (address %borrower) (pair (address %cTokenCollateral) (nat %repayAmount))))))) (or (or (or (nat %mint) (or (nat %redeem) (nat %redeemUnderlying))) (or (or (nat %reduceReserves) (nat %repayBorrow)) (or (pair %repayBorrowBehalf (address %borrower) (nat %repayAmount)) (pair %seize (address %borrower) (pair (address %liquidator) (nat %seizeTokens)))))) (or (or (address %setInterestRateModel) (or (nat %setReserveFactor) (pair %sweepFA12 (nat %amount) (address %tokenAddress)))) (or (or (pair %sweepFA2 (nat %amount) (pair (nat %id) (address %tokenAddress))) (bool %sweepMutez)) (or (pair %transfer (address %from) (pair (address %to) (nat %value))) (pair %updateMetadata (string %key) (bytes %value)))))))); +parameter (or (or (or (or (unit %acceptGovernance) (or (contract %accrueInterestInternal nat) (pair %approve (address %spender) (nat %value)))) (or (nat %doAccrueInterest) (or (unit %hardResetOp) (nat %reduceReservesInternal)))) (or (or (unit %removePendingGovernance) (or (nat %setCash) (address %setComptroller))) (or (or (address %setInterestRateModelInternal) (address %setPendingGovernance)) (or (nat %setReserveFactorInternal) (nat %updateProtocolSeizeShare))))) (or (or (or (or (unit %accrueInterest) (or (nat %addReserves) (pair %addReservesInternal (nat %addAmount) (address %originalSender)))) (or (nat %borrow) (or (pair %borrowBalanceStored address (contract (pair nat nat))) (pair %exchangeRateStored unit (contract (pair nat nat)))))) (or (or (pair %getAccountSnapshot address (contract (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))))) (or (pair %getAllowance (pair (address %owner) (address %spender)) (contract nat)) (pair %getBalance address (contract nat)))) (or (or (pair %getBalanceOfUnderlying address (contract (pair nat nat))) (pair %getCash unit (contract (pair nat nat)))) (or (pair %getTotalSupply unit (contract nat)) (pair %liquidateBorrow (address %borrower) (pair (address %cTokenCollateral) (nat %repayAmount))))))) (or (or (or (nat %mint) (or (nat %redeem) (nat %redeemUnderlying))) (or (or (nat %reduceReserves) (nat %repayBorrow)) (or (pair %repayBorrowBehalf (address %borrower) (nat %repayAmount)) (pair %seize (address %borrower) (pair (address %liquidator) (nat %seizeTokens)))))) (or (or (address %setInterestRateModel) (or (nat %setReserveFactor) (pair %sweepFA12 (nat %amount) (address %tokenAddress)))) (or (or (pair %sweepFA2 (nat %amount) (pair (nat %id) (address %tokenAddress))) (bool %sweepMutez)) (or (pair %transfer (address %from) (pair (address %to) (nat %value))) (pair %updateMetadata (string %key) (bytes %value)))))))); storage (pair (pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))))) (big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))))); code { @@ -13,16 +13,19 @@ code IF_LEFT { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == acceptGovernance == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { IF_LEFT { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == accrueInterestInternal == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 1; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == approve == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 2; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -31,16 +34,19 @@ code IF_LEFT { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == doAccrueInterest == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 3; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { IF_LEFT { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == hardResetOp == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 4; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == reduceReservesInternal == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 5; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -52,16 +58,19 @@ code IF_LEFT { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == removePendingGovernance == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 6; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { IF_LEFT { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == setCash == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 7; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == setComptroller == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 8; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -72,10 +81,12 @@ code IF_LEFT { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == setInterestRateModelInternal == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 9; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == setPendingGovernance == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 10; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } @@ -83,10 +94,12 @@ code IF_LEFT { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == setReserveFactorInternal == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 11; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { DROP; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # == updateProtocolSeizeShare == # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 12; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -100,7 +113,9 @@ code PUSH int -1; # int : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + { + # missing entrypoint # @some : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @some : @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUG 2; # @parameter.left : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @some : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair @parameter.left (pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))))) : @some : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EXEC; # pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -115,6 +130,8 @@ code { IF_LEFT { + # == accrueInterest == + # compute_CFA12_27 = sp.local("compute_CFA12_27", (self.data.currentCash + self.data.totalSupply) + self.data.totalReserves) # @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 9; # nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -125,12 +142,14 @@ code GET 4; # nat : nat : nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ADD; # nat : nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ADD; # nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if compute_CFA12_27.value > 0: # nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # nat : nat : nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GT; # bool : nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # self.data.activeOperations.add(13) # nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DIG 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -148,6 +167,7 @@ code PAIR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUG 2; # nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer((sp.self_address, sp.self_entrypoint('setCash')), sp.tez(0), sp.contract(sp.TPair(sp.TAddress, sp.TContract(sp.TNat)), self.data.fa1_2_TokenAddress, entrypoint='getBalance').open_some()) # nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -161,27 +181,26 @@ code {}; # @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH mutez 0; # mutez : @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF %setCash; # @self : mutez : @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # contract nat : mutez : @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SELF_ADDRESS; # @self : contract nat : mutez : @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : contract nat : mutez : @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair address (contract nat) : mutez : @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : @self : mutez : @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair @self @self : mutez : @some : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { NIL operation; # list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if sp.level != self.data.accrualBlockNumber: # list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair nat (pair (set nat) address) : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) LEVEL; # @level : nat : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # nat : nat : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NEQ; # bool : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # if self.data.accrualBlockNumber == 0: # list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -192,6 +211,7 @@ code EQ; # bool : list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # self.data.accrualBlockNumber = sp.level # list operation : nat : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DIG 3; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : nat : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : nat : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : nat : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -202,12 +222,11 @@ code DROP; # @level : pair (set nat) address : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%accrueInterest : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DIG 6; # @parameter%accrueInterest : @level : pair (set nat) address : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # @level : pair (set nat) address : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # nat : pair (set nat) address : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair nat (pair (set nat) address) : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair @level (pair (set nat) address) : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair @level (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair @level (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair @level (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # list operation : pair (pair (pair (pair @level (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { SWAP; # nat : list operation : @parameter%accrueInterest : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -215,6 +234,7 @@ code SWAP; # @parameter%accrueInterest : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.activeOperations.add(8) # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair nat (pair (set nat) address) : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -231,18 +251,17 @@ code PAIR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.self_entrypoint('doAccrueInterest'), sp.tez(0), sp.contract(sp.TContract(sp.TNat), sp.self_address, entrypoint='accrueInterestInternal').open_some()) # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONTRACT %accrueInterestInternal (contract nat); # option (contract (contract nat)) : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 735; # int : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 745; # int : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH mutez 0; # mutez : @some : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF %doAccrueInterest; # @self : mutez : @some : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # contract nat : mutez : @some : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -257,10 +276,10 @@ code { IF_LEFT { + # == addReserves == + # sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : address : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NEQ; # bool : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -269,6 +288,7 @@ code PUSH string "CT_INTERNAL_CALL"; # string : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') # @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -285,6 +305,7 @@ code FAILWITH; # FAILED }; # @parameter%addReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%addReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.activeOperations.add(11) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%addReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -301,29 +322,27 @@ code PAIR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%addReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.unit, sp.tez(0), sp.self_entrypoint('accrueInterest')) # @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF %accrueInterest; # @self : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # contract unit : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH mutez 0; # mutez : contract unit : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNIT; # unit : mutez : contract unit : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @self : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNIT; # unit : mutez : @self : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(addAmount = params, originalSender = sp.sender), sp.amount, sp.self_entrypoint('addReservesInternal')) # list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF %addReservesInternal; # @self : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # contract (pair (nat %addAmount) (address %originalSender)) : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - AMOUNT; # @amount : contract (pair (nat %addAmount) (address %originalSender)) : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # mutez : contract (pair (nat %addAmount) (address %originalSender)) : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : mutez : contract (pair (nat %addAmount) (address %originalSender)) : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : mutez : contract (pair (nat %addAmount) (address %originalSender)) : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 4; # @parameter%addReserves : address : mutez : contract (pair (nat %addAmount) (address %originalSender)) : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair @parameter%addReserves address : mutez : contract (pair (nat %addAmount) (address %originalSender)) : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + AMOUNT; # @amount : @self : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @amount : @self : list operation : @parameter%addReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 4; # @parameter%addReserves : @sender : @amount : @self : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair @parameter%addReserves @sender : @amount : @self : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { + # == addReservesInternal == + # sp.verify(sp.sender == sp.self_address, 'CT_INTERNAL_FUNCTION') # @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : address : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -332,6 +351,7 @@ code PUSH string "CT_INTERNAL_FUNCTION"; # string : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(self.data.activeOperations.contains(11), 'OP_NOT_ACTIVE') # @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -346,6 +366,7 @@ code FAILWITH; # FAILED }; # @parameter%addReservesInternal : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.activeOperations.remove(11) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -362,13 +383,13 @@ code PAIR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair nat (pair (set nat) address) : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) LEVEL; # @level : nat : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # nat : nat : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -377,6 +398,7 @@ code PUSH string "CT_INTEREST_OLD"; # string : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(from_ = params.originalSender, to_ = sp.self_address, value = params.addAmount), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entrypoint='transfer').open_some()) # @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -392,12 +414,12 @@ code DUP 4; # @parameter%addReservesInternal : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : nat : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : nat : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 6; # @parameter%addReservesInternal : address : nat : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CDR; # address : address : nat : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair address (pair address nat) : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 6; # @parameter%addReservesInternal : @self : nat : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # address : @self : nat : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair address (pair @self nat) : mutez : @some : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.totalReserves += params.addAmount # list operation : @parameter%addReservesInternal : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DIG 2; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 9; # nat : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%addReservesInternal : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -412,10 +434,10 @@ code { IF_LEFT { + # == borrow == + # sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : address : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NEQ; # bool : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -424,18 +446,18 @@ code PUSH string "CT_INTERNAL_CALL"; # string : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if ~ (self.data.ledger.contains(sp.sender)): # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) MEM; # bool : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NOT; # bool : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # bool : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[sp.sender] = sp.record(approvals = {}, balance = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -446,7 +468,6 @@ code SWAP; # big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH (option (pair (map address nat) nat)) (Some (Pair {} 0)); # option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # address : big_map address (pair (map address nat) nat) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair address (big_map address (pair (map address nat) nat)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -457,20 +478,19 @@ code SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - {}; # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if ~ (self.data.borrows.contains(sp.sender)): # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) MEM; # bool : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NOT; # bool : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # bool : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[sp.sender] = sp.record(interestIndex = 0, principal = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -478,7 +498,6 @@ code UNPAIR; # big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH (option (pair nat nat)) (Some (Pair 0 0)); # option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -486,8 +505,8 @@ code PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - {}; # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(borrowAmount = params, borrower = sp.sender, cToken = sp.self_address), sp.tez(0), sp.contract(sp.TRecord(borrowAmount = sp.TNat, borrower = sp.TAddress, cToken = sp.TAddress).layout(("cToken", ("borrower", "borrowAmount"))), self.data.comptroller, entrypoint='borrowAllowed').open_some()) # @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -503,12 +522,11 @@ code PUSH mutez 0; # mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # @parameter%borrow : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : @parameter%borrow : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%borrow : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SELF_ADDRESS; # @self : address : @parameter%borrow : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%borrow : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair address (pair address @parameter%borrow) : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : @sender : @parameter%borrow : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @self (pair @sender @parameter%borrow) : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(self.data.currentCash >= params, 'CT_INSUFFICIENT_CASH') # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @parameter%borrow : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%borrow : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%borrow : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -522,13 +540,13 @@ code PUSH string "CT_INSUFFICIENT_CASH"; # string : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) LEVEL; # @level : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # nat : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -537,6 +555,7 @@ code PUSH string "CT_INTEREST_OLD"; # string : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(from_ = sp.self_address, to_ = sp.sender, value = params), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entrypoint='transfer').open_some()) # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 7; # address : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -550,35 +569,35 @@ code PUSH mutez 0; # mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # @parameter%borrow : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : @parameter%borrow : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%borrow : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SELF_ADDRESS; # @self : address : @parameter%borrow : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%borrow : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair address (pair address @parameter%borrow) : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : @sender : @parameter%borrow : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @self (pair @sender @parameter%borrow) : mutez : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance = sp.local("borrowBalance", 0) # list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.borrows.contains(sp.sender): # nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # big_map address (pair nat nat) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair nat nat) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair nat nat) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) MEM; # bool : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[sp.sender]) # nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # big_map address (pair nat nat) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair nat nat) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair nat nat) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET; # option (pair nat nat) : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 628; # int : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 638; # int : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if borrowSnapshot.value.principal > 0: # @some : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @some : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @some : nat : @some : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # nat : nat : @some : nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -588,6 +607,7 @@ code { SWAP; # nat : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # @some : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -600,7 +620,7 @@ code EDIV; # option (pair nat nat) : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 631; # int : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 641; # int : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } { @@ -612,6 +632,7 @@ code }; # nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } {}; # nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[sp.sender].principal = borrowBalance.value + params # nat : list operation : @parameter%borrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DIG 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -620,28 +641,28 @@ code UNPAIR; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # address : address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUG 2; # address : big_map address (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET; # option (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # @sender : @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # @sender : big_map address (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 210; # int : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 210; # int : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 10; # @parameter%borrow : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 8; # nat : @parameter%borrow : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - ADD; # nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UPDATE 2; # @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SOME; # option (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # address : option (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + {}; # @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 10; # @parameter%borrow : @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 8; # nat : @parameter%borrow : @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ADD; # nat : @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE 2; # @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SOME; # option (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @sender : option (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[sp.sender].interestIndex = self.data.borrowIndex # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -654,26 +675,26 @@ code UNPAIR; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # address : address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUG 2; # address : big_map address (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET; # option (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # @sender : @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # @sender : big_map address (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 211; # int : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 211; # int : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 7; # nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UPDATE 1; # @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SOME; # option (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # address : option (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + {}; # @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 7; # nat : @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE 1; # @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SOME; # option (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @sender : option (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.totalBorrows += params # pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock)) : pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)) : pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%borrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -697,7 +718,10 @@ code { IF_LEFT { + # == borrowBalanceStored == + # borrowBalance = sp.local("borrowBalance", 0) # @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.borrows.contains(sp.fst(params)): # nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -707,6 +731,7 @@ code MEM; # bool : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[sp.fst(params)]) # nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -716,10 +741,11 @@ code GET; # option (pair (nat %interestIndex) (nat %principal)) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 628; # int : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 638; # int : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if borrowSnapshot.value.principal > 0: # @some : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @some : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @some : nat : @some : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # nat : nat : @some : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -729,6 +755,7 @@ code { SWAP; # nat : @some : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # @some : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # @some : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # @some : @some : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : @some : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -741,7 +768,7 @@ code EDIV; # option (pair nat nat) : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 631; # int : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 641; # int : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } { @@ -753,19 +780,31 @@ code }; # nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } {}; # nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NIL operation; # list operation : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 2; # @parameter%borrowBalanceStored : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CDR; # contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.result((borrowBalance.value, self.data.accrualBlockNumber)) # nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair nat nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(__s1.value, sp.tez(0), sp.snd(params)) # pair nat nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL operation; # list operation : pair nat nat : @parameter%borrowBalanceStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 2; # @parameter%borrowBalanceStored : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # contract (pair nat nat) : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : contract (pair nat nat) : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # pair nat nat : mutez : contract (pair nat nat) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { + # == exchangeRateStored == + # excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.totalSupply > 0: # nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -774,6 +813,7 @@ code IF { DROP; # @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -785,6 +825,7 @@ code PUSH string "DIVISION_BY_ZERO"; # string : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -802,7 +843,6 @@ code GET 4; # nat : nat : nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -812,10 +852,9 @@ code ADD; # nat : nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 671; # int : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 681; # int : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -831,11 +870,20 @@ code }; # nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } {}; # nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NIL operation; # list operation : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 2; # @parameter%exchangeRateStored : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CDR; # contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.result((excRate.value, self.data.accrualBlockNumber)) # nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair nat nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(__s2.value, sp.tez(0), sp.snd(params)) # pair nat nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL operation; # list operation : pair nat nat : @parameter%exchangeRateStored : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 2; # @parameter%exchangeRateStored : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # contract (pair nat nat) : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : contract (pair nat nat) : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # pair nat nat : mutez : contract (pair nat nat) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -847,12 +895,15 @@ code { IF_LEFT { + # == getAccountSnapshot == + # compute_CToken_571 = sp.local("compute_CToken_571", sp.record(account = sp.fst(params), borrowBalance = 0, cTokenBalance = 0, exchangeRateMantissa = 0)) # @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH (pair nat nat) (Pair 0 0); # pair nat nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : pair nat nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # @parameter%getAccountSnapshot : nat : pair nat nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # address : nat : pair nat nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair address nat : pair nat nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.ledger.contains(sp.fst(params)): # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -862,13 +913,13 @@ code MEM; # bool : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) LEVEL; # @level : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -877,6 +928,7 @@ code PUSH string "CT_INTEREST_OLD"; # string : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # compute_CToken_571.value.cTokenBalance = self.data.ledger[sp.fst(params)].balance # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -886,13 +938,15 @@ code GET; # option (pair (map %approvals address nat) (nat %balance)) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 573; # int : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 579; # int : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE 3; # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance = sp.local("borrowBalance", 0) # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.borrows.contains(sp.fst(params)): # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -902,6 +956,7 @@ code MEM; # bool : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[sp.fst(params)]) # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -911,10 +966,11 @@ code GET; # option (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 628; # int : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 638; # int : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if borrowSnapshot.value.principal > 0: # @some : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @some : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @some : nat : @some : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # nat : nat : @some : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -924,6 +980,7 @@ code { SWAP; # nat : @some : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # @some : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # @some : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # @some : @some : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : @some : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -936,7 +993,7 @@ code EDIV; # option (pair nat nat) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 631; # int : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 641; # int : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } { @@ -949,6 +1006,7 @@ code } {}; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair address nat) (pair nat nat) : nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # compute_CToken_571.value.borrowBalance = borrowBalance.value # pair (pair address nat) (pair nat nat) : nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair address nat : pair nat nat : nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # address : pair nat nat : nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # nat : address : pair nat nat : nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -956,10 +1014,12 @@ code PAIR; # pair address nat : pair nat nat : nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair address nat) (pair nat nat) : nat : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.totalSupply > 0: # nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -968,6 +1028,7 @@ code IF { DROP 2; # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -979,6 +1040,7 @@ code PUSH string "DIVISION_BY_ZERO"; # string : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -996,7 +1058,6 @@ code GET 4; # nat : nat : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1006,10 +1067,9 @@ code ADD; # nat : nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 671; # int : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 681; # int : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1028,9 +1088,12 @@ code SWAP; # nat : nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # compute_CToken_571.value.exchangeRateMantissa = excRate.value # nat : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE 4; # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } {}; # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.result(compute_CToken_571.value) + # sp.transfer(__s3.value, sp.tez(0), sp.snd(params)) # pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : pair (pair address nat) (pair nat nat) : @parameter%getAccountSnapshot : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DIG 2; # @parameter%getAccountSnapshot : list operation : pair (pair address nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # contract (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))) : list operation : pair (pair address nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1042,7 +1105,10 @@ code { IF_LEFT { + # == getAllowance == + # result = sp.local("result", 0) # @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.ledger.contains(sp.fst(params).owner): # nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1053,6 +1119,7 @@ code MEM; # bool : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # if self.data.ledger[sp.fst(params).owner].approvals.contains(sp.fst(params).spender): # nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1063,7 +1130,7 @@ code GET; # option (pair (map %approvals address nat) (nat %balance)) : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 549; # int : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 555; # int : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1075,6 +1142,7 @@ code IF { DROP; # @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # result.value = self.data.ledger[sp.fst(params).owner].approvals[sp.fst(params).spender] # @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1085,7 +1153,7 @@ code GET; # option (pair (map %approvals address nat) (nat %balance)) : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 550; # int : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 556; # int : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1096,7 +1164,7 @@ code GET; # option nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 550; # int : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 556; # int : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1104,6 +1172,8 @@ code {}; # nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } {}; # nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.result(result.value) + # sp.transfer(__s4.value, sp.tez(0), sp.snd(params)) # nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : nat : @parameter%getAllowance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DIG 2; # @parameter%getAllowance : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1113,7 +1183,10 @@ code CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { + # == getBalance == + # result = sp.local("result", 0) # @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.ledger.contains(sp.fst(params)): # nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1124,6 +1197,7 @@ code IF { DROP; # @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # result.value = self.data.ledger[sp.fst(params)].balance # @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1133,13 +1207,15 @@ code GET; # option (pair (map %approvals address nat) (nat %balance)) : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 489; # int : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 495; # int : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } {}; # nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.result(result.value) + # sp.transfer(__s5.value, sp.tez(0), sp.snd(params)) # nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : nat : @parameter%getBalance : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DIG 2; # @parameter%getBalance : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1155,10 +1231,13 @@ code { IF_LEFT { + # == getBalanceOfUnderlying == + # excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.totalSupply > 0: # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1167,6 +1246,7 @@ code IF { DROP; # @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1178,6 +1258,7 @@ code PUSH string "DIVISION_BY_ZERO"; # string : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1195,7 +1276,6 @@ code GET 4; # nat : nat : nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1205,10 +1285,9 @@ code ADD; # nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 671; # int : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 681; # int : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1224,52 +1303,69 @@ code }; # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } {}; # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.result(((excRate.value * self.data.ledger[sp.fst(params)].balance) // self.data.expScale, self.data.accrualBlockNumber)) # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 5; # nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 4; # big_map address (pair (map %approvals address nat) (nat %balance)) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 4; # @parameter%getBalanceOfUnderlying : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET; # option (pair (map %approvals address nat) (nat %balance)) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 5; # nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # big_map address (pair (map %approvals address nat) (nat %balance)) : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # @parameter%getBalanceOfUnderlying : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (map %approvals address nat) (nat %balance)) : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 521; # int : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 527; # int : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CDR; # nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 2; # nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - MUL; # nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - EDIV; # option (pair nat nat) : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + {}; # @some : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # nat : nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + MUL; # nat : nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + EDIV; # option (pair nat nat) : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 61; # int : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 61; # int : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } { - CAR; # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - }; # nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NIL operation; # list operation : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 2; # @parameter%getBalanceOfUnderlying : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CDR; # contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair nat nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(__s6.value, sp.tez(0), sp.snd(params)) # pair nat nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL operation; # list operation : pair nat nat : @parameter%getBalanceOfUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 2; # @parameter%getBalanceOfUnderlying : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # contract (pair nat nat) : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : contract (pair nat nat) : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # pair nat nat : mutez : contract (pair nat nat) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { + # == getCash == + # sp.result((self.data.currentCash, self.data.accrualBlockNumber)) # @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 4; # nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NIL operation; # list operation : nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 2; # @parameter%getCash : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CDR; # contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair nat nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(__s7.value, sp.tez(0), sp.snd(params)) # pair nat nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + NIL operation; # list operation : pair nat nat : @parameter%getCash : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 2; # @parameter%getCash : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # contract (pair nat nat) : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : contract (pair nat nat) : list operation : pair nat nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # pair nat nat : mutez : contract (pair nat nat) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1277,8 +1373,11 @@ code { IF_LEFT { + # == getTotalSupply == + # sp.result(self.data.totalSupply) # @parameter%getTotalSupply : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%getTotalSupply : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : @parameter%getTotalSupply : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(__s8.value, sp.tez(0), sp.snd(params)) # nat : @parameter%getTotalSupply : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : nat : @parameter%getTotalSupply : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DIG 2; # @parameter%getTotalSupply : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # contract nat : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1288,6 +1387,8 @@ code CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { + # == liquidateBorrow == + # sp.transfer(sp.record(borrower = params.borrower, cTokenBorrowed = sp.self_address, cTokenCollateral = params.cTokenCollateral, liquidator = sp.sender, repayAmount = params.repayAmount), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, cTokenBorrowed = sp.TAddress, cTokenCollateral = sp.TAddress, liquidator = sp.TAddress, repayAmount = sp.TNat).layout((("borrower", "cTokenBorrowed"), ("cTokenCollateral", ("liquidator", "repayAmount")))), self.data.comptroller, entrypoint='liquidateBorrowAllowed').open_some()) # @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1296,7 +1397,7 @@ code CONTRACT %liquidateBorrowAllowed (pair (pair (address %borrower) (address %cTokenBorrowed)) (pair (address %cTokenCollateral) (pair (address %liquidator) (nat %repayAmount)))); # option (contract (pair (pair (address %borrower) (address %cTokenBorrowed)) (pair (address %cTokenCollateral) (pair (address %liquidator) (nat %repayAmount))))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 357; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 360; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1304,23 +1405,21 @@ code DUP 4; # @parameter%liquidateBorrow : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair address nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 5; # @parameter%liquidateBorrow : pair address nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 3; # address : pair address nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair address (pair address nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SELF_ADDRESS; # @self : pair address (pair address nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : pair address (pair address nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 6; # @parameter%liquidateBorrow : address : pair address (pair address nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # address : address : pair address (pair address nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair address address : pair address (pair address nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair (pair address address) (pair address (pair address nat)) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair @sender nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # @parameter%liquidateBorrow : pair @sender nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # address : pair @sender nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address (pair @sender nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : pair address (pair @sender nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 6; # @parameter%liquidateBorrow : @self : pair address (pair @sender nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : @self : pair address (pair @sender nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair address @self : pair address (pair @sender nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair address @self) (pair address (pair @sender nat)) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(params.borrower != sp.sender, 'CT_LIQUIDATE_LIQUIDATOR_IS_BORROWER') # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # @parameter%liquidateBorrow : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # address : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter%liquidateBorrow : @sender : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : @sender : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NEQ; # bool : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -1329,6 +1428,7 @@ code PUSH string "CT_LIQUIDATE_LIQUIDATOR_IS_BORROWER"; # string : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(params.repayAmount > 0, 'CT_LIQUIDATE_CLOSE_AMOUNT_IS_INVALID') # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # @parameter%liquidateBorrow : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1340,13 +1440,13 @@ code PUSH string "CT_LIQUIDATE_CLOSE_AMOUNT_IS_INVALID"; # string : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) LEVEL; # @level : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -1355,7 +1455,9 @@ code PUSH string "CT_INTEREST_OLD"; # string : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance = sp.local("borrowBalance", 0) # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.borrows.contains(params.borrower): # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1365,6 +1467,7 @@ code MEM; # bool : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[params.borrower]) # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1374,10 +1477,11 @@ code GET; # option (pair (nat %interestIndex) (nat %principal)) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 628; # int : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 638; # int : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if borrowSnapshot.value.principal > 0: # @some : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @some : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @some : nat : @some : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # nat : nat : @some : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1387,6 +1491,7 @@ code { SWAP; # nat : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # @some : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1399,7 +1504,7 @@ code EDIV; # option (pair nat nat) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 631; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 641; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } { @@ -1411,78 +1516,82 @@ code }; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } {}; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 7; # address : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CONTRACT %transfer (pair (address %from) (pair (address %to) (nat %value))); # option (contract (pair (address %from) (pair (address %to) (nat %value)))) : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - IF_NONE + # repayAmount = sp.local("repayAmount", sp.min(borrowBalance.value, params.repayAmount)) # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter%liquidateBorrow : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # nat : nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + LE; # bool : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF { - PUSH int 17; # int : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - FAILWITH; # FAILED + DROP; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } - {}; # @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 5; # @parameter%liquidateBorrow : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 4; # nat : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 5; # nat : nat : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # nat : nat : nat : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - COMPARE; # int : nat : nat : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - LE; # bool : nat : nat : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + { + SWAP; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # actualRepayAmount = sp.local("actualRepayAmount", sp.min(repayAmount.value, self.data.totalBorrows)) # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows) : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # nat : nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # nat : nat : nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + LE; # bool : nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - DROP; # nat : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { - SWAP; # nat : nat : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # nat : mutez : @some : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - }; # nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SELF_ADDRESS; # @self : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : address : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair address (pair address nat) : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CONS; # list operation : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 9; # @parameter%liquidateBorrow : big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # address : address : big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUG 2; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET; # option (pair (nat %interestIndex) (nat %principal)) : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(from_ = sp.sender, to_ = sp.self_address, value = repayAmount.value), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entrypoint='transfer').open_some()) # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # address : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONTRACT %transfer (pair (address %from) (pair (address %to) (nat %value))); # option (contract (pair (address %from) (pair (address %to) (nat %value)))) : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 263; # int : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 17; # int : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 10; # @parameter%liquidateBorrow : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 4; # nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 9; # nat : nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # nat : nat : nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - COMPARE; # int : nat : nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - LE; # bool : nat : nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - IF + {}; # @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # nat : mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : nat : mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : nat : mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @sender (pair @self nat) : mutez : @some : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : nat : nat : nat : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 3; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[params.borrower].principal = sp.as_nat(borrowBalance.value - repayAmount.value, message = 'SUBTRACTION_UNDERFLOW') # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 11; # @parameter%liquidateBorrow : big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # address : address : big_map address (pair (nat %interestIndex) (nat %principal)) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (nat %interestIndex) (nat %principal)) : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE { - DROP; # nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 266; # int : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED } - { - SWAP; # nat : nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - }; # nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 9; # nat : nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + {}; # @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 8; # nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 9; # nat : nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1498,6 +1607,7 @@ code SWAP; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[params.borrower].interestIndex = self.data.borrowIndex # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1516,7 +1626,7 @@ code GET; # option (pair (nat %interestIndex) (nat %principal)) : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 265; # int : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 268; # int : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : address : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1531,27 +1641,12 @@ code PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUG 3; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # @parameter%liquidateBorrow : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 4; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - COMPARE; # int : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - LE; # bool : nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - IF - { - DROP; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - { - SWAP; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - }; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - actualRepayAmount.value, message = 'SUBTRACTION_UNDERFLOW') # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 7; # pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1578,6 +1673,7 @@ code SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%liquidateBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUG 2; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.borrows[params.borrower].principal == 0: # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1588,7 +1684,7 @@ code GET; # option (pair (nat %interestIndex) (nat %principal)) : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 268; # int : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 271; # int : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1597,6 +1693,7 @@ code EQ; # bool : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # sp.transfer(params.borrower, sp.tez(0), sp.contract(sp.TAddress, self.data.comptroller, entrypoint='removeFromLoans').open_some()) # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1604,7 +1701,7 @@ code CONTRACT %removeFromLoans address; # option (contract address) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 270; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 273; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1615,6 +1712,7 @@ code CONS; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } {}; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.view("balanceOf", params.borrower, params.cTokenCollateral, sp.TNat).open_some(message = 'INVALID BALANCE OF VIEW') >= sp.fst(sp.view("liquidateCalculateSeizeTokens", sp.record(actualRepayAmount = params.repayAmount, cTokenBorrowed = sp.self_address, cTokenCollateral = params.cTokenCollateral), self.data.comptroller, sp.TPair(sp.TNat, sp.TNat)).open_some(message = 'INVALID LIQUIDATE CALC SEIZE TOKEN VIEW')), 'LIQUIDATE_SEIZE_TOO_MUCH') # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1622,28 +1720,28 @@ code DUP 3; # @parameter%liquidateBorrow : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # address : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : address : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 5; # @parameter%liquidateBorrow : address : address : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 4; # nat : address : address : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair nat (pair address address) : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - VIEW "liquidateCalculateSeizeTokens" nat; # option nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # @parameter%liquidateBorrow : @self : address : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : @self : address : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair nat (pair @self address) : address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + VIEW "liquidateCalculateSeizeTokens" (pair nat nat); # option (pair nat nat) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "INVALID LIQUIDATE CALC SEIZE TOKEN VIEW"; # string : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # @parameter%liquidateBorrow : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 3; # address : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 4; # @parameter%liquidateBorrow : address : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # address : address : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - VIEW "balanceOf" nat; # option nat : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter%liquidateBorrow : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # address : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # @parameter%liquidateBorrow : address : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : address : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + VIEW "balanceOf" nat; # option nat : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH string "INVALID BALANCE OF VIEW"; # string : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH string "INVALID BALANCE OF VIEW"; # string : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + {}; # @some : nat : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GE; # bool : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -1652,12 +1750,13 @@ code PUSH string "LIQUIDATE_SEIZE_TOO_MUCH"; # string : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(borrower = params.borrower, liquidator = sp.sender, seizeTokens = sp.fst(sp.view("liquidateCalculateSeizeTokens", sp.record(actualRepayAmount = params.repayAmount, cTokenBorrowed = sp.self_address, cTokenCollateral = params.cTokenCollateral), self.data.comptroller, sp.TPair(sp.TNat, sp.TNat)).open_some(message = 'INVALID LIQUIDATE CALC SEIZE TOKEN VIEW'))), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, liquidator = sp.TAddress, seizeTokens = sp.TNat).layout(("borrower", ("liquidator", "seizeTokens"))), params.cTokenCollateral, entrypoint='seize').open_some()) # list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @parameter%liquidateBorrow : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # address : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONTRACT %seize (pair (address %borrower) (pair (address %liquidator) (nat %seizeTokens))); # option (contract (pair (address %borrower) (pair (address %liquidator) (nat %seizeTokens)))) : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 382; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 385; # int : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1669,22 +1768,21 @@ code DUP 5; # @parameter%liquidateBorrow : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # address : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : address : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 7; # @parameter%liquidateBorrow : address : address : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 4; # nat : address : address : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair nat (pair address address) : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - VIEW "liquidateCalculateSeizeTokens" nat; # option nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 7; # @parameter%liquidateBorrow : @self : address : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : @self : address : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair nat (pair @self address) : address : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + VIEW "liquidateCalculateSeizeTokens" (pair nat nat); # option (pair nat nat) : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "INVALID LIQUIDATE CALC SEIZE TOKEN VIEW"; # string : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : @some : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @some : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 5; # @parameter%liquidateBorrow : address : @some : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # address : address : @some : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair address (pair address @some) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : nat : mutez : @some : list operation : @parameter%liquidateBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 5; # @parameter%liquidateBorrow : @sender : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : @sender : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair address (pair @sender nat) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) nat) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1699,10 +1797,10 @@ code { IF_LEFT { + # == mint == + # sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : address : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NEQ; # bool : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -1711,18 +1809,18 @@ code PUSH string "CT_INTERNAL_CALL"; # string : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if ~ (self.data.ledger.contains(sp.sender)): # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) MEM; # bool : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NOT; # bool : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # bool : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[sp.sender] = sp.record(approvals = {}, balance = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1733,7 +1831,6 @@ code SWAP; # big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH (option (pair (map address nat) nat)) (Some (Pair {} 0)); # option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # address : big_map address (pair (map address nat) nat) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair address (big_map address (pair (map address nat) nat)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1744,20 +1841,19 @@ code SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - {}; # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if ~ (self.data.borrows.contains(sp.sender)): # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) MEM; # bool : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NOT; # bool : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # bool : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[sp.sender] = sp.record(interestIndex = 0, principal = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1765,7 +1861,6 @@ code UNPAIR; # big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH (option (pair nat nat)) (Some (Pair 0 0)); # option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1773,8 +1868,8 @@ code PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%mint : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - {}; # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(cToken = sp.self_address, mintAmount = params, minter = sp.sender), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, mintAmount = sp.TNat, minter = sp.TAddress).layout(("cToken", ("minter", "mintAmount"))), self.data.comptroller, entrypoint='mintAllowed').open_some()) # @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1790,19 +1885,17 @@ code PUSH mutez 0; # mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SELF_ADDRESS; # @self : address : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair address (pair address @parameter%mint) : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : @sender : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @self (pair @sender @parameter%mint) : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) LEVEL; # @level : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -1811,6 +1904,7 @@ code PUSH string "CT_INTEREST_OLD"; # string : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(from_ = sp.sender, to_ = sp.self_address, value = params), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entrypoint='transfer').open_some()) # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 7; # address : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1824,16 +1918,16 @@ code PUSH mutez 0; # mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : address : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair address (pair address @parameter%mint) : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : @parameter%mint : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @sender (pair @self @parameter%mint) : mutez : @some : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair nat (pair address (big_map address (pair (map address nat) nat))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.totalSupply > 0: # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1842,6 +1936,7 @@ code IF { DROP; # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1853,6 +1948,7 @@ code PUSH string "DIVISION_BY_ZERO"; # string : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1870,7 +1966,6 @@ code GET 4; # nat : nat : nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1880,10 +1975,9 @@ code ADD; # nat : nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 671; # int : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 681; # int : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1899,6 +1993,9 @@ code }; # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } {}; # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # amount = sp.local("amount", 0) + # if True: + # sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO') # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # nat : nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1909,6 +2006,7 @@ code PUSH string "DIVISION_BY_ZERO"; # string : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # compute_CToken_975 = sp.local("compute_CToken_975", (params * self.data.expScale) // excRate.value) # nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 5; # nat : nat : list operation : @parameter%mint : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1923,6 +2021,8 @@ code { CAR; # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # amount.value = compute_CToken_975.value + # sp.verify(amount.value > 0, 'CT_MINT_AMOUNT_IS_INVALID') # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1933,12 +2033,14 @@ code PUSH string "CT_MINT_AMOUNT_IS_INVALID"; # string : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.totalSupply += amount.value # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DIG 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ADD; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE 10; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[sp.sender].balance += amount.value # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1949,23 +2051,22 @@ code SWAP; # big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # address : address : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUG 2; # address : big_map address (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # @sender : @sender : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # @sender : big_map address (pair (map address nat) nat) : @sender : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (map address nat) nat) : @sender : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 99; # int : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 99; # int : @sender : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # @some : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CDR; # nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 9; # nat : nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - ADD; # nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UPDATE 2; # @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SOME; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # address : option (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + {}; # @some : @sender : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # @some : @some : @sender : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : @some : @sender : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 9; # nat : nat : @some : @sender : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ADD; # nat : @some : @sender : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE 2; # @some : @sender : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SOME; # option (pair (map address nat) nat) : @sender : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @sender : option (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # address : big_map address (pair (map address nat) nat) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair address (big_map address (pair (map address nat) nat)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -1980,10 +2081,10 @@ code { IF_LEFT { + # == redeem == + # sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : address : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NEQ; # bool : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -1992,6 +2093,7 @@ code PUSH string "CT_INTERNAL_CALL"; # string : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(cToken = sp.self_address, redeemAmount = params, redeemer = sp.sender), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, redeemAmount = sp.TNat, redeemer = sp.TAddress).layout(("cToken", ("redeemer", "redeemAmount"))), self.data.comptroller, entrypoint='redeemAllowed').open_some()) # @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2007,17 +2109,19 @@ code PUSH mutez 0; # mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # @parameter%redeem : mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : @parameter%redeem : mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%redeem : mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SELF_ADDRESS; # @self : address : @parameter%redeem : mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%redeem : mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair address (pair address @parameter%redeem) : mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : @sender : @parameter%redeem : mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @self (pair @sender @parameter%redeem) : mutez : @some : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # redeem_amount = sp.local("redeem_amount", 0) # list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if False: + # excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.totalSupply > 0: # nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2026,6 +2130,7 @@ code IF { DROP 2; # list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2037,6 +2142,7 @@ code PUSH string "DIVISION_BY_ZERO"; # string : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2054,7 +2160,6 @@ code GET 4; # nat : nat : nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2064,10 +2169,9 @@ code ADD; # nat : nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 671; # int : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 681; # int : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2086,6 +2190,9 @@ code SWAP; # nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # amount = sp.local("amount", 0) + # if False: + # compute_CToken_978 = sp.local("compute_CToken_978", (excRate.value * params) // self.data.expScale) # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 5; # nat : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2101,7 +2208,13 @@ code { CAR; # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # amount.value = compute_CToken_978.value + # redeem_amount.value = amount.value + # redeem_tokens = sp.local("redeem_tokens", 0) + # if False: + # redeem_tokens.value = params # nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if (redeem_amount.value > 0) & (redeem_tokens.value > 0): # @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # nat : nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2118,6 +2231,7 @@ code }; # bool : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # sp.verify(self.data.currentCash >= redeem_amount.value, 'CT_INSUFFICIENT_CASH') # @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2131,6 +2245,7 @@ code PUSH string "CT_INSUFFICIENT_CASH"; # string : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2139,7 +2254,6 @@ code LEVEL; # @level : nat : @parameter%redeem : nat : list operation : @parameter%redeem : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DIG 5; # @parameter%redeem : @level : nat : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # @level : nat : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # nat : nat : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -2148,12 +2262,12 @@ code PUSH string "CT_INTEREST_OLD"; # string : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.totalSupply = sp.as_nat(self.data.totalSupply - redeem_tokens.value, message = 'Insufficient supply') # @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # @parameter%redeem : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%redeem : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : @parameter%redeem : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "Insufficient supply"; # string : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2164,12 +2278,12 @@ code SWAP; # @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%redeem : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE 10; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%redeem : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUG 3; # @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[sp.sender].balance = sp.as_nat(self.data.ledger[sp.sender].balance - redeem_tokens.value, message = 'Insufficient balance') # @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET; # option (pair (map %approvals address nat) (nat %balance)) : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { @@ -2180,7 +2294,6 @@ code CDR; # nat : @parameter%redeem : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "Insufficient balance"; # string : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2198,20 +2311,19 @@ code SWAP; # big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # address : address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUG 2; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET; # option (pair (map %approvals address nat) (nat %balance)) : address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # @sender : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (map %approvals address nat) (nat %balance)) : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 171; # int : address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 171; # int : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 8; # @some : @some : address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UPDATE 2; # @some : address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SOME; # option (pair (map %approvals address nat) (nat %balance)) : address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # address : option (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + {}; # @some : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 8; # @some : @some : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE 2; # @some : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SOME; # option (pair (map %approvals address nat) (nat %balance)) : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @sender : option (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair address (big_map address (pair (map %approvals address nat) (nat %balance))) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2223,6 +2335,7 @@ code PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUG 2; # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(from_ = sp.self_address, to_ = sp.sender, value = redeem_amount.value), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entrypoint='transfer').open_some()) # list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 7; # address : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2236,10 +2349,8 @@ code PUSH mutez 0; # mutez : @some : list operation : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DIG 3; # nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SELF_ADDRESS; # @self : address : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair address (pair address nat) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : @sender : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @self (pair @sender nat) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } @@ -2250,10 +2361,10 @@ code }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { + # == redeemUnderlying == + # sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : address : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NEQ; # bool : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -2262,6 +2373,7 @@ code PUSH string "CT_INTERNAL_CALL"; # string : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(cToken = sp.self_address, redeemAmount = params, redeemer = sp.sender), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, redeemAmount = sp.TNat, redeemer = sp.TAddress).layout(("cToken", ("redeemer", "redeemAmount"))), self.data.comptroller, entrypoint='redeemAllowed').open_some()) # @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2277,18 +2389,23 @@ code PUSH mutez 0; # mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # @parameter%redeemUnderlying : mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : @parameter%redeemUnderlying : mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%redeemUnderlying : mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SELF_ADDRESS; # @self : address : @parameter%redeemUnderlying : mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%redeemUnderlying : mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair address (pair address @parameter%redeemUnderlying) : mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : @sender : @parameter%redeemUnderlying : mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @self (pair @sender @parameter%redeemUnderlying) : mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # redeem_amount = sp.local("redeem_amount", 0) + # if True: + # redeem_amount.value = params # list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # redeem_tokens = sp.local("redeem_tokens", 0) # @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if True: + # excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.totalSupply > 0: # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 7; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2297,6 +2414,7 @@ code IF { DROP; # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2308,6 +2426,7 @@ code PUSH string "DIVISION_BY_ZERO"; # string : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2325,7 +2444,6 @@ code GET 4; # nat : nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2335,10 +2453,9 @@ code ADD; # nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 671; # int : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 681; # int : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2354,8 +2471,11 @@ code }; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } {}; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # amount = sp.local("amount", 0) # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if True: + # sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO') # nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH nat 0; # nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GT; # bool : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2365,11 +2485,13 @@ code PUSH string "DIVISION_BY_ZERO"; # string : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # compute_Exponential_277 = sp.local("compute_Exponential_277", params * self.data.expScale) # nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 7; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 5; # nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 7; # @parameter%redeemUnderlying : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) MUL; # nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # compute_Exponential_280 = sp.local("compute_Exponential_280", compute_Exponential_277.value // excRate.value) # nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EDIV; # option (pair nat nat) : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2381,6 +2503,7 @@ code { CAR; # nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if (compute_Exponential_277.value % excRate.value) > 0: # nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # nat : nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # nat : nat : nat : nat : nat : nat : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2401,8 +2524,12 @@ code SWAP; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # compute_CToken_986 = sp.local("compute_CToken_986", compute_Exponential_280.value + 1) # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 1; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ADD; # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # amount.value = compute_CToken_986.value + # redeem_tokens.value = amount.value + # if (redeem_amount.value > 0) & (redeem_tokens.value > 0): # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # @parameter%redeemUnderlying : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2419,6 +2546,7 @@ code }; # bool : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # sp.verify(self.data.currentCash >= redeem_amount.value, 'CT_INSUFFICIENT_CASH') # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @parameter%redeemUnderlying : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%redeemUnderlying : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%redeemUnderlying : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2432,6 +2560,7 @@ code PUSH string "CT_INSUFFICIENT_CASH"; # string : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2440,7 +2569,6 @@ code LEVEL; # @level : nat : nat : @parameter%redeemUnderlying : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DIG 5; # @parameter%redeemUnderlying : @level : nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # @level : nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # nat : nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -2449,12 +2577,12 @@ code PUSH string "CT_INTEREST_OLD"; # string : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.totalSupply = sp.as_nat(self.data.totalSupply - redeem_tokens.value, message = 'Insufficient supply') # nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "Insufficient supply"; # string : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2465,12 +2593,12 @@ code SWAP; # @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE 10; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUG 3; # nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[sp.sender].balance = sp.as_nat(self.data.ledger[sp.sender].balance - redeem_tokens.value, message = 'Insufficient balance') # nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # big_map address (pair (map %approvals address nat) (nat %balance)) : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET; # option (pair (map %approvals address nat) (nat %balance)) : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { @@ -2481,7 +2609,6 @@ code CDR; # nat : nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "Insufficient balance"; # string : @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2499,20 +2626,19 @@ code SWAP; # big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # address : address : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUG 2; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET; # option (pair (map %approvals address nat) (nat %balance)) : address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # @sender : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (map %approvals address nat) (nat %balance)) : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 171; # int : address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 171; # int : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 8; # @some : @some : address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UPDATE 2; # @some : address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SOME; # option (pair (map %approvals address nat) (nat %balance)) : address : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # address : option (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + {}; # @some : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 8; # @some : @some : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE 2; # @some : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SOME; # option (pair (map %approvals address nat) (nat %balance)) : @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @sender : option (pair (map %approvals address nat) (nat %balance)) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair address (big_map address (pair (map %approvals address nat) (nat %balance))) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2524,6 +2650,7 @@ code PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%redeemUnderlying : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUG 2; # @parameter%redeemUnderlying : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(from_ = sp.self_address, to_ = sp.sender, value = redeem_amount.value), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entrypoint='transfer').open_some()) # list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 7; # address : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2537,10 +2664,8 @@ code PUSH mutez 0; # mutez : @some : list operation : @parameter%redeemUnderlying : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DIG 3; # @parameter%redeemUnderlying : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : @parameter%redeemUnderlying : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%redeemUnderlying : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SELF_ADDRESS; # @self : address : @parameter%redeemUnderlying : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%redeemUnderlying : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair address (pair address @parameter%redeemUnderlying) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : @sender : @parameter%redeemUnderlying : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @self (pair @sender @parameter%redeemUnderlying) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } @@ -2557,13 +2682,14 @@ code { IF_LEFT { + # == reduceReserves == + # sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN') # @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # address : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : address : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -2572,6 +2698,7 @@ code PUSH string "CT_NOT_ADMIN"; # string : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') # @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2588,6 +2715,7 @@ code FAILWITH; # FAILED }; # @parameter%reduceReserves : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.activeOperations.add(12) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2604,26 +2732,25 @@ code PAIR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%reduceReserves : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.unit, sp.tez(0), sp.self_entrypoint('accrueInterest')) # @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF %accrueInterest; # @self : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # contract unit : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH mutez 0; # mutez : contract unit : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNIT; # unit : mutez : contract unit : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @self : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNIT; # unit : mutez : @self : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(params, sp.amount, sp.self_entrypoint('reduceReservesInternal')) # list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF %reduceReservesInternal; # @self : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # contract nat : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - AMOUNT; # @amount : contract nat : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # mutez : contract nat : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 3; # @parameter%reduceReserves : mutez : contract nat : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + AMOUNT; # @amount : @self : list operation : @parameter%reduceReserves : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # @parameter%reduceReserves : @amount : @self : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { + # == repayBorrow == + # sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : address : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NEQ; # bool : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -2632,18 +2759,18 @@ code PUSH string "CT_INTERNAL_CALL"; # string : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if ~ (self.data.ledger.contains(sp.sender)): # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) MEM; # bool : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NOT; # bool : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # bool : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[sp.sender] = sp.record(approvals = {}, balance = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2654,7 +2781,6 @@ code SWAP; # big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH (option (pair (map address nat) nat)) (Some (Pair {} 0)); # option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # address : big_map address (pair (map address nat) nat) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair address (big_map address (pair (map address nat) nat)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2665,20 +2791,19 @@ code SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - {}; # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if ~ (self.data.borrows.contains(sp.sender)): # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) MEM; # bool : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NOT; # bool : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # bool : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[sp.sender] = sp.record(interestIndex = 0, principal = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2686,7 +2811,6 @@ code UNPAIR; # big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH (option (pair nat nat)) (Some (Pair 0 0)); # option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2694,8 +2818,8 @@ code PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - {}; # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(borrower = sp.sender, cToken = sp.self_address, payer = sp.sender, repayAmount = params), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, cToken = sp.TAddress, payer = sp.TAddress, repayAmount = sp.TNat).layout(("cToken", ("payer", ("borrower", "repayAmount")))), self.data.comptroller, entrypoint='repayBorrowAllowed').open_some()) # @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2705,30 +2829,27 @@ code CONTRACT %repayBorrowAllowed (pair (address %cToken) (pair (address %payer) (pair (address %borrower) (nat %repayAmount)))); # option (contract (pair (address %cToken) (pair (address %payer) (pair (address %borrower) (nat %repayAmount))))) : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 276; # int : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 279; # int : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH mutez 0; # mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # @parameter%repayBorrow : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : @parameter%repayBorrow : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%repayBorrow : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : address : @parameter%repayBorrow : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%repayBorrow : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SELF_ADDRESS; # @self : address : address : @parameter%repayBorrow : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : address : @parameter%repayBorrow : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 4; # pair address (pair address (pair address @parameter%repayBorrow)) : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 4; # list operation : pair address (pair address (pair address @parameter%repayBorrow)) : mutez : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # pair address (pair address (pair address @parameter%repayBorrow)) : mutez : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @sender : @parameter%repayBorrow : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : @sender : @sender : @parameter%repayBorrow : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 4; # pair @self (pair @sender (pair @sender @parameter%repayBorrow)) : mutez : @some : list operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 4; # list operation : pair @self (pair @sender (pair @sender @parameter%repayBorrow)) : mutez : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # pair @self (pair @sender (pair @sender @parameter%repayBorrow)) : mutez : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) LEVEL; # @level : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # nat : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -2737,29 +2858,31 @@ code PUSH string "CT_INTEREST_OLD"; # string : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance = sp.local("borrowBalance", 0) # list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.borrows.contains(sp.sender): # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) MEM; # bool : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[sp.sender]) # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair nat nat) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET; # option (pair nat nat) : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 628; # int : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 638; # int : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if borrowSnapshot.value.principal > 0: # @some : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @some : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @some : nat : @some : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # nat : nat : @some : nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2769,6 +2892,7 @@ code { SWAP; # nat : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # @some : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2781,7 +2905,7 @@ code EDIV; # option (pair nat nat) : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 631; # int : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 641; # int : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } { @@ -2793,144 +2917,134 @@ code }; # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } {}; # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 7; # address : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CONTRACT %transfer (pair (address %from) (pair (address %to) (nat %value))); # option (contract (pair (address %from) (pair (address %to) (nat %value)))) : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - IF_NONE + # repayAmount = sp.local("repayAmount", sp.min(borrowBalance.value, params)) # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 2; # @parameter%repayBorrow : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # nat : @parameter%repayBorrow : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # nat : nat : @parameter%repayBorrow : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter%repayBorrow : nat : nat : @parameter%repayBorrow : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : nat : @parameter%repayBorrow : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + LE; # bool : nat : @parameter%repayBorrow : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF { - PUSH int 17; # int : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - FAILWITH; # FAILED + DROP; # @parameter%repayBorrow : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } - {}; # @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 5; # @parameter%repayBorrow : mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 5; # nat : @parameter%repayBorrow : mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # nat : nat : @parameter%repayBorrow : mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # @parameter%repayBorrow : nat : nat : @parameter%repayBorrow : mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - COMPARE; # int : nat : @parameter%repayBorrow : mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - LE; # bool : nat : @parameter%repayBorrow : mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + { + SWAP; # @parameter%repayBorrow : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # actualRepayAmount = sp.local("actualRepayAmount", sp.min(repayAmount.value, self.data.totalBorrows)) # nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows) : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # nat : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # nat : nat : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # nat : nat : nat : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : nat : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + LE; # bool : nat : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - DROP; # @parameter%repayBorrow : mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { - SWAP; # @parameter%repayBorrow : nat : mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # nat : mutez : @some : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - }; # nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SELF_ADDRESS; # @self : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : address : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair address (pair address nat) : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CONS; # list operation : nat : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # address : address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUG 2; # address : big_map address (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET; # option (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(from_ = sp.sender, to_ = sp.self_address, value = repayAmount.value), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entrypoint='transfer').open_some()) # nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # address : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONTRACT %transfer (pair (address %from) (pair (address %to) (nat %value))); # option (contract (pair (address %from) (pair (address %to) (nat %value)))) : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 263; # int : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 17; # int : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 10; # @parameter%repayBorrow : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 9; # nat : @parameter%repayBorrow : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # nat : nat : @parameter%repayBorrow : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # @parameter%repayBorrow : nat : nat : @parameter%repayBorrow : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - COMPARE; # int : nat : @parameter%repayBorrow : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - LE; # bool : nat : @parameter%repayBorrow : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - IF - { - DROP; # @parameter%repayBorrow : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - { - SWAP; # @parameter%repayBorrow : nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - }; # nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 9; # nat : nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SUB; # int : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - ISNAT; # option nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + {}; # @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # nat : mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : nat : mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : nat : mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @sender (pair @self nat) : mutez : @some : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 3; # nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[sp.sender].principal = sp.as_nat(borrowBalance.value - repayAmount.value, message = 'SUBTRACTION_UNDERFLOW') # nat : nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # @sender : @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # @sender : big_map address (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH string "SUBTRACTION_UNDERFLOW"; # string : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 266; # int : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UPDATE 2; # @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SOME; # option (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # address : option (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UPDATE; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 3; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # address : address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUG 2; # address : big_map address (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET; # option (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + {}; # @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 8; # nat : @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 9; # nat : nat : @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SUB; # int : @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + ISNAT; # option nat : @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 265; # int : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH string "SUBTRACTION_UNDERFLOW"; # string : @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 7; # nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UPDATE 1; # @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SOME; # option (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # address : option (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UPDATE; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrow : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUG 3; # nat : list operation : @parameter%repayBorrow : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 2; # @parameter%repayBorrow : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # nat : @parameter%repayBorrow : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # nat : nat : @parameter%repayBorrow : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # @parameter%repayBorrow : nat : nat : @parameter%repayBorrow : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - COMPARE; # int : nat : @parameter%repayBorrow : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - LE; # bool : nat : @parameter%repayBorrow : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - IF + {}; # @some : @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE 2; # @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SOME; # option (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @sender : option (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[sp.sender].interestIndex = self.data.borrowIndex # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # @sender : @sender : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # @sender : big_map address (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE { - DROP; # @parameter%repayBorrow : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 268; # int : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED } - { - SWAP; # @parameter%repayBorrow : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - }; # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + {}; # @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 7; # nat : @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE 1; # @some : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SOME; # option (pair nat nat) : @sender : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # @sender : option (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UPDATE; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - actualRepayAmount.value, message = 'SUBTRACTION_UNDERFLOW') # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 7; # pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # nat : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2957,17 +3071,17 @@ code SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.borrows[sp.sender].principal == 0: # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # big_map address (pair nat nat) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair nat nat) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair nat nat) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET; # option (pair nat nat) : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 268; # int : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 271; # int : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2976,6 +3090,7 @@ code EQ; # bool : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # sp.transfer(sp.sender, sp.tez(0), sp.contract(sp.TAddress, self.data.comptroller, entrypoint='removeFromLoans').open_some()) # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -2983,13 +3098,12 @@ code CONTRACT %removeFromLoans address; # option (contract address) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 270; # int : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 273; # int : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH mutez 0; # mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } @@ -2999,10 +3113,10 @@ code { IF_LEFT { + # == repayBorrowBehalf == + # sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : address : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NEQ; # bool : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -3011,18 +3125,18 @@ code PUSH string "CT_INTERNAL_CALL"; # string : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if ~ (self.data.ledger.contains(sp.sender)): # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) MEM; # bool : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NOT; # bool : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # bool : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[sp.sender] = sp.record(approvals = {}, balance = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3033,7 +3147,6 @@ code SWAP; # big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH (option (pair (map address nat) nat)) (Some (Pair {} 0)); # option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : option (pair (map address nat) nat) : big_map address (pair (map %approvals address nat) (nat %balance)) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # address : big_map address (pair (map address nat) nat) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair address (big_map address (pair (map address nat) nat)) : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3044,20 +3157,19 @@ code SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - {}; # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if ~ (self.data.borrows.contains(sp.sender)): # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) MEM; # bool : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NOT; # bool : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # bool : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[sp.sender] = sp.record(interestIndex = 0, principal = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3065,7 +3177,6 @@ code UNPAIR; # big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH (option (pair nat nat)) (Some (Pair 0 0)); # option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : option (pair nat nat) : big_map address (pair (nat %interestIndex) (nat %principal)) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3073,8 +3184,8 @@ code PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - {}; # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(borrower = params.borrower, cToken = sp.self_address, payer = sp.sender, repayAmount = params.repayAmount), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, cToken = sp.TAddress, payer = sp.TAddress, repayAmount = sp.TNat).layout(("cToken", ("payer", ("borrower", "repayAmount")))), self.data.comptroller, entrypoint='repayBorrowAllowed').open_some()) # @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3084,7 +3195,7 @@ code CONTRACT %repayBorrowAllowed (pair (address %cToken) (pair (address %payer) (pair (address %borrower) (nat %repayAmount)))); # option (contract (pair (address %cToken) (pair (address %payer) (pair (address %borrower) (nat %repayAmount))))) : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 276; # int : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 279; # int : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3094,21 +3205,19 @@ code DUP 6; # @parameter%repayBorrowBehalf : nat : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # address : nat : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : address : nat : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : nat : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SELF_ADDRESS; # @self : address : address : nat : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : address : nat : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 4; # pair address (pair address (pair address nat)) : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 4; # list operation : pair address (pair address (pair address nat)) : mutez : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # pair address (pair address (pair address nat)) : mutez : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : @sender : address : nat : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 4; # pair @self (pair @sender (pair address nat)) : mutez : @some : list operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 4; # list operation : pair @self (pair @sender (pair address nat)) : mutez : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # pair @self (pair @sender (pair address nat)) : mutez : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) LEVEL; # @level : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -3117,7 +3226,9 @@ code PUSH string "CT_INTEREST_OLD"; # string : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance = sp.local("borrowBalance", 0) # list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.borrows.contains(params.borrower): # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3127,6 +3238,7 @@ code MEM; # bool : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[params.borrower]) # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3136,10 +3248,11 @@ code GET; # option (pair nat nat) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 628; # int : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 638; # int : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if borrowSnapshot.value.principal > 0: # @some : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @some : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @some : nat : @some : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # nat : nat : @some : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3149,6 +3262,7 @@ code { SWAP; # nat : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # @some : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3161,7 +3275,7 @@ code EDIV; # option (pair nat nat) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 631; # int : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 641; # int : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } { @@ -3173,78 +3287,82 @@ code }; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } {}; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 7; # address : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CONTRACT %transfer (pair (address %from) (pair (address %to) (nat %value))); # option (contract (pair (address %from) (pair (address %to) (nat %value)))) : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - IF_NONE + # repayAmount = sp.local("repayAmount", sp.min(borrowBalance.value, params.repayAmount)) # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter%repayBorrowBehalf : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # nat : nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + LE; # bool : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF { - PUSH int 17; # int : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - FAILWITH; # FAILED + DROP; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } - {}; # @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH mutez 0; # mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 5; # @parameter%repayBorrowBehalf : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CDR; # nat : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 5; # nat : nat : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # nat : nat : nat : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - COMPARE; # int : nat : nat : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - LE; # bool : nat : nat : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + { + SWAP; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # actualRepayAmount = sp.local("actualRepayAmount", sp.min(repayAmount.value, self.data.totalBorrows)) # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows) : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # nat : nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # nat : nat : nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + COMPARE; # int : nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + LE; # bool : nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { - DROP; # nat : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { - SWAP; # nat : nat : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # nat : mutez : @some : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - }; # nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SELF_ADDRESS; # @self : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : address : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : nat : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair address (pair address nat) : mutez : contract (pair (address %from) (pair (address %to) (nat %value))) : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - TRANSFER_TOKENS; # operation : list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CONS; # list operation : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 9; # @parameter%repayBorrowBehalf : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # address : address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUG 2; # address : big_map address (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET; # option (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DROP; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(from_ = sp.sender, to_ = sp.self_address, value = repayAmount.value), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), self.data.fa1_2_TokenAddress, entrypoint='transfer').open_some()) # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 7; # address : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONTRACT %transfer (pair (address %from) (pair (address %to) (nat %value))); # option (contract (pair (address %from) (pair (address %to) (nat %value)))) : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 263; # int : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 17; # int : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 10; # @parameter%repayBorrowBehalf : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CDR; # nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 9; # nat : nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # nat : nat : nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - COMPARE; # int : nat : nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - LE; # bool : nat : nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - IF + {}; # @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 5; # nat : mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SELF_ADDRESS; # @self : nat : mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : nat : mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @sender (pair @self nat) : mutez : @some : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + TRANSFER_TOKENS; # operation : list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CONS; # list operation : nat : nat : nat : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 3; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[params.borrower].principal = sp.as_nat(borrowBalance.value - repayAmount.value, message = 'SUBTRACTION_UNDERFLOW') # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNPAIR; # big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 11; # @parameter%repayBorrowBehalf : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP; # address : address : big_map address (pair nat nat) : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUG 2; # address : big_map address (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE { - DROP; # nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 266; # int : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED } - { - SWAP; # nat : nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - }; # nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 9; # nat : nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + {}; # @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 8; # nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 9; # nat : nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3260,6 +3378,7 @@ code SWAP; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[params.borrower].interestIndex = self.data.borrowIndex # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3278,7 +3397,7 @@ code GET; # option (pair nat nat) : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 265; # int : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 268; # int : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : address : big_map address (pair nat nat) : pair (address %comptroller) (nat %currentCash) : pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3293,27 +3412,12 @@ code PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUG 3; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # @parameter%repayBorrowBehalf : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CDR; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # nat : nat : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - COMPARE; # int : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - LE; # bool : nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - IF - { - DROP; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - { - SWAP; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - }; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - actualRepayAmount.value, message = 'SUBTRACTION_UNDERFLOW') # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 7; # pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # nat : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3340,6 +3444,7 @@ code SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%repayBorrowBehalf : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUG 2; # list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.borrows[params.borrower].principal == 0: # list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3350,7 +3455,7 @@ code GET; # option (pair nat nat) : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 268; # int : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 271; # int : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3359,6 +3464,7 @@ code EQ; # bool : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # sp.transfer(params.borrower, sp.tez(0), sp.contract(sp.TAddress, self.data.comptroller, entrypoint='removeFromLoans').open_some()) # list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3366,7 +3472,7 @@ code CONTRACT %removeFromLoans address; # option (contract address) : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 270; # int : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 273; # int : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : list operation : @parameter%repayBorrowBehalf : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3382,6 +3488,8 @@ code }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map nat (pair (nat %token_id) (map %token_info string bytes))) @some) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { + # == seize == + # if ~ (self.data.ledger.contains(params.liquidator)): # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3389,11 +3497,11 @@ code DUP 2; # @parameter%seize : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) MEM; # bool : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NOT; # bool : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # bool : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[params.liquidator] = sp.record(approvals = {}, balance = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3415,8 +3523,8 @@ code SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - {}; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if ~ (self.data.borrows.contains(params.liquidator)): # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3424,11 +3532,11 @@ code DUP 2; # @parameter%seize : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) MEM; # bool : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NOT; # bool : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # bool : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[params.liquidator] = sp.record(interestIndex = 0, principal = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3444,17 +3552,15 @@ code PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - {}; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.view("seizeAllowed", sp.record(cTokenBorrowed = sp.sender, cTokenCollateral = sp.self_address), self.data.comptroller, sp.TBool).open_some(message = 'INVALID SEIZE ALLOWED VIEW'), 'CT_LIQUIDATE_SEIZE_COMPTROLLER_REJECTION') # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash)) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : address : address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair address address : address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair @sender @self : address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) VIEW "seizeAllowed" bool; # option bool : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { @@ -3468,6 +3574,7 @@ code PUSH string "CT_LIQUIDATE_SEIZE_COMPTROLLER_REJECTION"; # string : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(params.borrower != params.liquidator, 'CT_LIQUIDATE_SEIZE_LIQUIDATOR_IS_BORROWER') # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # @parameter%seize : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @parameter%seize : address : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3480,13 +3587,13 @@ code PUSH string "CT_LIQUIDATE_SEIZE_LIQUIDATOR_IS_BORROWER"; # string : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) LEVEL; # @level : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -3495,6 +3602,7 @@ code PUSH string "CT_INTEREST_OLD"; # string : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # protocolSeizeTokens = sp.local("protocolSeizeTokens", (params.seizeTokens * self.data.protocolSeizeShareMantissa) // self.data.expScale) # @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 5; # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3513,10 +3621,12 @@ code { CAR; # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair nat (pair address (big_map address (pair (map address nat) nat))) : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.totalSupply > 0: # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3525,6 +3635,7 @@ code IF { DROP; # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3536,6 +3647,7 @@ code PUSH string "DIVISION_BY_ZERO"; # string : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3553,7 +3665,6 @@ code GET 4; # nat : nat : nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3563,10 +3674,9 @@ code ADD; # nat : nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 671; # int : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 681; # int : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3582,6 +3692,7 @@ code }; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } {}; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.totalReserves += (excRate.value * protocolSeizeTokens.value) // self.data.expScale # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 9; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3603,12 +3714,12 @@ code ADD; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE 9; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUG 2; # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.totalSupply = sp.as_nat(self.data.totalSupply - protocolSeizeTokens.value, message = 'SUBTRACTION_UNDERFLOW') # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3619,6 +3730,7 @@ code SWAP; # @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE 10; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUG 2; # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[params.borrower].balance = sp.as_nat(self.data.ledger[params.borrower].balance - params.seizeTokens, message = 'SUBTRACTION_UNDERFLOW') # nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @parameter%seize : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3630,14 +3742,13 @@ code GET; # option (pair (map address nat) nat) : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 307; # int : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 310; # int : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # nat : nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : @parameter%seize : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3661,7 +3772,7 @@ code GET; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 334; # int : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 337; # int : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3670,6 +3781,7 @@ code SOME; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # address : option (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[params.liquidator].balance += sp.as_nat(params.seizeTokens - protocolSeizeTokens.value, message = 'SUBTRACTION_UNDERFLOW') # big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 9; # @parameter%seize : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # address : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3678,7 +3790,7 @@ code GET; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 335; # int : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 338; # int : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter%seize : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3689,7 +3801,6 @@ code GET 4; # nat : nat : nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3719,13 +3830,14 @@ code { IF_LEFT { + # == setInterestRateModel == + # sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN') # @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # address : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : address : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -3734,6 +3846,7 @@ code PUSH string "CT_NOT_ADMIN"; # string : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') # @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3750,6 +3863,7 @@ code FAILWITH; # FAILED }; # @parameter%setInterestRateModel : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.activeOperations.add(9) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3766,30 +3880,31 @@ code PAIR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%setInterestRateModel : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.unit, sp.tez(0), sp.self_entrypoint('accrueInterest')) # @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF %accrueInterest; # @self : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # contract unit : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH mutez 0; # mutez : contract unit : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNIT; # unit : mutez : contract unit : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @self : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNIT; # unit : mutez : @self : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(params, sp.tez(0), sp.self_entrypoint('setInterestRateModelInternal')) # list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF %setInterestRateModelInternal; # @self : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # contract address : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH mutez 0; # mutez : contract address : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 3; # @parameter%setInterestRateModel : mutez : contract address : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @self : list operation : @parameter%setInterestRateModel : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # @parameter%setInterestRateModel : mutez : @self : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { IF_LEFT { + # == setReserveFactor == + # sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN') # @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # address : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : address : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -3798,6 +3913,7 @@ code PUSH string "CT_NOT_ADMIN"; # string : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') # @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3814,6 +3930,7 @@ code FAILWITH; # FAILED }; # @parameter%setReserveFactor : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.activeOperations.add(10) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3830,21 +3947,23 @@ code PAIR; # pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%setReserveFactor : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.unit, sp.tez(0), sp.self_entrypoint('accrueInterest')) # @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF %accrueInterest; # @self : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # contract unit : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH mutez 0; # mutez : contract unit : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNIT; # unit : mutez : contract unit : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @self : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNIT; # unit : mutez : @self : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(params, sp.tez(0), sp.self_entrypoint('setReserveFactorInternal')) # list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF %setReserveFactorInternal; # @self : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # contract nat : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH mutez 0; # mutez : contract nat : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 3; # @parameter%setReserveFactor : mutez : contract nat : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH mutez 0; # mutez : @self : list operation : @parameter%setReserveFactor : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # @parameter%setReserveFactor : mutez : @self : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { + # == sweepFA12 == + # sp.verify(params.tokenAddress != self.data.fa1_2_TokenAddress, 'CT_SWEEP_UNDERLYING') # @parameter%sweepFA12 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%sweepFA12 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%sweepFA12 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 7; # address : @parameter%sweepFA12 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3858,6 +3977,7 @@ code PUSH string "CT_SWEEP_UNDERLYING"; # string : @parameter%sweepFA12 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%sweepFA12 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(from_ = sp.self_address, to_ = self.data.administrator, value = params.amount), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), params.tokenAddress, entrypoint='transfer').open_some()) # @parameter%sweepFA12 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : @parameter%sweepFA12 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @parameter%sweepFA12 : list operation : @parameter%sweepFA12 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # address : list operation : @parameter%sweepFA12 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3877,8 +3997,7 @@ code CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # address : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : address : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : nat : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR 3; # pair address (pair address nat) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR 3; # pair @self (pair address nat) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # list operation : pair (pair (pair (pair nat (pair (set nat) address)) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3889,6 +4008,8 @@ code { IF_LEFT { + # == sweepFA2 == + # sp.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(amount = params.amount, to_ = self.data.administrator, token_id = params.id)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), params.tokenAddress, entrypoint='transfer').open_some()) # @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @parameter%sweepFA2 : list operation : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # address : list operation : @parameter%sweepFA2 : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3915,15 +4036,17 @@ code PAIR 3; # pair address (pair nat nat) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair @self (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { + # == sweepMutez == + # if params: # @parameter%sweepMutez : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # sp.send(self.data.administrator, sp.balance) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3938,12 +4061,12 @@ code } {}; # @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) BALANCE; # @balance : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNIT; # unit : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNIT; # unit : @balance : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { + # sp.send(self.data.administrator, sp.balance) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3958,8 +4081,7 @@ code } {}; # @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) BALANCE; # @balance : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNIT; # unit : mutez : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + UNIT; # unit : @balance : @some : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -3968,10 +4090,11 @@ code { IF_LEFT { + # == transfer == + # sp.verify((params.from_ == sp.sender) | (self.data.ledger[params.from_].approvals[sp.sender] >= params.value), ('NotEnoughAllowance', (params.value, self.data.ledger[params.from_].approvals[sp.sender]))) # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 2; # @parameter%transfer : address : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # address : address : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # @parameter%transfer : @sender : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : @sender : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -3990,17 +4113,16 @@ code GET; # option (pair (map %approvals address nat) (nat %balance)) : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 404; # int : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 407; # int : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # map address nat : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : map address nat : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : map address nat : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET; # option nat : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 404; # int : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 407; # int : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4010,13 +4132,39 @@ code IF {} { - PUSH string "FA1.2_NotAllowed"; # string : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # verify # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # @parameter%transfer : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (map %approvals address nat) (nat %balance)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 408; # int : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # map address nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : map address nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option nat : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 408; # int : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 2; # @parameter%transfer : @some : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : @some : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair nat @some : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH string "NotEnoughAllowance"; # string : pair nat @some : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair string (pair nat @some) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SENDER; # @sender : address : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SENDER; # @sender : @self : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NEQ; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -4025,6 +4173,7 @@ code PUSH string "CT_INTERNAL_CALL"; # string : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if ~ (self.data.ledger.contains(params.to_)): # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4032,11 +4181,11 @@ code DUP 2; # @parameter%transfer : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # address : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) MEM; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NOT; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[params.to_] = sp.record(approvals = {}, balance = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4058,8 +4207,8 @@ code SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - {}; # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if ~ (self.data.borrows.contains(params.to_)): # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4067,11 +4216,11 @@ code DUP 2; # @parameter%transfer : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # address : big_map address (pair (nat %interestIndex) (nat %principal)) : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) MEM; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - NOT; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # bool : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF + {} { SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.borrows[params.to_] = sp.record(interestIndex = 0, principal = 0) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))) : pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4087,8 +4236,8 @@ code PAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - {}; # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + }; # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.transfer(sp.record(cToken = sp.self_address, dst = params.to_, src = params.from_, transferTokens = params.value), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, dst = sp.TAddress, src = sp.TAddress, transferTokens = sp.TNat).layout((("cToken", "src"), ("dst", "transferTokens"))), self.data.comptroller, entrypoint='transferAllowed').open_some()) # @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NIL operation; # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4097,7 +4246,7 @@ code CONTRACT %transferAllowed (pair (pair (address %cToken) (address %src)) (pair (address %dst) (nat %transferTokens))); # option (contract (pair (pair (address %cToken) (address %src)) (pair (address %dst) (nat %transferTokens)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 427; # int : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 431; # int : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4110,11 +4259,11 @@ code DUP 5; # @parameter%transfer : pair address nat : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # address : pair address nat : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SELF_ADDRESS; # @self : address : pair address nat : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : pair address nat : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair address address : pair address nat : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair (pair address address) (pair address nat) : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair @self address : pair address nat : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair (pair @self address) (pair address nat) : mutez : @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) TRANSFER_TOKENS; # operation : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CONS; # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(self.data.ledger[params.from_].balance >= params.value, ('NotEnoughBalance', (params.value, self.data.ledger[params.from_].balance))) # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @parameter%transfer : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4126,7 +4275,7 @@ code GET; # option (pair (map address nat) nat) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 413; # int : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 417; # int : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4136,9 +4285,29 @@ code IF {} { - PUSH string "FA1.2_InsufficientBalance"; # string : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # verify # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 3; # pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # pair nat (pair address (big_map address (pair (map address nat) nat))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # big_map address (pair (map address nat) nat) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter%transfer : big_map address (pair (map address nat) nat) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : big_map address (pair (map address nat) nat) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET; # option (pair (map address nat) nat) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + IF_NONE + { + PUSH int 418; # int : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + FAILWITH; # FAILED + } + {}; # @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CDR; # nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter%transfer : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + GET 4; # nat : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair nat nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH string "NotEnoughBalance"; # string : pair nat nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PAIR; # pair string (pair nat nat) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED }; # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[params.from_].balance = sp.as_nat(self.data.ledger[params.from_].balance - params.value) # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @parameter%transfer : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4150,17 +4319,16 @@ code GET; # option (pair (map address nat) nat) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 416; # int : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 420; # int : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # nat : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 415; # int : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 419; # int : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4181,7 +4349,7 @@ code GET; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 415; # int : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 419; # int : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @some : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4190,6 +4358,7 @@ code SOME; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # address : option (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.ledger[params.to_].balance += params.value # big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP; # big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 9; # @parameter%transfer : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # address : big_map address (pair (map address nat) nat) : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4198,7 +4367,7 @@ code GET; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 417; # int : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 421; # int : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4220,14 +4389,15 @@ code SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUG 2; # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if params.from_ != sp.sender: # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # @parameter%transfer : address : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # address : address : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DUP 3; # @parameter%transfer : @sender : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + CAR; # address : @sender : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NEQ; # bool : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # self.data.ledger[params.from_].approvals[sp.sender] = sp.as_nat(self.data.ledger[params.from_].approvals[sp.sender] - params.value) # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4245,7 +4415,7 @@ code GET; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 419; # int : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 423; # int : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4262,32 +4432,29 @@ code GET; # option (pair (map address nat) nat) : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 420; # int : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 424; # int : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # map address nat : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : map address nat : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : map address nat : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET; # option nat : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 420; # int : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 424; # int : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SUB; # int : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) ISNAT; # option nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # option nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 419; # int : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 423; # int : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SOME; # option nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : option nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : option nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE 1; # @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SOME; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4302,6 +4469,7 @@ code SWAP; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PAIR; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUG 2; # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.ledger[params.from_].approvals[sp.sender] == 0: # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4312,17 +4480,16 @@ code GET; # option (pair (map address nat) nat) : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 421; # int : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 425; # int : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # map address nat : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : map address nat : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : map address nat : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET; # option nat : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 421; # int : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 425; # int : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4330,6 +4497,7 @@ code EQ; # bool : list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # del self.data.ledger[params.from_].approvals[sp.sender] # list operation : @parameter%transfer : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DIG 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : @parameter%transfer : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4347,7 +4515,7 @@ code GET; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 422; # int : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 426; # int : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4355,7 +4523,6 @@ code CAR; # map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) NONE nat; # option nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : option nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : option nat : map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE; # map address nat : @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UPDATE 1; # @some : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SOME; # option (pair (map address nat) nat) : address : big_map address (pair (map address nat) nat) : address : nat : pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4382,13 +4549,14 @@ code }; # list operation : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map address (pair nat nat)) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) } { + # == updateMetadata == + # sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN') # @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 4; # address : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SENDER; # @sender : address : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # address : address : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) COMPARE; # int : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) EQ; # bool : @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF @@ -4398,6 +4566,7 @@ code FAILWITH; # FAILED }; # @parameter%updateMetadata : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%updateMetadata : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # self.data.metadata[params.key] = params.value # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter%updateMetadata : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : @parameter%updateMetadata : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply)))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%updateMetadata : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) UNPAIR; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))) : pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @parameter%updateMetadata : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4438,6 +4607,7 @@ view "accrualBlockNumber" unit nat { GET 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # sp.result(self.data.accrualBlockNumber) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) @@ -4447,7 +4617,9 @@ view "balanceOf" address nat { UNPAIR 3; # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # result = sp.local("result", 0) # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.ledger.contains(params): # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4460,6 +4632,7 @@ view DIG 2; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) DROP; # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter + # result.value = self.data.ledger[params].balance # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @parameter CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : @parameter GET 4; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter @@ -4467,7 +4640,7 @@ view GET; # option (pair (map %approvals address nat) (nat %balance)) IF_NONE { - PUSH int 503; # int + PUSH int 509; # int FAILWITH; # FAILED } {}; # @some @@ -4481,12 +4654,15 @@ view SWAP; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : nat DROP; # nat }; # nat + # sp.result(result.value) # nat }; view - "borrowBalanceStoredView" address nat + "borrowBalanceStoredView" address (pair nat nat) { UNPAIR 3; # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowBalance = sp.local("borrowBalance", 0) # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.borrows.contains(params): # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4495,6 +4671,7 @@ view MEM; # bool : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF { + # borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[params]) # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4503,10 +4680,11 @@ view GET; # option (pair (nat %interestIndex) (nat %principal)) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) IF_NONE { - PUSH int 628; # int : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 638; # int : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) FAILWITH; # FAILED } {}; # @some : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if borrowSnapshot.value.principal > 0: # @some : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : @some : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # @some : nat : @some : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CDR; # nat : nat : @some : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4520,60 +4698,68 @@ view DROP; # @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DIG 2; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) DROP; # @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) DUP; # @some : @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) CAR; # nat : @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - DIG 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some - CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @some - CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat : @some - GET 3; # nat : nat : @some - DIG 2; # @some : nat : nat - CDR; # nat : nat : nat - MUL; # nat : nat - EDIV; # option (pair nat nat) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat : @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # nat : nat : @some : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DIG 2; # @some : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CDR; # nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + MUL; # nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + EDIV; # option (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) IF_NONE { - PUSH int 631; # int + PUSH int 641; # int : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) FAILWITH; # FAILED } { - CAR; # nat - }; # nat + CAR; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + }; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) } { DROP; # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # @parameter : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # nat : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : nat - DROP; # nat - }; # nat + DIG 2; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + }; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) } { SWAP; # @parameter : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # nat : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : nat - DROP; # nat - }; # nat + DIG 2; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + }; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat + # sp.result((borrowBalance.value, self.data.accrualBlockNumber)) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : nat + CAR; # nat : nat + SWAP; # nat : nat + PAIR; # pair nat nat }; view "comptroller" unit address { GET 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # sp.result(self.data.comptroller) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) GET 3; # address }; view - "exchangeRateStoredView" unit nat + "exchangeRateStoredView" unit (pair nat nat) { UNPAIR 3; # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) CAR; # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if self.data.totalSupply > 0: # nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) PUSH nat 0; # nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) GET 10; # nat : nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) @@ -4584,6 +4770,7 @@ view DROP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) SWAP; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) DROP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) PUSH nat 0; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) GET 10; # nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) @@ -4595,6 +4782,7 @@ view PUSH string "DIVISION_BY_ZERO"; # string : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) FAILWITH; # FAILED }; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) DUP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) GET 10; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) @@ -4606,247 +4794,291 @@ view GET 7; # pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows) : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) CDR; # nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) PUSH nat 0; # nat : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - DIG 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : nat : nat - CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : nat : nat : nat : nat - GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : nat : nat : nat : nat - GET 4; # nat : nat : nat : nat : nat : nat - SUB; # int : nat : nat : nat : nat - ISNAT; # option nat : nat : nat : nat : nat - RENAME; # option nat : nat : nat : nat : nat + DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 4; # nat : nat : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + SUB; # int : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + ISNAT; # option nat : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) IF_NONE { - PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat + PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) FAILWITH; # FAILED } - {}; # @some : nat : nat : nat : nat - ADD; # nat : nat : nat : nat - SUB; # int : nat : nat - ISNAT; # option nat : nat : nat - RENAME; # option nat : nat : nat + {}; # @some : nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + ADD; # nat : nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + SUB; # int : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + ISNAT; # option nat : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) IF_NONE { - PUSH int 671; # int : nat : nat + PUSH int 681; # int : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) FAILWITH; # FAILED } - {}; # @some : nat : nat - MUL; # nat : nat - EDIV; # option (pair nat nat) + {}; # @some : nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + MUL; # nat : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + EDIV; # option (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) IF_NONE { - PUSH int 257; # int + PUSH int 257; # int : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) FAILWITH; # FAILED } { - CAR; # nat - }; # nat + CAR; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + }; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) } { SWAP; # @parameter : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) DROP; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # nat : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : nat - DROP; # nat - }; # nat + DIG 2; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + }; # nat : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat + # sp.result((excRate.value, self.data.accrualBlockNumber)) # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : nat + CAR; # nat : nat + SWAP; # nat : nat + PAIR; # pair nat nat }; view - "getAccountSnapshotView" address (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))) + "getAccountSnapshotView" address (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))) { UNPAIR 3; # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH (pair nat nat) (Pair 0 0); # pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH nat 0; # nat : pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # @parameter : nat : pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair @parameter nat : pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 4; # big_map address (pair (map %approvals address nat) (nat %balance)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # @parameter : big_map address (pair (map %approvals address nat) (nat %balance)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - MEM; # bool : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # if (self.data.accrualBlockNumber == sp.level) | (~ (self.data.ledger.contains(params))): # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + LEVEL; # @level : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + DIG 3; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : @level : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # @level : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @level : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : @level : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : @level : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : @level : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # nat : @level : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + COMPARE; # int : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + EQ; # bool : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) IF { - DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - LEVEL; # @level : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - RENAME; # nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - COMPARE; # int : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - EQ; # bool : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - IF - {} - { - PUSH string "CT_INTEREST_OLD"; # string : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - FAILWITH; # FAILED - }; # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 4; # big_map address (pair (map %approvals address nat) (nat %balance)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # @parameter : big_map address (pair (map %approvals address nat) (nat %balance)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET; # option (pair (map %approvals address nat) (nat %balance)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - IF_NONE - { - PUSH int 573; # int : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - FAILWITH; # FAILED - } - {}; # @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CDR; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UPDATE 3; # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH nat 0; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # big_map address (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 4; # @parameter : big_map address (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - MEM; # bool : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH bool True; # bool : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + } + { + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 4; # big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 2; # @parameter : big_map address (pair (map %approvals address nat) (nat %balance)) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + MEM; # bool : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + NOT; # bool : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + }; # bool : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + IF + { + # compute_CToken_571 = sp.local("compute_CToken_571", sp.record(account = params, borrowBalance = 0, cTokenBalance = 0, exchangeRateMantissa = 0)) # @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + PUSH (pair nat nat) (Pair 0 0); # pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + PUSH nat 0; # nat : pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # @parameter : nat : pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + PAIR; # pair @parameter nat : pair nat nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + PAIR; # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # if self.data.ledger.contains(params): # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 4; # big_map address (pair (map %approvals address nat) (nat %balance)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # @parameter : big_map address (pair (map %approvals address nat) (nat %balance)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + MEM; # bool : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) IF { - DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # big_map address (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 4; # @parameter : big_map address (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET; # option (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # sp.verify(sp.level == self.data.accrualBlockNumber, 'CT_INTEREST_OLD') # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + LEVEL; # @level : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + COMPARE; # int : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + EQ; # bool : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + IF + {} + { + PUSH string "CT_INTEREST_OLD"; # string : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + FAILWITH; # FAILED + }; # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # compute_CToken_571.value.cTokenBalance = self.data.ledger[params].balance # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 4; # big_map address (pair (map %approvals address nat) (nat %balance)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # @parameter : big_map address (pair (map %approvals address nat) (nat %balance)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET; # option (pair (map %approvals address nat) (nat %balance)) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) IF_NONE { - PUSH int 628; # int : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 579; # int : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) FAILWITH; # FAILED } - {}; # @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH nat 0; # nat : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 2; # @some : nat : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CDR; # nat : nat : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - COMPARE; # int : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GT; # bool : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + {}; # @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CDR; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + UPDATE 3; # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # borrowBalance = sp.local("borrowBalance", 0) # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + PUSH nat 0; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # if self.data.borrows.contains(params): # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # big_map address (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 4; # @parameter : big_map address (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + MEM; # bool : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) IF { - SWAP; # nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP; # @some : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 3; # nat : nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 2; # @some : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CDR; # nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - MUL; # nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - EDIV; # option (pair nat nat) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + # borrowSnapshot = sp.local("borrowSnapshot", self.data.borrows[params]) # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # big_map address (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 4; # @parameter : big_map address (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET; # option (pair (nat %interestIndex) (nat %principal)) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) IF_NONE { - PUSH int 631; # int : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + PUSH int 638; # int : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) FAILWITH; # FAILED } + {}; # @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # if borrowSnapshot.value.principal > 0: # @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + PUSH nat 0; # nat : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 2; # @some : nat : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CDR; # nat : nat : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + COMPARE; # int : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GT; # bool : @some : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + IF { - CAR; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - }; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) + SWAP; # nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP; # @some : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock))) : nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # nat : nat : @some : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DIG 2; # @some : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CDR; # nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + MUL; # nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + EDIV; # option (pair nat nat) : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + IF_NONE + { + PUSH int 641; # int : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + FAILWITH; # FAILED + } + { + CAR; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + }; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + } + { + DROP; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + }; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) } - { - DROP; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - }; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - } - {}; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # pair (pair @parameter nat) (pair nat nat) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - UNPAIR; # pair @parameter nat : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # @parameter : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 3; # nat : @parameter : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # @parameter : nat : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair @parameter nat : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PAIR; # pair (pair @parameter nat) (pair nat nat) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - CAR; # nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - PUSH nat 0; # nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GET 10; # nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - COMPARE; # int : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - GT; # bool : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - IF - { - DROP 2; # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # @parameter : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 2; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - DROP; # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - PUSH nat 0; # nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - GET 10; # nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - COMPARE; # int : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - GT; # bool : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + {}; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + SWAP; # pair (pair @parameter nat) (pair nat nat) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # compute_CToken_571.value.borrowBalance = borrowBalance.value # pair (pair @parameter nat) (pair nat nat) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + UNPAIR; # pair @parameter nat : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # @parameter : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # nat : @parameter : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + SWAP; # @parameter : nat : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + PAIR; # pair @parameter nat : pair nat nat : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + PAIR; # pair (pair @parameter nat) (pair nat nat) : nat : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + SWAP; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 3; # pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance)))) : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # if self.data.totalSupply > 0: # nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + PUSH nat 0; # nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 10; # nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + COMPARE; # int : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GT; # bool : nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) IF - {} - { - PUSH string "DIVISION_BY_ZERO"; # string : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - FAILWITH; # FAILED - }; # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - GET 10; # nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - GET 5; # nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - GET 9; # nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - GET 7; # pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows) : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - CDR; # nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - PUSH nat 0; # nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) - DIG 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - GET 4; # nat : nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - SUB; # int : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - ISNAT; # option nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - RENAME; # option nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - IF_NONE - { - PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - FAILWITH; # FAILED - } - {}; # @some : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - ADD; # nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - SUB; # int : nat : nat : pair (pair @parameter nat) (pair nat nat) - ISNAT; # option nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - RENAME; # option nat : nat : nat : pair (pair @parameter nat) (pair nat nat) - IF_NONE { - PUSH int 671; # int : nat : nat : pair (pair @parameter nat) (pair nat nat) - FAILWITH; # FAILED - } - {}; # @some : nat : nat : pair (pair @parameter nat) (pair nat nat) - MUL; # nat : nat : pair (pair @parameter nat) (pair nat nat) - EDIV; # option (pair nat nat) : pair (pair @parameter nat) (pair nat nat) - IF_NONE - { - PUSH int 257; # int : pair (pair @parameter nat) (pair nat nat) - FAILWITH; # FAILED + DROP 2; # pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + SWAP; # @parameter : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + PUSH nat 0; # nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 10; # nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + COMPARE; # int : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GT; # bool : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + IF + {} + { + PUSH string "DIVISION_BY_ZERO"; # string : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + FAILWITH; # FAILED + }; # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + # excRate.value = (sp.as_nat((sp.as_nat(self.data.currentCash - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 10; # nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 3; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 5; # nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 4; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 9; # nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DUP 5; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + GET 7; # pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows) : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + CDR; # nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + PUSH nat 0; # nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DIG 6; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + CAR; # pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale)))) : nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + GET 3; # pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash)) : nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + GET 4; # nat : nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + SUB; # int : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + ISNAT; # option nat : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + IF_NONE + { + PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + FAILWITH; # FAILED + } + {}; # @some : nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + ADD; # nat : nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + SUB; # int : nat : nat : pair (pair @parameter nat) (pair nat nat) + ISNAT; # option nat : nat : nat : pair (pair @parameter nat) (pair nat nat) + IF_NONE + { + PUSH int 681; # int : nat : nat : pair (pair @parameter nat) (pair nat nat) + FAILWITH; # FAILED + } + {}; # @some : nat : nat : pair (pair @parameter nat) (pair nat nat) + MUL; # nat : nat : pair (pair @parameter nat) (pair nat nat) + EDIV; # option (pair nat nat) : pair (pair @parameter nat) (pair nat nat) + IF_NONE + { + PUSH int 257; # int : pair (pair @parameter nat) (pair nat nat) + FAILWITH; # FAILED + } + { + CAR; # nat : pair (pair @parameter nat) (pair nat nat) + }; # nat : pair (pair @parameter nat) (pair nat nat) } { - CAR; # nat : pair (pair @parameter nat) (pair nat nat) + SWAP; # nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DIG 2; # @parameter : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DIG 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) + DROP; # nat : pair (pair @parameter nat) (pair nat nat) }; # nat : pair (pair @parameter nat) (pair nat nat) + # compute_CToken_571.value.exchangeRateMantissa = excRate.value # nat : pair (pair @parameter nat) (pair nat nat) + UPDATE 4; # pair (pair @parameter nat) (pair nat nat) } { - SWAP; # nat : nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # nat : pair (pair @parameter nat) (pair nat nat) : @parameter : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 2; # @parameter : nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # nat : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 2; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : nat : pair (pair @parameter nat) (pair nat nat) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # nat : pair (pair @parameter nat) (pair nat nat) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DIG 2; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : nat : pair (pair @parameter nat) (pair nat nat) - DROP; # nat : pair (pair @parameter nat) (pair nat nat) - }; # nat : pair (pair @parameter nat) (pair nat nat) - UPDATE 4; # pair (pair @parameter nat) (pair nat nat) + SWAP; # @parameter : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + DROP; # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) + SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) + DROP; # pair (pair @parameter nat) (pair nat nat) + }; # pair (pair @parameter nat) (pair nat nat) + # sp.result(sp.some(compute_CToken_571.value)) # pair (pair @parameter nat) (pair nat nat) + SOME; # option (pair (pair @parameter nat) (pair nat nat)) } { - SWAP; # @parameter : pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # pair (pair @parameter nat) (pair nat nat) : pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # pair (pair (pair (pair (nat %accrualBlockNumber) (pair (set %activeOperations nat) (address %administrator))) (pair (nat %borrowIndex) (pair (nat %borrowRateMaxMantissa) (nat %borrowRatePerBlock)))) (pair (pair (big_map %borrows address (pair (nat %interestIndex) (nat %principal))) (pair (address %comptroller) (nat %currentCash))) (pair (nat %expScale) (pair (address %fa1_2_TokenAddress) (nat %halfExpScale))))) (pair (pair (pair (nat %initialExchangeRateMantissa) (pair (address %interestRateModel) (big_map %ledger address (pair (map %approvals address nat) (nat %balance))))) (pair (big_map %metadata string bytes) (pair (option %pendingAdministrator address) (nat %protocolSeizeShareMantissa)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (pair (big_map %token_metadata nat (pair (nat %token_id) (map %token_info string bytes))) (nat %totalBorrows)) (pair (nat %totalReserves) (nat %totalSupply))))) : pair (pair @parameter nat) (pair nat nat) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - DROP; # pair (pair @parameter nat) (pair nat nat) : big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) - SWAP; # big_map nat (lambda (pair (or (or (or unit (or (contract nat) (pair address nat))) (or nat (or unit nat))) (or (or unit (or nat address)) (or (or address address) (or nat nat)))) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat (pair (set nat) address)) (pair nat (pair nat nat))) (pair (pair (big_map address (pair nat nat)) (pair address nat)) (pair nat (pair address nat)))) (pair (pair (pair nat (pair address (big_map address (pair (map address nat) nat)))) (pair (big_map string bytes) (pair (option address) nat))) (pair (pair nat (pair nat nat)) (pair (pair (big_map nat (pair nat (map string bytes))) nat) (pair nat nat))))))) : pair (pair @parameter nat) (pair nat nat) - DROP; # pair (pair @parameter nat) (pair nat nat) - }; # pair (pair @parameter nat) (pair nat nat) + DROP 2; # + # sp.result(sp.none) # + NONE (pair (pair address nat) (pair nat nat)); # option (pair (pair address nat) (pair nat nat)) + }; # option (pair (pair address nat) (pair nat nat)) }; \ No newline at end of file diff --git a/compiled_contracts/CtzBTC/step_000_cont_0_sizes.csv b/compiled_contracts/CtzBTC/step_000_cont_0_sizes.csv index 7de82682..5a597ba1 100644 --- a/compiled_contracts/CtzBTC/step_000_cont_0_sizes.csv +++ b/compiled_contracts/CtzBTC/step_000_cont_0_sizes.csv @@ -1,2 +1,2 @@ -storage,5212 -contract,20314 \ No newline at end of file +storage,5394 +contract,20220 \ No newline at end of file diff --git a/compiled_contracts/CtzBTC/step_000_cont_0_storage.json b/compiled_contracts/CtzBTC/step_000_cont_0_storage.json index d27c1ed6..8d539586 100644 --- a/compiled_contracts/CtzBTC/step_000_cont_0_storage.json +++ b/compiled_contracts/CtzBTC/step_000_cont_0_storage.json @@ -123,14 +123,13 @@ { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_SET_PENDING_ADMIN" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_PENDING_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "DUP" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "5" } ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "812" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "822" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, @@ -196,9 +195,7 @@ ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -220,7 +217,7 @@ ], "annots": [ "%getBorrowRate" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "744" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "754" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "9" } ] }, @@ -271,9 +268,7 @@ ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "NEQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -282,9 +277,84 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [], + [ + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { + "prim": "PUSH", + "args": [ + { "prim": "option", "args": [ { "prim": "pair", "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] } ] }, + { "prim": "Some", "args": [ { "prim": "Pair", "args": [ [], { "int": "0" } ] } ] } + ] + }, + { "prim": "SENDER" }, + { "prim": "UPDATE" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "SWAP" } + ] + ] + }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "SENDER" }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [], + [ + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { + "prim": "PUSH", + "args": [ + { "prim": "option", "args": [ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }, + { "prim": "Some", "args": [ { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } ] } + ] + }, + { "prim": "SENDER" }, + { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "SWAP" } + ] + ] + }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SENDER" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "454" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "460" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, @@ -300,9 +370,8 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "455" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "461" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "SIZE" }, { "prim": "COMPARE" }, @@ -310,16 +379,30 @@ ] ] }, - { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA1.2_MaxApprovalsReached" } ] }, { "prim": "FAILWITH" } ] ] }, + { + "prim": "IF", + "args": [ + [], + [ + { + "prim": "PUSH", + "args": [ + { "prim": "pair", "args": [ { "prim": "string" }, { "prim": "unit" } ] }, + { "prim": "Pair", "args": [ { "string": "FA1.2_MaxApprovalsReached" }, { "prim": "Unit" } ] } + ] + }, + { "prim": "FAILWITH" } + ] + ] + }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "457" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "463" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, @@ -340,7 +423,29 @@ ] ] }, - { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "FA1.2_UnsafeAllowanceChange" } ] }, { "prim": "FAILWITH" } ] ] }, + { + "prim": "IF", + "args": [ + [], + [ + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SENDER" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "463" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] } ], [] ] }, + { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "UnsafeAllowanceChange" } ] }, + { "prim": "PAIR" }, + { "prim": "FAILWITH" } + ] + ] + }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, @@ -361,11 +466,10 @@ { "prim": "SWAP" }, { "prim": "DUP" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "462" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "468" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP" }, { "prim": "CAR" }, { "prim": "NONE", "args": [ { "prim": "nat" } ] }, @@ -397,11 +501,10 @@ { "prim": "SWAP" }, { "prim": "DUP" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "464" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "470" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP" }, { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "10" } ] }, @@ -456,7 +559,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_SENDER_NOT_IRM" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -499,11 +601,9 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "759" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "769" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "MUL" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, @@ -591,7 +691,6 @@ { "prim": "DROP" }, { "prim": "DIG", "args": [ { "int": "5" } ] }, { "prim": "DROP" }, - { "prim": "RENAME" }, { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "PAIR" }, @@ -641,7 +740,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -693,9 +791,7 @@ ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -743,7 +839,6 @@ { "prim": "GET", "args": [ { "int": "9" } ] }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "SWAP" }, @@ -775,7 +870,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" }, @@ -810,7 +904,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -894,7 +987,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "7" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INVALID_CASH_SENDER" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -955,7 +1047,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -1010,9 +1101,7 @@ ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -1093,7 +1182,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -1151,9 +1239,7 @@ ] }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -1188,7 +1274,6 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "LEVEL" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -1253,7 +1338,6 @@ { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, diff --git a/compiled_contracts/CtzBTC/step_000_cont_0_storage.tz b/compiled_contracts/CtzBTC/step_000_cont_0_storage.tz index 865a67e6..3f0e934a 100644 --- a/compiled_contracts/CtzBTC/step_000_cont_0_storage.tz +++ b/compiled_contracts/CtzBTC/step_000_cont_0_storage.tz @@ -1 +1 @@ -(Pair (Pair (Pair (Pair (Pair 0 (Pair {} "KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2")) (Pair 1000000000000000000 (Pair 800000000000 0))) (Pair (Pair {} (Pair "KT1DiWBT6RBC97iWrvLHRzKL7AWQKorBiuRG" 0)) (Pair 1000000000000000000 (Pair "KT1PWx2mnDueood7fEmfbBDKx1D9BAnnXitn" 500000000000000000)))) (Pair (Pair (Pair 1000000000000000000 (Pair "KT1Vzf3fXVBry4TDxWAfYzsn6ZPyMroMKUdW" {})) (Pair {Elt "" 0x74657a6f732d73746f726167653a64617461; Elt "data" 0x7b226e616d65223a202254657a46696e20496e7465726573742d42656172696e6720747a425443222c20226465736372697074696f6e223a2022496e7465726573742d62656172696e6720746f6b656e20666f7220747a42544320287772617070656420426974636f696e206f6e2054657a6f732920737570706c69656420746f207468652054657a46696e206c656e64696e672070726f746f636f6c2e222c202276657273696f6e223a2022332e30222c2022617574686f7273223a205b2254657a6f732046696e616e63652050726f746f636f6c225d2c2022686f6d6570616765223a202268747470733a2f2f74657a6f732e66696e616e6365222c2022696e7465726661636573223a205b22545a49502d303037222c2022545a49502d303136225d7d} (Pair None 100000000000000))) (Pair (Pair 50000000000000000 (Pair 1000000000000000000 0)) (Pair (Pair {Elt 0 (Pair 0 {Elt "decimals" 0x38; Elt "name" 0x54657a46696e20496e7465726573742d42656172696e6720747a425443; Elt "symbol" 0xea9cb0747a425443})} 0) (Pair 0 0))))) {Elt 0 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; DUP; GET 3; GET 5; IF_NONE { PUSH string "CT_NOT_SET_PENDING_ADMIN"; FAILWITH } {}; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_PENDING_ADMIN"; FAILWITH }; DUP; GET 3; GET 5; IF_NONE { PUSH int 812; FAILWITH } {}; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 1 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; NIL operation; DUP 3; GET 3; CAR; GET 3; CONTRACT %getBorrowRate (pair (pair (nat %borrows) (nat %cash)) (pair (contract %cb nat) (nat %reserves))); IF_NONE { PUSH int 744; FAILWITH } {}; PUSH mutez 0; DUP 5; GET 9; DIG 4; PAIR; DUP 5; CAR; GET 3; GET 4; DUP 6; GET 7; CDR; PAIR; PAIR; TRANSFER_TOKENS; CONS; PAIR }; Elt 2 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; RENAME; SENDER; RENAME; COMPARE; NEQ; IF {} { PUSH string "CT_INTERNAL_CALL"; FAILWITH }; DUP 2; GET 3; CAR; GET 4; SENDER; RENAME; GET; IF_NONE { PUSH int 454; FAILWITH } {}; CAR; DUP 2; CAR; MEM; IF { PUSH bool True } { PUSH nat 1000; DUP 3; GET 3; CAR; GET 4; SENDER; RENAME; GET; IF_NONE { PUSH int 455; FAILWITH } {}; CAR; SIZE; COMPARE; LT }; IF {} { PUSH string "FA1.2_MaxApprovalsReached"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; CAR; GET 4; SENDER; RENAME; GET; IF_NONE { PUSH int 457; FAILWITH } {}; CAR; DUP 3; CAR; GET; IF_NONE { PUSH nat 0 } {}; COMPARE; EQ; IF { PUSH bool True } { PUSH nat 0; DUP 2; CDR; COMPARE; EQ }; IF {} { PUSH string "FA1.2_UnsafeAllowanceChange"; FAILWITH }; PUSH nat 0; DUP 2; CDR; COMPARE; EQ; IF { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; SENDER; RENAME; DUP; DUG 2; GET; IF_NONE { PUSH int 462; FAILWITH } {}; DUP; CAR; NONE nat; DIG 10; CAR; UPDATE; UPDATE 1; SOME; SWAP; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR } { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; SENDER; RENAME; DUP; DUG 2; GET; IF_NONE { PUSH int 464; FAILWITH } {}; DUP; CAR; DUP 10; CDR; SOME; DIG 10; CAR; UPDATE; UPDATE 1; SOME; SWAP; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR }; NIL operation; PAIR }; Elt 3 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH }; DUP 2; GET 3; CAR; GET 3; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_SENDER_NOT_IRM"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 8; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 8; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; CAR; GET 5; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_BORROW_RATE"; FAILWITH }; DUP 2; CAR; CAR; CAR; CAR; LEVEL; RENAME; SUB; ISNAT; RENAME; IF_NONE { PUSH int 759; FAILWITH } {}; DUP 2; MUL; DUP 3; CAR; GET 5; DUP 4; GET 7; CDR; DUP 3; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; DUP 4; GET 7; CDR; DUP 2; ADD; DIG 4; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; CAR; DIG 5; SWAP; PAIR; PAIR; SWAP; PAIR; SWAP; PAIR; SWAP; PAIR; DUG 3; DUP 4; GET 9; DUP 5; CAR; GET 5; DUP 3; DUP 7; GET 5; CAR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; DIG 4; SWAP; UPDATE 9; DUG 3; DUP 4; CAR; CAR; GET 3; DUP 5; CAR; GET 5; DUP 6; CAR; CAR; GET 3; DUP 5; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; DIG 4; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; DIG 4; PAIR; SWAP; CDR; LEVEL; DIG 5; DROP; DIG 5; DROP; DIG 5; DROP; RENAME; PAIR; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 4 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } } } { PUSH int -1; FAILWITH }; DUP; CAR; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; EMPTY_SET nat; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 5 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 12; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 12; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP; DUP 3; CAR; GET 3; GET 4; COMPARE; GE; IF {} { PUSH string "CT_INSUFFICIENT_CASH"; FAILWITH }; DUP 2; GET 9; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_REDUCE_AMOUNT"; FAILWITH }; DUP; DUP 3; GET 9; SUB; ISNAT; RENAME; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; DIG 2; SWAP; UPDATE 9; SWAP; NIL operation; DUP 3; CAR; GET 7; CONTRACT %transfer (pair (address %from) (pair (address %to) (nat %value))); IF_NONE { PUSH int 17; FAILWITH } {}; PUSH mutez 0; DIG 3; DUP 5; CAR; CAR; CAR; GET 4; SELF_ADDRESS; RENAME; PAIR 3; TRANSFER_TOKENS; CONS; PAIR }; Elt 6 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } }; DUP; CAR; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 7 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 13; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 13; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; GET 7; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INVALID_CASH_SENDER"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; NIL operation; PAIR }; Elt 8 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } }; DUP 2; CAR; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; DIG 5; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; NIL operation; PAIR }; Elt 9 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT {} { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } }; SELF_ADDRESS; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 9; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 9; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; DIG 5; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 10 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } {} } { PUSH int -1; FAILWITH } } }; DUP 2; CAR; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; DIG 5; SOME; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 11 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } }; SELF_ADDRESS; RENAME; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 10; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 10; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; CAR; CAR; CAR; LEVEL; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_INTEREST_OLD"; FAILWITH }; DUP 2; GET 5; GET 3; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_RESERVE_FACTOR"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; CDR; DIG 4; PAIR; PAIR; SWAP; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 12 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } }; DUP 2; CAR; CAR; CAR; GET 4; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }}) \ No newline at end of file +(Pair (Pair (Pair (Pair (Pair 0 (Pair {} "KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2")) (Pair 1000000000000000000 (Pair 800000000000 0))) (Pair (Pair {} (Pair "KT1DiWBT6RBC97iWrvLHRzKL7AWQKorBiuRG" 0)) (Pair 1000000000000000000 (Pair "KT1PWx2mnDueood7fEmfbBDKx1D9BAnnXitn" 500000000000000000)))) (Pair (Pair (Pair 1000000000000000000 (Pair "KT1Vzf3fXVBry4TDxWAfYzsn6ZPyMroMKUdW" {})) (Pair {Elt "" 0x74657a6f732d73746f726167653a64617461; Elt "data" 0x7b226e616d65223a202254657a46696e20496e7465726573742d42656172696e6720747a425443222c20226465736372697074696f6e223a2022496e7465726573742d62656172696e6720746f6b656e20666f7220747a42544320287772617070656420426974636f696e206f6e2054657a6f732920737570706c69656420746f207468652054657a46696e206c656e64696e672070726f746f636f6c2e222c202276657273696f6e223a2022332e30222c2022617574686f7273223a205b2254657a6f732046696e616e63652050726f746f636f6c225d2c2022686f6d6570616765223a202268747470733a2f2f74657a6f732e66696e616e6365222c2022696e7465726661636573223a205b22545a49502d303037222c2022545a49502d303136225d7d} (Pair None 100000000000000))) (Pair (Pair 50000000000000000 (Pair 1000000000000000000 0)) (Pair (Pair {Elt 0 (Pair 0 {Elt "decimals" 0x38; Elt "name" 0x54657a46696e20496e7465726573742d42656172696e6720747a425443; Elt "symbol" 0xea9cb0747a425443})} 0) (Pair 0 0))))) {Elt 0 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; DUP; GET 3; GET 5; IF_NONE { PUSH string "CT_NOT_SET_PENDING_ADMIN"; FAILWITH } {}; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_PENDING_ADMIN"; FAILWITH }; DUP; GET 3; GET 5; IF_NONE { PUSH int 822; FAILWITH } {}; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 1 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; NIL operation; DUP 3; GET 3; CAR; GET 3; CONTRACT %getBorrowRate (pair (pair (nat %borrows) (nat %cash)) (pair (contract %cb nat) (nat %reserves))); IF_NONE { PUSH int 754; FAILWITH } {}; PUSH mutez 0; DUP 5; GET 9; DIG 4; PAIR; DUP 5; CAR; GET 3; GET 4; DUP 6; GET 7; CDR; PAIR; PAIR; TRANSFER_TOKENS; CONS; PAIR }; Elt 2 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; SENDER; COMPARE; NEQ; IF {} { PUSH string "CT_INTERNAL_CALL"; FAILWITH }; DUP 2; GET 3; CAR; GET 4; SENDER; MEM; IF {} { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; PUSH (option (pair (map address nat) nat)) (Some (Pair {} 0)); SENDER; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR; SWAP }; DUP 2; CAR; GET 3; CAR; SENDER; MEM; IF {} { SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; PUSH (option (pair nat nat)) (Some (Pair 0 0)); SENDER; UPDATE; PAIR; PAIR; SWAP; PAIR; PAIR; SWAP }; DUP 2; GET 3; CAR; GET 4; SENDER; GET; IF_NONE { PUSH int 460; FAILWITH } {}; CAR; DUP 2; CAR; MEM; IF { PUSH bool True } { PUSH nat 1000; DUP 3; GET 3; CAR; GET 4; SENDER; GET; IF_NONE { PUSH int 461; FAILWITH } {}; CAR; SIZE; COMPARE; LT }; IF {} { PUSH (pair string unit) (Pair "FA1.2_MaxApprovalsReached" Unit); FAILWITH }; PUSH nat 0; DUP 3; GET 3; CAR; GET 4; SENDER; GET; IF_NONE { PUSH int 463; FAILWITH } {}; CAR; DUP 3; CAR; GET; IF_NONE { PUSH nat 0 } {}; COMPARE; EQ; IF { PUSH bool True } { PUSH nat 0; DUP 2; CDR; COMPARE; EQ }; IF {} { DUP 2; GET 3; CAR; GET 4; SENDER; GET; IF_NONE { PUSH int 463; FAILWITH } {}; CAR; DUP 2; CAR; GET; IF_NONE { PUSH nat 0 } {}; PUSH string "UnsafeAllowanceChange"; PAIR; FAILWITH }; PUSH nat 0; DUP 2; CDR; COMPARE; EQ; IF { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; SENDER; DUP; DUG 2; GET; IF_NONE { PUSH int 468; FAILWITH } {}; DUP; CAR; NONE nat; DIG 10; CAR; UPDATE; UPDATE 1; SOME; SWAP; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR } { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; SENDER; DUP; DUG 2; GET; IF_NONE { PUSH int 470; FAILWITH } {}; DUP; CAR; DUP 10; CDR; SOME; DIG 10; CAR; UPDATE; UPDATE 1; SOME; SWAP; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR }; NIL operation; PAIR }; Elt 3 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH }; DUP 2; GET 3; CAR; GET 3; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_SENDER_NOT_IRM"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 8; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 8; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; CAR; GET 5; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_BORROW_RATE"; FAILWITH }; DUP 2; CAR; CAR; CAR; CAR; LEVEL; SUB; ISNAT; IF_NONE { PUSH int 769; FAILWITH } {}; DUP 2; MUL; DUP 3; CAR; GET 5; DUP 4; GET 7; CDR; DUP 3; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; DUP 4; GET 7; CDR; DUP 2; ADD; DIG 4; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; CAR; DIG 5; SWAP; PAIR; PAIR; SWAP; PAIR; SWAP; PAIR; SWAP; PAIR; DUG 3; DUP 4; GET 9; DUP 5; CAR; GET 5; DUP 3; DUP 7; GET 5; CAR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; DIG 4; SWAP; UPDATE 9; DUG 3; DUP 4; CAR; CAR; GET 3; DUP 5; CAR; GET 5; DUP 6; CAR; CAR; GET 3; DUP 5; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; DIG 4; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; DIG 4; PAIR; SWAP; CDR; LEVEL; DIG 5; DROP; DIG 5; DROP; DIG 5; DROP; PAIR; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 4 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } } } { PUSH int -1; FAILWITH }; DUP; CAR; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; EMPTY_SET nat; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 5 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 12; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 12; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP; DUP 3; CAR; GET 3; GET 4; COMPARE; GE; IF {} { PUSH string "CT_INSUFFICIENT_CASH"; FAILWITH }; DUP 2; GET 9; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_REDUCE_AMOUNT"; FAILWITH }; DUP; DUP 3; GET 9; SUB; ISNAT; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; DIG 2; SWAP; UPDATE 9; SWAP; NIL operation; DUP 3; CAR; GET 7; CONTRACT %transfer (pair (address %from) (pair (address %to) (nat %value))); IF_NONE { PUSH int 17; FAILWITH } {}; PUSH mutez 0; DIG 3; DUP 5; CAR; CAR; CAR; GET 4; SELF_ADDRESS; PAIR 3; TRANSFER_TOKENS; CONS; PAIR }; Elt 6 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } }; DUP; CAR; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; NONE address; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 7 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 13; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 13; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; GET 7; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INVALID_CASH_SENDER"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; NIL operation; PAIR }; Elt 8 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } }; DUP 2; CAR; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; DIG 5; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; NIL operation; PAIR }; Elt 9 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT {} { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } }; SELF_ADDRESS; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 9; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 9; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; DIG 5; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 10 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } {} } { PUSH int -1; FAILWITH } } }; DUP 2; CAR; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; DIG 5; SOME; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 11 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } }; SELF_ADDRESS; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; DUP 2; CAR; CAR; CAR; GET 3; PUSH nat 10; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 10; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; DUP 2; CAR; CAR; CAR; CAR; LEVEL; COMPARE; EQ; IF {} { PUSH string "CT_INTEREST_OLD"; FAILWITH }; DUP 2; GET 5; GET 3; DUP 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_RESERVE_FACTOR"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; CDR; DIG 4; PAIR; PAIR; SWAP; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 12 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } }; DUP 2; CAR; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }}) \ No newline at end of file diff --git a/compiled_contracts/CtzBTC/step_000_cont_0_types.py b/compiled_contracts/CtzBTC/step_000_cont_0_types.py index 5910ccc9..bbb20b96 100644 --- a/compiled_contracts/CtzBTC/step_000_cont_0_types.py +++ b/compiled_contracts/CtzBTC/step_000_cont_0_types.py @@ -1,6 +1,6 @@ import smartpy as sp tstorage = sp.TRecord(accrualBlockNumber = sp.TNat, activeOperations = sp.TSet(sp.TNat), administrator = sp.TAddress, borrowIndex = sp.TNat, borrowRateMaxMantissa = sp.TNat, borrowRatePerBlock = sp.TNat, borrows = sp.TBigMap(sp.TAddress, sp.TRecord(interestIndex = sp.TNat, principal = sp.TNat).layout(("interestIndex", "principal"))), comptroller = sp.TAddress, currentCash = sp.TNat, expScale = sp.TNat, fa1_2_TokenAddress = sp.TAddress, halfExpScale = sp.TNat, initialExchangeRateMantissa = sp.TNat, interestRateModel = sp.TAddress, ledger = sp.TBigMap(sp.TAddress, sp.TRecord(approvals = sp.TMap(sp.TAddress, sp.TNat), balance = sp.TNat).layout(("approvals", "balance"))), metadata = sp.TBigMap(sp.TString, sp.TBytes), pendingAdministrator = sp.TOption(sp.TAddress), protocolSeizeShareMantissa = sp.TNat, reserveFactorMantissa = sp.TNat, reserveFactorMaxMantissa = sp.TNat, supplyRatePerBlock = sp.TNat, token_metadata = sp.TBigMap(sp.TNat, sp.TRecord(token_id = sp.TNat, token_info = sp.TMap(sp.TString, sp.TBytes)).layout(("token_id", "token_info"))), totalBorrows = sp.TNat, totalReserves = sp.TNat, totalSupply = sp.TNat).layout((((("accrualBlockNumber", ("activeOperations", "administrator")), ("borrowIndex", ("borrowRateMaxMantissa", "borrowRatePerBlock"))), (("borrows", ("comptroller", "currentCash")), ("expScale", ("fa1_2_TokenAddress", "halfExpScale")))), ((("initialExchangeRateMantissa", ("interestRateModel", "ledger")), ("metadata", ("pendingAdministrator", "protocolSeizeShareMantissa"))), (("reserveFactorMantissa", ("reserveFactorMaxMantissa", "supplyRatePerBlock")), (("token_metadata", "totalBorrows"), ("totalReserves", "totalSupply")))))) -tparameter = sp.TVariant(acceptGovernance = sp.TUnit, accrueInterest = sp.TUnit, accrueInterestInternal = sp.TContract(sp.TNat), addReserves = sp.TNat, addReservesInternal = sp.TRecord(addAmount = sp.TNat, originalSender = sp.TAddress).layout(("addAmount", "originalSender")), approve = sp.TRecord(spender = sp.TAddress, value = sp.TNat).layout(("spender", "value")), borrow = sp.TNat, borrowBalanceStored = sp.TPair(sp.TAddress, sp.TContract(sp.TNat)), doAccrueInterest = sp.TNat, exchangeRateStored = sp.TPair(sp.TUnit, sp.TContract(sp.TNat)), getAccountSnapshot = sp.TPair(sp.TAddress, sp.TContract(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))), getAllowance = sp.TPair(sp.TRecord(owner = sp.TAddress, spender = sp.TAddress).layout(("owner", "spender")), sp.TContract(sp.TNat)), getBalance = sp.TPair(sp.TAddress, sp.TContract(sp.TNat)), getBalanceOfUnderlying = sp.TPair(sp.TAddress, sp.TContract(sp.TNat)), getCash = sp.TPair(sp.TUnit, sp.TContract(sp.TNat)), getTotalSupply = sp.TPair(sp.TUnit, sp.TContract(sp.TNat)), hardResetOp = sp.TUnit, liquidateBorrow = sp.TRecord(borrower = sp.TAddress, cTokenCollateral = sp.TAddress, repayAmount = sp.TNat).layout(("borrower", ("cTokenCollateral", "repayAmount"))), mint = sp.TNat, redeem = sp.TNat, redeemUnderlying = sp.TNat, reduceReserves = sp.TNat, reduceReservesInternal = sp.TNat, removePendingGovernance = sp.TUnit, repayBorrow = sp.TNat, repayBorrowBehalf = sp.TRecord(borrower = sp.TAddress, repayAmount = sp.TNat).layout(("borrower", "repayAmount")), seize = sp.TRecord(borrower = sp.TAddress, liquidator = sp.TAddress, seizeTokens = sp.TNat).layout(("borrower", ("liquidator", "seizeTokens"))), setCash = sp.TNat, setComptroller = sp.TAddress, setInterestRateModel = sp.TAddress, setInterestRateModelInternal = sp.TAddress, setPendingGovernance = sp.TAddress, setReserveFactor = sp.TNat, setReserveFactorInternal = sp.TNat, sweepFA12 = sp.TRecord(amount = sp.TNat, tokenAddress = sp.TAddress).layout(("amount", "tokenAddress")), sweepFA2 = sp.TRecord(amount = sp.TNat, id = sp.TNat, tokenAddress = sp.TAddress).layout(("amount", ("id", "tokenAddress"))), sweepMutez = sp.TBool, transfer = sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), updateMetadata = sp.TRecord(key = sp.TString, value = sp.TBytes).layout(("key", "value")), updateProtocolSeizeShare = sp.TNat).layout(((((("acceptGovernance", "accrueInterest"), ("accrueInterestInternal", ("addReserves", "addReservesInternal"))), (("approve", "borrow"), ("borrowBalanceStored", ("doAccrueInterest", "exchangeRateStored")))), ((("getAccountSnapshot", "getAllowance"), ("getBalance", ("getBalanceOfUnderlying", "getCash"))), (("getTotalSupply", "hardResetOp"), ("liquidateBorrow", ("mint", "redeem"))))), (((("redeemUnderlying", "reduceReserves"), ("reduceReservesInternal", ("removePendingGovernance", "repayBorrow"))), (("repayBorrowBehalf", "seize"), ("setCash", ("setComptroller", "setInterestRateModel")))), ((("setInterestRateModelInternal", "setPendingGovernance"), ("setReserveFactor", ("setReserveFactorInternal", "sweepFA12"))), (("sweepFA2", "sweepMutez"), ("transfer", ("updateMetadata", "updateProtocolSeizeShare"))))))) +tparameter = sp.TVariant(acceptGovernance = sp.TUnit, accrueInterest = sp.TUnit, accrueInterestInternal = sp.TContract(sp.TNat), addReserves = sp.TNat, addReservesInternal = sp.TRecord(addAmount = sp.TNat, originalSender = sp.TAddress).layout(("addAmount", "originalSender")), approve = sp.TRecord(spender = sp.TAddress, value = sp.TNat).layout(("spender", "value")), borrow = sp.TNat, borrowBalanceStored = sp.TPair(sp.TAddress, sp.TContract(sp.TPair(sp.TNat, sp.TNat))), doAccrueInterest = sp.TNat, exchangeRateStored = sp.TPair(sp.TUnit, sp.TContract(sp.TPair(sp.TNat, sp.TNat))), getAccountSnapshot = sp.TPair(sp.TAddress, sp.TContract(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))), getAllowance = sp.TPair(sp.TRecord(owner = sp.TAddress, spender = sp.TAddress).layout(("owner", "spender")), sp.TContract(sp.TNat)), getBalance = sp.TPair(sp.TAddress, sp.TContract(sp.TNat)), getBalanceOfUnderlying = sp.TPair(sp.TAddress, sp.TContract(sp.TPair(sp.TNat, sp.TNat))), getCash = sp.TPair(sp.TUnit, sp.TContract(sp.TPair(sp.TNat, sp.TNat))), getTotalSupply = sp.TPair(sp.TUnit, sp.TContract(sp.TNat)), hardResetOp = sp.TUnit, liquidateBorrow = sp.TRecord(borrower = sp.TAddress, cTokenCollateral = sp.TAddress, repayAmount = sp.TNat).layout(("borrower", ("cTokenCollateral", "repayAmount"))), mint = sp.TNat, redeem = sp.TNat, redeemUnderlying = sp.TNat, reduceReserves = sp.TNat, reduceReservesInternal = sp.TNat, removePendingGovernance = sp.TUnit, repayBorrow = sp.TNat, repayBorrowBehalf = sp.TRecord(borrower = sp.TAddress, repayAmount = sp.TNat).layout(("borrower", "repayAmount")), seize = sp.TRecord(borrower = sp.TAddress, liquidator = sp.TAddress, seizeTokens = sp.TNat).layout(("borrower", ("liquidator", "seizeTokens"))), setCash = sp.TNat, setComptroller = sp.TAddress, setInterestRateModel = sp.TAddress, setInterestRateModelInternal = sp.TAddress, setPendingGovernance = sp.TAddress, setReserveFactor = sp.TNat, setReserveFactorInternal = sp.TNat, sweepFA12 = sp.TRecord(amount = sp.TNat, tokenAddress = sp.TAddress).layout(("amount", "tokenAddress")), sweepFA2 = sp.TRecord(amount = sp.TNat, id = sp.TNat, tokenAddress = sp.TAddress).layout(("amount", ("id", "tokenAddress"))), sweepMutez = sp.TBool, transfer = sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), updateMetadata = sp.TRecord(key = sp.TString, value = sp.TBytes).layout(("key", "value")), updateProtocolSeizeShare = sp.TNat).layout(((((("acceptGovernance", "accrueInterest"), ("accrueInterestInternal", ("addReserves", "addReservesInternal"))), (("approve", "borrow"), ("borrowBalanceStored", ("doAccrueInterest", "exchangeRateStored")))), ((("getAccountSnapshot", "getAllowance"), ("getBalance", ("getBalanceOfUnderlying", "getCash"))), (("getTotalSupply", "hardResetOp"), ("liquidateBorrow", ("mint", "redeem"))))), (((("redeemUnderlying", "reduceReserves"), ("reduceReservesInternal", ("removePendingGovernance", "repayBorrow"))), (("repayBorrowBehalf", "seize"), ("setCash", ("setComptroller", "setInterestRateModel")))), ((("setInterestRateModelInternal", "setPendingGovernance"), ("setReserveFactor", ("setReserveFactorInternal", "sweepFA12"))), (("sweepFA2", "sweepMutez"), ("transfer", ("updateMetadata", "updateProtocolSeizeShare"))))))) tprivates = { } -tviews = { "accrualBlockNumber": (sp.TUnit, sp.TNat), "balanceOf": (sp.TAddress, sp.TNat), "borrowBalanceStoredView": (sp.TAddress, sp.TNat), "comptroller": (sp.TUnit, sp.TAddress), "exchangeRateStoredView": (sp.TUnit, sp.TNat), "getAccountSnapshotView": (sp.TAddress, sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))) } +tviews = { "accrualBlockNumber": (sp.TUnit, sp.TNat), "balanceOf": (sp.TAddress, sp.TNat), "borrowBalanceStoredView": (sp.TAddress, sp.TPair(sp.TNat, sp.TNat)), "comptroller": (sp.TUnit, sp.TAddress), "exchangeRateStoredView": (sp.TUnit, sp.TPair(sp.TNat, sp.TNat)), "getAccountSnapshotView": (sp.TAddress, sp.TOption(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))) } diff --git a/compiled_contracts/TezFinOracle/log.txt b/compiled_contracts/TezFinOracle/log.txt index 3e29da50..4cd266da 100644 --- a/compiled_contracts/TezFinOracle/log.txt +++ b/compiled_contracts/TezFinOracle/log.txt @@ -1,10 +1,10 @@ Creating contract KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 - -> (Pair (Pair "tz1RESHvJAfmQCXCAD3ubNmVtac788pnN1oL" {Elt "OXTZ-USD" "XTZ-USD"; Elt "TZBTC-USD" "BTC-USD"; Elt "WTZ-USD" "XTZ-USD"}) (Pair "KT1B74ywpG3nX2F3ZgpYi4MnsyuoYyQtQTAn" (Pair {Elt "USD-USD" (Pair "2025-04-25T08:36:06Z" 1000000); Elt "USDT-USD" (Pair "2025-04-25T08:36:06Z" 1000000)} None))) + -> (Pair (Pair "tz1RESHvJAfmQCXCAD3ubNmVtac788pnN1oL" {Elt "OXTZ-USD" "XTZ-USD"; Elt "TZBTC-USD" "BTC-USD"; Elt "WTZ-USD" "XTZ-USD"}) (Pair "KT1B74ywpG3nX2F3ZgpYi4MnsyuoYyQtQTAn" (Pair {Elt "USD-USD" (Pair "2025-05-23T15:04:18Z" 1000000); Elt "USDT-USD" (Pair "2025-05-23T15:04:18Z" 1000000)} None))) => ./compiled_contracts/TezFinOracle/step_000_cont_0_storage.tz 1 => ./compiled_contracts/TezFinOracle/step_000_cont_0_storage.json 32 => ./compiled_contracts/TezFinOracle/step_000_cont_0_sizes.csv 2 => ./compiled_contracts/TezFinOracle/step_000_cont_0_storage.py 1 => ./compiled_contracts/TezFinOracle/step_000_cont_0_types.py 7 - => ./compiled_contracts/TezFinOracle/step_000_cont_0_contract.tz 406 - => ./compiled_contracts/TezFinOracle/step_000_cont_0_contract.json 430 - => ./compiled_contracts/TezFinOracle/step_000_cont_0_contract.py 54 + => ./compiled_contracts/TezFinOracle/step_000_cont_0_contract.tz 477 + => ./compiled_contracts/TezFinOracle/step_000_cont_0_contract.json 515 + => ./compiled_contracts/TezFinOracle/step_000_cont_0_contract.py 58 diff --git a/compiled_contracts/TezFinOracle/step_000_cont_0_contract.json b/compiled_contracts/TezFinOracle/step_000_cont_0_contract.json index dfd8b8c6..617e01f5 100644 --- a/compiled_contracts/TezFinOracle/step_000_cont_0_contract.json +++ b/compiled_contracts/TezFinOracle/step_000_cont_0_contract.json @@ -74,6 +74,71 @@ "prim": "code", "args": [ [ + { + "prim": "LAMBDA", + "args": [ + { + "prim": "pair", + "args": [ + { "prim": "address" }, + { + "prim": "pair", + "args": [ + { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "big_map", "args": [ { "prim": "string" }, { "prim": "string" } ] } ] }, + { + "prim": "pair", + "args": [ + { "prim": "address" }, + { + "prim": "pair", + "args": [ + { "prim": "big_map", "args": [ { "prim": "string" }, { "prim": "pair", "args": [ { "prim": "timestamp" }, { "prim": "nat" } ] } ] }, + { "prim": "option", "args": [ { "prim": "address" } ] } + ] + } + ] + } + ] + } + ] + }, + { + "prim": "pair", + "args": [ + { "prim": "bool" }, + { + "prim": "pair", + "args": [ + { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "big_map", "args": [ { "prim": "string" }, { "prim": "string" } ] } ] }, + { + "prim": "pair", + "args": [ + { "prim": "address" }, + { + "prim": "pair", + "args": [ + { "prim": "big_map", "args": [ { "prim": "string" }, { "prim": "pair", "args": [ { "prim": "timestamp" }, { "prim": "nat" } ] } ] }, + { "prim": "option", "args": [ { "prim": "address" } ] } + ] + } + ] + } + ] + } + ] + }, + [ + { "prim": "UNPAIR" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { "prim": "PAIR" } + ] + ] + }, + { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "IF_LEFT", @@ -83,19 +148,19 @@ "prim": "IF_LEFT", "args": [ [ + { "prim": "DROP" }, + { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "DUP" }, { "prim": "GET", "args": [ { "int": "6" } ] }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "NOT_SET_PENDING_ADMIN" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "NOT_PENDING_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "UNPAIR" }, { "prim": "CDR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "NONE", "args": [ { "prim": "address" } ] }, @@ -106,13 +171,18 @@ "prim": "IF_LEFT", "args": [ [ - { "prim": "DUP", "args": [ { "int": "2" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, - { "prim": "COMPARE" }, - { "prim": "EQ" }, + { "prim": "SWAP" }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "PAIR" }, + { "prim": "EXEC" }, + { "prim": "UNPAIR" }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "DUP" }, { @@ -136,16 +206,21 @@ ] ] }, + { "prim": "DROP" }, + { "prim": "SWAP" }, { "prim": "DROP" } ], [ - { "prim": "DUP", "args": [ { "int": "2" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, - { "prim": "COMPARE" }, - { "prim": "EQ" }, + { "prim": "SWAP" }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "PAIR" }, + { "prim": "EXEC" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -173,13 +248,16 @@ "prim": "IF_LEFT", "args": [ [ - { "prim": "DUP", "args": [ { "int": "2" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, - { "prim": "COMPARE" }, - { "prim": "EQ" }, + { "prim": "SWAP" }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "PAIR" }, + { "prim": "EXEC" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "SWAP" }, { "prim": "DUP" }, @@ -190,13 +268,18 @@ { "prim": "UPDATE", "args": [ { "int": "5" } ] } ], [ - { "prim": "DUP", "args": [ { "int": "2" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, - { "prim": "COMPARE" }, - { "prim": "EQ" }, + { "prim": "SWAP" }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "PAIR" }, + { "prim": "EXEC" }, + { "prim": "UNPAIR" }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "DUP" }, { @@ -209,7 +292,6 @@ { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "NOW" }, - { "prim": "RENAME" }, { "prim": "PAIR" }, { "prim": "SOME" }, { "prim": "DIG", "args": [ { "int": "3" } ] }, @@ -220,6 +302,8 @@ ] ] }, + { "prim": "DROP" }, + { "prim": "SWAP" }, { "prim": "DROP" } ] ] @@ -230,24 +314,30 @@ "prim": "IF_LEFT", "args": [ [ - { "prim": "DUP", "args": [ { "int": "2" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, - { "prim": "COMPARE" }, - { "prim": "EQ" }, + { "prim": "SWAP" }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "PAIR" }, + { "prim": "EXEC" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "UPDATE", "args": [ { "int": "3" } ] } ], [ - { "prim": "DUP", "args": [ { "int": "2" } ] }, - { "prim": "CAR" }, - { "prim": "CAR" }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, - { "prim": "COMPARE" }, - { "prim": "EQ" }, + { "prim": "SWAP" }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "PAIR" }, + { "prim": "EXEC" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "SOME" }, { "prim": "UPDATE", "args": [ { "int": "6" } ] } @@ -285,10 +375,9 @@ { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "SWAP" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "111" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "112" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" }, { "prim": "NOW" }, - { "prim": "RENAME" }, { "prim": "PAIR" } ], [ @@ -308,7 +397,7 @@ { "prim": "CDR" }, { "prim": "SWAP" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "115" } ] }, { "prim": "FAILWITH" } ], [] ] } + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "116" } ] }, { "prim": "FAILWITH" } ], [] ] } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] @@ -322,8 +411,7 @@ { "prim": "SIZE" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "116" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "117" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "SLICE" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "failed to convert asset name" } ] }, { "prim": "FAILWITH" } ], [] ] }, @@ -340,8 +428,7 @@ { "prim": "SIZE" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "116" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "117" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "SLICE" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "failed to convert asset name" } ] }, { "prim": "FAILWITH" } ], [] ] }, @@ -373,12 +460,11 @@ "args": [ [ { "prim": "NOW" }, - { "prim": "RENAME" }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "94" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "95" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CDR" }, { "prim": "PAIR" } ], @@ -399,7 +485,7 @@ { "prim": "CDR" }, { "prim": "SWAP" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "98" } ] }, { "prim": "FAILWITH" } ], [] ] } + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "99" } ] }, { "prim": "FAILWITH" } ], [] ] } ], [ { "prim": "SWAP" }, { "prim": "DROP" } ] ] @@ -413,8 +499,7 @@ { "prim": "SIZE" }, { "prim": "SUB" }, { "prim": "ISNAT" }, - { "prim": "RENAME" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "99" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "100" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "SLICE" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "failed to convert asset name" } ] }, { "prim": "FAILWITH" } ], [] ] }, diff --git a/compiled_contracts/TezFinOracle/step_000_cont_0_contract.py b/compiled_contracts/TezFinOracle/step_000_cont_0_contract.py index 3b761db3..611dde35 100644 --- a/compiled_contracts/TezFinOracle/step_000_cont_0_contract.py +++ b/compiled_contracts/TezFinOracle/step_000_cont_0_contract.py @@ -6,7 +6,7 @@ def __init__(self): self.init(admin = sp.address('tz1RESHvJAfmQCXCAD3ubNmVtac788pnN1oL'), alias = {'OXTZ-USD' : 'XTZ-USD', 'TZBTC-USD' : 'BTC-USD', 'WTZ-USD' : 'XTZ-USD'}, oracle = sp.address('KT1B74ywpG3nX2F3ZgpYi4MnsyuoYyQtQTAn'), - overrides = {'USD-USD' : (sp.timestamp(1745570166), 1000000), 'USDT-USD' : (sp.timestamp(1745570166), 1000000)}, + overrides = {'USD-USD' : (sp.timestamp(1748012658), 1000000), 'USDT-USD' : (sp.timestamp(1748012658), 1000000)}, pendingAdmin = sp.none) @sp.entrypoint @@ -17,24 +17,24 @@ def accept_admin(self): @sp.entrypoint def addAlias(self, params): - sp.verify(sp.sender == self.data.admin, 'NOT_ADMIN') + sp.verify(self.is_admin(sp.sender), 'NOT_ADMIN') sp.set_type(params, sp.TList(sp.TRecord(alias = sp.TString, asset = sp.TString).layout(("alias", "asset")))) sp.for item in params: self.data.alias[item.alias] = item.asset @sp.entrypoint def removeAlias(self, params): - sp.verify(sp.sender == self.data.admin, 'NOT_ADMIN') + sp.verify(self.is_admin(sp.sender), 'NOT_ADMIN') del self.data.alias[params] @sp.entrypoint def removeAsset(self, params): - sp.verify(sp.sender == self.data.admin, 'NOT_ADMIN') + sp.verify(self.is_admin(sp.sender), 'NOT_ADMIN') del self.data.overrides[params] @sp.entrypoint def setPrice(self, params): - sp.verify(sp.sender == self.data.admin, 'NOT_ADMIN') + sp.verify(self.is_admin(sp.sender), 'NOT_ADMIN') sp.set_type(params, sp.TList(sp.TRecord(asset = sp.TString, price = sp.TNat).layout(("asset", "price")))) sp.for item in params: self.data.overrides[item.asset] = (sp.now, item.price) @@ -42,13 +42,17 @@ def setPrice(self, params): @sp.entrypoint def set_oracle(self, params): sp.set_type(params, sp.TAddress) - sp.verify(sp.sender == self.data.admin, 'NOT_ADMIN') + sp.verify(self.is_admin(sp.sender), 'NOT_ADMIN') self.data.oracle = params @sp.entrypoint def set_pending_admin(self, params): sp.set_type(params, sp.TAddress) - sp.verify(sp.sender == self.data.admin, 'NOT_ADMIN') + sp.verify(self.is_admin(sp.sender), 'NOT_ADMIN') self.data.pendingAdmin = sp.some(params) + @sp.private_lambda() + def is_admin(_x0): + sp.result(_x0 == self.data.admin) + sp.add_compilation_target("test", Contract()) \ No newline at end of file diff --git a/compiled_contracts/TezFinOracle/step_000_cont_0_contract.tz b/compiled_contracts/TezFinOracle/step_000_cont_0_contract.tz index 98f245b1..5e7228ba 100644 --- a/compiled_contracts/TezFinOracle/step_000_cont_0_contract.tz +++ b/compiled_contracts/TezFinOracle/step_000_cont_0_contract.tz @@ -2,12 +2,31 @@ parameter (or (or (unit %accept_admin) (or (list %addAlias (pair (string %alias) storage (pair (pair (address %admin) (big_map %alias string string)) (pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address)))); code { - UNPAIR; # @parameter : @storage + # Private variable: is_admin # pair @parameter @storage + LAMBDA + (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + { + UNPAIR; # address : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) + # sp.result(_x0 == self.data.admin) # address : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) + DUP 2; # pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : address : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) + CAR; # pair address (big_map string string) : address : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) + CAR; # address : address : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) + COMPARE; # int : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) + EQ; # bool : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) + PAIR; # pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address)))) + }; # lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) : pair @parameter @storage + SWAP; # pair @parameter @storage : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + UNPAIR; # @parameter : @storage : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) IF_LEFT { IF_LEFT { + DROP; # @storage : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + SWAP; # lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) : @storage DROP; # @storage + # == accept_admin == + # sp.verify(sp.sender == self.data.pendingAdmin.open_some(message = 'NOT_SET_PENDING_ADMIN'), 'NOT_PENDING_ADMIN') # @storage DUP; # @storage : @storage GET 6; # option address : @storage IF_NONE @@ -17,7 +36,6 @@ code } {}; # @some : @storage SENDER; # @sender : @some : @storage - RENAME; # address : @some : @storage COMPARE; # int : @storage EQ; # bool : @storage IF @@ -26,183 +44,230 @@ code PUSH string "NOT_PENDING_ADMIN"; # string : @storage FAILWITH; # FAILED }; # @storage + # self.data.admin = sp.sender # @storage UNPAIR; # pair (address %admin) (big_map %alias string string) : pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address)) CDR; # big_map string string : pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address)) SENDER; # @sender : big_map string string : pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address)) - RENAME; # address : big_map string string : pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address)) - PAIR; # pair address (big_map string string) : pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address)) - PAIR; # pair (pair address (big_map string string)) (pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address))) - NONE address; # option address : pair (pair address (big_map string string)) (pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address))) - UPDATE 6; # pair (pair address (big_map string string)) (pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address))) + PAIR; # pair @sender (big_map string string) : pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address)) + PAIR; # pair (pair @sender (big_map string string)) (pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address))) + # self.data.pendingAdmin = sp.none # pair (pair @sender (big_map string string)) (pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address))) + NONE address; # option address : pair (pair @sender (big_map string string)) (pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address))) + UPDATE 6; # pair (pair @sender (big_map string string)) (pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address))) } { IF_LEFT { - DUP 2; # @storage : @parameter%addAlias : @storage - CAR; # pair (address %admin) (big_map %alias string string) : @parameter%addAlias : @storage - CAR; # address : @parameter%addAlias : @storage - SENDER; # @sender : address : @parameter%addAlias : @storage - RENAME; # address : address : @parameter%addAlias : @storage - COMPARE; # int : @parameter%addAlias : @storage - EQ; # bool : @parameter%addAlias : @storage + # == addAlias == + # sp.verify(self.is_admin(sp.sender), 'NOT_ADMIN') # @parameter%addAlias : @storage : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + DUP 3; # lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) : @parameter%addAlias : @storage : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + SENDER; # @sender : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) : @parameter%addAlias : @storage : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + SWAP; # lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) : @sender : @parameter%addAlias : @storage : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + DIG 3; # @storage : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) : @sender : @parameter%addAlias : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + DIG 2; # @sender : @storage : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) : @parameter%addAlias : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + PAIR; # pair @sender @storage : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) : @parameter%addAlias : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + EXEC; # pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address)))) : @parameter%addAlias : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + UNPAIR; # bool : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : @parameter%addAlias : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + DIG 3; # lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) : bool : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : @parameter%addAlias + DIG 2; # pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) : bool : @parameter%addAlias + DIG 3; # @parameter%addAlias : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) : bool + DIG 3; # bool : @parameter%addAlias : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) IF {} { - PUSH string "NOT_ADMIN"; # string : @parameter%addAlias : @storage + PUSH string "NOT_ADMIN"; # string : @parameter%addAlias : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) FAILWITH; # FAILED - }; # @parameter%addAlias : @storage - DUP; # @parameter%addAlias : @parameter%addAlias : @storage + }; # @parameter%addAlias : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + # for item in params: ... # @parameter%addAlias : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + DUP; # @parameter%addAlias : @parameter%addAlias : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) ITER { - DIG 2; # @storage : pair (string %alias) (string %asset) : @parameter%addAlias - UNPAIR; # pair (address %admin) (big_map %alias string string) : pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address)) : pair (string %alias) (string %asset) : @parameter%addAlias - UNPAIR; # address : big_map string string : pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address)) : pair (string %alias) (string %asset) : @parameter%addAlias - SWAP; # big_map string string : address : pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address)) : pair (string %alias) (string %asset) : @parameter%addAlias - DUP 4; # pair (string %alias) (string %asset) : big_map string string : address : pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address)) : pair (string %alias) (string %asset) : @parameter%addAlias - CDR; # string : big_map string string : address : pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address)) : pair (string %alias) (string %asset) : @parameter%addAlias - SOME; # option string : big_map string string : address : pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address)) : pair (string %alias) (string %asset) : @parameter%addAlias - DIG 4; # pair (string %alias) (string %asset) : option string : big_map string string : address : pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address)) : @parameter%addAlias - CAR; # string : option string : big_map string string : address : pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address)) : @parameter%addAlias - UPDATE; # big_map string string : address : pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address)) : @parameter%addAlias - SWAP; # address : big_map string string : pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address)) : @parameter%addAlias - PAIR; # pair address (big_map string string) : pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address)) : @parameter%addAlias - PAIR; # pair (pair address (big_map string string)) (pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address))) : @parameter%addAlias - SWAP; # @parameter%addAlias : pair (pair address (big_map string string)) (pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address))) - }; # @parameter%addAlias : @storage - DROP; # @storage + # self.data.alias[item.alias] = item.asset # pair (string %alias) (string %asset) : @parameter%addAlias : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + DIG 2; # pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : pair (string %alias) (string %asset) : @parameter%addAlias : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + UNPAIR; # pair address (big_map string string) : pair address (pair (big_map string (pair timestamp nat)) (option address)) : pair (string %alias) (string %asset) : @parameter%addAlias : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + UNPAIR; # address : big_map string string : pair address (pair (big_map string (pair timestamp nat)) (option address)) : pair (string %alias) (string %asset) : @parameter%addAlias : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + SWAP; # big_map string string : address : pair address (pair (big_map string (pair timestamp nat)) (option address)) : pair (string %alias) (string %asset) : @parameter%addAlias : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + DUP 4; # pair (string %alias) (string %asset) : big_map string string : address : pair address (pair (big_map string (pair timestamp nat)) (option address)) : pair (string %alias) (string %asset) : @parameter%addAlias : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + CDR; # string : big_map string string : address : pair address (pair (big_map string (pair timestamp nat)) (option address)) : pair (string %alias) (string %asset) : @parameter%addAlias : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + SOME; # option string : big_map string string : address : pair address (pair (big_map string (pair timestamp nat)) (option address)) : pair (string %alias) (string %asset) : @parameter%addAlias : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + DIG 4; # pair (string %alias) (string %asset) : option string : big_map string string : address : pair address (pair (big_map string (pair timestamp nat)) (option address)) : @parameter%addAlias : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + CAR; # string : option string : big_map string string : address : pair address (pair (big_map string (pair timestamp nat)) (option address)) : @parameter%addAlias : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + UPDATE; # big_map string string : address : pair address (pair (big_map string (pair timestamp nat)) (option address)) : @parameter%addAlias : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + SWAP; # address : big_map string string : pair address (pair (big_map string (pair timestamp nat)) (option address)) : @parameter%addAlias : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + PAIR; # pair address (big_map string string) : pair address (pair (big_map string (pair timestamp nat)) (option address)) : @parameter%addAlias : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + PAIR; # pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : @parameter%addAlias : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + SWAP; # @parameter%addAlias : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + }; # @parameter%addAlias : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + DROP; # pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + SWAP; # lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) + DROP; # pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) } { - DUP 2; # @storage : @parameter%removeAlias : @storage - CAR; # pair (address %admin) (big_map %alias string string) : @parameter%removeAlias : @storage - CAR; # address : @parameter%removeAlias : @storage - SENDER; # @sender : address : @parameter%removeAlias : @storage - RENAME; # address : address : @parameter%removeAlias : @storage - COMPARE; # int : @parameter%removeAlias : @storage - EQ; # bool : @parameter%removeAlias : @storage + # == removeAlias == + # sp.verify(self.is_admin(sp.sender), 'NOT_ADMIN') # @parameter%removeAlias : @storage : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + DIG 2; # lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) : @parameter%removeAlias : @storage + SENDER; # @sender : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) : @parameter%removeAlias : @storage + SWAP; # lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) : @sender : @parameter%removeAlias : @storage + DIG 3; # @storage : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) : @sender : @parameter%removeAlias + DIG 2; # @sender : @storage : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) : @parameter%removeAlias + PAIR; # pair @sender @storage : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) : @parameter%removeAlias + EXEC; # pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address)))) : @parameter%removeAlias + UNPAIR; # bool : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : @parameter%removeAlias + SWAP; # pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : bool : @parameter%removeAlias + DUG 2; # bool : @parameter%removeAlias : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) IF {} { - PUSH string "NOT_ADMIN"; # string : @parameter%removeAlias : @storage + PUSH string "NOT_ADMIN"; # string : @parameter%removeAlias : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) FAILWITH; # FAILED - }; # @parameter%removeAlias : @storage - SWAP; # @storage : @parameter%removeAlias - UNPAIR; # pair (address %admin) (big_map %alias string string) : pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address)) : @parameter%removeAlias - UNPAIR; # address : big_map string string : pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address)) : @parameter%removeAlias - SWAP; # big_map string string : address : pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address)) : @parameter%removeAlias - NONE string; # option string : big_map string string : address : pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address)) : @parameter%removeAlias - DIG 4; # @parameter%removeAlias : option string : big_map string string : address : pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address)) - UPDATE; # big_map string string : address : pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address)) - SWAP; # address : big_map string string : pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address)) - PAIR; # pair address (big_map string string) : pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address)) - PAIR; # pair (pair address (big_map string string)) (pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address))) - }; # pair (pair address (big_map string string)) (pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address))) - }; # pair (pair address (big_map string string)) (pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address))) + }; # @parameter%removeAlias : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) + SWAP; # pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : @parameter%removeAlias + # del self.data.alias[params] # pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : @parameter%removeAlias + UNPAIR; # pair address (big_map string string) : pair address (pair (big_map string (pair timestamp nat)) (option address)) : @parameter%removeAlias + UNPAIR; # address : big_map string string : pair address (pair (big_map string (pair timestamp nat)) (option address)) : @parameter%removeAlias + SWAP; # big_map string string : address : pair address (pair (big_map string (pair timestamp nat)) (option address)) : @parameter%removeAlias + NONE string; # option string : big_map string string : address : pair address (pair (big_map string (pair timestamp nat)) (option address)) : @parameter%removeAlias + DIG 4; # @parameter%removeAlias : option string : big_map string string : address : pair address (pair (big_map string (pair timestamp nat)) (option address)) + UPDATE; # big_map string string : address : pair address (pair (big_map string (pair timestamp nat)) (option address)) + SWAP; # address : big_map string string : pair address (pair (big_map string (pair timestamp nat)) (option address)) + PAIR; # pair address (big_map string string) : pair address (pair (big_map string (pair timestamp nat)) (option address)) + PAIR; # pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) + }; # pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) + }; # pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) } { IF_LEFT { IF_LEFT { - DUP 2; # @storage : @parameter%removeAsset : @storage - CAR; # pair (address %admin) (big_map %alias string string) : @parameter%removeAsset : @storage - CAR; # address : @parameter%removeAsset : @storage - SENDER; # @sender : address : @parameter%removeAsset : @storage - RENAME; # address : address : @parameter%removeAsset : @storage - COMPARE; # int : @parameter%removeAsset : @storage - EQ; # bool : @parameter%removeAsset : @storage + # == removeAsset == + # sp.verify(self.is_admin(sp.sender), 'NOT_ADMIN') # @parameter%removeAsset : @storage : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + DIG 2; # lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) : @parameter%removeAsset : @storage + SENDER; # @sender : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) : @parameter%removeAsset : @storage + SWAP; # lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) : @sender : @parameter%removeAsset : @storage + DIG 3; # @storage : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) : @sender : @parameter%removeAsset + DIG 2; # @sender : @storage : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) : @parameter%removeAsset + PAIR; # pair @sender @storage : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) : @parameter%removeAsset + EXEC; # pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address)))) : @parameter%removeAsset + UNPAIR; # bool : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : @parameter%removeAsset + SWAP; # pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : bool : @parameter%removeAsset + DUG 2; # bool : @parameter%removeAsset : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) IF {} { - PUSH string "NOT_ADMIN"; # string : @parameter%removeAsset : @storage + PUSH string "NOT_ADMIN"; # string : @parameter%removeAsset : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) FAILWITH; # FAILED - }; # @parameter%removeAsset : @storage - SWAP; # @storage : @parameter%removeAsset - DUP; # @storage : @storage : @parameter%removeAsset - GET 5; # big_map string (pair timestamp nat) : @storage : @parameter%removeAsset - NONE (pair timestamp nat); # option (pair timestamp nat) : big_map string (pair timestamp nat) : @storage : @parameter%removeAsset - DIG 3; # @parameter%removeAsset : option (pair timestamp nat) : big_map string (pair timestamp nat) : @storage - UPDATE; # big_map string (pair timestamp nat) : @storage - UPDATE 5; # @storage + }; # @parameter%removeAsset : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) + SWAP; # pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : @parameter%removeAsset + # del self.data.overrides[params] # pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : @parameter%removeAsset + DUP; # pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : @parameter%removeAsset + GET 5; # big_map string (pair timestamp nat) : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : @parameter%removeAsset + NONE (pair timestamp nat); # option (pair timestamp nat) : big_map string (pair timestamp nat) : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : @parameter%removeAsset + DIG 3; # @parameter%removeAsset : option (pair timestamp nat) : big_map string (pair timestamp nat) : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) + UPDATE; # big_map string (pair timestamp nat) : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) + UPDATE 5; # pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) } { - DUP 2; # @storage : @parameter%setPrice : @storage - CAR; # pair (address %admin) (big_map %alias string string) : @parameter%setPrice : @storage - CAR; # address : @parameter%setPrice : @storage - SENDER; # @sender : address : @parameter%setPrice : @storage - RENAME; # address : address : @parameter%setPrice : @storage - COMPARE; # int : @parameter%setPrice : @storage - EQ; # bool : @parameter%setPrice : @storage + # == setPrice == + # sp.verify(self.is_admin(sp.sender), 'NOT_ADMIN') # @parameter%setPrice : @storage : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + DUP 3; # lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) : @parameter%setPrice : @storage : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + SENDER; # @sender : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) : @parameter%setPrice : @storage : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + SWAP; # lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) : @sender : @parameter%setPrice : @storage : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + DIG 3; # @storage : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) : @sender : @parameter%setPrice : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + DIG 2; # @sender : @storage : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) : @parameter%setPrice : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + PAIR; # pair @sender @storage : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) : @parameter%setPrice : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + EXEC; # pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address)))) : @parameter%setPrice : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + UNPAIR; # bool : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : @parameter%setPrice : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + DIG 3; # lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) : bool : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : @parameter%setPrice + DIG 2; # pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) : bool : @parameter%setPrice + DIG 3; # @parameter%setPrice : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) : bool + DIG 3; # bool : @parameter%setPrice : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) IF {} { - PUSH string "NOT_ADMIN"; # string : @parameter%setPrice : @storage + PUSH string "NOT_ADMIN"; # string : @parameter%setPrice : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) FAILWITH; # FAILED - }; # @parameter%setPrice : @storage - DUP; # @parameter%setPrice : @parameter%setPrice : @storage + }; # @parameter%setPrice : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + # for item in params: ... # @parameter%setPrice : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + DUP; # @parameter%setPrice : @parameter%setPrice : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) ITER { - DIG 2; # @storage : pair (string %asset) (nat %price) : @parameter%setPrice - DUP; # @storage : @storage : pair (string %asset) (nat %price) : @parameter%setPrice - GET 5; # big_map string (pair timestamp nat) : @storage : pair (string %asset) (nat %price) : @parameter%setPrice - DUP 3; # pair (string %asset) (nat %price) : big_map string (pair timestamp nat) : @storage : pair (string %asset) (nat %price) : @parameter%setPrice - CDR; # nat : big_map string (pair timestamp nat) : @storage : pair (string %asset) (nat %price) : @parameter%setPrice - NOW; # @now : nat : big_map string (pair timestamp nat) : @storage : pair (string %asset) (nat %price) : @parameter%setPrice - RENAME; # timestamp : nat : big_map string (pair timestamp nat) : @storage : pair (string %asset) (nat %price) : @parameter%setPrice - PAIR; # pair timestamp nat : big_map string (pair timestamp nat) : @storage : pair (string %asset) (nat %price) : @parameter%setPrice - SOME; # option (pair timestamp nat) : big_map string (pair timestamp nat) : @storage : pair (string %asset) (nat %price) : @parameter%setPrice - DIG 3; # pair (string %asset) (nat %price) : option (pair timestamp nat) : big_map string (pair timestamp nat) : @storage : @parameter%setPrice - CAR; # string : option (pair timestamp nat) : big_map string (pair timestamp nat) : @storage : @parameter%setPrice - UPDATE; # big_map string (pair timestamp nat) : @storage : @parameter%setPrice - UPDATE 5; # @storage : @parameter%setPrice - SWAP; # @parameter%setPrice : @storage - }; # @parameter%setPrice : @storage - DROP; # @storage - }; # @storage + # self.data.overrides[item.asset] = (sp.now, item.price) # pair (string %asset) (nat %price) : @parameter%setPrice : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + DIG 2; # pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : pair (string %asset) (nat %price) : @parameter%setPrice : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + DUP; # pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : pair (string %asset) (nat %price) : @parameter%setPrice : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + GET 5; # big_map string (pair timestamp nat) : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : pair (string %asset) (nat %price) : @parameter%setPrice : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + DUP 3; # pair (string %asset) (nat %price) : big_map string (pair timestamp nat) : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : pair (string %asset) (nat %price) : @parameter%setPrice : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + CDR; # nat : big_map string (pair timestamp nat) : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : pair (string %asset) (nat %price) : @parameter%setPrice : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + NOW; # @now : nat : big_map string (pair timestamp nat) : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : pair (string %asset) (nat %price) : @parameter%setPrice : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + PAIR; # pair @now nat : big_map string (pair timestamp nat) : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : pair (string %asset) (nat %price) : @parameter%setPrice : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + SOME; # option (pair @now nat) : big_map string (pair timestamp nat) : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : pair (string %asset) (nat %price) : @parameter%setPrice : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + DIG 3; # pair (string %asset) (nat %price) : option (pair @now nat) : big_map string (pair timestamp nat) : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : @parameter%setPrice : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + CAR; # string : option (pair @now nat) : big_map string (pair timestamp nat) : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : @parameter%setPrice : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + UPDATE; # big_map string (pair timestamp nat) : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : @parameter%setPrice : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + UPDATE 5; # pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : @parameter%setPrice : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + SWAP; # @parameter%setPrice : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + }; # @parameter%setPrice : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + DROP; # pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + SWAP; # lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) + DROP; # pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) + }; # pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) } { IF_LEFT { - DUP 2; # @storage : @parameter%set_oracle : @storage - CAR; # pair (address %admin) (big_map %alias string string) : @parameter%set_oracle : @storage - CAR; # address : @parameter%set_oracle : @storage - SENDER; # @sender : address : @parameter%set_oracle : @storage - RENAME; # address : address : @parameter%set_oracle : @storage - COMPARE; # int : @parameter%set_oracle : @storage - EQ; # bool : @parameter%set_oracle : @storage + # == set_oracle == + # sp.verify(self.is_admin(sp.sender), 'NOT_ADMIN') # @parameter%set_oracle : @storage : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + DIG 2; # lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) : @parameter%set_oracle : @storage + SENDER; # @sender : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) : @parameter%set_oracle : @storage + SWAP; # lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) : @sender : @parameter%set_oracle : @storage + DIG 3; # @storage : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) : @sender : @parameter%set_oracle + DIG 2; # @sender : @storage : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) : @parameter%set_oracle + PAIR; # pair @sender @storage : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) : @parameter%set_oracle + EXEC; # pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address)))) : @parameter%set_oracle + UNPAIR; # bool : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : @parameter%set_oracle + SWAP; # pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : bool : @parameter%set_oracle + DUG 2; # bool : @parameter%set_oracle : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) IF {} { - PUSH string "NOT_ADMIN"; # string : @parameter%set_oracle : @storage + PUSH string "NOT_ADMIN"; # string : @parameter%set_oracle : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) FAILWITH; # FAILED - }; # @parameter%set_oracle : @storage - UPDATE 3; # @storage + }; # @parameter%set_oracle : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) + # self.data.oracle = params # @parameter%set_oracle : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) + UPDATE 3; # pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) } { - DUP 2; # @storage : @parameter%set_pending_admin : @storage - CAR; # pair (address %admin) (big_map %alias string string) : @parameter%set_pending_admin : @storage - CAR; # address : @parameter%set_pending_admin : @storage - SENDER; # @sender : address : @parameter%set_pending_admin : @storage - RENAME; # address : address : @parameter%set_pending_admin : @storage - COMPARE; # int : @parameter%set_pending_admin : @storage - EQ; # bool : @parameter%set_pending_admin : @storage + # == set_pending_admin == + # sp.verify(self.is_admin(sp.sender), 'NOT_ADMIN') # @parameter%set_pending_admin : @storage : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) + DIG 2; # lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) : @parameter%set_pending_admin : @storage + SENDER; # @sender : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) : @parameter%set_pending_admin : @storage + SWAP; # lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) : @sender : @parameter%set_pending_admin : @storage + DIG 3; # @storage : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) : @sender : @parameter%set_pending_admin + DIG 2; # @sender : @storage : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) : @parameter%set_pending_admin + PAIR; # pair @sender @storage : lambda (pair address (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) (pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))))) : @parameter%set_pending_admin + EXEC; # pair bool (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address)))) : @parameter%set_pending_admin + UNPAIR; # bool : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : @parameter%set_pending_admin + SWAP; # pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) : bool : @parameter%set_pending_admin + DUG 2; # bool : @parameter%set_pending_admin : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) IF {} { - PUSH string "NOT_ADMIN"; # string : @parameter%set_pending_admin : @storage + PUSH string "NOT_ADMIN"; # string : @parameter%set_pending_admin : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) FAILWITH; # FAILED - }; # @parameter%set_pending_admin : @storage - SOME; # option address : @storage - UPDATE 6; # @storage - }; # @storage - }; # @storage - }; # pair (pair address (big_map string string)) (pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address))) - NIL operation; # list operation : pair (pair address (big_map string string)) (pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address))) - PAIR; # pair (list operation) (pair (pair address (big_map string string)) (pair (address %oracle) (pair (big_map %overrides string (pair timestamp nat)) (option %pendingAdmin address)))) + }; # @parameter%set_pending_admin : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) + # self.data.pendingAdmin = sp.some(params) # @parameter%set_pending_admin : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) + SOME; # option address : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) + UPDATE 6; # pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) + }; # pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) + }; # pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) + }; # pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) + NIL operation; # list operation : pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address))) + PAIR; # pair (list operation) (pair (pair address (big_map string string)) (pair address (pair (big_map string (pair timestamp nat)) (option address)))) }; view "getPrice" string (pair timestamp nat) { UNPAIR; # @parameter : @storage + # if self.data.overrides.contains(params): # @parameter : @storage DUP 2; # @storage : @parameter : @storage GET 5; # big_map string (pair timestamp nat) : @parameter : @storage DUP 2; # @parameter : big_map string (pair timestamp nat) : @parameter : @storage @@ -210,22 +275,24 @@ view IF { SWAP; # @storage : @parameter + # sp.result((sp.now, sp.snd(self.data.overrides[params]))) # @storage : @parameter GET 5; # big_map string (pair timestamp nat) : @parameter SWAP; # @parameter : big_map string (pair timestamp nat) GET; # option (pair timestamp nat) IF_NONE { - PUSH int 111; # int + PUSH int 112; # int FAILWITH; # FAILED } {}; # @some CDR; # nat NOW; # @now : nat - RENAME; # timestamp : nat - PAIR; # pair timestamp nat + PAIR; # pair @now nat } { + # asset = sp.local("asset", params) # @parameter : @storage DUP; # @parameter : @parameter : @storage + # if self.data.alias.contains(params): # @parameter : @parameter : @storage DUP 3; # @storage : @parameter : @parameter : @storage CAR; # pair (address %admin) (big_map %alias string string) : @parameter : @parameter : @storage CDR; # big_map string string : @parameter : @parameter : @storage @@ -234,6 +301,7 @@ view IF { DROP; # @parameter : @storage + # asset.value = self.data.alias[params] # @parameter : @storage DUP 2; # @storage : @parameter : @storage CAR; # pair (address %admin) (big_map %alias string string) : @parameter : @storage CDR; # big_map string string : @parameter : @storage @@ -241,7 +309,7 @@ view GET; # option string : @storage IF_NONE { - PUSH int 115; # int : @storage + PUSH int 116; # int : @storage FAILWITH; # FAILED } {}; # @some : @storage @@ -250,6 +318,7 @@ view SWAP; # @parameter : @parameter : @storage DROP; # @parameter : @storage }; # string : @storage + # sp.result((sp.snd(sp.view("get_price_with_timestamp", sp.slice(asset.value, 0, sp.as_nat(sp.len(asset.value) - 4)).open_some(message = 'failed to convert asset name') + 'USDT', self.data.oracle, sp.TPair(sp.TNat, sp.TTimestamp)).open_some(message = 'invalid oracle view call')), sp.fst(sp.view("get_price_with_timestamp", sp.slice(asset.value, 0, sp.as_nat(sp.len(asset.value) - 4)).open_some(message = 'failed to convert asset name') + 'USDT', self.data.oracle, sp.TPair(sp.TNat, sp.TTimestamp)).open_some(message = 'invalid oracle view call')))) # string : @storage DUP 2; # @storage : string : @storage GET 3; # address : string : @storage PUSH string "USDT"; # string : address : string : @storage @@ -259,10 +328,9 @@ view SIZE; # nat : nat : string : string : address : string : @storage SUB; # int : string : string : address : string : @storage ISNAT; # option nat : string : string : address : string : @storage - RENAME; # option nat : string : string : address : string : @storage IF_NONE { - PUSH int 116; # int : string : string : address : string : @storage + PUSH int 117; # int : string : string : address : string : @storage FAILWITH; # FAILED } {}; # @some : string : string : address : string : @storage @@ -292,10 +360,9 @@ view SIZE; # nat : nat : string : string : address : nat SUB; # int : string : string : address : nat ISNAT; # option nat : string : string : address : nat - RENAME; # option nat : string : string : address : nat IF_NONE { - PUSH int 116; # int : string : string : address : nat + PUSH int 117; # int : string : string : address : nat FAILWITH; # FAILED } {}; # @some : string : string : address : nat @@ -323,29 +390,32 @@ view "get_price_with_timestamp" string (pair nat timestamp) { UNPAIR; # @parameter : @storage + # if self.data.overrides.contains(params): # @parameter : @storage DUP 2; # @storage : @parameter : @storage GET 5; # big_map string (pair timestamp nat) : @parameter : @storage DUP 2; # @parameter : big_map string (pair timestamp nat) : @parameter : @storage MEM; # bool : @parameter : @storage IF { + # sp.result((sp.snd(self.data.overrides[params]), sp.now)) # @parameter : @storage NOW; # @now : @parameter : @storage - RENAME; # timestamp : @parameter : @storage - DIG 2; # @storage : timestamp : @parameter - GET 5; # big_map string (pair timestamp nat) : timestamp : @parameter - DIG 2; # @parameter : big_map string (pair timestamp nat) : timestamp - GET; # option (pair timestamp nat) : timestamp + DIG 2; # @storage : @now : @parameter + GET 5; # big_map string (pair timestamp nat) : @now : @parameter + DIG 2; # @parameter : big_map string (pair timestamp nat) : @now + GET; # option (pair timestamp nat) : @now IF_NONE { - PUSH int 94; # int : timestamp + PUSH int 95; # int : @now FAILWITH; # FAILED } - {}; # @some : timestamp - CDR; # nat : timestamp - PAIR; # pair nat timestamp + {}; # @some : @now + CDR; # nat : @now + PAIR; # pair nat @now } { + # asset = sp.local("asset", params) # @parameter : @storage DUP; # @parameter : @parameter : @storage + # if self.data.alias.contains(params): # @parameter : @parameter : @storage DUP 3; # @storage : @parameter : @parameter : @storage CAR; # pair (address %admin) (big_map %alias string string) : @parameter : @parameter : @storage CDR; # big_map string string : @parameter : @parameter : @storage @@ -354,6 +424,7 @@ view IF { DROP; # @parameter : @storage + # asset.value = self.data.alias[params] # @parameter : @storage DUP 2; # @storage : @parameter : @storage CAR; # pair (address %admin) (big_map %alias string string) : @parameter : @storage CDR; # big_map string string : @parameter : @storage @@ -361,7 +432,7 @@ view GET; # option string : @storage IF_NONE { - PUSH int 98; # int : @storage + PUSH int 99; # int : @storage FAILWITH; # FAILED } {}; # @some : @storage @@ -371,6 +442,7 @@ view DROP; # @parameter : @storage }; # string : @storage SWAP; # @storage : string + # sp.result(sp.view("get_price_with_timestamp", sp.slice(asset.value, 0, sp.as_nat(sp.len(asset.value) - 4)).open_some(message = 'failed to convert asset name') + 'USDT', self.data.oracle, sp.TPair(sp.TNat, sp.TTimestamp)).open_some(message = 'invalid oracle view call')) # @storage : string GET 3; # address : string PUSH string "USDT"; # string : address : string DUP 3; # string : string : address : string @@ -379,10 +451,9 @@ view SIZE; # nat : nat : string : string : address SUB; # int : string : string : address ISNAT; # option nat : string : string : address - RENAME; # option nat : string : string : address IF_NONE { - PUSH int 99; # int : string : string : address + PUSH int 100; # int : string : string : address FAILWITH; # FAILED } {}; # @some : string : string : address diff --git a/compiled_contracts/TezFinOracle/step_000_cont_0_sizes.csv b/compiled_contracts/TezFinOracle/step_000_cont_0_sizes.csv index 56dacb5a..ac2ae660 100644 --- a/compiled_contracts/TezFinOracle/step_000_cont_0_sizes.csv +++ b/compiled_contracts/TezFinOracle/step_000_cont_0_sizes.csv @@ -1,2 +1,2 @@ storage,274 -contract,1933 \ No newline at end of file +contract,2126 \ No newline at end of file diff --git a/compiled_contracts/TezFinOracle/step_000_cont_0_storage.json b/compiled_contracts/TezFinOracle/step_000_cont_0_storage.json index 54082e0c..d5eb10ea 100644 --- a/compiled_contracts/TezFinOracle/step_000_cont_0_storage.json +++ b/compiled_contracts/TezFinOracle/step_000_cont_0_storage.json @@ -20,8 +20,8 @@ "prim": "Pair", "args": [ [ - { "prim": "Elt", "args": [ { "string": "USD-USD" }, { "prim": "Pair", "args": [ { "string": "2025-04-25T08:36:06Z" }, { "int": "1000000" } ] } ] }, - { "prim": "Elt", "args": [ { "string": "USDT-USD" }, { "prim": "Pair", "args": [ { "string": "2025-04-25T08:36:06Z" }, { "int": "1000000" } ] } ] } + { "prim": "Elt", "args": [ { "string": "USD-USD" }, { "prim": "Pair", "args": [ { "string": "2025-05-23T15:04:18Z" }, { "int": "1000000" } ] } ] }, + { "prim": "Elt", "args": [ { "string": "USDT-USD" }, { "prim": "Pair", "args": [ { "string": "2025-05-23T15:04:18Z" }, { "int": "1000000" } ] } ] } ], { "prim": "None" } ] diff --git a/compiled_contracts/TezFinOracle/step_000_cont_0_storage.py b/compiled_contracts/TezFinOracle/step_000_cont_0_storage.py index 81cea9ac..84faf92f 100644 --- a/compiled_contracts/TezFinOracle/step_000_cont_0_storage.py +++ b/compiled_contracts/TezFinOracle/step_000_cont_0_storage.py @@ -1 +1 @@ -sp.record(admin = sp.address('tz1RESHvJAfmQCXCAD3ubNmVtac788pnN1oL'), alias = {'OXTZ-USD' : 'XTZ-USD', 'TZBTC-USD' : 'BTC-USD', 'WTZ-USD' : 'XTZ-USD'}, oracle = sp.address('KT1B74ywpG3nX2F3ZgpYi4MnsyuoYyQtQTAn'), overrides = {'USD-USD' : (sp.timestamp(1745570166), 1000000), 'USDT-USD' : (sp.timestamp(1745570166), 1000000)}, pendingAdmin = sp.none) \ No newline at end of file +sp.record(admin = sp.address('tz1RESHvJAfmQCXCAD3ubNmVtac788pnN1oL'), alias = {'OXTZ-USD' : 'XTZ-USD', 'TZBTC-USD' : 'BTC-USD', 'WTZ-USD' : 'XTZ-USD'}, oracle = sp.address('KT1B74ywpG3nX2F3ZgpYi4MnsyuoYyQtQTAn'), overrides = {'USD-USD' : (sp.timestamp(1748012658), 1000000), 'USDT-USD' : (sp.timestamp(1748012658), 1000000)}, pendingAdmin = sp.none) \ No newline at end of file diff --git a/compiled_contracts/TezFinOracle/step_000_cont_0_storage.tz b/compiled_contracts/TezFinOracle/step_000_cont_0_storage.tz index 65d85a7a..0cb4f6eb 100644 --- a/compiled_contracts/TezFinOracle/step_000_cont_0_storage.tz +++ b/compiled_contracts/TezFinOracle/step_000_cont_0_storage.tz @@ -1 +1 @@ -(Pair (Pair "tz1RESHvJAfmQCXCAD3ubNmVtac788pnN1oL" {Elt "OXTZ-USD" "XTZ-USD"; Elt "TZBTC-USD" "BTC-USD"; Elt "WTZ-USD" "XTZ-USD"}) (Pair "KT1B74ywpG3nX2F3ZgpYi4MnsyuoYyQtQTAn" (Pair {Elt "USD-USD" (Pair "2025-04-25T08:36:06Z" 1000000); Elt "USDT-USD" (Pair "2025-04-25T08:36:06Z" 1000000)} None))) \ No newline at end of file +(Pair (Pair "tz1RESHvJAfmQCXCAD3ubNmVtac788pnN1oL" {Elt "OXTZ-USD" "XTZ-USD"; Elt "TZBTC-USD" "BTC-USD"; Elt "WTZ-USD" "XTZ-USD"}) (Pair "KT1B74ywpG3nX2F3ZgpYi4MnsyuoYyQtQTAn" (Pair {Elt "USD-USD" (Pair "2025-05-23T15:04:18Z" 1000000); Elt "USDT-USD" (Pair "2025-05-23T15:04:18Z" 1000000)} None))) \ No newline at end of file diff --git a/compiled_contracts/TezFinOracle/step_000_cont_0_types.py b/compiled_contracts/TezFinOracle/step_000_cont_0_types.py index 4119babb..2d27d053 100644 --- a/compiled_contracts/TezFinOracle/step_000_cont_0_types.py +++ b/compiled_contracts/TezFinOracle/step_000_cont_0_types.py @@ -2,5 +2,5 @@ tstorage = sp.TRecord(admin = sp.TAddress, alias = sp.TBigMap(sp.TString, sp.TString), oracle = sp.TAddress, overrides = sp.TBigMap(sp.TString, sp.TPair(sp.TTimestamp, sp.TNat)), pendingAdmin = sp.TOption(sp.TAddress)).layout((("admin", "alias"), ("oracle", ("overrides", "pendingAdmin")))) tparameter = sp.TVariant(accept_admin = sp.TUnit, addAlias = sp.TList(sp.TRecord(alias = sp.TString, asset = sp.TString).layout(("alias", "asset"))), removeAlias = sp.TString, removeAsset = sp.TString, setPrice = sp.TList(sp.TRecord(asset = sp.TString, price = sp.TNat).layout(("asset", "price"))), set_oracle = sp.TAddress, set_pending_admin = sp.TAddress).layout((("accept_admin", ("addAlias", "removeAlias")), (("removeAsset", "setPrice"), ("set_oracle", "set_pending_admin")))) -tprivates = { } +tprivates = { "is_admin": sp.TLambda(sp.TAddress, sp.TBool, with_storage="read-only", tstorage=sp.TRecord(admin = sp.TAddress, alias = sp.TBigMap(sp.TString, sp.TString), oracle = sp.TAddress, overrides = sp.TBigMap(sp.TString, sp.TPair(sp.TTimestamp, sp.TNat)), pendingAdmin = sp.TOption(sp.TAddress)).layout((("admin", "alias"), ("oracle", ("overrides", "pendingAdmin"))))) } tviews = { "getPrice": (sp.TString, sp.TPair(sp.TTimestamp, sp.TNat)), "get_price_with_timestamp": (sp.TString, sp.TPair(sp.TNat, sp.TTimestamp)) } diff --git a/compiled_contracts/scenario.json b/compiled_contracts/scenario.json index ea0ca705..e718ddfd 100644 --- a/compiled_contracts/scenario.json +++ b/compiled_contracts/scenario.json @@ -1,12 +1,12 @@ [ { - "shortname": "CtzBTC", - "longname": "CtzBTC", + "shortname": "Comptroller", + "longname": "Comptroller", "scenario": [ { "action": "newContract", "accept_unknown_types": false, - "export": "(template_id (None static_id 0) \nstorage ((Some (\"contracts/utils/Exponential.py\" 21)) record (accrualBlockNumber ((Some (\"contracts/CToken.py\" 47)) literal (nat 0))) (activeOperations ((Some (\"contracts/CToken.py\" 72)) type_annotation ((Some (\"contracts/CToken.py\" 72)) set ) (set \"nat\"))) (administrator ((Some (\"./deploy/compile_targets/CompileTzBTC.py\" 14)) literal (address \"KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2\"))) (borrowIndex ((Some (\"contracts/CToken.py\" 49)) literal (nat 1000000000000000000))) (borrowRateMaxMantissa ((Some (\"contracts/CToken.py\" 34)) literal (nat 800000000000))) (borrowRatePerBlock ((Some (\"contracts/CToken.py\" 55)) literal (nat 0))) (borrows ((Some (\"contracts/CToken.py\" 31)) type_annotation ((Some (\"contracts/CToken.py\" 31)) big_map ) (big_map \"address\" (record ((interestIndex \"nat\") (principal \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 12)))))) (comptroller ((Some (\"./deploy/compile_targets/CompileTzBTC.py\" 11)) literal (address \"KT1DiWBT6RBC97iWrvLHRzKL7AWQKorBiuRG\"))) (currentCash ((Some (\"contracts/CFA12.py\" 20)) literal (nat 0))) (expScale ((Some (\"contracts/utils/Exponential.py\" 21)) literal (nat 1000000000000000000))) (fa1_2_TokenAddress ((Some (\"./deploy/compile_targets/CompileTzBTC.py\" 32)) literal (address \"KT1PWx2mnDueood7fEmfbBDKx1D9BAnnXitn\"))) (halfExpScale ((Some (\"contracts/utils/Exponential.py\" 21)) literal (nat 500000000000000000))) (initialExchangeRateMantissa ((Some (\"./deploy/compile_targets/CompileTzBTC.py\" 13)) literal (nat 1000000000000000000))) (interestRateModel ((Some (\"./deploy/compile_targets/CompileTzBTC.py\" 12)) literal (address \"KT1Vzf3fXVBry4TDxWAfYzsn6ZPyMroMKUdW\"))) (ledger ((Some (\"contracts/CToken.py\" 24)) type_annotation ((Some (\"contracts/CToken.py\" 24)) big_map ) (big_map \"address\" (record ((approvals (map \"address\" \"nat\")) (balance \"nat\")) Variable (Some (\"contracts/CToken.py\" 24)))))) (metadata ((Some (\"./deploy/compile_targets/CompileTzBTC.py\" 16)) big_map ((None literal (string \"\")) ((Some (\"./deploy/compile_targets/CompileTzBTC.py\" 17)) literal (bytes \"0x74657a6f732d73746f726167653a64617461\"))) ((None literal (string \"data\")) ((Some (\"./deploy/compile_targets/CompileTzBTC.py\" 18)) literal (bytes \"0x7b226e616d65223a202254657a46696e20496e7465726573742d42656172696e6720747a425443222c20226465736372697074696f6e223a2022496e7465726573742d62656172696e6720746f6b656e20666f7220747a42544320287772617070656420426974636f696e206f6e2054657a6f732920737570706c69656420746f207468652054657a46696e206c656e64696e672070726f746f636f6c2e222c202276657273696f6e223a2022332e30222c2022617574686f7273223a205b2254657a6f732046696e616e63652050726f746f636f6c225d2c2022686f6d6570616765223a202268747470733a2f2f74657a6f732e66696e616e6365222c2022696e7465726661636573223a205b22545a49502d303037222c2022545a49502d303136225d7d\"))))) (pendingAdministrator (None variant \"None\" (None literal (unit)))) (protocolSeizeShareMantissa ((Some (\"contracts/CToken.py\" 45)) literal (nat 100000000000000))) (reserveFactorMantissa ((Some (\"contracts/CToken.py\" 43)) literal (nat 50000000000000000))) (reserveFactorMaxMantissa ((Some (\"contracts/CToken.py\" 36)) literal (nat 1000000000000000000))) (supplyRatePerBlock ((Some (\"contracts/CToken.py\" 57)) literal (nat 0))) (token_metadata ((Some (\"contracts/CToken.py\" 62)) type_annotation ((Some (\"contracts/CToken.py\" 62)) big_map ((None literal (intOrNat 0)) ((Some (\"contracts/CToken.py\" 64)) record (token_id ((Some (\"contracts/CToken.py\" 64)) literal (intOrNat 0))) (token_info ((Some (\"contracts/CToken.py\" 64)) map ((None literal (string \"name\")) ((Some (\"./deploy/compile_targets/CompileTzBTC.py\" 28)) literal (bytes \"0x54657a46696e20496e7465726573742d42656172696e6720747a425443\"))) ((None literal (string \"symbol\")) ((Some (\"./deploy/compile_targets/CompileTzBTC.py\" 29)) literal (bytes \"0xea9cb0747a425443\"))) ((None literal (string \"decimals\")) ((Some (\"./deploy/compile_targets/CompileTzBTC.py\" 30)) literal (bytes \"0x38\")))))))) (big_map \"nat\" (record ((token_id \"nat\") (token_info (map \"string\" \"bytes\"))) Variable (Some (\"contracts/CToken.py\" 67)))))) (totalBorrows ((Some (\"contracts/CToken.py\" 51)) literal (nat 0))) (totalReserves ((Some (\"contracts/CToken.py\" 53)) literal (nat 0))) (totalSupply ((Some (\"contracts/CToken.py\" 32)) literal (nat 0))))\nstorage_type (())\nentrypoints ((acceptGovernance True (Some True) None None True None (Some (\"contracts/CToken.py\" 808)) (((Some (\"contracts/CToken.py\" 809)) set_type (None parameter) \"unit\") ((Some (\"contracts/CToken.py\" 810)) verify ((Some (\"contracts/CToken.py\" 810)) eq (None sender) ((Some (\"contracts/CToken.py\" 810)) open_variant ((Some (\"contracts/CToken.py\" 810)) attr ((Some (\"contracts/CToken.py\" 810)) storage) \"pendingAdministrator\") \"Some\" ((Some (\"contracts/CToken.py\" 810)) literal (string \"CT_NOT_SET_PENDING_ADMIN\")))) ((Some (\"contracts/CToken.py\" 810)) literal (string \"CT_NOT_PENDING_ADMIN\"))) ((Some (\"contracts/CToken.py\" 812)) set ((Some (\"contracts/CToken.py\" 812)) attr ((Some (\"contracts/CToken.py\" 812)) storage) \"administrator\") ((Some (\"contracts/CToken.py\" 812)) open_variant ((Some (\"contracts/CToken.py\" 812)) attr ((Some (\"contracts/CToken.py\" 812)) storage) \"pendingAdministrator\") \"Some\" \"None\")) ((Some (\"contracts/CToken.py\" 813)) set ((Some (\"contracts/CToken.py\" 813)) attr ((Some (\"contracts/CToken.py\" 813)) storage) \"pendingAdministrator\") (None variant \"None\" (None literal (unit)))))) (accrueInterest True None None None True None (Some (\"contracts/CToken.py\" 725)) (((Some (\"contracts/CToken.py\" 726)) set_type (None parameter) \"unit\") ((Some (\"contracts/CFA12.py\" 27)) define_local \"compute_CFA12_27\" ((Some (\"contracts/CFA12.py\" 27)) add ((Some (\"contracts/CFA12.py\" 27)) add ((Some (\"contracts/CFA12.py\" 27)) attr ((Some (\"contracts/CFA12.py\" 27)) storage) \"currentCash\") ((Some (\"contracts/CFA12.py\" 28)) attr ((Some (\"contracts/CFA12.py\" 28)) storage) \"totalSupply\")) ((Some (\"contracts/CFA12.py\" 28)) attr ((Some (\"contracts/CFA12.py\" 28)) storage) \"totalReserves\")) True) ((Some (\"contracts/CFA12.py\" 30)) if_block ((Some (\"contracts/CFA12.py\" 30)) gt ((Some (\"contracts/CFA12.py\" 27)) var \"compute_CFA12_27\") ((Some (\"contracts/CFA12.py\" 30)) literal (intOrNat 0))) (((Some (\"contracts/utils/OperationProtector.py\" 46)) update_set ((Some (\"contracts/utils/OperationProtector.py\" 46)) attr ((Some (\"contracts/utils/OperationProtector.py\" 46)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 22)) literal (nat 13)) True) ((Some (\"contracts/CFA12.py\" 34)) set ((Some (\"contracts/CFA12.py\" 34)) operations) ((Some (\"contracts/CFA12.py\" 34)) cons ((Some (\"contracts/CFA12.py\" 34)) transfer ((Some (\"contracts/CFA12.py\" 34)) tuple (None self_address) ((Some (\"contracts/CFA12.py\" 34)) self \"setCash\")) ((Some (\"contracts/CFA12.py\" 35)) literal (mutez 0)) ((Some (\"contracts/CFA12.py\" 33)) open_variant ((Some (\"contracts/CFA12.py\" 32)) contract \"getBalance\" (tuple \"address\" (contract \"nat\")) ((Some (\"contracts/CFA12.py\" 33)) attr ((Some (\"contracts/CFA12.py\" 33)) storage) \"fa1_2_TokenAddress\")) \"Some\" \"None\")) ((Some (\"contracts/CFA12.py\" 34)) operations))))) ((Some (\"contracts/CToken.py\" 728)) if_block ((Some (\"contracts/CToken.py\" 728)) neq (None level) ((Some (\"contracts/CToken.py\" 728)) attr ((Some (\"contracts/CToken.py\" 728)) storage) \"accrualBlockNumber\")) (((Some (\"contracts/CToken.py\" 729)) if_block ((Some (\"contracts/CToken.py\" 729)) eq ((Some (\"contracts/CToken.py\" 729)) attr ((Some (\"contracts/CToken.py\" 729)) storage) \"accrualBlockNumber\") ((Some (\"contracts/CToken.py\" 729)) literal (intOrNat 0))) (((Some (\"contracts/CToken.py\" 730)) set ((Some (\"contracts/CToken.py\" 730)) attr ((Some (\"contracts/CToken.py\" 730)) storage) \"accrualBlockNumber\") (None level)))) (else_block (((Some (\"contracts/utils/OperationProtector.py\" 46)) update_set ((Some (\"contracts/utils/OperationProtector.py\" 46)) attr ((Some (\"contracts/utils/OperationProtector.py\" 46)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 17)) literal (nat 8)) True) ((Some (\"contracts/CToken.py\" 736)) set ((Some (\"contracts/CToken.py\" 736)) operations) ((Some (\"contracts/CToken.py\" 736)) cons ((Some (\"contracts/CToken.py\" 736)) transfer ((Some (\"contracts/CToken.py\" 736)) self \"doAccrueInterest\") ((Some (\"contracts/CToken.py\" 737)) literal (mutez 0)) ((Some (\"contracts/CToken.py\" 735)) open_variant ((Some (\"contracts/CToken.py\" 734)) contract \"accrueInterestInternal\" (contract \"nat\") (None self_address)) \"Some\" \"None\")) ((Some (\"contracts/CToken.py\" 736)) operations))))))))) (accrueInterestInternal True (Some True) None None True None (Some (\"contracts/CToken.py\" 740)) (((Some (\"contracts/CToken.py\" 741)) set_type (None parameter) (contract \"nat\")) ((Some (\"contracts/CToken.py\" 952)) verify ((Some (\"contracts/CToken.py\" 952)) eq (None sender) (None self_address)) ((Some (\"contracts/CToken.py\" 952)) literal (string \"CT_INTERNAL_FUNCTION\"))) ((Some (\"contracts/CToken.py\" 749)) set ((Some (\"contracts/CToken.py\" 749)) operations) ((Some (\"contracts/CToken.py\" 749)) cons ((Some (\"contracts/CToken.py\" 749)) transfer ((Some (\"contracts/CToken.py\" 745)) record (borrows ((Some (\"contracts/CToken.py\" 746)) attr ((Some (\"contracts/CToken.py\" 746)) storage) \"totalBorrows\")) (cash ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\")) (cb (None parameter)) (reserves ((Some (\"contracts/CToken.py\" 747)) attr ((Some (\"contracts/CToken.py\" 747)) storage) \"totalReserves\"))) ((Some (\"contracts/CToken.py\" 749)) literal (mutez 0)) ((Some (\"contracts/CToken.py\" 744)) open_variant ((Some (\"contracts/CToken.py\" 743)) contract \"getBorrowRate\" (record ((borrows \"nat\") (cash \"nat\") (cb (contract \"nat\")) (reserves \"nat\")) Variable (Some (\"contracts/interfaces/InterestRateModelInterface.py\" 15))) ((Some (\"contracts/CToken.py\" 743)) attr ((Some (\"contracts/CToken.py\" 743)) storage) \"interestRateModel\")) \"Some\" \"None\")) ((Some (\"contracts/CToken.py\" 749)) operations))))) (addReserves True None None None True None (Some (\"contracts/CToken.py\" 897)) (((Some (\"contracts/CToken.py\" 898)) set_type (None parameter) \"nat\") ((Some (\"contracts/CToken.py\" 955)) verify ((Some (\"contracts/CToken.py\" 955)) neq (None sender) (None self_address)) ((Some (\"contracts/CToken.py\" 955)) literal (string \"CT_INTERNAL_CALL\"))) ((Some (\"contracts/utils/OperationProtector.py\" 40)) verify ((Some (\"contracts/utils/OperationProtector.py\" 40)) eq ((Some (\"contracts/utils/OperationProtector.py\" 40)) size ((Some (\"contracts/utils/OperationProtector.py\" 40)) attr ((Some (\"contracts/utils/OperationProtector.py\" 40)) storage) \"activeOperations\")) ((Some (\"contracts/utils/OperationProtector.py\" 40)) literal (intOrNat 0))) ((Some (\"contracts/utils/OperationProtector.py\" 40)) literal (string \"OP_IN_PROGRESS\"))) ((Some (\"contracts/utils/OperationProtector.py\" 46)) update_set ((Some (\"contracts/utils/OperationProtector.py\" 46)) attr ((Some (\"contracts/utils/OperationProtector.py\" 46)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 20)) literal (nat 11)) True) ((Some (\"contracts/CToken.py\" 901)) set ((Some (\"contracts/CToken.py\" 901)) operations) ((Some (\"contracts/CToken.py\" 901)) cons ((Some (\"contracts/CToken.py\" 901)) transfer (None literal (unit)) ((Some (\"contracts/CToken.py\" 901)) literal (mutez 0)) ((Some (\"contracts/CToken.py\" 902)) self \"accrueInterest\")) ((Some (\"contracts/CToken.py\" 901)) operations))) ((Some (\"contracts/CToken.py\" 903)) set ((Some (\"contracts/CToken.py\" 903)) operations) ((Some (\"contracts/CToken.py\" 903)) cons ((Some (\"contracts/CToken.py\" 903)) transfer ((Some (\"contracts/CToken.py\" 903)) record (addAmount (None parameter)) (originalSender (None sender))) (None amount) ((Some (\"contracts/CToken.py\" 904)) self \"addReservesInternal\")) ((Some (\"contracts/CToken.py\" 903)) operations))))) (addReservesInternal True None None None True None (Some (\"contracts/CToken.py\" 907)) (((Some (\"contracts/CToken.py\" 952)) verify ((Some (\"contracts/CToken.py\" 952)) eq (None sender) (None self_address)) ((Some (\"contracts/CToken.py\" 952)) literal (string \"CT_INTERNAL_FUNCTION\"))) ((Some (\"contracts/utils/OperationProtector.py\" 43)) verify ((Some (\"contracts/utils/OperationProtector.py\" 43)) contains ((Some (\"contracts/utils/OperationProtector.py\" 43)) attr ((Some (\"contracts/utils/OperationProtector.py\" 43)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 20)) literal (nat 11))) ((Some (\"contracts/utils/OperationProtector.py\" 43)) literal (string \"OP_NOT_ACTIVE\"))) ((Some (\"contracts/utils/OperationProtector.py\" 49)) update_set ((Some (\"contracts/utils/OperationProtector.py\" 49)) attr ((Some (\"contracts/utils/OperationProtector.py\" 49)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 20)) literal (nat 11)) False) ((Some (\"contracts/CToken.py\" 949)) verify ((Some (\"contracts/CToken.py\" 949)) eq (None level) ((Some (\"contracts/CToken.py\" 949)) attr ((Some (\"contracts/CToken.py\" 949)) storage) \"accrualBlockNumber\")) ((Some (\"contracts/CToken.py\" 949)) literal (string \"CT_INTEREST_OLD\"))) ((Some (\"contracts/utils/TransferTokens.py\" 19)) set ((Some (\"contracts/utils/TransferTokens.py\" 19)) operations) ((Some (\"contracts/utils/TransferTokens.py\" 19)) cons ((Some (\"contracts/utils/TransferTokens.py\" 19)) transfer ((Some (\"contracts/utils/TransferTokens.py\" 6)) record (from_ ((Some (\"contracts/CToken.py\" 911)) attr (None parameter) \"originalSender\")) (to_ (None self_address)) (value ((Some (\"contracts/CToken.py\" 911)) attr (None parameter) \"addAmount\"))) ((Some (\"contracts/utils/TransferTokens.py\" 19)) literal (mutez 0)) ((Some (\"contracts/utils/TransferTokens.py\" 17)) open_variant ((Some (\"contracts/utils/TransferTokens.py\" 12)) contract \"transfer\" (record ((from_ \"address\") (to_ \"address\") (value \"nat\")) (Value ((\"from_ as from\") ((\"to_ as to\") (\"value\")))) (Some (\"contracts/utils/TransferTokens.py\" 13))) ((Some (\"contracts/CFA12.py\" 47)) attr ((Some (\"contracts/CFA12.py\" 47)) storage) \"fa1_2_TokenAddress\")) \"Some\" \"None\")) ((Some (\"contracts/utils/TransferTokens.py\" 19)) operations))) ((Some (\"contracts/CToken.py\" 912)) set ((Some (\"contracts/CToken.py\" 912)) attr ((Some (\"contracts/CToken.py\" 912)) storage) \"totalReserves\") ((Some (\"contracts/CToken.py\" 912)) add ((Some (\"contracts/CToken.py\" 912)) attr ((Some (\"contracts/CToken.py\" 912)) storage) \"totalReserves\") ((Some (\"contracts/CToken.py\" 911)) attr (None parameter) \"addAmount\"))))) (approve True (Some True) None None True None (Some (\"contracts/CToken.py\" 448)) (((Some (\"contracts/CToken.py\" 449)) set_type (None parameter) (record ((spender \"address\") (value \"nat\")) (Value ((\"spender\") (\"value\"))) (Some (\"contracts/CToken.py\" 450)))) ((Some (\"contracts/CToken.py\" 955)) verify ((Some (\"contracts/CToken.py\" 955)) neq (None sender) (None self_address)) ((Some (\"contracts/CToken.py\" 955)) literal (string \"CT_INTERNAL_CALL\"))) ((Some (\"contracts/CToken.py\" 454)) verify ((Some (\"contracts/CToken.py\" 454)) or ((Some (\"contracts/CToken.py\" 454)) contains ((Some (\"contracts/CToken.py\" 454)) attr ((Some (\"contracts/CToken.py\" 454)) get_item ((Some (\"contracts/CToken.py\" 454)) attr ((Some (\"contracts/CToken.py\" 454)) storage) \"ledger\") (None sender)) \"approvals\") ((Some (\"contracts/CToken.py\" 454)) attr (None parameter) \"spender\")) ((Some (\"contracts/CToken.py\" 455)) lt ((Some (\"contracts/CToken.py\" 455)) size ((Some (\"contracts/CToken.py\" 455)) attr ((Some (\"contracts/CToken.py\" 455)) get_item ((Some (\"contracts/CToken.py\" 455)) attr ((Some (\"contracts/CToken.py\" 455)) storage) \"ledger\") (None sender)) \"approvals\")) ((Some (\"contracts/CToken.py\" 455)) literal (intOrNat 1000)))) ((Some (\"contracts/CToken.py\" 454)) literal (string \"FA1.2_MaxApprovalsReached\"))) ((Some (\"contracts/CToken.py\" 459)) verify ((Some (\"contracts/CToken.py\" 459)) or ((Some (\"contracts/CToken.py\" 459)) eq ((Some (\"contracts/CToken.py\" 457)) get_item_default ((Some (\"contracts/CToken.py\" 457)) attr ((Some (\"contracts/CToken.py\" 457)) get_item ((Some (\"contracts/CToken.py\" 457)) attr ((Some (\"contracts/CToken.py\" 457)) storage) \"ledger\") (None sender)) \"approvals\") ((Some (\"contracts/CToken.py\" 454)) attr (None parameter) \"spender\") ((Some (\"contracts/CToken.py\" 457)) literal (intOrNat 0))) ((Some (\"contracts/CToken.py\" 459)) literal (intOrNat 0))) ((Some (\"contracts/CToken.py\" 459)) eq ((Some (\"contracts/CToken.py\" 459)) attr (None parameter) \"value\") ((Some (\"contracts/CToken.py\" 459)) literal (intOrNat 0)))) ((Some (\"contracts/CToken.py\" 459)) literal (string \"FA1.2_UnsafeAllowanceChange\"))) ((Some (\"contracts/CToken.py\" 461)) if_block ((Some (\"contracts/CToken.py\" 461)) eq ((Some (\"contracts/CToken.py\" 459)) attr (None parameter) \"value\") ((Some (\"contracts/CToken.py\" 461)) literal (intOrNat 0))) (((Some (\"contracts/CToken.py\" 462)) del_item ((Some (\"contracts/CToken.py\" 462)) attr ((Some (\"contracts/CToken.py\" 462)) get_item ((Some (\"contracts/CToken.py\" 462)) attr ((Some (\"contracts/CToken.py\" 462)) storage) \"ledger\") (None sender)) \"approvals\") ((Some (\"contracts/CToken.py\" 454)) attr (None parameter) \"spender\")))) (else_block (((Some (\"contracts/CToken.py\" 464)) set ((Some (\"contracts/CToken.py\" 464)) get_item ((Some (\"contracts/CToken.py\" 464)) attr ((Some (\"contracts/CToken.py\" 464)) get_item ((Some (\"contracts/CToken.py\" 464)) attr ((Some (\"contracts/CToken.py\" 464)) storage) \"ledger\") (None sender)) \"approvals\") ((Some (\"contracts/CToken.py\" 454)) attr (None parameter) \"spender\")) ((Some (\"contracts/CToken.py\" 459)) attr (None parameter) \"value\")))))) (borrow True None None None True None (Some (\"contracts/CToken.py\" 198)) (((Some (\"contracts/CToken.py\" 199)) set_type (None parameter) \"nat\") ((Some (\"contracts/CToken.py\" 955)) verify ((Some (\"contracts/CToken.py\" 955)) neq (None sender) (None self_address)) ((Some (\"contracts/CToken.py\" 955)) literal (string \"CT_INTERNAL_CALL\"))) ((Some (\"contracts/CToken.py\" 433)) if_block ((Some (\"contracts/CToken.py\" 433)) not ((Some (\"contracts/CToken.py\" 433)) contains ((Some (\"contracts/CToken.py\" 433)) attr ((Some (\"contracts/CToken.py\" 433)) storage) \"ledger\") (None sender))) (((Some (\"contracts/CToken.py\" 434)) set ((Some (\"contracts/CToken.py\" 434)) get_item ((Some (\"contracts/CToken.py\" 434)) attr ((Some (\"contracts/CToken.py\" 434)) storage) \"ledger\") (None sender)) ((Some (\"contracts/CToken.py\" 434)) record (approvals ((Some (\"contracts/CToken.py\" 434)) map )) (balance ((Some (\"contracts/CToken.py\" 434)) literal (nat 0))))))) ((Some (\"contracts/CToken.py\" 436)) if_block ((Some (\"contracts/CToken.py\" 436)) not ((Some (\"contracts/CToken.py\" 436)) contains ((Some (\"contracts/CToken.py\" 436)) attr ((Some (\"contracts/CToken.py\" 436)) storage) \"borrows\") (None sender))) (((Some (\"contracts/CToken.py\" 437)) set ((Some (\"contracts/CToken.py\" 437)) get_item ((Some (\"contracts/CToken.py\" 437)) attr ((Some (\"contracts/CToken.py\" 437)) storage) \"borrows\") (None sender)) ((Some (\"contracts/CToken.py\" 437)) record (interestIndex ((Some (\"contracts/CToken.py\" 438)) literal (nat 0))) (principal ((Some (\"contracts/CToken.py\" 438)) literal (nat 0))))))) ((Some (\"contracts/CToken.py\" 220)) set ((Some (\"contracts/CToken.py\" 220)) operations) ((Some (\"contracts/CToken.py\" 220)) cons ((Some (\"contracts/CToken.py\" 220)) transfer ((Some (\"contracts/CToken.py\" 218)) record (borrowAmount (None parameter)) (borrower (None sender)) (cToken (None self_address))) ((Some (\"contracts/CToken.py\" 220)) literal (mutez 0)) ((Some (\"contracts/CToken.py\" 217)) open_variant ((Some (\"contracts/CToken.py\" 216)) contract \"borrowAllowed\" (record ((borrowAmount \"nat\") (borrower \"address\") (cToken \"address\")) (Value ((\"cToken\") ((\"borrower\") (\"borrowAmount\")))) (Some (\"contracts/interfaces/ComptrollerInterface.py\" 9))) ((Some (\"contracts/CToken.py\" 216)) attr ((Some (\"contracts/CToken.py\" 216)) storage) \"comptroller\")) \"Some\" \"None\")) ((Some (\"contracts/CToken.py\" 220)) operations))) ((Some (\"contracts/CToken.py\" 946)) verify ((Some (\"contracts/CToken.py\" 946)) ge ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") (None parameter)) ((Some (\"contracts/CToken.py\" 946)) literal (string \"CT_INSUFFICIENT_CASH\"))) ((Some (\"contracts/CToken.py\" 949)) verify ((Some (\"contracts/CToken.py\" 949)) eq (None level) ((Some (\"contracts/CToken.py\" 949)) attr ((Some (\"contracts/CToken.py\" 949)) storage) \"accrualBlockNumber\")) ((Some (\"contracts/CToken.py\" 949)) literal (string \"CT_INTEREST_OLD\"))) ((Some (\"contracts/utils/TransferTokens.py\" 19)) set ((Some (\"contracts/utils/TransferTokens.py\" 19)) operations) ((Some (\"contracts/utils/TransferTokens.py\" 19)) cons ((Some (\"contracts/utils/TransferTokens.py\" 19)) transfer ((Some (\"contracts/utils/TransferTokens.py\" 6)) record (from_ (None self_address)) (to_ (None sender)) (value (None parameter))) ((Some (\"contracts/utils/TransferTokens.py\" 19)) literal (mutez 0)) ((Some (\"contracts/utils/TransferTokens.py\" 17)) open_variant ((Some (\"contracts/utils/TransferTokens.py\" 12)) contract \"transfer\" (record ((from_ \"address\") (to_ \"address\") (value \"nat\")) (Value ((\"from_ as from\") ((\"to_ as to\") (\"value\")))) (Some (\"contracts/utils/TransferTokens.py\" 13))) ((Some (\"contracts/CFA12.py\" 51)) attr ((Some (\"contracts/CFA12.py\" 51)) storage) \"fa1_2_TokenAddress\")) \"Some\" \"None\")) ((Some (\"contracts/utils/TransferTokens.py\" 19)) operations))) ((Some (\"contracts/CToken.py\" 625)) define_local \"borrowBalance\" ((Some (\"contracts/CToken.py\" 625)) literal (nat 0)) True) ((Some (\"contracts/CToken.py\" 626)) if_block ((Some (\"contracts/CToken.py\" 626)) contains ((Some (\"contracts/CToken.py\" 626)) attr ((Some (\"contracts/CToken.py\" 626)) storage) \"borrows\") (None sender)) (((Some (\"contracts/CToken.py\" 627)) define_local \"borrowSnapshot\" ((Some (\"contracts/CToken.py\" 628)) get_item ((Some (\"contracts/CToken.py\" 628)) attr ((Some (\"contracts/CToken.py\" 628)) storage) \"borrows\") (None sender)) True) ((Some (\"contracts/CToken.py\" 629)) if_block ((Some (\"contracts/CToken.py\" 629)) gt ((Some (\"contracts/CToken.py\" 629)) attr ((Some (\"contracts/CToken.py\" 629)) var \"borrowSnapshot\") \"principal\") ((Some (\"contracts/CToken.py\" 629)) literal (intOrNat 0))) (((Some (\"contracts/CToken.py\" 631)) set ((Some (\"contracts/CToken.py\" 631)) var \"borrowBalance\") ((Some (\"contracts/CToken.py\" 631)) div ((Some (\"contracts/CToken.py\" 630)) mul_homo ((Some (\"contracts/CToken.py\" 630)) attr ((Some (\"contracts/CToken.py\" 630)) var \"borrowSnapshot\") \"principal\") ((Some (\"contracts/CToken.py\" 630)) attr ((Some (\"contracts/CToken.py\" 630)) storage) \"borrowIndex\")) ((Some (\"contracts/CToken.py\" 631)) attr ((Some (\"contracts/CToken.py\" 631)) var \"borrowSnapshot\") \"interestIndex\"))))))) ((Some (\"contracts/CToken.py\" 210)) set ((Some (\"contracts/CToken.py\" 210)) attr ((Some (\"contracts/CToken.py\" 210)) get_item ((Some (\"contracts/CToken.py\" 210)) attr ((Some (\"contracts/CToken.py\" 210)) storage) \"borrows\") (None sender)) \"principal\") ((Some (\"contracts/CToken.py\" 208)) add ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\") (None parameter))) ((Some (\"contracts/CToken.py\" 211)) set ((Some (\"contracts/CToken.py\" 211)) attr ((Some (\"contracts/CToken.py\" 211)) get_item ((Some (\"contracts/CToken.py\" 211)) attr ((Some (\"contracts/CToken.py\" 211)) storage) \"borrows\") (None sender)) \"interestIndex\") ((Some (\"contracts/CToken.py\" 211)) attr ((Some (\"contracts/CToken.py\" 211)) storage) \"borrowIndex\")) ((Some (\"contracts/CToken.py\" 212)) set ((Some (\"contracts/CToken.py\" 212)) attr ((Some (\"contracts/CToken.py\" 212)) storage) \"totalBorrows\") ((Some (\"contracts/CToken.py\" 212)) add ((Some (\"contracts/CToken.py\" 212)) attr ((Some (\"contracts/CToken.py\" 212)) storage) \"totalBorrows\") (None parameter))))) (borrowBalanceStored True None None None True None (Some (\"contracts/CToken.py\" 606)) ((bind \"__s1\" (((Some (\"contracts/CToken.py\" 607)) set_type (None first (None parameter)) \"address\") ((Some (\"contracts/CToken.py\" 625)) define_local \"borrowBalance\" ((Some (\"contracts/CToken.py\" 625)) literal (nat 0)) True) ((Some (\"contracts/CToken.py\" 626)) if_block ((Some (\"contracts/CToken.py\" 626)) contains ((Some (\"contracts/CToken.py\" 626)) attr ((Some (\"contracts/CToken.py\" 626)) storage) \"borrows\") (None first (None parameter))) (((Some (\"contracts/CToken.py\" 627)) define_local \"borrowSnapshot\" ((Some (\"contracts/CToken.py\" 628)) get_item ((Some (\"contracts/CToken.py\" 628)) attr ((Some (\"contracts/CToken.py\" 628)) storage) \"borrows\") (None first (None parameter))) True) ((Some (\"contracts/CToken.py\" 629)) if_block ((Some (\"contracts/CToken.py\" 629)) gt ((Some (\"contracts/CToken.py\" 629)) attr ((Some (\"contracts/CToken.py\" 629)) var \"borrowSnapshot\") \"principal\") ((Some (\"contracts/CToken.py\" 629)) literal (intOrNat 0))) (((Some (\"contracts/CToken.py\" 631)) set ((Some (\"contracts/CToken.py\" 631)) var \"borrowBalance\") ((Some (\"contracts/CToken.py\" 631)) div ((Some (\"contracts/CToken.py\" 630)) mul_homo ((Some (\"contracts/CToken.py\" 630)) attr ((Some (\"contracts/CToken.py\" 630)) var \"borrowSnapshot\") \"principal\") ((Some (\"contracts/CToken.py\" 630)) attr ((Some (\"contracts/CToken.py\" 630)) storage) \"borrowIndex\")) ((Some (\"contracts/CToken.py\" 631)) attr ((Some (\"contracts/CToken.py\" 631)) var \"borrowSnapshot\") \"interestIndex\"))))))) ((Some (\"contracts/CToken.py\" 608)) result ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\")))) (None set_type (None second (None parameter)) (contract \"nat\")) (None set (None operations) (None cons ((Some (\"contracts/CToken.py\" 606)) transfer (None var \"__s1\") (None literal (mutez 0)) (None second (None parameter))) (None operations))))) (doAccrueInterest True (Some True) None None True None (Some (\"contracts/CToken.py\" 752)) (((Some (\"contracts/CToken.py\" 753)) set_type (None parameter) \"nat\") ((Some (\"contracts/CToken.py\" 958)) verify ((Some (\"contracts/CToken.py\" 958)) eq (None sender) ((Some (\"contracts/CToken.py\" 958)) attr ((Some (\"contracts/CToken.py\" 958)) storage) \"interestRateModel\")) ((Some (\"contracts/CToken.py\" 958)) literal (string \"CT_SENDER_NOT_IRM\"))) ((Some (\"contracts/utils/OperationProtector.py\" 43)) verify ((Some (\"contracts/utils/OperationProtector.py\" 43)) contains ((Some (\"contracts/utils/OperationProtector.py\" 43)) attr ((Some (\"contracts/utils/OperationProtector.py\" 43)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 17)) literal (nat 8))) ((Some (\"contracts/utils/OperationProtector.py\" 43)) literal (string \"OP_NOT_ACTIVE\"))) ((Some (\"contracts/utils/OperationProtector.py\" 49)) update_set ((Some (\"contracts/utils/OperationProtector.py\" 49)) attr ((Some (\"contracts/utils/OperationProtector.py\" 49)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 17)) literal (nat 8)) False) ((Some (\"contracts/CToken.py\" 756)) verify ((Some (\"contracts/CToken.py\" 756)) le (None parameter) ((Some (\"contracts/CToken.py\" 757)) attr ((Some (\"contracts/CToken.py\" 757)) storage) \"borrowRateMaxMantissa\")) ((Some (\"contracts/CToken.py\" 756)) literal (string \"CT_INVALID_BORROW_RATE\"))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type (None parameter) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa (None parameter))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/CToken.py\" 759)) open_variant ((Some (\"contracts/CToken.py\" 759)) is_nat ((Some (\"contracts/CToken.py\" 759)) sub (None level) ((Some (\"contracts/CToken.py\" 759)) attr ((Some (\"contracts/CToken.py\" 759)) storage) \"accrualBlockNumber\"))) \"Some\" \"None\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo (None parameter) ((Some (\"contracts/CToken.py\" 759)) open_variant ((Some (\"contracts/CToken.py\" 759)) is_nat ((Some (\"contracts/CToken.py\" 759)) sub (None level) ((Some (\"contracts/CToken.py\" 759)) attr ((Some (\"contracts/CToken.py\" 759)) storage) \"accrualBlockNumber\"))) \"Some\" \"None\")) \"nat\") ((Some (\"contracts/CToken.py\" 761)) define_local \"compute_CToken_761\" ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo (None parameter) ((Some (\"contracts/CToken.py\" 759)) open_variant ((Some (\"contracts/CToken.py\" 759)) is_nat ((Some (\"contracts/CToken.py\" 759)) sub (None level) ((Some (\"contracts/CToken.py\" 759)) attr ((Some (\"contracts/CToken.py\" 759)) storage) \"accrualBlockNumber\"))) \"Some\" \"None\")))) True) ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/CToken.py\" 761)) var \"compute_CToken_761\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/CToken.py\" 761)) var \"compute_CToken_761\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/CToken.py\" 764)) attr ((Some (\"contracts/CToken.py\" 764)) storage) \"totalBorrows\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/CToken.py\" 761)) var \"compute_CToken_761\") \"mantissa\") ((Some (\"contracts/CToken.py\" 764)) attr ((Some (\"contracts/CToken.py\" 764)) storage) \"totalBorrows\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/CToken.py\" 761)) var \"compute_CToken_761\") \"mantissa\") ((Some (\"contracts/CToken.py\" 764)) attr ((Some (\"contracts/CToken.py\" 764)) storage) \"totalBorrows\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/CToken.py\" 763)) define_local \"compute_CToken_763\" ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/CToken.py\" 761)) var \"compute_CToken_761\") \"mantissa\") ((Some (\"contracts/CToken.py\" 764)) attr ((Some (\"contracts/CToken.py\" 764)) storage) \"totalBorrows\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")) True) ((Some (\"contracts/CToken.py\" 765)) set ((Some (\"contracts/CToken.py\" 765)) attr ((Some (\"contracts/CToken.py\" 765)) storage) \"totalBorrows\") ((Some (\"contracts/CToken.py\" 765)) add ((Some (\"contracts/CToken.py\" 763)) var \"compute_CToken_763\") ((Some (\"contracts/CToken.py\" 765)) attr ((Some (\"contracts/CToken.py\" 765)) storage) \"totalBorrows\"))) ((Some (\"contracts/utils/Exponential.py\" 87)) set_type ((Some (\"contracts/CToken.py\" 766)) record (mantissa ((Some (\"contracts/CToken.py\" 766)) attr ((Some (\"contracts/CToken.py\" 766)) storage) \"reserveFactorMantissa\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 88)) set_type ((Some (\"contracts/CToken.py\" 763)) var \"compute_CToken_763\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 89)) set_type ((Some (\"contracts/CToken.py\" 768)) attr ((Some (\"contracts/CToken.py\" 768)) storage) \"totalReserves\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/CToken.py\" 766)) record (mantissa ((Some (\"contracts/CToken.py\" 766)) attr ((Some (\"contracts/CToken.py\" 766)) storage) \"reserveFactorMantissa\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/CToken.py\" 766)) record (mantissa ((Some (\"contracts/CToken.py\" 766)) attr ((Some (\"contracts/CToken.py\" 766)) storage) \"reserveFactorMantissa\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/CToken.py\" 763)) var \"compute_CToken_763\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 766)) attr ((Some (\"contracts/CToken.py\" 766)) storage) \"reserveFactorMantissa\") ((Some (\"contracts/CToken.py\" 763)) var \"compute_CToken_763\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 766)) attr ((Some (\"contracts/CToken.py\" 766)) storage) \"reserveFactorMantissa\") ((Some (\"contracts/CToken.py\" 763)) var \"compute_CToken_763\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/CToken.py\" 766)) set ((Some (\"contracts/CToken.py\" 766)) attr ((Some (\"contracts/CToken.py\" 766)) storage) \"totalReserves\") ((Some (\"contracts/utils/Exponential.py\" 90)) add ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 766)) attr ((Some (\"contracts/CToken.py\" 766)) storage) \"reserveFactorMantissa\") ((Some (\"contracts/CToken.py\" 763)) var \"compute_CToken_763\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 768)) attr ((Some (\"contracts/CToken.py\" 768)) storage) \"totalReserves\"))) ((Some (\"contracts/utils/Exponential.py\" 87)) set_type ((Some (\"contracts/CToken.py\" 761)) var \"compute_CToken_761\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 88)) set_type ((Some (\"contracts/CToken.py\" 770)) attr ((Some (\"contracts/CToken.py\" 770)) storage) \"borrowIndex\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 89)) set_type ((Some (\"contracts/CToken.py\" 770)) attr ((Some (\"contracts/CToken.py\" 770)) storage) \"borrowIndex\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/CToken.py\" 761)) var \"compute_CToken_761\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/CToken.py\" 761)) var \"compute_CToken_761\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/CToken.py\" 770)) attr ((Some (\"contracts/CToken.py\" 770)) storage) \"borrowIndex\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/CToken.py\" 761)) var \"compute_CToken_761\") \"mantissa\") ((Some (\"contracts/CToken.py\" 770)) attr ((Some (\"contracts/CToken.py\" 770)) storage) \"borrowIndex\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/CToken.py\" 761)) var \"compute_CToken_761\") \"mantissa\") ((Some (\"contracts/CToken.py\" 770)) attr ((Some (\"contracts/CToken.py\" 770)) storage) \"borrowIndex\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/CToken.py\" 769)) set ((Some (\"contracts/CToken.py\" 769)) attr ((Some (\"contracts/CToken.py\" 769)) storage) \"borrowIndex\") ((Some (\"contracts/utils/Exponential.py\" 90)) add ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/CToken.py\" 761)) var \"compute_CToken_761\") \"mantissa\") ((Some (\"contracts/CToken.py\" 770)) attr ((Some (\"contracts/CToken.py\" 770)) storage) \"borrowIndex\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 770)) attr ((Some (\"contracts/CToken.py\" 770)) storage) \"borrowIndex\"))) ((Some (\"contracts/CToken.py\" 771)) set ((Some (\"contracts/CToken.py\" 771)) attr ((Some (\"contracts/CToken.py\" 771)) storage) \"accrualBlockNumber\") (None level)))) (exchangeRateStored True None None None True None (Some (\"contracts/CToken.py\" 645)) ((bind \"__s2\" (((Some (\"contracts/CToken.py\" 646)) set_type (None first (None parameter)) \"unit\") ((Some (\"contracts/CToken.py\" 668)) define_local \"excRate\" ((Some (\"contracts/CToken.py\" 668)) attr ((Some (\"contracts/CToken.py\" 668)) storage) \"initialExchangeRateMantissa\") True) ((Some (\"contracts/CToken.py\" 669)) if_block ((Some (\"contracts/CToken.py\" 669)) gt ((Some (\"contracts/CToken.py\" 669)) attr ((Some (\"contracts/CToken.py\" 669)) storage) \"totalSupply\") ((Some (\"contracts/CToken.py\" 669)) literal (intOrNat 0))) (((Some (\"contracts/utils/Exponential.py\" 193)) set_type ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 47)) set_type ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 254)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 255)) set_type ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 256)) verify ((Some (\"contracts/utils/Exponential.py\" 256)) gt ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\") ((Some (\"contracts/utils/Exponential.py\" 256)) literal (intOrNat 0))) ((Some (\"contracts/utils/Exponential.py\" 256)) literal (string \"DIVISION_BY_ZERO\"))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 257)) div ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\")) \"nat\") ((Some (\"contracts/CToken.py\" 675)) set ((Some (\"contracts/CToken.py\" 675)) var \"excRate\") ((Some (\"contracts/utils/Exponential.py\" 257)) div ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\"))))) ((Some (\"contracts/CToken.py\" 647)) result ((Some (\"contracts/CToken.py\" 676)) var \"excRate\")))) (None set_type (None second (None parameter)) (contract \"nat\")) (None set (None operations) (None cons ((Some (\"contracts/CToken.py\" 645)) transfer (None var \"__s2\") (None literal (mutez 0)) (None second (None parameter))) (None operations))))) (getAccountSnapshot True None None None True None (Some (\"contracts/CToken.py\" 579)) ((bind \"__s3\" (((Some (\"contracts/CToken.py\" 565)) define_local \"compute_CToken_565\" ((Some (\"contracts/CToken.py\" 565)) record (account (None first (None parameter))) (borrowBalance ((Some (\"contracts/CToken.py\" 568)) literal (nat 0))) (cTokenBalance ((Some (\"contracts/CToken.py\" 567)) literal (nat 0))) (exchangeRateMantissa ((Some (\"contracts/CToken.py\" 569)) literal (nat 0)))) True) ((Some (\"contracts/CToken.py\" 571)) if_block ((Some (\"contracts/CToken.py\" 571)) contains ((Some (\"contracts/CToken.py\" 571)) attr ((Some (\"contracts/CToken.py\" 571)) storage) \"ledger\") (None first (None parameter))) (((Some (\"contracts/CToken.py\" 949)) verify ((Some (\"contracts/CToken.py\" 949)) eq (None level) ((Some (\"contracts/CToken.py\" 949)) attr ((Some (\"contracts/CToken.py\" 949)) storage) \"accrualBlockNumber\")) ((Some (\"contracts/CToken.py\" 949)) literal (string \"CT_INTEREST_OLD\"))) ((Some (\"contracts/CToken.py\" 573)) set ((Some (\"contracts/CToken.py\" 573)) attr ((Some (\"contracts/CToken.py\" 565)) var \"compute_CToken_565\") \"cTokenBalance\") ((Some (\"contracts/CToken.py\" 573)) attr ((Some (\"contracts/CToken.py\" 573)) get_item ((Some (\"contracts/CToken.py\" 573)) attr ((Some (\"contracts/CToken.py\" 573)) storage) \"ledger\") (None first (None parameter))) \"balance\")) ((Some (\"contracts/CToken.py\" 625)) define_local \"borrowBalance\" ((Some (\"contracts/CToken.py\" 625)) literal (nat 0)) True) ((Some (\"contracts/CToken.py\" 626)) if_block ((Some (\"contracts/CToken.py\" 626)) contains ((Some (\"contracts/CToken.py\" 626)) attr ((Some (\"contracts/CToken.py\" 626)) storage) \"borrows\") (None first (None parameter))) (((Some (\"contracts/CToken.py\" 627)) define_local \"borrowSnapshot\" ((Some (\"contracts/CToken.py\" 628)) get_item ((Some (\"contracts/CToken.py\" 628)) attr ((Some (\"contracts/CToken.py\" 628)) storage) \"borrows\") (None first (None parameter))) True) ((Some (\"contracts/CToken.py\" 629)) if_block ((Some (\"contracts/CToken.py\" 629)) gt ((Some (\"contracts/CToken.py\" 629)) attr ((Some (\"contracts/CToken.py\" 629)) var \"borrowSnapshot\") \"principal\") ((Some (\"contracts/CToken.py\" 629)) literal (intOrNat 0))) (((Some (\"contracts/CToken.py\" 631)) set ((Some (\"contracts/CToken.py\" 631)) var \"borrowBalance\") ((Some (\"contracts/CToken.py\" 631)) div ((Some (\"contracts/CToken.py\" 630)) mul_homo ((Some (\"contracts/CToken.py\" 630)) attr ((Some (\"contracts/CToken.py\" 630)) var \"borrowSnapshot\") \"principal\") ((Some (\"contracts/CToken.py\" 630)) attr ((Some (\"contracts/CToken.py\" 630)) storage) \"borrowIndex\")) ((Some (\"contracts/CToken.py\" 631)) attr ((Some (\"contracts/CToken.py\" 631)) var \"borrowSnapshot\") \"interestIndex\"))))))) ((Some (\"contracts/CToken.py\" 574)) set ((Some (\"contracts/CToken.py\" 574)) attr ((Some (\"contracts/CToken.py\" 565)) var \"compute_CToken_565\") \"borrowBalance\") ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\")) ((Some (\"contracts/CToken.py\" 668)) define_local \"excRate\" ((Some (\"contracts/CToken.py\" 668)) attr ((Some (\"contracts/CToken.py\" 668)) storage) \"initialExchangeRateMantissa\") True) ((Some (\"contracts/CToken.py\" 669)) if_block ((Some (\"contracts/CToken.py\" 669)) gt ((Some (\"contracts/CToken.py\" 669)) attr ((Some (\"contracts/CToken.py\" 669)) storage) \"totalSupply\") ((Some (\"contracts/CToken.py\" 669)) literal (intOrNat 0))) (((Some (\"contracts/utils/Exponential.py\" 193)) set_type ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 47)) set_type ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 254)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 255)) set_type ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 256)) verify ((Some (\"contracts/utils/Exponential.py\" 256)) gt ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\") ((Some (\"contracts/utils/Exponential.py\" 256)) literal (intOrNat 0))) ((Some (\"contracts/utils/Exponential.py\" 256)) literal (string \"DIVISION_BY_ZERO\"))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 257)) div ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\")) \"nat\") ((Some (\"contracts/CToken.py\" 675)) set ((Some (\"contracts/CToken.py\" 675)) var \"excRate\") ((Some (\"contracts/utils/Exponential.py\" 257)) div ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\"))))) ((Some (\"contracts/CToken.py\" 575)) set ((Some (\"contracts/CToken.py\" 575)) attr ((Some (\"contracts/CToken.py\" 565)) var \"compute_CToken_565\") \"exchangeRateMantissa\") ((Some (\"contracts/CToken.py\" 676)) var \"excRate\")))) ((Some (\"contracts/CToken.py\" 580)) result ((Some (\"contracts/CToken.py\" 565)) var \"compute_CToken_565\")))) (None set_type (None second (None parameter)) (contract (record ((account \"address\") (borrowBalance \"nat\") (cTokenBalance \"nat\") (exchangeRateMantissa \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 21))))) (None set (None operations) (None cons ((Some (\"contracts/CToken.py\" 579)) transfer (None var \"__s3\") (None literal (mutez 0)) (None second (None parameter))) (None operations))))) (getAllowance True None None None True None (Some (\"contracts/CToken.py\" 546)) ((bind \"__s4\" (((Some (\"contracts/CToken.py\" 547)) define_local \"result\" ((Some (\"contracts/CToken.py\" 547)) literal (intOrNat 0)) True) ((Some (\"contracts/CToken.py\" 548)) if_block ((Some (\"contracts/CToken.py\" 548)) contains ((Some (\"contracts/CToken.py\" 548)) attr ((Some (\"contracts/CToken.py\" 548)) storage) \"ledger\") ((Some (\"contracts/CToken.py\" 548)) attr (None first (None parameter)) \"owner\")) (((Some (\"contracts/CToken.py\" 549)) if_block ((Some (\"contracts/CToken.py\" 549)) contains ((Some (\"contracts/CToken.py\" 549)) attr ((Some (\"contracts/CToken.py\" 549)) get_item ((Some (\"contracts/CToken.py\" 549)) attr ((Some (\"contracts/CToken.py\" 549)) storage) \"ledger\") ((Some (\"contracts/CToken.py\" 548)) attr (None first (None parameter)) \"owner\")) \"approvals\") ((Some (\"contracts/CToken.py\" 549)) attr (None first (None parameter)) \"spender\")) (((Some (\"contracts/CToken.py\" 550)) set ((Some (\"contracts/CToken.py\" 550)) var \"result\") ((Some (\"contracts/CToken.py\" 550)) get_item ((Some (\"contracts/CToken.py\" 550)) attr ((Some (\"contracts/CToken.py\" 550)) get_item ((Some (\"contracts/CToken.py\" 550)) attr ((Some (\"contracts/CToken.py\" 550)) storage) \"ledger\") ((Some (\"contracts/CToken.py\" 548)) attr (None first (None parameter)) \"owner\")) \"approvals\") ((Some (\"contracts/CToken.py\" 549)) attr (None first (None parameter)) \"spender\"))))))) ((Some (\"contracts/CToken.py\" 551)) result ((Some (\"contracts/CToken.py\" 551)) var \"result\")))) (None set_type (None second (None parameter)) (contract \"nat\")) (None set (None operations) (None cons ((Some (\"contracts/CToken.py\" 546)) transfer (None var \"__s4\") (None literal (mutez 0)) (None second (None parameter))) (None operations))))) (getBalance True None None None True None (Some (\"contracts/CToken.py\" 486)) ((bind \"__s5\" (((Some (\"contracts/CToken.py\" 487)) define_local \"result\" ((Some (\"contracts/CToken.py\" 487)) literal (intOrNat 0)) True) ((Some (\"contracts/CToken.py\" 488)) if_block ((Some (\"contracts/CToken.py\" 488)) contains ((Some (\"contracts/CToken.py\" 488)) attr ((Some (\"contracts/CToken.py\" 488)) storage) \"ledger\") (None first (None parameter))) (((Some (\"contracts/CToken.py\" 489)) set ((Some (\"contracts/CToken.py\" 489)) var \"result\") ((Some (\"contracts/CToken.py\" 489)) attr ((Some (\"contracts/CToken.py\" 489)) get_item ((Some (\"contracts/CToken.py\" 489)) attr ((Some (\"contracts/CToken.py\" 489)) storage) \"ledger\") (None first (None parameter))) \"balance\")))) ((Some (\"contracts/CToken.py\" 490)) result ((Some (\"contracts/CToken.py\" 490)) var \"result\")))) (None set_type (None second (None parameter)) (contract \"nat\")) (None set (None operations) (None cons ((Some (\"contracts/CToken.py\" 486)) transfer (None var \"__s5\") (None literal (mutez 0)) (None second (None parameter))) (None operations))))) (getBalanceOfUnderlying True None None None True None (Some (\"contracts/CToken.py\" 517)) ((bind \"__s6\" (((Some (\"contracts/CToken.py\" 518)) set_type (None first (None parameter)) \"address\") ((Some (\"contracts/CToken.py\" 668)) define_local \"excRate\" ((Some (\"contracts/CToken.py\" 668)) attr ((Some (\"contracts/CToken.py\" 668)) storage) \"initialExchangeRateMantissa\") True) ((Some (\"contracts/CToken.py\" 669)) if_block ((Some (\"contracts/CToken.py\" 669)) gt ((Some (\"contracts/CToken.py\" 669)) attr ((Some (\"contracts/CToken.py\" 669)) storage) \"totalSupply\") ((Some (\"contracts/CToken.py\" 669)) literal (intOrNat 0))) (((Some (\"contracts/utils/Exponential.py\" 193)) set_type ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 47)) set_type ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 254)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 255)) set_type ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 256)) verify ((Some (\"contracts/utils/Exponential.py\" 256)) gt ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\") ((Some (\"contracts/utils/Exponential.py\" 256)) literal (intOrNat 0))) ((Some (\"contracts/utils/Exponential.py\" 256)) literal (string \"DIVISION_BY_ZERO\"))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 257)) div ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\")) \"nat\") ((Some (\"contracts/CToken.py\" 675)) set ((Some (\"contracts/CToken.py\" 675)) var \"excRate\") ((Some (\"contracts/utils/Exponential.py\" 257)) div ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\"))))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/CToken.py\" 676)) var \"excRate\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/CToken.py\" 676)) var \"excRate\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/CToken.py\" 521)) attr ((Some (\"contracts/CToken.py\" 521)) get_item ((Some (\"contracts/CToken.py\" 521)) attr ((Some (\"contracts/CToken.py\" 521)) storage) \"ledger\") (None first (None parameter))) \"balance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") ((Some (\"contracts/CToken.py\" 521)) attr ((Some (\"contracts/CToken.py\" 521)) get_item ((Some (\"contracts/CToken.py\" 521)) attr ((Some (\"contracts/CToken.py\" 521)) storage) \"ledger\") (None first (None parameter))) \"balance\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") ((Some (\"contracts/CToken.py\" 521)) attr ((Some (\"contracts/CToken.py\" 521)) get_item ((Some (\"contracts/CToken.py\" 521)) attr ((Some (\"contracts/CToken.py\" 521)) storage) \"ledger\") (None first (None parameter))) \"balance\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/CToken.py\" 522)) result ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") ((Some (\"contracts/CToken.py\" 521)) attr ((Some (\"contracts/CToken.py\" 521)) get_item ((Some (\"contracts/CToken.py\" 521)) attr ((Some (\"contracts/CToken.py\" 521)) storage) \"ledger\") (None first (None parameter))) \"balance\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\"))))) (None set_type (None second (None parameter)) (contract \"nat\")) (None set (None operations) (None cons ((Some (\"contracts/CToken.py\" 517)) transfer (None var \"__s6\") (None literal (mutez 0)) (None second (None parameter))) (None operations))))) (getCash True None None None True None (Some (\"contracts/CToken.py\" 699)) ((bind \"__s7\" (((Some (\"contracts/CToken.py\" 700)) set_type (None first (None parameter)) \"unit\") ((Some (\"contracts/CToken.py\" 701)) result ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\")))) (None set_type (None second (None parameter)) (contract \"nat\")) (None set (None operations) (None cons ((Some (\"contracts/CToken.py\" 699)) transfer (None var \"__s7\") (None literal (mutez 0)) (None second (None parameter))) (None operations))))) (getTotalSupply True None None None True None (Some (\"contracts/CToken.py\" 532)) ((bind \"__s8\" (((Some (\"contracts/CToken.py\" 533)) set_type (None first (None parameter)) \"unit\") ((Some (\"contracts/CToken.py\" 534)) result ((Some (\"contracts/CToken.py\" 534)) attr ((Some (\"contracts/CToken.py\" 534)) storage) \"totalSupply\")))) (None set_type (None second (None parameter)) (contract \"nat\")) (None set (None operations) (None cons ((Some (\"contracts/CToken.py\" 532)) transfer (None var \"__s8\") (None literal (mutez 0)) (None second (None parameter))) (None operations))))) (hardResetOp True (Some True) None None True None (Some (\"contracts/utils/OperationProtector.py\" 56)) (((Some (\"contracts/utils/OperationProtector.py\" 57)) set_type (None parameter) \"unit\") ((Some (\"contracts/CToken.py\" 943)) verify ((Some (\"contracts/CToken.py\" 943)) eq (None sender) ((Some (\"contracts/CToken.py\" 943)) attr ((Some (\"contracts/CToken.py\" 943)) storage) \"administrator\")) ((Some (\"contracts/CToken.py\" 943)) literal (string \"CT_NOT_ADMIN\"))) ((Some (\"contracts/utils/OperationProtector.py\" 59)) set ((Some (\"contracts/utils/OperationProtector.py\" 59)) attr ((Some (\"contracts/utils/OperationProtector.py\" 59)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 59)) set )))) (liquidateBorrow True None None None True None (Some (\"contracts/CToken.py\" 348)) (((Some (\"contracts/CToken.py\" 349)) set_type (None parameter) (record ((borrower \"address\") (cTokenCollateral \"address\") (repayAmount \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 27)))) ((Some (\"contracts/CToken.py\" 360)) set ((Some (\"contracts/CToken.py\" 360)) operations) ((Some (\"contracts/CToken.py\" 360)) cons ((Some (\"contracts/CToken.py\" 360)) transfer ((Some (\"contracts/CToken.py\" 358)) record (borrower ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"borrower\")) (cTokenBorrowed (None self_address)) (cTokenCollateral ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"cTokenCollateral\")) (liquidator (None sender)) (repayAmount ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"repayAmount\"))) ((Some (\"contracts/CToken.py\" 360)) literal (mutez 0)) ((Some (\"contracts/CToken.py\" 357)) open_variant ((Some (\"contracts/CToken.py\" 356)) contract \"liquidateBorrowAllowed\" (record ((borrower \"address\") (cTokenBorrowed \"address\") (cTokenCollateral \"address\") (liquidator \"address\") (repayAmount \"nat\")) Variable (Some (\"contracts/interfaces/ComptrollerInterface.py\" 28))) ((Some (\"contracts/CToken.py\" 356)) attr ((Some (\"contracts/CToken.py\" 356)) storage) \"comptroller\")) \"Some\" \"None\")) ((Some (\"contracts/CToken.py\" 360)) operations))) ((Some (\"contracts/CToken.py\" 363)) verify ((Some (\"contracts/CToken.py\" 363)) neq ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"borrower\") (None sender)) ((Some (\"contracts/CToken.py\" 363)) literal (string \"CT_LIQUIDATE_LIQUIDATOR_IS_BORROWER\"))) ((Some (\"contracts/CToken.py\" 366)) verify ((Some (\"contracts/CToken.py\" 366)) gt ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"repayAmount\") ((Some (\"contracts/CToken.py\" 366)) literal (intOrNat 0))) ((Some (\"contracts/CToken.py\" 366)) literal (string \"CT_LIQUIDATE_CLOSE_AMOUNT_IS_INVALID\"))) ((Some (\"contracts/CToken.py\" 949)) verify ((Some (\"contracts/CToken.py\" 949)) eq (None level) ((Some (\"contracts/CToken.py\" 949)) attr ((Some (\"contracts/CToken.py\" 949)) storage) \"accrualBlockNumber\")) ((Some (\"contracts/CToken.py\" 949)) literal (string \"CT_INTEREST_OLD\"))) ((Some (\"contracts/CToken.py\" 625)) define_local \"borrowBalance\" ((Some (\"contracts/CToken.py\" 625)) literal (nat 0)) True) ((Some (\"contracts/CToken.py\" 626)) if_block ((Some (\"contracts/CToken.py\" 626)) contains ((Some (\"contracts/CToken.py\" 626)) attr ((Some (\"contracts/CToken.py\" 626)) storage) \"borrows\") ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"borrower\")) (((Some (\"contracts/CToken.py\" 627)) define_local \"borrowSnapshot\" ((Some (\"contracts/CToken.py\" 628)) get_item ((Some (\"contracts/CToken.py\" 628)) attr ((Some (\"contracts/CToken.py\" 628)) storage) \"borrows\") ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"borrower\")) True) ((Some (\"contracts/CToken.py\" 629)) if_block ((Some (\"contracts/CToken.py\" 629)) gt ((Some (\"contracts/CToken.py\" 629)) attr ((Some (\"contracts/CToken.py\" 629)) var \"borrowSnapshot\") \"principal\") ((Some (\"contracts/CToken.py\" 629)) literal (intOrNat 0))) (((Some (\"contracts/CToken.py\" 631)) set ((Some (\"contracts/CToken.py\" 631)) var \"borrowBalance\") ((Some (\"contracts/CToken.py\" 631)) div ((Some (\"contracts/CToken.py\" 630)) mul_homo ((Some (\"contracts/CToken.py\" 630)) attr ((Some (\"contracts/CToken.py\" 630)) var \"borrowSnapshot\") \"principal\") ((Some (\"contracts/CToken.py\" 630)) attr ((Some (\"contracts/CToken.py\" 630)) storage) \"borrowIndex\")) ((Some (\"contracts/CToken.py\" 631)) attr ((Some (\"contracts/CToken.py\" 631)) var \"borrowSnapshot\") \"interestIndex\"))))))) ((Some (\"contracts/utils/TransferTokens.py\" 19)) set ((Some (\"contracts/utils/TransferTokens.py\" 19)) operations) ((Some (\"contracts/utils/TransferTokens.py\" 19)) cons ((Some (\"contracts/utils/TransferTokens.py\" 19)) transfer ((Some (\"contracts/utils/TransferTokens.py\" 6)) record (from_ (None sender)) (to_ (None self_address)) (value ((Some (\"contracts/CToken.py\" 261)) min ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\") ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"repayAmount\")))) ((Some (\"contracts/utils/TransferTokens.py\" 19)) literal (mutez 0)) ((Some (\"contracts/utils/TransferTokens.py\" 17)) open_variant ((Some (\"contracts/utils/TransferTokens.py\" 12)) contract \"transfer\" (record ((from_ \"address\") (to_ \"address\") (value \"nat\")) (Value ((\"from_ as from\") ((\"to_ as to\") (\"value\")))) (Some (\"contracts/utils/TransferTokens.py\" 13))) ((Some (\"contracts/CFA12.py\" 47)) attr ((Some (\"contracts/CFA12.py\" 47)) storage) \"fa1_2_TokenAddress\")) \"Some\" \"None\")) ((Some (\"contracts/utils/TransferTokens.py\" 19)) operations))) ((Some (\"contracts/utils/Exponential.py\" 193)) set_type ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/CToken.py\" 261)) min ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\") ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"repayAmount\")) \"nat\") ((Some (\"contracts/CToken.py\" 263)) set ((Some (\"contracts/CToken.py\" 263)) attr ((Some (\"contracts/CToken.py\" 263)) get_item ((Some (\"contracts/CToken.py\" 263)) attr ((Some (\"contracts/CToken.py\" 263)) storage) \"borrows\") ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"borrower\")) \"principal\") ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\") ((Some (\"contracts/CToken.py\" 261)) min ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\") ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"repayAmount\")))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\")))) ((Some (\"contracts/CToken.py\" 265)) set ((Some (\"contracts/CToken.py\" 265)) attr ((Some (\"contracts/CToken.py\" 265)) get_item ((Some (\"contracts/CToken.py\" 265)) attr ((Some (\"contracts/CToken.py\" 265)) storage) \"borrows\") ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"borrower\")) \"interestIndex\") ((Some (\"contracts/CToken.py\" 265)) attr ((Some (\"contracts/CToken.py\" 265)) storage) \"borrowIndex\")) ((Some (\"contracts/utils/Exponential.py\" 193)) set_type ((Some (\"contracts/CToken.py\" 267)) attr ((Some (\"contracts/CToken.py\" 267)) storage) \"totalBorrows\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/CToken.py\" 261)) min ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\") ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"repayAmount\")) \"nat\") ((Some (\"contracts/CToken.py\" 266)) set ((Some (\"contracts/CToken.py\" 266)) attr ((Some (\"contracts/CToken.py\" 266)) storage) \"totalBorrows\") ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CToken.py\" 267)) attr ((Some (\"contracts/CToken.py\" 267)) storage) \"totalBorrows\") ((Some (\"contracts/CToken.py\" 261)) min ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\") ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"repayAmount\")))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\")))) ((Some (\"contracts/CToken.py\" 268)) if_block ((Some (\"contracts/CToken.py\" 268)) eq ((Some (\"contracts/CToken.py\" 268)) attr ((Some (\"contracts/CToken.py\" 268)) get_item ((Some (\"contracts/CToken.py\" 268)) attr ((Some (\"contracts/CToken.py\" 268)) storage) \"borrows\") ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"borrower\")) \"principal\") ((Some (\"contracts/CToken.py\" 268)) literal (intOrNat 0))) (((Some (\"contracts/CToken.py\" 271)) set ((Some (\"contracts/CToken.py\" 271)) operations) ((Some (\"contracts/CToken.py\" 271)) cons ((Some (\"contracts/CToken.py\" 271)) transfer ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"borrower\") ((Some (\"contracts/CToken.py\" 271)) literal (mutez 0)) ((Some (\"contracts/CToken.py\" 270)) open_variant ((Some (\"contracts/CToken.py\" 269)) contract \"removeFromLoans\" \"address\" ((Some (\"contracts/CToken.py\" 269)) attr ((Some (\"contracts/CToken.py\" 269)) storage) \"comptroller\")) \"Some\" \"None\")) ((Some (\"contracts/CToken.py\" 271)) operations))))) ((Some (\"contracts/CToken.py\" 379)) verify ((Some (\"contracts/CToken.py\" 379)) ge ((Some (\"contracts/CToken.py\" 377)) open_variant ((Some (\"contracts/CToken.py\" 376)) view \"balanceOf\" ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"borrower\") ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"cTokenCollateral\") \"nat\") \"Some\" ((Some (\"contracts/CToken.py\" 377)) literal (string \"INVALID BALANCE OF VIEW\"))) ((Some (\"contracts/CToken.py\" 374)) open_variant ((Some (\"contracts/CToken.py\" 372)) view \"liquidateCalculateSeizeTokens\" ((Some (\"contracts/CToken.py\" 372)) record (actualRepayAmount ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"repayAmount\")) (cTokenBorrowed (None self_address)) (cTokenCollateral ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"cTokenCollateral\"))) ((Some (\"contracts/CToken.py\" 372)) attr ((Some (\"contracts/CToken.py\" 372)) storage) \"comptroller\") \"nat\") \"Some\" ((Some (\"contracts/CToken.py\" 374)) literal (string \"INVALID LIQUIDATE CALC SEIZE TOKEN VIEW\")))) ((Some (\"contracts/CToken.py\" 379)) literal (string \"LIQUIDATE_SEIZE_TOO_MUCH\"))) ((Some (\"contracts/CToken.py\" 383)) set ((Some (\"contracts/CToken.py\" 383)) operations) ((Some (\"contracts/CToken.py\" 383)) cons ((Some (\"contracts/CToken.py\" 383)) transfer ((Some (\"contracts/CToken.py\" 383)) record (borrower ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"borrower\")) (liquidator (None sender)) (seizeTokens ((Some (\"contracts/CToken.py\" 374)) open_variant ((Some (\"contracts/CToken.py\" 372)) view \"liquidateCalculateSeizeTokens\" ((Some (\"contracts/CToken.py\" 372)) record (actualRepayAmount ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"repayAmount\")) (cTokenBorrowed (None self_address)) (cTokenCollateral ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"cTokenCollateral\"))) ((Some (\"contracts/CToken.py\" 372)) attr ((Some (\"contracts/CToken.py\" 372)) storage) \"comptroller\") \"nat\") \"Some\" ((Some (\"contracts/CToken.py\" 374)) literal (string \"INVALID LIQUIDATE CALC SEIZE TOKEN VIEW\"))))) ((Some (\"contracts/CToken.py\" 384)) literal (mutez 0)) ((Some (\"contracts/CToken.py\" 382)) open_variant ((Some (\"contracts/CToken.py\" 381)) contract \"seize\" (record ((borrower \"address\") (liquidator \"address\") (seizeTokens \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 24))) ((Some (\"contracts/CToken.py\" 351)) attr (None parameter) \"cTokenCollateral\")) \"Some\" \"None\")) ((Some (\"contracts/CToken.py\" 383)) operations))))) (mint True None None None True None (Some (\"contracts/CToken.py\" 87)) (((Some (\"contracts/CToken.py\" 88)) set_type (None parameter) \"nat\") ((Some (\"contracts/CToken.py\" 955)) verify ((Some (\"contracts/CToken.py\" 955)) neq (None sender) (None self_address)) ((Some (\"contracts/CToken.py\" 955)) literal (string \"CT_INTERNAL_CALL\"))) ((Some (\"contracts/CToken.py\" 433)) if_block ((Some (\"contracts/CToken.py\" 433)) not ((Some (\"contracts/CToken.py\" 433)) contains ((Some (\"contracts/CToken.py\" 433)) attr ((Some (\"contracts/CToken.py\" 433)) storage) \"ledger\") (None sender))) (((Some (\"contracts/CToken.py\" 434)) set ((Some (\"contracts/CToken.py\" 434)) get_item ((Some (\"contracts/CToken.py\" 434)) attr ((Some (\"contracts/CToken.py\" 434)) storage) \"ledger\") (None sender)) ((Some (\"contracts/CToken.py\" 434)) record (approvals ((Some (\"contracts/CToken.py\" 434)) map )) (balance ((Some (\"contracts/CToken.py\" 434)) literal (nat 0))))))) ((Some (\"contracts/CToken.py\" 436)) if_block ((Some (\"contracts/CToken.py\" 436)) not ((Some (\"contracts/CToken.py\" 436)) contains ((Some (\"contracts/CToken.py\" 436)) attr ((Some (\"contracts/CToken.py\" 436)) storage) \"borrows\") (None sender))) (((Some (\"contracts/CToken.py\" 437)) set ((Some (\"contracts/CToken.py\" 437)) get_item ((Some (\"contracts/CToken.py\" 437)) attr ((Some (\"contracts/CToken.py\" 437)) storage) \"borrows\") (None sender)) ((Some (\"contracts/CToken.py\" 437)) record (interestIndex ((Some (\"contracts/CToken.py\" 438)) literal (nat 0))) (principal ((Some (\"contracts/CToken.py\" 438)) literal (nat 0))))))) ((Some (\"contracts/CToken.py\" 107)) set ((Some (\"contracts/CToken.py\" 107)) operations) ((Some (\"contracts/CToken.py\" 107)) cons ((Some (\"contracts/CToken.py\" 107)) transfer ((Some (\"contracts/CToken.py\" 105)) record (cToken (None self_address)) (mintAmount (None parameter)) (minter (None sender))) ((Some (\"contracts/CToken.py\" 107)) literal (mutez 0)) ((Some (\"contracts/CToken.py\" 104)) open_variant ((Some (\"contracts/CToken.py\" 103)) contract \"mintAllowed\" (record ((cToken \"address\") (mintAmount \"nat\") (minter \"address\")) (Value ((\"cToken\") ((\"minter\") (\"mintAmount\")))) (Some (\"contracts/interfaces/ComptrollerInterface.py\" 7))) ((Some (\"contracts/CToken.py\" 103)) attr ((Some (\"contracts/CToken.py\" 103)) storage) \"comptroller\")) \"Some\" \"None\")) ((Some (\"contracts/CToken.py\" 107)) operations))) ((Some (\"contracts/CToken.py\" 949)) verify ((Some (\"contracts/CToken.py\" 949)) eq (None level) ((Some (\"contracts/CToken.py\" 949)) attr ((Some (\"contracts/CToken.py\" 949)) storage) \"accrualBlockNumber\")) ((Some (\"contracts/CToken.py\" 949)) literal (string \"CT_INTEREST_OLD\"))) ((Some (\"contracts/utils/TransferTokens.py\" 19)) set ((Some (\"contracts/utils/TransferTokens.py\" 19)) operations) ((Some (\"contracts/utils/TransferTokens.py\" 19)) cons ((Some (\"contracts/utils/TransferTokens.py\" 19)) transfer ((Some (\"contracts/utils/TransferTokens.py\" 6)) record (from_ (None sender)) (to_ (None self_address)) (value (None parameter))) ((Some (\"contracts/utils/TransferTokens.py\" 19)) literal (mutez 0)) ((Some (\"contracts/utils/TransferTokens.py\" 17)) open_variant ((Some (\"contracts/utils/TransferTokens.py\" 12)) contract \"transfer\" (record ((from_ \"address\") (to_ \"address\") (value \"nat\")) (Value ((\"from_ as from\") ((\"to_ as to\") (\"value\")))) (Some (\"contracts/utils/TransferTokens.py\" 13))) ((Some (\"contracts/CFA12.py\" 47)) attr ((Some (\"contracts/CFA12.py\" 47)) storage) \"fa1_2_TokenAddress\")) \"Some\" \"None\")) ((Some (\"contracts/utils/TransferTokens.py\" 19)) operations))) ((Some (\"contracts/CToken.py\" 668)) define_local \"excRate\" ((Some (\"contracts/CToken.py\" 668)) attr ((Some (\"contracts/CToken.py\" 668)) storage) \"initialExchangeRateMantissa\") True) ((Some (\"contracts/CToken.py\" 669)) if_block ((Some (\"contracts/CToken.py\" 669)) gt ((Some (\"contracts/CToken.py\" 669)) attr ((Some (\"contracts/CToken.py\" 669)) storage) \"totalSupply\") ((Some (\"contracts/CToken.py\" 669)) literal (intOrNat 0))) (((Some (\"contracts/utils/Exponential.py\" 193)) set_type ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/CToken.py\" 110)) literal (nat 0)) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 47)) set_type ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 110)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 110)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 254)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 110)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 255)) set_type ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 256)) verify ((Some (\"contracts/utils/Exponential.py\" 256)) gt ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\") ((Some (\"contracts/utils/Exponential.py\" 256)) literal (intOrNat 0))) ((Some (\"contracts/utils/Exponential.py\" 256)) literal (string \"DIVISION_BY_ZERO\"))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 257)) div ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 110)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\")) \"nat\") ((Some (\"contracts/CToken.py\" 675)) set ((Some (\"contracts/CToken.py\" 675)) var \"excRate\") ((Some (\"contracts/utils/Exponential.py\" 257)) div ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 110)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\"))))) ((Some (\"contracts/CToken.py\" 963)) define_local \"amount\" ((Some (\"contracts/CToken.py\" 963)) literal (nat 0)) True) ((Some (\"contracts/CToken.py\" 964)) if_block ((Some (\"contracts/CToken.py\" 964)) literal (bool True)) (((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 267)) set_type (None parameter) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 268)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/CToken.py\" 676)) var \"excRate\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 269)) verify ((Some (\"contracts/utils/Exponential.py\" 269)) gt ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") ((Some (\"contracts/utils/Exponential.py\" 269)) literal (intOrNat 0))) ((Some (\"contracts/utils/Exponential.py\" 269)) literal (string \"DIVISION_BY_ZERO\"))) ((Some (\"contracts/CToken.py\" 965)) define_local \"compute_CToken_965\" ((Some (\"contracts/utils/Exponential.py\" 270)) div ((Some (\"contracts/utils/Exponential.py\" 270)) mul_homo (None parameter) ((Some (\"contracts/utils/Exponential.py\" 270)) attr ((Some (\"contracts/utils/Exponential.py\" 270)) storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 676)) var \"excRate\")) True) ((Some (\"contracts/CToken.py\" 965)) set ((Some (\"contracts/CToken.py\" 965)) var \"amount\") ((Some (\"contracts/CToken.py\" 965)) var \"compute_CToken_965\")))) (else_block (((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/CToken.py\" 676)) var \"excRate\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/CToken.py\" 676)) var \"excRate\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type (None parameter) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") (None parameter)) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") (None parameter)))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/CToken.py\" 968)) define_local \"compute_CToken_968\" ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") (None parameter)) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")) True) ((Some (\"contracts/CToken.py\" 968)) set ((Some (\"contracts/CToken.py\" 968)) var \"amount\") ((Some (\"contracts/CToken.py\" 968)) var \"compute_CToken_968\")))) ((Some (\"contracts/CToken.py\" 97)) verify ((Some (\"contracts/CToken.py\" 97)) gt ((Some (\"contracts/CToken.py\" 970)) var \"amount\") ((Some (\"contracts/CToken.py\" 97)) literal (intOrNat 0))) ((Some (\"contracts/CToken.py\" 97)) literal (string \"CT_MINT_AMOUNT_IS_INVALID\"))) ((Some (\"contracts/CToken.py\" 98)) set ((Some (\"contracts/CToken.py\" 98)) attr ((Some (\"contracts/CToken.py\" 98)) storage) \"totalSupply\") ((Some (\"contracts/CToken.py\" 98)) add ((Some (\"contracts/CToken.py\" 98)) attr ((Some (\"contracts/CToken.py\" 98)) storage) \"totalSupply\") ((Some (\"contracts/CToken.py\" 970)) var \"amount\"))) ((Some (\"contracts/CToken.py\" 99)) set ((Some (\"contracts/CToken.py\" 99)) attr ((Some (\"contracts/CToken.py\" 99)) get_item ((Some (\"contracts/CToken.py\" 99)) attr ((Some (\"contracts/CToken.py\" 99)) storage) \"ledger\") (None sender)) \"balance\") ((Some (\"contracts/CToken.py\" 99)) add ((Some (\"contracts/CToken.py\" 99)) attr ((Some (\"contracts/CToken.py\" 99)) get_item ((Some (\"contracts/CToken.py\" 99)) attr ((Some (\"contracts/CToken.py\" 99)) storage) \"ledger\") (None sender)) \"balance\") ((Some (\"contracts/CToken.py\" 970)) var \"amount\"))))) (redeem True None None None True None (Some (\"contracts/CToken.py\" 130)) (((Some (\"contracts/CToken.py\" 131)) set_type (None parameter) \"nat\") ((Some (\"contracts/CToken.py\" 955)) verify ((Some (\"contracts/CToken.py\" 955)) neq (None sender) (None self_address)) ((Some (\"contracts/CToken.py\" 955)) literal (string \"CT_INTERNAL_CALL\"))) ((Some (\"contracts/CToken.py\" 180)) set ((Some (\"contracts/CToken.py\" 180)) operations) ((Some (\"contracts/CToken.py\" 180)) cons ((Some (\"contracts/CToken.py\" 180)) transfer ((Some (\"contracts/CToken.py\" 178)) record (cToken (None self_address)) (redeemAmount (None parameter)) (redeemer (None sender))) ((Some (\"contracts/CToken.py\" 180)) literal (mutez 0)) ((Some (\"contracts/CToken.py\" 177)) open_variant ((Some (\"contracts/CToken.py\" 176)) contract \"redeemAllowed\" (record ((cToken \"address\") (redeemAmount \"nat\") (redeemer \"address\")) (Value ((\"cToken\") ((\"redeemer\") (\"redeemAmount\")))) (Some (\"contracts/interfaces/ComptrollerInterface.py\" 11))) ((Some (\"contracts/CToken.py\" 176)) attr ((Some (\"contracts/CToken.py\" 176)) storage) \"comptroller\")) \"Some\" \"None\")) ((Some (\"contracts/CToken.py\" 180)) operations))) ((Some (\"contracts/CToken.py\" 984)) define_local \"redeem_amount\" ((Some (\"contracts/CToken.py\" 984)) literal (nat 0)) True) ((Some (\"contracts/CToken.py\" 985)) if_block ((Some (\"contracts/CToken.py\" 134)) literal (bool False)) (((Some (\"contracts/CToken.py\" 986)) set ((Some (\"contracts/CToken.py\" 986)) var \"redeem_amount\") (None parameter)))) (else_block (((Some (\"contracts/CToken.py\" 668)) define_local \"excRate\" ((Some (\"contracts/CToken.py\" 668)) attr ((Some (\"contracts/CToken.py\" 668)) storage) \"initialExchangeRateMantissa\") True) ((Some (\"contracts/CToken.py\" 669)) if_block ((Some (\"contracts/CToken.py\" 669)) gt ((Some (\"contracts/CToken.py\" 669)) attr ((Some (\"contracts/CToken.py\" 669)) storage) \"totalSupply\") ((Some (\"contracts/CToken.py\" 669)) literal (intOrNat 0))) (((Some (\"contracts/utils/Exponential.py\" 193)) set_type ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/CToken.py\" 989)) literal (nat 0)) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 47)) set_type ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 989)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 989)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 254)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 989)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 255)) set_type ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 256)) verify ((Some (\"contracts/utils/Exponential.py\" 256)) gt ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\") ((Some (\"contracts/utils/Exponential.py\" 256)) literal (intOrNat 0))) ((Some (\"contracts/utils/Exponential.py\" 256)) literal (string \"DIVISION_BY_ZERO\"))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 257)) div ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 989)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\")) \"nat\") ((Some (\"contracts/CToken.py\" 675)) set ((Some (\"contracts/CToken.py\" 675)) var \"excRate\") ((Some (\"contracts/utils/Exponential.py\" 257)) div ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 989)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\"))))) ((Some (\"contracts/CToken.py\" 963)) define_local \"amount\" ((Some (\"contracts/CToken.py\" 963)) literal (nat 0)) True) ((Some (\"contracts/CToken.py\" 964)) if_block ((Some (\"contracts/CToken.py\" 964)) literal (bool False)) (((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 267)) set_type (None parameter) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 268)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/CToken.py\" 676)) var \"excRate\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 269)) verify ((Some (\"contracts/utils/Exponential.py\" 269)) gt ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") ((Some (\"contracts/utils/Exponential.py\" 269)) literal (intOrNat 0))) ((Some (\"contracts/utils/Exponential.py\" 269)) literal (string \"DIVISION_BY_ZERO\"))) ((Some (\"contracts/CToken.py\" 965)) define_local \"compute_CToken_965\" ((Some (\"contracts/utils/Exponential.py\" 270)) div ((Some (\"contracts/utils/Exponential.py\" 270)) mul_homo (None parameter) ((Some (\"contracts/utils/Exponential.py\" 270)) attr ((Some (\"contracts/utils/Exponential.py\" 270)) storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 676)) var \"excRate\")) True) ((Some (\"contracts/CToken.py\" 965)) set ((Some (\"contracts/CToken.py\" 965)) var \"amount\") ((Some (\"contracts/CToken.py\" 965)) var \"compute_CToken_965\")))) (else_block (((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/CToken.py\" 676)) var \"excRate\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/CToken.py\" 676)) var \"excRate\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type (None parameter) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") (None parameter)) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") (None parameter)))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/CToken.py\" 968)) define_local \"compute_CToken_968\" ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") (None parameter)) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")) True) ((Some (\"contracts/CToken.py\" 968)) set ((Some (\"contracts/CToken.py\" 968)) var \"amount\") ((Some (\"contracts/CToken.py\" 968)) var \"compute_CToken_968\")))) ((Some (\"contracts/CToken.py\" 988)) set ((Some (\"contracts/CToken.py\" 988)) var \"redeem_amount\") ((Some (\"contracts/CToken.py\" 970)) var \"amount\")))) ((Some (\"contracts/CToken.py\" 993)) define_local \"redeem_tokens\" ((Some (\"contracts/CToken.py\" 993)) literal (nat 0)) True) ((Some (\"contracts/CToken.py\" 994)) if_block ((Some (\"contracts/CToken.py\" 134)) literal (bool False)) (((Some (\"contracts/CToken.py\" 668)) define_local \"excRate\" ((Some (\"contracts/CToken.py\" 668)) attr ((Some (\"contracts/CToken.py\" 668)) storage) \"initialExchangeRateMantissa\") True) ((Some (\"contracts/CToken.py\" 669)) if_block ((Some (\"contracts/CToken.py\" 669)) gt ((Some (\"contracts/CToken.py\" 669)) attr ((Some (\"contracts/CToken.py\" 669)) storage) \"totalSupply\") ((Some (\"contracts/CToken.py\" 669)) literal (intOrNat 0))) (((Some (\"contracts/utils/Exponential.py\" 193)) set_type ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/CToken.py\" 995)) literal (nat 0)) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 47)) set_type ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 995)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 995)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 254)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 995)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 255)) set_type ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 256)) verify ((Some (\"contracts/utils/Exponential.py\" 256)) gt ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\") ((Some (\"contracts/utils/Exponential.py\" 256)) literal (intOrNat 0))) ((Some (\"contracts/utils/Exponential.py\" 256)) literal (string \"DIVISION_BY_ZERO\"))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 257)) div ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 995)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\")) \"nat\") ((Some (\"contracts/CToken.py\" 675)) set ((Some (\"contracts/CToken.py\" 675)) var \"excRate\") ((Some (\"contracts/utils/Exponential.py\" 257)) div ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 995)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\"))))) ((Some (\"contracts/CToken.py\" 974)) define_local \"amount\" ((Some (\"contracts/CToken.py\" 974)) literal (nat 0)) True) ((Some (\"contracts/CToken.py\" 975)) if_block ((Some (\"contracts/CToken.py\" 975)) literal (bool True)) (((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 273)) set_type (None parameter) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 274)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/CToken.py\" 676)) var \"excRate\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 275)) verify ((Some (\"contracts/utils/Exponential.py\" 275)) gt ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") ((Some (\"contracts/utils/Exponential.py\" 275)) literal (intOrNat 0))) ((Some (\"contracts/utils/Exponential.py\" 275)) literal (string \"DIVISION_BY_ZERO\"))) ((Some (\"contracts/utils/Exponential.py\" 277)) define_local \"compute_Exponential_277\" ((Some (\"contracts/utils/Exponential.py\" 277)) mul_homo (None parameter) ((Some (\"contracts/utils/Exponential.py\" 277)) attr ((Some (\"contracts/utils/Exponential.py\" 277)) storage) \"expScale\")) True) ((Some (\"contracts/utils/Exponential.py\" 280)) define_local \"compute_Exponential_280\" ((Some (\"contracts/utils/Exponential.py\" 280)) div ((Some (\"contracts/utils/Exponential.py\" 277)) var \"compute_Exponential_277\") ((Some (\"contracts/CToken.py\" 676)) var \"excRate\")) True) ((Some (\"contracts/utils/Exponential.py\" 281)) if_block ((Some (\"contracts/utils/Exponential.py\" 281)) gt ((Some (\"contracts/utils/Exponential.py\" 281)) mod ((Some (\"contracts/utils/Exponential.py\" 277)) var \"compute_Exponential_277\") ((Some (\"contracts/CToken.py\" 676)) var \"excRate\")) ((Some (\"contracts/utils/Exponential.py\" 281)) literal (intOrNat 0))) ()) ((Some (\"contracts/CToken.py\" 976)) define_local \"compute_CToken_976\" ((Some (\"contracts/utils/Exponential.py\" 282)) add ((Some (\"contracts/utils/Exponential.py\" 280)) var \"compute_Exponential_280\") ((Some (\"contracts/utils/Exponential.py\" 282)) literal (intOrNat 1))) True) ((Some (\"contracts/CToken.py\" 976)) set ((Some (\"contracts/CToken.py\" 976)) var \"amount\") ((Some (\"contracts/CToken.py\" 976)) var \"compute_CToken_976\")))) (else_block (((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/CToken.py\" 676)) var \"excRate\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/CToken.py\" 676)) var \"excRate\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type (None parameter) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") (None parameter)) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") (None parameter)))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/CToken.py\" 979)) define_local \"compute_CToken_979\" ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") (None parameter)) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")) True) ((Some (\"contracts/CToken.py\" 979)) set ((Some (\"contracts/CToken.py\" 979)) var \"amount\") ((Some (\"contracts/CToken.py\" 979)) var \"compute_CToken_979\")))) ((Some (\"contracts/CToken.py\" 995)) set ((Some (\"contracts/CToken.py\" 995)) var \"redeem_tokens\") ((Some (\"contracts/CToken.py\" 981)) var \"amount\")))) (else_block (((Some (\"contracts/CToken.py\" 997)) set ((Some (\"contracts/CToken.py\" 997)) var \"redeem_tokens\") (None parameter)))) ((Some (\"contracts/CToken.py\" 166)) if_block ((Some (\"contracts/CToken.py\" 166)) and ((Some (\"contracts/CToken.py\" 166)) gt ((Some (\"contracts/CToken.py\" 990)) var \"redeem_amount\") ((Some (\"contracts/CToken.py\" 166)) literal (intOrNat 0))) ((Some (\"contracts/CToken.py\" 166)) gt ((Some (\"contracts/CToken.py\" 998)) var \"redeem_tokens\") ((Some (\"contracts/CToken.py\" 166)) literal (intOrNat 0)))) (((Some (\"contracts/CToken.py\" 946)) verify ((Some (\"contracts/CToken.py\" 946)) ge ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 990)) var \"redeem_amount\")) ((Some (\"contracts/CToken.py\" 946)) literal (string \"CT_INSUFFICIENT_CASH\"))) ((Some (\"contracts/CToken.py\" 949)) verify ((Some (\"contracts/CToken.py\" 949)) eq (None level) ((Some (\"contracts/CToken.py\" 949)) attr ((Some (\"contracts/CToken.py\" 949)) storage) \"accrualBlockNumber\")) ((Some (\"contracts/CToken.py\" 949)) literal (string \"CT_INTEREST_OLD\"))) ((Some (\"contracts/CToken.py\" 169)) set ((Some (\"contracts/CToken.py\" 169)) attr ((Some (\"contracts/CToken.py\" 169)) storage) \"totalSupply\") ((Some (\"contracts/CToken.py\" 169)) open_variant ((Some (\"contracts/CToken.py\" 169)) is_nat ((Some (\"contracts/CToken.py\" 170)) sub ((Some (\"contracts/CToken.py\" 170)) attr ((Some (\"contracts/CToken.py\" 170)) storage) \"totalSupply\") ((Some (\"contracts/CToken.py\" 998)) var \"redeem_tokens\"))) \"Some\" ((Some (\"contracts/CToken.py\" 169)) literal (string \"Insufficient supply\")))) ((Some (\"contracts/CToken.py\" 171)) set ((Some (\"contracts/CToken.py\" 171)) attr ((Some (\"contracts/CToken.py\" 171)) get_item ((Some (\"contracts/CToken.py\" 171)) attr ((Some (\"contracts/CToken.py\" 171)) storage) \"ledger\") (None sender)) \"balance\") ((Some (\"contracts/CToken.py\" 171)) open_variant ((Some (\"contracts/CToken.py\" 171)) is_nat ((Some (\"contracts/CToken.py\" 172)) sub ((Some (\"contracts/CToken.py\" 172)) attr ((Some (\"contracts/CToken.py\" 172)) get_item ((Some (\"contracts/CToken.py\" 172)) attr ((Some (\"contracts/CToken.py\" 172)) storage) \"ledger\") (None sender)) \"balance\") ((Some (\"contracts/CToken.py\" 998)) var \"redeem_tokens\"))) \"Some\" ((Some (\"contracts/CToken.py\" 171)) literal (string \"Insufficient balance\")))) ((Some (\"contracts/utils/TransferTokens.py\" 19)) set ((Some (\"contracts/utils/TransferTokens.py\" 19)) operations) ((Some (\"contracts/utils/TransferTokens.py\" 19)) cons ((Some (\"contracts/utils/TransferTokens.py\" 19)) transfer ((Some (\"contracts/utils/TransferTokens.py\" 6)) record (from_ (None self_address)) (to_ (None sender)) (value ((Some (\"contracts/CToken.py\" 990)) var \"redeem_amount\"))) ((Some (\"contracts/utils/TransferTokens.py\" 19)) literal (mutez 0)) ((Some (\"contracts/utils/TransferTokens.py\" 17)) open_variant ((Some (\"contracts/utils/TransferTokens.py\" 12)) contract \"transfer\" (record ((from_ \"address\") (to_ \"address\") (value \"nat\")) (Value ((\"from_ as from\") ((\"to_ as to\") (\"value\")))) (Some (\"contracts/utils/TransferTokens.py\" 13))) ((Some (\"contracts/CFA12.py\" 51)) attr ((Some (\"contracts/CFA12.py\" 51)) storage) \"fa1_2_TokenAddress\")) \"Some\" \"None\")) ((Some (\"contracts/utils/TransferTokens.py\" 19)) operations))))))) (redeemUnderlying True None None None True None (Some (\"contracts/CToken.py\" 152)) (((Some (\"contracts/CToken.py\" 153)) set_type (None parameter) \"nat\") ((Some (\"contracts/CToken.py\" 955)) verify ((Some (\"contracts/CToken.py\" 955)) neq (None sender) (None self_address)) ((Some (\"contracts/CToken.py\" 955)) literal (string \"CT_INTERNAL_CALL\"))) ((Some (\"contracts/CToken.py\" 180)) set ((Some (\"contracts/CToken.py\" 180)) operations) ((Some (\"contracts/CToken.py\" 180)) cons ((Some (\"contracts/CToken.py\" 180)) transfer ((Some (\"contracts/CToken.py\" 178)) record (cToken (None self_address)) (redeemAmount (None parameter)) (redeemer (None sender))) ((Some (\"contracts/CToken.py\" 180)) literal (mutez 0)) ((Some (\"contracts/CToken.py\" 177)) open_variant ((Some (\"contracts/CToken.py\" 176)) contract \"redeemAllowed\" (record ((cToken \"address\") (redeemAmount \"nat\") (redeemer \"address\")) (Value ((\"cToken\") ((\"redeemer\") (\"redeemAmount\")))) (Some (\"contracts/interfaces/ComptrollerInterface.py\" 11))) ((Some (\"contracts/CToken.py\" 176)) attr ((Some (\"contracts/CToken.py\" 176)) storage) \"comptroller\")) \"Some\" \"None\")) ((Some (\"contracts/CToken.py\" 180)) operations))) ((Some (\"contracts/CToken.py\" 984)) define_local \"redeem_amount\" ((Some (\"contracts/CToken.py\" 984)) literal (nat 0)) True) ((Some (\"contracts/CToken.py\" 985)) if_block ((Some (\"contracts/CToken.py\" 156)) literal (bool True)) (((Some (\"contracts/CToken.py\" 986)) set ((Some (\"contracts/CToken.py\" 986)) var \"redeem_amount\") (None parameter)))) (else_block (((Some (\"contracts/CToken.py\" 668)) define_local \"excRate\" ((Some (\"contracts/CToken.py\" 668)) attr ((Some (\"contracts/CToken.py\" 668)) storage) \"initialExchangeRateMantissa\") True) ((Some (\"contracts/CToken.py\" 669)) if_block ((Some (\"contracts/CToken.py\" 669)) gt ((Some (\"contracts/CToken.py\" 669)) attr ((Some (\"contracts/CToken.py\" 669)) storage) \"totalSupply\") ((Some (\"contracts/CToken.py\" 669)) literal (intOrNat 0))) (((Some (\"contracts/utils/Exponential.py\" 193)) set_type ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/CToken.py\" 989)) literal (nat 0)) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 47)) set_type ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 989)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 989)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 254)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 989)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 255)) set_type ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 256)) verify ((Some (\"contracts/utils/Exponential.py\" 256)) gt ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\") ((Some (\"contracts/utils/Exponential.py\" 256)) literal (intOrNat 0))) ((Some (\"contracts/utils/Exponential.py\" 256)) literal (string \"DIVISION_BY_ZERO\"))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 257)) div ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 989)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\")) \"nat\") ((Some (\"contracts/CToken.py\" 675)) set ((Some (\"contracts/CToken.py\" 675)) var \"excRate\") ((Some (\"contracts/utils/Exponential.py\" 257)) div ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 989)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\"))))) ((Some (\"contracts/CToken.py\" 963)) define_local \"amount\" ((Some (\"contracts/CToken.py\" 963)) literal (nat 0)) True) ((Some (\"contracts/CToken.py\" 964)) if_block ((Some (\"contracts/CToken.py\" 964)) literal (bool False)) (((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 267)) set_type (None parameter) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 268)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/CToken.py\" 676)) var \"excRate\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 269)) verify ((Some (\"contracts/utils/Exponential.py\" 269)) gt ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") ((Some (\"contracts/utils/Exponential.py\" 269)) literal (intOrNat 0))) ((Some (\"contracts/utils/Exponential.py\" 269)) literal (string \"DIVISION_BY_ZERO\"))) ((Some (\"contracts/CToken.py\" 965)) define_local \"compute_CToken_965\" ((Some (\"contracts/utils/Exponential.py\" 270)) div ((Some (\"contracts/utils/Exponential.py\" 270)) mul_homo (None parameter) ((Some (\"contracts/utils/Exponential.py\" 270)) attr ((Some (\"contracts/utils/Exponential.py\" 270)) storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 676)) var \"excRate\")) True) ((Some (\"contracts/CToken.py\" 965)) set ((Some (\"contracts/CToken.py\" 965)) var \"amount\") ((Some (\"contracts/CToken.py\" 965)) var \"compute_CToken_965\")))) (else_block (((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/CToken.py\" 676)) var \"excRate\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/CToken.py\" 676)) var \"excRate\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type (None parameter) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") (None parameter)) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") (None parameter)))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/CToken.py\" 968)) define_local \"compute_CToken_968\" ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") (None parameter)) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")) True) ((Some (\"contracts/CToken.py\" 968)) set ((Some (\"contracts/CToken.py\" 968)) var \"amount\") ((Some (\"contracts/CToken.py\" 968)) var \"compute_CToken_968\")))) ((Some (\"contracts/CToken.py\" 988)) set ((Some (\"contracts/CToken.py\" 988)) var \"redeem_amount\") ((Some (\"contracts/CToken.py\" 970)) var \"amount\")))) ((Some (\"contracts/CToken.py\" 993)) define_local \"redeem_tokens\" ((Some (\"contracts/CToken.py\" 993)) literal (nat 0)) True) ((Some (\"contracts/CToken.py\" 994)) if_block ((Some (\"contracts/CToken.py\" 156)) literal (bool True)) (((Some (\"contracts/CToken.py\" 668)) define_local \"excRate\" ((Some (\"contracts/CToken.py\" 668)) attr ((Some (\"contracts/CToken.py\" 668)) storage) \"initialExchangeRateMantissa\") True) ((Some (\"contracts/CToken.py\" 669)) if_block ((Some (\"contracts/CToken.py\" 669)) gt ((Some (\"contracts/CToken.py\" 669)) attr ((Some (\"contracts/CToken.py\" 669)) storage) \"totalSupply\") ((Some (\"contracts/CToken.py\" 669)) literal (intOrNat 0))) (((Some (\"contracts/utils/Exponential.py\" 193)) set_type ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/CToken.py\" 995)) literal (nat 0)) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 47)) set_type ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 995)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 995)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 254)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 995)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 255)) set_type ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 256)) verify ((Some (\"contracts/utils/Exponential.py\" 256)) gt ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\") ((Some (\"contracts/utils/Exponential.py\" 256)) literal (intOrNat 0))) ((Some (\"contracts/utils/Exponential.py\" 256)) literal (string \"DIVISION_BY_ZERO\"))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 257)) div ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 995)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\")) \"nat\") ((Some (\"contracts/CToken.py\" 675)) set ((Some (\"contracts/CToken.py\" 675)) var \"excRate\") ((Some (\"contracts/utils/Exponential.py\" 257)) div ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 995)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\"))))) ((Some (\"contracts/CToken.py\" 974)) define_local \"amount\" ((Some (\"contracts/CToken.py\" 974)) literal (nat 0)) True) ((Some (\"contracts/CToken.py\" 975)) if_block ((Some (\"contracts/CToken.py\" 975)) literal (bool True)) (((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 273)) set_type (None parameter) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 274)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/CToken.py\" 676)) var \"excRate\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 275)) verify ((Some (\"contracts/utils/Exponential.py\" 275)) gt ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") ((Some (\"contracts/utils/Exponential.py\" 275)) literal (intOrNat 0))) ((Some (\"contracts/utils/Exponential.py\" 275)) literal (string \"DIVISION_BY_ZERO\"))) ((Some (\"contracts/utils/Exponential.py\" 277)) define_local \"compute_Exponential_277\" ((Some (\"contracts/utils/Exponential.py\" 277)) mul_homo (None parameter) ((Some (\"contracts/utils/Exponential.py\" 277)) attr ((Some (\"contracts/utils/Exponential.py\" 277)) storage) \"expScale\")) True) ((Some (\"contracts/utils/Exponential.py\" 280)) define_local \"compute_Exponential_280\" ((Some (\"contracts/utils/Exponential.py\" 280)) div ((Some (\"contracts/utils/Exponential.py\" 277)) var \"compute_Exponential_277\") ((Some (\"contracts/CToken.py\" 676)) var \"excRate\")) True) ((Some (\"contracts/utils/Exponential.py\" 281)) if_block ((Some (\"contracts/utils/Exponential.py\" 281)) gt ((Some (\"contracts/utils/Exponential.py\" 281)) mod ((Some (\"contracts/utils/Exponential.py\" 277)) var \"compute_Exponential_277\") ((Some (\"contracts/CToken.py\" 676)) var \"excRate\")) ((Some (\"contracts/utils/Exponential.py\" 281)) literal (intOrNat 0))) ()) ((Some (\"contracts/CToken.py\" 976)) define_local \"compute_CToken_976\" ((Some (\"contracts/utils/Exponential.py\" 282)) add ((Some (\"contracts/utils/Exponential.py\" 280)) var \"compute_Exponential_280\") ((Some (\"contracts/utils/Exponential.py\" 282)) literal (intOrNat 1))) True) ((Some (\"contracts/CToken.py\" 976)) set ((Some (\"contracts/CToken.py\" 976)) var \"amount\") ((Some (\"contracts/CToken.py\" 976)) var \"compute_CToken_976\")))) (else_block (((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/CToken.py\" 676)) var \"excRate\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/CToken.py\" 676)) var \"excRate\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type (None parameter) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") (None parameter)) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") (None parameter)))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/CToken.py\" 979)) define_local \"compute_CToken_979\" ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") (None parameter)) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")) True) ((Some (\"contracts/CToken.py\" 979)) set ((Some (\"contracts/CToken.py\" 979)) var \"amount\") ((Some (\"contracts/CToken.py\" 979)) var \"compute_CToken_979\")))) ((Some (\"contracts/CToken.py\" 995)) set ((Some (\"contracts/CToken.py\" 995)) var \"redeem_tokens\") ((Some (\"contracts/CToken.py\" 981)) var \"amount\")))) (else_block (((Some (\"contracts/CToken.py\" 997)) set ((Some (\"contracts/CToken.py\" 997)) var \"redeem_tokens\") (None parameter)))) ((Some (\"contracts/CToken.py\" 166)) if_block ((Some (\"contracts/CToken.py\" 166)) and ((Some (\"contracts/CToken.py\" 166)) gt ((Some (\"contracts/CToken.py\" 990)) var \"redeem_amount\") ((Some (\"contracts/CToken.py\" 166)) literal (intOrNat 0))) ((Some (\"contracts/CToken.py\" 166)) gt ((Some (\"contracts/CToken.py\" 998)) var \"redeem_tokens\") ((Some (\"contracts/CToken.py\" 166)) literal (intOrNat 0)))) (((Some (\"contracts/CToken.py\" 946)) verify ((Some (\"contracts/CToken.py\" 946)) ge ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 990)) var \"redeem_amount\")) ((Some (\"contracts/CToken.py\" 946)) literal (string \"CT_INSUFFICIENT_CASH\"))) ((Some (\"contracts/CToken.py\" 949)) verify ((Some (\"contracts/CToken.py\" 949)) eq (None level) ((Some (\"contracts/CToken.py\" 949)) attr ((Some (\"contracts/CToken.py\" 949)) storage) \"accrualBlockNumber\")) ((Some (\"contracts/CToken.py\" 949)) literal (string \"CT_INTEREST_OLD\"))) ((Some (\"contracts/CToken.py\" 169)) set ((Some (\"contracts/CToken.py\" 169)) attr ((Some (\"contracts/CToken.py\" 169)) storage) \"totalSupply\") ((Some (\"contracts/CToken.py\" 169)) open_variant ((Some (\"contracts/CToken.py\" 169)) is_nat ((Some (\"contracts/CToken.py\" 170)) sub ((Some (\"contracts/CToken.py\" 170)) attr ((Some (\"contracts/CToken.py\" 170)) storage) \"totalSupply\") ((Some (\"contracts/CToken.py\" 998)) var \"redeem_tokens\"))) \"Some\" ((Some (\"contracts/CToken.py\" 169)) literal (string \"Insufficient supply\")))) ((Some (\"contracts/CToken.py\" 171)) set ((Some (\"contracts/CToken.py\" 171)) attr ((Some (\"contracts/CToken.py\" 171)) get_item ((Some (\"contracts/CToken.py\" 171)) attr ((Some (\"contracts/CToken.py\" 171)) storage) \"ledger\") (None sender)) \"balance\") ((Some (\"contracts/CToken.py\" 171)) open_variant ((Some (\"contracts/CToken.py\" 171)) is_nat ((Some (\"contracts/CToken.py\" 172)) sub ((Some (\"contracts/CToken.py\" 172)) attr ((Some (\"contracts/CToken.py\" 172)) get_item ((Some (\"contracts/CToken.py\" 172)) attr ((Some (\"contracts/CToken.py\" 172)) storage) \"ledger\") (None sender)) \"balance\") ((Some (\"contracts/CToken.py\" 998)) var \"redeem_tokens\"))) \"Some\" ((Some (\"contracts/CToken.py\" 171)) literal (string \"Insufficient balance\")))) ((Some (\"contracts/utils/TransferTokens.py\" 19)) set ((Some (\"contracts/utils/TransferTokens.py\" 19)) operations) ((Some (\"contracts/utils/TransferTokens.py\" 19)) cons ((Some (\"contracts/utils/TransferTokens.py\" 19)) transfer ((Some (\"contracts/utils/TransferTokens.py\" 6)) record (from_ (None self_address)) (to_ (None sender)) (value ((Some (\"contracts/CToken.py\" 990)) var \"redeem_amount\"))) ((Some (\"contracts/utils/TransferTokens.py\" 19)) literal (mutez 0)) ((Some (\"contracts/utils/TransferTokens.py\" 17)) open_variant ((Some (\"contracts/utils/TransferTokens.py\" 12)) contract \"transfer\" (record ((from_ \"address\") (to_ \"address\") (value \"nat\")) (Value ((\"from_ as from\") ((\"to_ as to\") (\"value\")))) (Some (\"contracts/utils/TransferTokens.py\" 13))) ((Some (\"contracts/CFA12.py\" 51)) attr ((Some (\"contracts/CFA12.py\" 51)) storage) \"fa1_2_TokenAddress\")) \"Some\" \"None\")) ((Some (\"contracts/utils/TransferTokens.py\" 19)) operations))))))) (reduceReserves True None None None True None (Some (\"contracts/CToken.py\" 920)) (((Some (\"contracts/CToken.py\" 921)) set_type (None parameter) \"nat\") ((Some (\"contracts/CToken.py\" 943)) verify ((Some (\"contracts/CToken.py\" 943)) eq (None sender) ((Some (\"contracts/CToken.py\" 943)) attr ((Some (\"contracts/CToken.py\" 943)) storage) \"administrator\")) ((Some (\"contracts/CToken.py\" 943)) literal (string \"CT_NOT_ADMIN\"))) ((Some (\"contracts/utils/OperationProtector.py\" 40)) verify ((Some (\"contracts/utils/OperationProtector.py\" 40)) eq ((Some (\"contracts/utils/OperationProtector.py\" 40)) size ((Some (\"contracts/utils/OperationProtector.py\" 40)) attr ((Some (\"contracts/utils/OperationProtector.py\" 40)) storage) \"activeOperations\")) ((Some (\"contracts/utils/OperationProtector.py\" 40)) literal (intOrNat 0))) ((Some (\"contracts/utils/OperationProtector.py\" 40)) literal (string \"OP_IN_PROGRESS\"))) ((Some (\"contracts/utils/OperationProtector.py\" 46)) update_set ((Some (\"contracts/utils/OperationProtector.py\" 46)) attr ((Some (\"contracts/utils/OperationProtector.py\" 46)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 21)) literal (nat 12)) True) ((Some (\"contracts/CToken.py\" 924)) set ((Some (\"contracts/CToken.py\" 924)) operations) ((Some (\"contracts/CToken.py\" 924)) cons ((Some (\"contracts/CToken.py\" 924)) transfer (None literal (unit)) ((Some (\"contracts/CToken.py\" 924)) literal (mutez 0)) ((Some (\"contracts/CToken.py\" 925)) self \"accrueInterest\")) ((Some (\"contracts/CToken.py\" 924)) operations))) ((Some (\"contracts/CToken.py\" 926)) set ((Some (\"contracts/CToken.py\" 926)) operations) ((Some (\"contracts/CToken.py\" 926)) cons ((Some (\"contracts/CToken.py\" 926)) transfer (None parameter) (None amount) ((Some (\"contracts/CToken.py\" 926)) self \"reduceReservesInternal\")) ((Some (\"contracts/CToken.py\" 926)) operations))))) (reduceReservesInternal True (Some True) None None True None (Some (\"contracts/CToken.py\" 930)) (((Some (\"contracts/CToken.py\" 952)) verify ((Some (\"contracts/CToken.py\" 952)) eq (None sender) (None self_address)) ((Some (\"contracts/CToken.py\" 952)) literal (string \"CT_INTERNAL_FUNCTION\"))) ((Some (\"contracts/utils/OperationProtector.py\" 43)) verify ((Some (\"contracts/utils/OperationProtector.py\" 43)) contains ((Some (\"contracts/utils/OperationProtector.py\" 43)) attr ((Some (\"contracts/utils/OperationProtector.py\" 43)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 21)) literal (nat 12))) ((Some (\"contracts/utils/OperationProtector.py\" 43)) literal (string \"OP_NOT_ACTIVE\"))) ((Some (\"contracts/utils/OperationProtector.py\" 49)) update_set ((Some (\"contracts/utils/OperationProtector.py\" 49)) attr ((Some (\"contracts/utils/OperationProtector.py\" 49)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 21)) literal (nat 12)) False) ((Some (\"contracts/CToken.py\" 946)) verify ((Some (\"contracts/CToken.py\" 946)) ge ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") (None parameter)) ((Some (\"contracts/CToken.py\" 946)) literal (string \"CT_INSUFFICIENT_CASH\"))) ((Some (\"contracts/CToken.py\" 934)) verify ((Some (\"contracts/CToken.py\" 934)) le (None parameter) ((Some (\"contracts/CToken.py\" 934)) attr ((Some (\"contracts/CToken.py\" 934)) storage) \"totalReserves\")) ((Some (\"contracts/CToken.py\" 934)) literal (string \"CT_REDUCE_AMOUNT\"))) ((Some (\"contracts/utils/Exponential.py\" 193)) set_type ((Some (\"contracts/CToken.py\" 938)) attr ((Some (\"contracts/CToken.py\" 938)) storage) \"totalReserves\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type (None parameter) \"nat\") ((Some (\"contracts/CToken.py\" 937)) set ((Some (\"contracts/CToken.py\" 937)) attr ((Some (\"contracts/CToken.py\" 937)) storage) \"totalReserves\") ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CToken.py\" 938)) attr ((Some (\"contracts/CToken.py\" 938)) storage) \"totalReserves\") (None parameter))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\")))) ((Some (\"contracts/utils/TransferTokens.py\" 19)) set ((Some (\"contracts/utils/TransferTokens.py\" 19)) operations) ((Some (\"contracts/utils/TransferTokens.py\" 19)) cons ((Some (\"contracts/utils/TransferTokens.py\" 19)) transfer ((Some (\"contracts/utils/TransferTokens.py\" 6)) record (from_ (None self_address)) (to_ ((Some (\"contracts/CToken.py\" 939)) attr ((Some (\"contracts/CToken.py\" 939)) storage) \"administrator\")) (value (None parameter))) ((Some (\"contracts/utils/TransferTokens.py\" 19)) literal (mutez 0)) ((Some (\"contracts/utils/TransferTokens.py\" 17)) open_variant ((Some (\"contracts/utils/TransferTokens.py\" 12)) contract \"transfer\" (record ((from_ \"address\") (to_ \"address\") (value \"nat\")) (Value ((\"from_ as from\") ((\"to_ as to\") (\"value\")))) (Some (\"contracts/utils/TransferTokens.py\" 13))) ((Some (\"contracts/CFA12.py\" 51)) attr ((Some (\"contracts/CFA12.py\" 51)) storage) \"fa1_2_TokenAddress\")) \"Some\" \"None\")) ((Some (\"contracts/utils/TransferTokens.py\" 19)) operations))))) (removePendingGovernance True (Some True) None None True None (Some (\"contracts/CToken.py\" 823)) (((Some (\"contracts/CToken.py\" 824)) set_type (None parameter) \"unit\") ((Some (\"contracts/CToken.py\" 943)) verify ((Some (\"contracts/CToken.py\" 943)) eq (None sender) ((Some (\"contracts/CToken.py\" 943)) attr ((Some (\"contracts/CToken.py\" 943)) storage) \"administrator\")) ((Some (\"contracts/CToken.py\" 943)) literal (string \"CT_NOT_ADMIN\"))) ((Some (\"contracts/CToken.py\" 826)) set ((Some (\"contracts/CToken.py\" 826)) attr ((Some (\"contracts/CToken.py\" 826)) storage) \"pendingAdministrator\") (None variant \"None\" (None literal (unit)))))) (repayBorrow True None None None True None (Some (\"contracts/CToken.py\" 231)) (((Some (\"contracts/CToken.py\" 232)) set_type (None parameter) \"nat\") ((Some (\"contracts/CToken.py\" 955)) verify ((Some (\"contracts/CToken.py\" 955)) neq (None sender) (None self_address)) ((Some (\"contracts/CToken.py\" 955)) literal (string \"CT_INTERNAL_CALL\"))) ((Some (\"contracts/CToken.py\" 433)) if_block ((Some (\"contracts/CToken.py\" 433)) not ((Some (\"contracts/CToken.py\" 433)) contains ((Some (\"contracts/CToken.py\" 433)) attr ((Some (\"contracts/CToken.py\" 433)) storage) \"ledger\") (None sender))) (((Some (\"contracts/CToken.py\" 434)) set ((Some (\"contracts/CToken.py\" 434)) get_item ((Some (\"contracts/CToken.py\" 434)) attr ((Some (\"contracts/CToken.py\" 434)) storage) \"ledger\") (None sender)) ((Some (\"contracts/CToken.py\" 434)) record (approvals ((Some (\"contracts/CToken.py\" 434)) map )) (balance ((Some (\"contracts/CToken.py\" 434)) literal (nat 0))))))) ((Some (\"contracts/CToken.py\" 436)) if_block ((Some (\"contracts/CToken.py\" 436)) not ((Some (\"contracts/CToken.py\" 436)) contains ((Some (\"contracts/CToken.py\" 436)) attr ((Some (\"contracts/CToken.py\" 436)) storage) \"borrows\") (None sender))) (((Some (\"contracts/CToken.py\" 437)) set ((Some (\"contracts/CToken.py\" 437)) get_item ((Some (\"contracts/CToken.py\" 437)) attr ((Some (\"contracts/CToken.py\" 437)) storage) \"borrows\") (None sender)) ((Some (\"contracts/CToken.py\" 437)) record (interestIndex ((Some (\"contracts/CToken.py\" 438)) literal (nat 0))) (principal ((Some (\"contracts/CToken.py\" 438)) literal (nat 0))))))) ((Some (\"contracts/CToken.py\" 279)) set ((Some (\"contracts/CToken.py\" 279)) operations) ((Some (\"contracts/CToken.py\" 279)) cons ((Some (\"contracts/CToken.py\" 279)) transfer ((Some (\"contracts/CToken.py\" 277)) record (borrower (None sender)) (cToken (None self_address)) (payer (None sender)) (repayAmount (None parameter))) ((Some (\"contracts/CToken.py\" 279)) literal (mutez 0)) ((Some (\"contracts/CToken.py\" 276)) open_variant ((Some (\"contracts/CToken.py\" 275)) contract \"repayBorrowAllowed\" (record ((borrower \"address\") (cToken \"address\") (payer \"address\") (repayAmount \"nat\")) (Value ((\"cToken\") ((\"payer\") ((\"borrower\") (\"repayAmount\"))))) (Some (\"contracts/interfaces/ComptrollerInterface.py\" 13))) ((Some (\"contracts/CToken.py\" 275)) attr ((Some (\"contracts/CToken.py\" 275)) storage) \"comptroller\")) \"Some\" \"None\")) ((Some (\"contracts/CToken.py\" 279)) operations))) ((Some (\"contracts/CToken.py\" 949)) verify ((Some (\"contracts/CToken.py\" 949)) eq (None level) ((Some (\"contracts/CToken.py\" 949)) attr ((Some (\"contracts/CToken.py\" 949)) storage) \"accrualBlockNumber\")) ((Some (\"contracts/CToken.py\" 949)) literal (string \"CT_INTEREST_OLD\"))) ((Some (\"contracts/CToken.py\" 625)) define_local \"borrowBalance\" ((Some (\"contracts/CToken.py\" 625)) literal (nat 0)) True) ((Some (\"contracts/CToken.py\" 626)) if_block ((Some (\"contracts/CToken.py\" 626)) contains ((Some (\"contracts/CToken.py\" 626)) attr ((Some (\"contracts/CToken.py\" 626)) storage) \"borrows\") (None sender)) (((Some (\"contracts/CToken.py\" 627)) define_local \"borrowSnapshot\" ((Some (\"contracts/CToken.py\" 628)) get_item ((Some (\"contracts/CToken.py\" 628)) attr ((Some (\"contracts/CToken.py\" 628)) storage) \"borrows\") (None sender)) True) ((Some (\"contracts/CToken.py\" 629)) if_block ((Some (\"contracts/CToken.py\" 629)) gt ((Some (\"contracts/CToken.py\" 629)) attr ((Some (\"contracts/CToken.py\" 629)) var \"borrowSnapshot\") \"principal\") ((Some (\"contracts/CToken.py\" 629)) literal (intOrNat 0))) (((Some (\"contracts/CToken.py\" 631)) set ((Some (\"contracts/CToken.py\" 631)) var \"borrowBalance\") ((Some (\"contracts/CToken.py\" 631)) div ((Some (\"contracts/CToken.py\" 630)) mul_homo ((Some (\"contracts/CToken.py\" 630)) attr ((Some (\"contracts/CToken.py\" 630)) var \"borrowSnapshot\") \"principal\") ((Some (\"contracts/CToken.py\" 630)) attr ((Some (\"contracts/CToken.py\" 630)) storage) \"borrowIndex\")) ((Some (\"contracts/CToken.py\" 631)) attr ((Some (\"contracts/CToken.py\" 631)) var \"borrowSnapshot\") \"interestIndex\"))))))) ((Some (\"contracts/utils/TransferTokens.py\" 19)) set ((Some (\"contracts/utils/TransferTokens.py\" 19)) operations) ((Some (\"contracts/utils/TransferTokens.py\" 19)) cons ((Some (\"contracts/utils/TransferTokens.py\" 19)) transfer ((Some (\"contracts/utils/TransferTokens.py\" 6)) record (from_ (None sender)) (to_ (None self_address)) (value ((Some (\"contracts/CToken.py\" 261)) min ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\") (None parameter)))) ((Some (\"contracts/utils/TransferTokens.py\" 19)) literal (mutez 0)) ((Some (\"contracts/utils/TransferTokens.py\" 17)) open_variant ((Some (\"contracts/utils/TransferTokens.py\" 12)) contract \"transfer\" (record ((from_ \"address\") (to_ \"address\") (value \"nat\")) (Value ((\"from_ as from\") ((\"to_ as to\") (\"value\")))) (Some (\"contracts/utils/TransferTokens.py\" 13))) ((Some (\"contracts/CFA12.py\" 47)) attr ((Some (\"contracts/CFA12.py\" 47)) storage) \"fa1_2_TokenAddress\")) \"Some\" \"None\")) ((Some (\"contracts/utils/TransferTokens.py\" 19)) operations))) ((Some (\"contracts/utils/Exponential.py\" 193)) set_type ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/CToken.py\" 261)) min ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\") (None parameter)) \"nat\") ((Some (\"contracts/CToken.py\" 263)) set ((Some (\"contracts/CToken.py\" 263)) attr ((Some (\"contracts/CToken.py\" 263)) get_item ((Some (\"contracts/CToken.py\" 263)) attr ((Some (\"contracts/CToken.py\" 263)) storage) \"borrows\") (None sender)) \"principal\") ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\") ((Some (\"contracts/CToken.py\" 261)) min ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\") (None parameter)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\")))) ((Some (\"contracts/CToken.py\" 265)) set ((Some (\"contracts/CToken.py\" 265)) attr ((Some (\"contracts/CToken.py\" 265)) get_item ((Some (\"contracts/CToken.py\" 265)) attr ((Some (\"contracts/CToken.py\" 265)) storage) \"borrows\") (None sender)) \"interestIndex\") ((Some (\"contracts/CToken.py\" 265)) attr ((Some (\"contracts/CToken.py\" 265)) storage) \"borrowIndex\")) ((Some (\"contracts/utils/Exponential.py\" 193)) set_type ((Some (\"contracts/CToken.py\" 267)) attr ((Some (\"contracts/CToken.py\" 267)) storage) \"totalBorrows\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/CToken.py\" 261)) min ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\") (None parameter)) \"nat\") ((Some (\"contracts/CToken.py\" 266)) set ((Some (\"contracts/CToken.py\" 266)) attr ((Some (\"contracts/CToken.py\" 266)) storage) \"totalBorrows\") ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CToken.py\" 267)) attr ((Some (\"contracts/CToken.py\" 267)) storage) \"totalBorrows\") ((Some (\"contracts/CToken.py\" 261)) min ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\") (None parameter)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\")))) ((Some (\"contracts/CToken.py\" 268)) if_block ((Some (\"contracts/CToken.py\" 268)) eq ((Some (\"contracts/CToken.py\" 268)) attr ((Some (\"contracts/CToken.py\" 268)) get_item ((Some (\"contracts/CToken.py\" 268)) attr ((Some (\"contracts/CToken.py\" 268)) storage) \"borrows\") (None sender)) \"principal\") ((Some (\"contracts/CToken.py\" 268)) literal (intOrNat 0))) (((Some (\"contracts/CToken.py\" 271)) set ((Some (\"contracts/CToken.py\" 271)) operations) ((Some (\"contracts/CToken.py\" 271)) cons ((Some (\"contracts/CToken.py\" 271)) transfer (None sender) ((Some (\"contracts/CToken.py\" 271)) literal (mutez 0)) ((Some (\"contracts/CToken.py\" 270)) open_variant ((Some (\"contracts/CToken.py\" 269)) contract \"removeFromLoans\" \"address\" ((Some (\"contracts/CToken.py\" 269)) attr ((Some (\"contracts/CToken.py\" 269)) storage) \"comptroller\")) \"Some\" \"None\")) ((Some (\"contracts/CToken.py\" 271)) operations))))))) (repayBorrowBehalf True None None None True None (Some (\"contracts/CToken.py\" 249)) (((Some (\"contracts/CToken.py\" 250)) set_type (None parameter) (record ((borrower \"address\") (repayAmount \"nat\")) Variable (Some (\"contracts/CToken.py\" 250)))) ((Some (\"contracts/CToken.py\" 955)) verify ((Some (\"contracts/CToken.py\" 955)) neq (None sender) (None self_address)) ((Some (\"contracts/CToken.py\" 955)) literal (string \"CT_INTERNAL_CALL\"))) ((Some (\"contracts/CToken.py\" 433)) if_block ((Some (\"contracts/CToken.py\" 433)) not ((Some (\"contracts/CToken.py\" 433)) contains ((Some (\"contracts/CToken.py\" 433)) attr ((Some (\"contracts/CToken.py\" 433)) storage) \"ledger\") (None sender))) (((Some (\"contracts/CToken.py\" 434)) set ((Some (\"contracts/CToken.py\" 434)) get_item ((Some (\"contracts/CToken.py\" 434)) attr ((Some (\"contracts/CToken.py\" 434)) storage) \"ledger\") (None sender)) ((Some (\"contracts/CToken.py\" 434)) record (approvals ((Some (\"contracts/CToken.py\" 434)) map )) (balance ((Some (\"contracts/CToken.py\" 434)) literal (nat 0))))))) ((Some (\"contracts/CToken.py\" 436)) if_block ((Some (\"contracts/CToken.py\" 436)) not ((Some (\"contracts/CToken.py\" 436)) contains ((Some (\"contracts/CToken.py\" 436)) attr ((Some (\"contracts/CToken.py\" 436)) storage) \"borrows\") (None sender))) (((Some (\"contracts/CToken.py\" 437)) set ((Some (\"contracts/CToken.py\" 437)) get_item ((Some (\"contracts/CToken.py\" 437)) attr ((Some (\"contracts/CToken.py\" 437)) storage) \"borrows\") (None sender)) ((Some (\"contracts/CToken.py\" 437)) record (interestIndex ((Some (\"contracts/CToken.py\" 438)) literal (nat 0))) (principal ((Some (\"contracts/CToken.py\" 438)) literal (nat 0))))))) ((Some (\"contracts/CToken.py\" 279)) set ((Some (\"contracts/CToken.py\" 279)) operations) ((Some (\"contracts/CToken.py\" 279)) cons ((Some (\"contracts/CToken.py\" 279)) transfer ((Some (\"contracts/CToken.py\" 277)) record (borrower ((Some (\"contracts/CToken.py\" 254)) attr (None parameter) \"borrower\")) (cToken (None self_address)) (payer (None sender)) (repayAmount ((Some (\"contracts/CToken.py\" 254)) attr (None parameter) \"repayAmount\"))) ((Some (\"contracts/CToken.py\" 279)) literal (mutez 0)) ((Some (\"contracts/CToken.py\" 276)) open_variant ((Some (\"contracts/CToken.py\" 275)) contract \"repayBorrowAllowed\" (record ((borrower \"address\") (cToken \"address\") (payer \"address\") (repayAmount \"nat\")) (Value ((\"cToken\") ((\"payer\") ((\"borrower\") (\"repayAmount\"))))) (Some (\"contracts/interfaces/ComptrollerInterface.py\" 13))) ((Some (\"contracts/CToken.py\" 275)) attr ((Some (\"contracts/CToken.py\" 275)) storage) \"comptroller\")) \"Some\" \"None\")) ((Some (\"contracts/CToken.py\" 279)) operations))) ((Some (\"contracts/CToken.py\" 949)) verify ((Some (\"contracts/CToken.py\" 949)) eq (None level) ((Some (\"contracts/CToken.py\" 949)) attr ((Some (\"contracts/CToken.py\" 949)) storage) \"accrualBlockNumber\")) ((Some (\"contracts/CToken.py\" 949)) literal (string \"CT_INTEREST_OLD\"))) ((Some (\"contracts/CToken.py\" 625)) define_local \"borrowBalance\" ((Some (\"contracts/CToken.py\" 625)) literal (nat 0)) True) ((Some (\"contracts/CToken.py\" 626)) if_block ((Some (\"contracts/CToken.py\" 626)) contains ((Some (\"contracts/CToken.py\" 626)) attr ((Some (\"contracts/CToken.py\" 626)) storage) \"borrows\") ((Some (\"contracts/CToken.py\" 254)) attr (None parameter) \"borrower\")) (((Some (\"contracts/CToken.py\" 627)) define_local \"borrowSnapshot\" ((Some (\"contracts/CToken.py\" 628)) get_item ((Some (\"contracts/CToken.py\" 628)) attr ((Some (\"contracts/CToken.py\" 628)) storage) \"borrows\") ((Some (\"contracts/CToken.py\" 254)) attr (None parameter) \"borrower\")) True) ((Some (\"contracts/CToken.py\" 629)) if_block ((Some (\"contracts/CToken.py\" 629)) gt ((Some (\"contracts/CToken.py\" 629)) attr ((Some (\"contracts/CToken.py\" 629)) var \"borrowSnapshot\") \"principal\") ((Some (\"contracts/CToken.py\" 629)) literal (intOrNat 0))) (((Some (\"contracts/CToken.py\" 631)) set ((Some (\"contracts/CToken.py\" 631)) var \"borrowBalance\") ((Some (\"contracts/CToken.py\" 631)) div ((Some (\"contracts/CToken.py\" 630)) mul_homo ((Some (\"contracts/CToken.py\" 630)) attr ((Some (\"contracts/CToken.py\" 630)) var \"borrowSnapshot\") \"principal\") ((Some (\"contracts/CToken.py\" 630)) attr ((Some (\"contracts/CToken.py\" 630)) storage) \"borrowIndex\")) ((Some (\"contracts/CToken.py\" 631)) attr ((Some (\"contracts/CToken.py\" 631)) var \"borrowSnapshot\") \"interestIndex\"))))))) ((Some (\"contracts/utils/TransferTokens.py\" 19)) set ((Some (\"contracts/utils/TransferTokens.py\" 19)) operations) ((Some (\"contracts/utils/TransferTokens.py\" 19)) cons ((Some (\"contracts/utils/TransferTokens.py\" 19)) transfer ((Some (\"contracts/utils/TransferTokens.py\" 6)) record (from_ (None sender)) (to_ (None self_address)) (value ((Some (\"contracts/CToken.py\" 261)) min ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\") ((Some (\"contracts/CToken.py\" 254)) attr (None parameter) \"repayAmount\")))) ((Some (\"contracts/utils/TransferTokens.py\" 19)) literal (mutez 0)) ((Some (\"contracts/utils/TransferTokens.py\" 17)) open_variant ((Some (\"contracts/utils/TransferTokens.py\" 12)) contract \"transfer\" (record ((from_ \"address\") (to_ \"address\") (value \"nat\")) (Value ((\"from_ as from\") ((\"to_ as to\") (\"value\")))) (Some (\"contracts/utils/TransferTokens.py\" 13))) ((Some (\"contracts/CFA12.py\" 47)) attr ((Some (\"contracts/CFA12.py\" 47)) storage) \"fa1_2_TokenAddress\")) \"Some\" \"None\")) ((Some (\"contracts/utils/TransferTokens.py\" 19)) operations))) ((Some (\"contracts/utils/Exponential.py\" 193)) set_type ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/CToken.py\" 261)) min ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\") ((Some (\"contracts/CToken.py\" 254)) attr (None parameter) \"repayAmount\")) \"nat\") ((Some (\"contracts/CToken.py\" 263)) set ((Some (\"contracts/CToken.py\" 263)) attr ((Some (\"contracts/CToken.py\" 263)) get_item ((Some (\"contracts/CToken.py\" 263)) attr ((Some (\"contracts/CToken.py\" 263)) storage) \"borrows\") ((Some (\"contracts/CToken.py\" 254)) attr (None parameter) \"borrower\")) \"principal\") ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\") ((Some (\"contracts/CToken.py\" 261)) min ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\") ((Some (\"contracts/CToken.py\" 254)) attr (None parameter) \"repayAmount\")))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\")))) ((Some (\"contracts/CToken.py\" 265)) set ((Some (\"contracts/CToken.py\" 265)) attr ((Some (\"contracts/CToken.py\" 265)) get_item ((Some (\"contracts/CToken.py\" 265)) attr ((Some (\"contracts/CToken.py\" 265)) storage) \"borrows\") ((Some (\"contracts/CToken.py\" 254)) attr (None parameter) \"borrower\")) \"interestIndex\") ((Some (\"contracts/CToken.py\" 265)) attr ((Some (\"contracts/CToken.py\" 265)) storage) \"borrowIndex\")) ((Some (\"contracts/utils/Exponential.py\" 193)) set_type ((Some (\"contracts/CToken.py\" 267)) attr ((Some (\"contracts/CToken.py\" 267)) storage) \"totalBorrows\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/CToken.py\" 261)) min ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\") ((Some (\"contracts/CToken.py\" 254)) attr (None parameter) \"repayAmount\")) \"nat\") ((Some (\"contracts/CToken.py\" 266)) set ((Some (\"contracts/CToken.py\" 266)) attr ((Some (\"contracts/CToken.py\" 266)) storage) \"totalBorrows\") ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CToken.py\" 267)) attr ((Some (\"contracts/CToken.py\" 267)) storage) \"totalBorrows\") ((Some (\"contracts/CToken.py\" 261)) min ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\") ((Some (\"contracts/CToken.py\" 254)) attr (None parameter) \"repayAmount\")))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\")))) ((Some (\"contracts/CToken.py\" 268)) if_block ((Some (\"contracts/CToken.py\" 268)) eq ((Some (\"contracts/CToken.py\" 268)) attr ((Some (\"contracts/CToken.py\" 268)) get_item ((Some (\"contracts/CToken.py\" 268)) attr ((Some (\"contracts/CToken.py\" 268)) storage) \"borrows\") ((Some (\"contracts/CToken.py\" 254)) attr (None parameter) \"borrower\")) \"principal\") ((Some (\"contracts/CToken.py\" 268)) literal (intOrNat 0))) (((Some (\"contracts/CToken.py\" 271)) set ((Some (\"contracts/CToken.py\" 271)) operations) ((Some (\"contracts/CToken.py\" 271)) cons ((Some (\"contracts/CToken.py\" 271)) transfer ((Some (\"contracts/CToken.py\" 254)) attr (None parameter) \"borrower\") ((Some (\"contracts/CToken.py\" 271)) literal (mutez 0)) ((Some (\"contracts/CToken.py\" 270)) open_variant ((Some (\"contracts/CToken.py\" 269)) contract \"removeFromLoans\" \"address\" ((Some (\"contracts/CToken.py\" 269)) attr ((Some (\"contracts/CToken.py\" 269)) storage) \"comptroller\")) \"Some\" \"None\")) ((Some (\"contracts/CToken.py\" 271)) operations))))))) (seize True None None None True None (Some (\"contracts/CToken.py\" 291)) (((Some (\"contracts/CToken.py\" 292)) set_type (None parameter) (record ((borrower \"address\") (liquidator \"address\") (seizeTokens \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 24)))) ((Some (\"contracts/CToken.py\" 433)) if_block ((Some (\"contracts/CToken.py\" 433)) not ((Some (\"contracts/CToken.py\" 433)) contains ((Some (\"contracts/CToken.py\" 433)) attr ((Some (\"contracts/CToken.py\" 433)) storage) \"ledger\") ((Some (\"contracts/CToken.py\" 293)) attr (None parameter) \"liquidator\"))) (((Some (\"contracts/CToken.py\" 434)) set ((Some (\"contracts/CToken.py\" 434)) get_item ((Some (\"contracts/CToken.py\" 434)) attr ((Some (\"contracts/CToken.py\" 434)) storage) \"ledger\") ((Some (\"contracts/CToken.py\" 293)) attr (None parameter) \"liquidator\")) ((Some (\"contracts/CToken.py\" 434)) record (approvals ((Some (\"contracts/CToken.py\" 434)) map )) (balance ((Some (\"contracts/CToken.py\" 434)) literal (nat 0))))))) ((Some (\"contracts/CToken.py\" 436)) if_block ((Some (\"contracts/CToken.py\" 436)) not ((Some (\"contracts/CToken.py\" 436)) contains ((Some (\"contracts/CToken.py\" 436)) attr ((Some (\"contracts/CToken.py\" 436)) storage) \"borrows\") ((Some (\"contracts/CToken.py\" 293)) attr (None parameter) \"liquidator\"))) (((Some (\"contracts/CToken.py\" 437)) set ((Some (\"contracts/CToken.py\" 437)) get_item ((Some (\"contracts/CToken.py\" 437)) attr ((Some (\"contracts/CToken.py\" 437)) storage) \"borrows\") ((Some (\"contracts/CToken.py\" 293)) attr (None parameter) \"liquidator\")) ((Some (\"contracts/CToken.py\" 437)) record (interestIndex ((Some (\"contracts/CToken.py\" 438)) literal (nat 0))) (principal ((Some (\"contracts/CToken.py\" 438)) literal (nat 0))))))) ((Some (\"contracts/CToken.py\" 300)) verify ((Some (\"contracts/CToken.py\" 299)) open_variant ((Some (\"contracts/CToken.py\" 298)) view \"seizeAllowed\" ((Some (\"contracts/CToken.py\" 298)) record (cTokenBorrowed (None sender)) (cTokenCollateral (None self_address))) ((Some (\"contracts/CToken.py\" 298)) attr ((Some (\"contracts/CToken.py\" 298)) storage) \"comptroller\") \"bool\") \"Some\" ((Some (\"contracts/CToken.py\" 299)) literal (string \"INVALID SEIZE ALLOWED VIEW\"))) ((Some (\"contracts/CToken.py\" 300)) literal (string \"CT_LIQUIDATE_SEIZE_COMPTROLLER_REJECTION\"))) ((Some (\"contracts/CToken.py\" 302)) verify ((Some (\"contracts/CToken.py\" 302)) neq ((Some (\"contracts/CToken.py\" 294)) attr (None parameter) \"borrower\") ((Some (\"contracts/CToken.py\" 293)) attr (None parameter) \"liquidator\")) ((Some (\"contracts/CToken.py\" 302)) literal (string \"CT_LIQUIDATE_SEIZE_LIQUIDATOR_IS_BORROWER\"))) ((Some (\"contracts/CToken.py\" 949)) verify ((Some (\"contracts/CToken.py\" 949)) eq (None level) ((Some (\"contracts/CToken.py\" 949)) attr ((Some (\"contracts/CToken.py\" 949)) storage) \"accrualBlockNumber\")) ((Some (\"contracts/CToken.py\" 949)) literal (string \"CT_INTEREST_OLD\"))) ((Some (\"contracts/utils/Exponential.py\" 193)) set_type ((Some (\"contracts/CToken.py\" 307)) attr ((Some (\"contracts/CToken.py\" 307)) get_item ((Some (\"contracts/CToken.py\" 307)) attr ((Some (\"contracts/CToken.py\" 307)) storage) \"ledger\") ((Some (\"contracts/CToken.py\" 294)) attr (None parameter) \"borrower\")) \"balance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/CToken.py\" 294)) attr (None parameter) \"seizeTokens\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/CToken.py\" 313)) attr ((Some (\"contracts/CToken.py\" 313)) storage) \"protocolSeizeShareMantissa\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 229)) set_type ((Some (\"contracts/CToken.py\" 294)) attr (None parameter) \"seizeTokens\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 230)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/CToken.py\" 313)) attr ((Some (\"contracts/CToken.py\" 313)) storage) \"protocolSeizeShareMantissa\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/CToken.py\" 312)) define_local \"protocolSeizeTokens\" ((Some (\"contracts/utils/Exponential.py\" 231)) div ((Some (\"contracts/utils/Exponential.py\" 231)) mul_homo ((Some (\"contracts/CToken.py\" 294)) attr (None parameter) \"seizeTokens\") ((Some (\"contracts/CToken.py\" 313)) attr ((Some (\"contracts/CToken.py\" 313)) storage) \"protocolSeizeShareMantissa\")) ((Some (\"contracts/utils/Exponential.py\" 231)) attr ((Some (\"contracts/utils/Exponential.py\" 231)) storage) \"expScale\")) True) ((Some (\"contracts/utils/Exponential.py\" 193)) set_type ((Some (\"contracts/CToken.py\" 294)) attr (None parameter) \"seizeTokens\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/CToken.py\" 316)) var \"protocolSeizeTokens\") \"nat\") ((Some (\"contracts/CToken.py\" 668)) define_local \"excRate\" ((Some (\"contracts/CToken.py\" 668)) attr ((Some (\"contracts/CToken.py\" 668)) storage) \"initialExchangeRateMantissa\") True) ((Some (\"contracts/CToken.py\" 669)) if_block ((Some (\"contracts/CToken.py\" 669)) gt ((Some (\"contracts/CToken.py\" 669)) attr ((Some (\"contracts/CToken.py\" 669)) storage) \"totalSupply\") ((Some (\"contracts/CToken.py\" 669)) literal (intOrNat 0))) (((Some (\"contracts/utils/Exponential.py\" 193)) set_type ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 47)) set_type ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 254)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 255)) set_type ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 256)) verify ((Some (\"contracts/utils/Exponential.py\" 256)) gt ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\") ((Some (\"contracts/utils/Exponential.py\" 256)) literal (intOrNat 0))) ((Some (\"contracts/utils/Exponential.py\" 256)) literal (string \"DIVISION_BY_ZERO\"))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 257)) div ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\")) \"nat\") ((Some (\"contracts/CToken.py\" 675)) set ((Some (\"contracts/CToken.py\" 675)) var \"excRate\") ((Some (\"contracts/utils/Exponential.py\" 257)) div ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr ((Some (\"contracts/CFA12.py\" 24)) storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr ((Some (\"contracts/CToken.py\" 672)) storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr ((Some (\"contracts/utils/Exponential.py\" 48)) storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 674)) attr ((Some (\"contracts/CToken.py\" 674)) storage) \"totalSupply\"))))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/CToken.py\" 676)) var \"excRate\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/CToken.py\" 676)) var \"excRate\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/CToken.py\" 321)) var \"protocolSeizeTokens\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") ((Some (\"contracts/CToken.py\" 321)) var \"protocolSeizeTokens\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") ((Some (\"contracts/CToken.py\" 321)) var \"protocolSeizeTokens\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 169)) set_type ((Some (\"contracts/CToken.py\" 323)) attr ((Some (\"contracts/CToken.py\" 323)) storage) \"totalReserves\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 170)) set_type ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") ((Some (\"contracts/CToken.py\" 321)) var \"protocolSeizeTokens\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 193)) set_type ((Some (\"contracts/CToken.py\" 327)) attr ((Some (\"contracts/CToken.py\" 327)) storage) \"totalSupply\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/CToken.py\" 327)) var \"protocolSeizeTokens\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 169)) set_type ((Some (\"contracts/CToken.py\" 308)) attr ((Some (\"contracts/CToken.py\" 308)) get_item ((Some (\"contracts/CToken.py\" 308)) attr ((Some (\"contracts/CToken.py\" 308)) storage) \"ledger\") ((Some (\"contracts/CToken.py\" 293)) attr (None parameter) \"liquidator\")) \"balance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 170)) set_type ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CToken.py\" 294)) attr (None parameter) \"seizeTokens\") ((Some (\"contracts/CToken.py\" 316)) var \"protocolSeizeTokens\"))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) \"nat\") ((Some (\"contracts/CToken.py\" 332)) set ((Some (\"contracts/CToken.py\" 332)) attr ((Some (\"contracts/CToken.py\" 332)) storage) \"totalReserves\") ((Some (\"contracts/utils/Exponential.py\" 171)) add ((Some (\"contracts/CToken.py\" 323)) attr ((Some (\"contracts/CToken.py\" 323)) storage) \"totalReserves\") ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/CToken.py\" 676)) var \"excRate\") ((Some (\"contracts/CToken.py\" 321)) var \"protocolSeizeTokens\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))) ((Some (\"contracts/CToken.py\" 333)) set ((Some (\"contracts/CToken.py\" 333)) attr ((Some (\"contracts/CToken.py\" 333)) storage) \"totalSupply\") ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CToken.py\" 327)) attr ((Some (\"contracts/CToken.py\" 327)) storage) \"totalSupply\") ((Some (\"contracts/CToken.py\" 327)) var \"protocolSeizeTokens\"))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\")))) ((Some (\"contracts/CToken.py\" 334)) set ((Some (\"contracts/CToken.py\" 334)) attr ((Some (\"contracts/CToken.py\" 334)) get_item ((Some (\"contracts/CToken.py\" 334)) attr ((Some (\"contracts/CToken.py\" 334)) storage) \"ledger\") ((Some (\"contracts/CToken.py\" 294)) attr (None parameter) \"borrower\")) \"balance\") ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CToken.py\" 307)) attr ((Some (\"contracts/CToken.py\" 307)) get_item ((Some (\"contracts/CToken.py\" 307)) attr ((Some (\"contracts/CToken.py\" 307)) storage) \"ledger\") ((Some (\"contracts/CToken.py\" 294)) attr (None parameter) \"borrower\")) \"balance\") ((Some (\"contracts/CToken.py\" 294)) attr (None parameter) \"seizeTokens\"))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\")))) ((Some (\"contracts/CToken.py\" 335)) set ((Some (\"contracts/CToken.py\" 335)) attr ((Some (\"contracts/CToken.py\" 335)) get_item ((Some (\"contracts/CToken.py\" 335)) attr ((Some (\"contracts/CToken.py\" 335)) storage) \"ledger\") ((Some (\"contracts/CToken.py\" 293)) attr (None parameter) \"liquidator\")) \"balance\") ((Some (\"contracts/utils/Exponential.py\" 171)) add ((Some (\"contracts/CToken.py\" 308)) attr ((Some (\"contracts/CToken.py\" 308)) get_item ((Some (\"contracts/CToken.py\" 308)) attr ((Some (\"contracts/CToken.py\" 308)) storage) \"ledger\") ((Some (\"contracts/CToken.py\" 293)) attr (None parameter) \"liquidator\")) \"balance\") ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CToken.py\" 294)) attr (None parameter) \"seizeTokens\") ((Some (\"contracts/CToken.py\" 316)) var \"protocolSeizeTokens\"))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))))))) (setCash True (Some True) None None True None (Some (\"contracts/CFA12.py\" 38)) (((Some (\"contracts/CFA12.py\" 39)) set_type (None parameter) \"nat\") ((Some (\"contracts/utils/OperationProtector.py\" 43)) verify ((Some (\"contracts/utils/OperationProtector.py\" 43)) contains ((Some (\"contracts/utils/OperationProtector.py\" 43)) attr ((Some (\"contracts/utils/OperationProtector.py\" 43)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 22)) literal (nat 13))) ((Some (\"contracts/utils/OperationProtector.py\" 43)) literal (string \"OP_NOT_ACTIVE\"))) ((Some (\"contracts/utils/OperationProtector.py\" 49)) update_set ((Some (\"contracts/utils/OperationProtector.py\" 49)) attr ((Some (\"contracts/utils/OperationProtector.py\" 49)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 22)) literal (nat 13)) False) ((Some (\"contracts/CFA12.py\" 41)) verify ((Some (\"contracts/CFA12.py\" 41)) eq (None sender) ((Some (\"contracts/CFA12.py\" 41)) attr ((Some (\"contracts/CFA12.py\" 41)) storage) \"fa1_2_TokenAddress\")) ((Some (\"contracts/CFA12.py\" 41)) literal (string \"CT_INVALID_CASH_SENDER\"))) ((Some (\"contracts/CFA12.py\" 43)) set ((Some (\"contracts/CFA12.py\" 43)) attr ((Some (\"contracts/CFA12.py\" 43)) storage) \"currentCash\") (None parameter)))) (setComptroller True (Some True) None None True None (Some (\"contracts/CToken.py\" 836)) (((Some (\"contracts/CToken.py\" 837)) set_type (None parameter) \"address\") ((Some (\"contracts/CToken.py\" 943)) verify ((Some (\"contracts/CToken.py\" 943)) eq (None sender) ((Some (\"contracts/CToken.py\" 943)) attr ((Some (\"contracts/CToken.py\" 943)) storage) \"administrator\")) ((Some (\"contracts/CToken.py\" 943)) literal (string \"CT_NOT_ADMIN\"))) ((Some (\"contracts/CToken.py\" 839)) set ((Some (\"contracts/CToken.py\" 839)) attr ((Some (\"contracts/CToken.py\" 839)) storage) \"comptroller\") (None parameter)))) (setInterestRateModel True None None None True None (Some (\"contracts/CToken.py\" 849)) (((Some (\"contracts/CToken.py\" 850)) set_type (None parameter) \"address\") ((Some (\"contracts/CToken.py\" 943)) verify ((Some (\"contracts/CToken.py\" 943)) eq (None sender) ((Some (\"contracts/CToken.py\" 943)) attr ((Some (\"contracts/CToken.py\" 943)) storage) \"administrator\")) ((Some (\"contracts/CToken.py\" 943)) literal (string \"CT_NOT_ADMIN\"))) ((Some (\"contracts/utils/OperationProtector.py\" 40)) verify ((Some (\"contracts/utils/OperationProtector.py\" 40)) eq ((Some (\"contracts/utils/OperationProtector.py\" 40)) size ((Some (\"contracts/utils/OperationProtector.py\" 40)) attr ((Some (\"contracts/utils/OperationProtector.py\" 40)) storage) \"activeOperations\")) ((Some (\"contracts/utils/OperationProtector.py\" 40)) literal (intOrNat 0))) ((Some (\"contracts/utils/OperationProtector.py\" 40)) literal (string \"OP_IN_PROGRESS\"))) ((Some (\"contracts/utils/OperationProtector.py\" 46)) update_set ((Some (\"contracts/utils/OperationProtector.py\" 46)) attr ((Some (\"contracts/utils/OperationProtector.py\" 46)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 18)) literal (nat 9)) True) ((Some (\"contracts/CToken.py\" 853)) set ((Some (\"contracts/CToken.py\" 853)) operations) ((Some (\"contracts/CToken.py\" 853)) cons ((Some (\"contracts/CToken.py\" 853)) transfer (None literal (unit)) ((Some (\"contracts/CToken.py\" 853)) literal (mutez 0)) ((Some (\"contracts/CToken.py\" 854)) self \"accrueInterest\")) ((Some (\"contracts/CToken.py\" 853)) operations))) ((Some (\"contracts/CToken.py\" 855)) set ((Some (\"contracts/CToken.py\" 855)) operations) ((Some (\"contracts/CToken.py\" 855)) cons ((Some (\"contracts/CToken.py\" 855)) transfer (None parameter) ((Some (\"contracts/CToken.py\" 855)) literal (mutez 0)) ((Some (\"contracts/CToken.py\" 856)) self \"setInterestRateModelInternal\")) ((Some (\"contracts/CToken.py\" 855)) operations))))) (setInterestRateModelInternal True (Some True) None None True None (Some (\"contracts/CToken.py\" 859)) (((Some (\"contracts/CToken.py\" 860)) set_type (None parameter) \"address\") ((Some (\"contracts/CToken.py\" 952)) verify ((Some (\"contracts/CToken.py\" 952)) eq (None sender) (None self_address)) ((Some (\"contracts/CToken.py\" 952)) literal (string \"CT_INTERNAL_FUNCTION\"))) ((Some (\"contracts/utils/OperationProtector.py\" 43)) verify ((Some (\"contracts/utils/OperationProtector.py\" 43)) contains ((Some (\"contracts/utils/OperationProtector.py\" 43)) attr ((Some (\"contracts/utils/OperationProtector.py\" 43)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 18)) literal (nat 9))) ((Some (\"contracts/utils/OperationProtector.py\" 43)) literal (string \"OP_NOT_ACTIVE\"))) ((Some (\"contracts/utils/OperationProtector.py\" 49)) update_set ((Some (\"contracts/utils/OperationProtector.py\" 49)) attr ((Some (\"contracts/utils/OperationProtector.py\" 49)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 18)) literal (nat 9)) False) ((Some (\"contracts/CToken.py\" 863)) set ((Some (\"contracts/CToken.py\" 863)) attr ((Some (\"contracts/CToken.py\" 863)) storage) \"interestRateModel\") (None parameter)))) (setPendingGovernance True (Some True) None None True None (Some (\"contracts/CToken.py\" 783)) (((Some (\"contracts/CToken.py\" 784)) set_type (None parameter) \"address\") ((Some (\"contracts/CToken.py\" 943)) verify ((Some (\"contracts/CToken.py\" 943)) eq (None sender) ((Some (\"contracts/CToken.py\" 943)) attr ((Some (\"contracts/CToken.py\" 943)) storage) \"administrator\")) ((Some (\"contracts/CToken.py\" 943)) literal (string \"CT_NOT_ADMIN\"))) ((Some (\"contracts/CToken.py\" 786)) set ((Some (\"contracts/CToken.py\" 786)) attr ((Some (\"contracts/CToken.py\" 786)) storage) \"pendingAdministrator\") ((Some (\"contracts/CToken.py\" 786)) variant \"Some\" (None parameter))))) (setReserveFactor True None None None True None (Some (\"contracts/CToken.py\" 873)) (((Some (\"contracts/CToken.py\" 874)) set_type (None parameter) \"nat\") ((Some (\"contracts/CToken.py\" 943)) verify ((Some (\"contracts/CToken.py\" 943)) eq (None sender) ((Some (\"contracts/CToken.py\" 943)) attr ((Some (\"contracts/CToken.py\" 943)) storage) \"administrator\")) ((Some (\"contracts/CToken.py\" 943)) literal (string \"CT_NOT_ADMIN\"))) ((Some (\"contracts/utils/OperationProtector.py\" 40)) verify ((Some (\"contracts/utils/OperationProtector.py\" 40)) eq ((Some (\"contracts/utils/OperationProtector.py\" 40)) size ((Some (\"contracts/utils/OperationProtector.py\" 40)) attr ((Some (\"contracts/utils/OperationProtector.py\" 40)) storage) \"activeOperations\")) ((Some (\"contracts/utils/OperationProtector.py\" 40)) literal (intOrNat 0))) ((Some (\"contracts/utils/OperationProtector.py\" 40)) literal (string \"OP_IN_PROGRESS\"))) ((Some (\"contracts/utils/OperationProtector.py\" 46)) update_set ((Some (\"contracts/utils/OperationProtector.py\" 46)) attr ((Some (\"contracts/utils/OperationProtector.py\" 46)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 19)) literal (nat 10)) True) ((Some (\"contracts/CToken.py\" 877)) set ((Some (\"contracts/CToken.py\" 877)) operations) ((Some (\"contracts/CToken.py\" 877)) cons ((Some (\"contracts/CToken.py\" 877)) transfer (None literal (unit)) ((Some (\"contracts/CToken.py\" 877)) literal (mutez 0)) ((Some (\"contracts/CToken.py\" 878)) self \"accrueInterest\")) ((Some (\"contracts/CToken.py\" 877)) operations))) ((Some (\"contracts/CToken.py\" 879)) set ((Some (\"contracts/CToken.py\" 879)) operations) ((Some (\"contracts/CToken.py\" 879)) cons ((Some (\"contracts/CToken.py\" 879)) transfer (None parameter) ((Some (\"contracts/CToken.py\" 879)) literal (mutez 0)) ((Some (\"contracts/CToken.py\" 880)) self \"setReserveFactorInternal\")) ((Some (\"contracts/CToken.py\" 879)) operations))))) (setReserveFactorInternal True (Some True) None None True None (Some (\"contracts/CToken.py\" 883)) (((Some (\"contracts/CToken.py\" 952)) verify ((Some (\"contracts/CToken.py\" 952)) eq (None sender) (None self_address)) ((Some (\"contracts/CToken.py\" 952)) literal (string \"CT_INTERNAL_FUNCTION\"))) ((Some (\"contracts/utils/OperationProtector.py\" 43)) verify ((Some (\"contracts/utils/OperationProtector.py\" 43)) contains ((Some (\"contracts/utils/OperationProtector.py\" 43)) attr ((Some (\"contracts/utils/OperationProtector.py\" 43)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 19)) literal (nat 10))) ((Some (\"contracts/utils/OperationProtector.py\" 43)) literal (string \"OP_NOT_ACTIVE\"))) ((Some (\"contracts/utils/OperationProtector.py\" 49)) update_set ((Some (\"contracts/utils/OperationProtector.py\" 49)) attr ((Some (\"contracts/utils/OperationProtector.py\" 49)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 19)) literal (nat 10)) False) ((Some (\"contracts/CToken.py\" 949)) verify ((Some (\"contracts/CToken.py\" 949)) eq (None level) ((Some (\"contracts/CToken.py\" 949)) attr ((Some (\"contracts/CToken.py\" 949)) storage) \"accrualBlockNumber\")) ((Some (\"contracts/CToken.py\" 949)) literal (string \"CT_INTEREST_OLD\"))) ((Some (\"contracts/CToken.py\" 887)) verify ((Some (\"contracts/CToken.py\" 887)) le (None parameter) ((Some (\"contracts/CToken.py\" 887)) attr ((Some (\"contracts/CToken.py\" 887)) storage) \"reserveFactorMaxMantissa\")) ((Some (\"contracts/CToken.py\" 887)) literal (string \"CT_INVALID_RESERVE_FACTOR\"))) ((Some (\"contracts/CToken.py\" 889)) set ((Some (\"contracts/CToken.py\" 889)) attr ((Some (\"contracts/CToken.py\" 889)) storage) \"reserveFactorMantissa\") (None parameter)))) (sweepFA12 True None None None True None (Some (\"contracts/utils/SweepTokens.py\" 35)) (((Some (\"contracts/utils/SweepTokens.py\" 36)) set_type (None parameter) (record ((amount \"nat\") (tokenAddress \"address\")) Variable (Some (\"contracts/utils/SweepTokens.py\" 36)))) ((Some (\"contracts/CFA12.py\" 54)) verify ((Some (\"contracts/CFA12.py\" 54)) neq ((Some (\"contracts/utils/SweepTokens.py\" 38)) attr (None parameter) \"tokenAddress\") ((Some (\"contracts/CFA12.py\" 54)) attr ((Some (\"contracts/CFA12.py\" 54)) storage) \"fa1_2_TokenAddress\")) ((Some (\"contracts/CFA12.py\" 54)) literal (string \"CT_SWEEP_UNDERLYING\"))) ((Some (\"contracts/utils/TransferTokens.py\" 19)) set ((Some (\"contracts/utils/TransferTokens.py\" 19)) operations) ((Some (\"contracts/utils/TransferTokens.py\" 19)) cons ((Some (\"contracts/utils/TransferTokens.py\" 19)) transfer ((Some (\"contracts/utils/TransferTokens.py\" 6)) record (from_ (None self_address)) (to_ ((Some (\"contracts/utils/SweepTokens.py\" 39)) attr ((Some (\"contracts/utils/SweepTokens.py\" 39)) storage) \"administrator\")) (value ((Some (\"contracts/utils/SweepTokens.py\" 40)) attr (None parameter) \"amount\"))) ((Some (\"contracts/utils/TransferTokens.py\" 19)) literal (mutez 0)) ((Some (\"contracts/utils/TransferTokens.py\" 17)) open_variant ((Some (\"contracts/utils/TransferTokens.py\" 12)) contract \"transfer\" (record ((from_ \"address\") (to_ \"address\") (value \"nat\")) (Value ((\"from_ as from\") ((\"to_ as to\") (\"value\")))) (Some (\"contracts/utils/TransferTokens.py\" 13))) ((Some (\"contracts/utils/SweepTokens.py\" 38)) attr (None parameter) \"tokenAddress\")) \"Some\" \"None\")) ((Some (\"contracts/utils/TransferTokens.py\" 19)) operations))))) (sweepFA2 True None None None True None (Some (\"contracts/utils/SweepTokens.py\" 51)) (((Some (\"contracts/utils/SweepTokens.py\" 52)) set_type (None parameter) (record ((amount \"nat\") (id \"nat\") (tokenAddress \"address\")) Variable (Some (\"contracts/utils/SweepTokens.py\" 52)))) ((Some (\"contracts/utils/TransferTokens.py\" 45)) set ((Some (\"contracts/utils/TransferTokens.py\" 45)) operations) ((Some (\"contracts/utils/TransferTokens.py\" 45)) cons ((Some (\"contracts/utils/TransferTokens.py\" 45)) transfer ((Some (\"contracts/utils/TransferTokens.py\" 45)) list ((Some (\"contracts/utils/TransferTokens.py\" 26)) record (from_ (None self_address)) (txs ((Some (\"contracts/utils/TransferTokens.py\" 26)) list ((Some (\"contracts/utils/TransferTokens.py\" 29)) record (amount ((Some (\"contracts/utils/SweepTokens.py\" 56)) attr (None parameter) \"amount\")) (to_ ((Some (\"contracts/utils/SweepTokens.py\" 55)) attr ((Some (\"contracts/utils/SweepTokens.py\" 55)) storage) \"administrator\")) (token_id ((Some (\"contracts/utils/SweepTokens.py\" 54)) attr (None parameter) \"id\"))))))) ((Some (\"contracts/utils/TransferTokens.py\" 45)) literal (mutez 0)) ((Some (\"contracts/utils/TransferTokens.py\" 43)) open_variant ((Some (\"contracts/utils/TransferTokens.py\" 38)) contract \"transfer\" (list (record ((from_ \"address\") (txs (list (record ((amount \"nat\") (to_ \"address\") (token_id \"nat\")) (Value ((\"to_\") ((\"token_id\") (\"amount\")))) (Some (\"contracts/utils/TransferTokens.py\" 22)))))) (Value ((\"from_\") (\"txs\"))) (Some (\"contracts/utils/TransferTokens.py\" 40)))) ((Some (\"contracts/utils/SweepTokens.py\" 54)) attr (None parameter) \"tokenAddress\")) \"Some\" \"None\")) ((Some (\"contracts/utils/TransferTokens.py\" 45)) operations))))) (sweepMutez True None None None True None (Some (\"contracts/utils/SweepTokens.py\" 16)) (((Some (\"contracts/utils/SweepTokens.py\" 17)) set_type (None parameter) \"bool\") ((Some (\"contracts/utils/SweepTokens.py\" 19)) if_block (None parameter) (((Some (\"contracts/utils/SweepTokens.py\" 22)) set ((Some (\"contracts/utils/SweepTokens.py\" 22)) operations) ((Some (\"contracts/utils/SweepTokens.py\" 22)) cons ((Some (\"contracts/utils/SweepTokens.py\" 22)) transfer (None literal (unit)) (None balance) ((Some (\"contracts/utils/SweepTokens.py\" 21)) open_variant ((Some (\"contracts/utils/SweepTokens.py\" 20)) contract \"receive\" \"unit\" ((Some (\"contracts/utils/SweepTokens.py\" 21)) attr ((Some (\"contracts/utils/SweepTokens.py\" 21)) storage) \"administrator\")) \"Some\" \"None\")) ((Some (\"contracts/utils/SweepTokens.py\" 22)) operations))))) (else_block (((Some (\"contracts/utils/SweepTokens.py\" 24)) set ((Some (\"contracts/utils/SweepTokens.py\" 24)) operations) ((Some (\"contracts/utils/SweepTokens.py\" 24)) cons ((Some (\"contracts/utils/SweepTokens.py\" 24)) transfer (None literal (unit)) (None balance) ((Some (\"contracts/utils/SweepTokens.py\" 24)) open_variant ((Some (\"contracts/utils/SweepTokens.py\" 24)) contract \"\" \"unit\" ((Some (\"contracts/utils/SweepTokens.py\" 24)) attr ((Some (\"contracts/utils/SweepTokens.py\" 24)) storage) \"administrator\")) \"Some\" \"None\")) ((Some (\"contracts/utils/SweepTokens.py\" 24)) operations))))))) (transfer True None None None True None (Some (\"contracts/CToken.py\" 400)) (((Some (\"contracts/CToken.py\" 401)) set_type (None parameter) (record ((from_ \"address\") (to_ \"address\") (value \"nat\")) (Value ((\"from_ as from\") ((\"to_ as to\") (\"value\")))) (Some (\"contracts/CToken.py\" 402)))) ((Some (\"contracts/CToken.py\" 403)) verify ((Some (\"contracts/CToken.py\" 403)) or ((Some (\"contracts/CToken.py\" 403)) eq ((Some (\"contracts/CToken.py\" 403)) attr (None parameter) \"from_\") (None sender)) ((Some (\"contracts/CToken.py\" 404)) ge ((Some (\"contracts/CToken.py\" 404)) get_item ((Some (\"contracts/CToken.py\" 404)) attr ((Some (\"contracts/CToken.py\" 404)) get_item ((Some (\"contracts/CToken.py\" 404)) attr ((Some (\"contracts/CToken.py\" 404)) storage) \"ledger\") ((Some (\"contracts/CToken.py\" 403)) attr (None parameter) \"from_\")) \"approvals\") (None sender)) ((Some (\"contracts/CToken.py\" 404)) attr (None parameter) \"value\"))) ((Some (\"contracts/CToken.py\" 403)) literal (string \"FA1.2_NotAllowed\"))) ((Some (\"contracts/CToken.py\" 955)) verify ((Some (\"contracts/CToken.py\" 955)) neq (None sender) (None self_address)) ((Some (\"contracts/CToken.py\" 955)) literal (string \"CT_INTERNAL_CALL\"))) ((Some (\"contracts/CToken.py\" 433)) if_block ((Some (\"contracts/CToken.py\" 433)) not ((Some (\"contracts/CToken.py\" 433)) contains ((Some (\"contracts/CToken.py\" 433)) attr ((Some (\"contracts/CToken.py\" 433)) storage) \"ledger\") ((Some (\"contracts/CToken.py\" 406)) attr (None parameter) \"to_\"))) (((Some (\"contracts/CToken.py\" 434)) set ((Some (\"contracts/CToken.py\" 434)) get_item ((Some (\"contracts/CToken.py\" 434)) attr ((Some (\"contracts/CToken.py\" 434)) storage) \"ledger\") ((Some (\"contracts/CToken.py\" 406)) attr (None parameter) \"to_\")) ((Some (\"contracts/CToken.py\" 434)) record (approvals ((Some (\"contracts/CToken.py\" 434)) map )) (balance ((Some (\"contracts/CToken.py\" 434)) literal (nat 0))))))) ((Some (\"contracts/CToken.py\" 436)) if_block ((Some (\"contracts/CToken.py\" 436)) not ((Some (\"contracts/CToken.py\" 436)) contains ((Some (\"contracts/CToken.py\" 436)) attr ((Some (\"contracts/CToken.py\" 436)) storage) \"borrows\") ((Some (\"contracts/CToken.py\" 406)) attr (None parameter) \"to_\"))) (((Some (\"contracts/CToken.py\" 437)) set ((Some (\"contracts/CToken.py\" 437)) get_item ((Some (\"contracts/CToken.py\" 437)) attr ((Some (\"contracts/CToken.py\" 437)) storage) \"borrows\") ((Some (\"contracts/CToken.py\" 406)) attr (None parameter) \"to_\")) ((Some (\"contracts/CToken.py\" 437)) record (interestIndex ((Some (\"contracts/CToken.py\" 438)) literal (nat 0))) (principal ((Some (\"contracts/CToken.py\" 438)) literal (nat 0))))))) ((Some (\"contracts/CToken.py\" 430)) set ((Some (\"contracts/CToken.py\" 430)) operations) ((Some (\"contracts/CToken.py\" 430)) cons ((Some (\"contracts/CToken.py\" 430)) transfer ((Some (\"contracts/CToken.py\" 428)) record (cToken (None self_address)) (dst ((Some (\"contracts/CToken.py\" 406)) attr (None parameter) \"to_\")) (src ((Some (\"contracts/CToken.py\" 403)) attr (None parameter) \"from_\")) (transferTokens ((Some (\"contracts/CToken.py\" 404)) attr (None parameter) \"value\"))) ((Some (\"contracts/CToken.py\" 430)) literal (mutez 0)) ((Some (\"contracts/CToken.py\" 427)) open_variant ((Some (\"contracts/CToken.py\" 426)) contract \"transferAllowed\" (record ((cToken \"address\") (dst \"address\") (src \"address\") (transferTokens \"nat\")) (Value (((\"cToken\") (\"src\")) ((\"dst\") (\"transferTokens\")))) (Some (\"contracts/interfaces/ComptrollerInterface.py\" 16))) ((Some (\"contracts/CToken.py\" 426)) attr ((Some (\"contracts/CToken.py\" 426)) storage) \"comptroller\")) \"Some\" \"None\")) ((Some (\"contracts/CToken.py\" 430)) operations))) ((Some (\"contracts/CToken.py\" 411)) set_type ((Some (\"contracts/CToken.py\" 407)) record (from_ ((Some (\"contracts/CToken.py\" 403)) attr (None parameter) \"from_\")) (sender (None sender)) (to_ ((Some (\"contracts/CToken.py\" 406)) attr (None parameter) \"to_\")) (value ((Some (\"contracts/CToken.py\" 404)) attr (None parameter) \"value\"))) (record ((from_ \"address\") (sender \"address\") (to_ \"address\") (value \"nat\")) Variable (Some (\"contracts/CToken.py\" 411)))) ((Some (\"contracts/CToken.py\" 413)) verify ((Some (\"contracts/CToken.py\" 413)) ge ((Some (\"contracts/CToken.py\" 413)) attr ((Some (\"contracts/CToken.py\" 413)) get_item ((Some (\"contracts/CToken.py\" 413)) attr ((Some (\"contracts/CToken.py\" 413)) storage) \"ledger\") ((Some (\"contracts/CToken.py\" 403)) attr (None parameter) \"from_\")) \"balance\") ((Some (\"contracts/CToken.py\" 404)) attr (None parameter) \"value\")) ((Some (\"contracts/CToken.py\" 413)) literal (string \"FA1.2_InsufficientBalance\"))) ((Some (\"contracts/CToken.py\" 415)) set ((Some (\"contracts/CToken.py\" 415)) attr ((Some (\"contracts/CToken.py\" 415)) get_item ((Some (\"contracts/CToken.py\" 415)) attr ((Some (\"contracts/CToken.py\" 415)) storage) \"ledger\") ((Some (\"contracts/CToken.py\" 403)) attr (None parameter) \"from_\")) \"balance\") ((Some (\"contracts/CToken.py\" 415)) open_variant ((Some (\"contracts/CToken.py\" 415)) is_nat ((Some (\"contracts/CToken.py\" 416)) sub ((Some (\"contracts/CToken.py\" 416)) attr ((Some (\"contracts/CToken.py\" 416)) get_item ((Some (\"contracts/CToken.py\" 416)) attr ((Some (\"contracts/CToken.py\" 416)) storage) \"ledger\") ((Some (\"contracts/CToken.py\" 403)) attr (None parameter) \"from_\")) \"balance\") ((Some (\"contracts/CToken.py\" 404)) attr (None parameter) \"value\"))) \"Some\" \"None\")) ((Some (\"contracts/CToken.py\" 417)) set ((Some (\"contracts/CToken.py\" 417)) attr ((Some (\"contracts/CToken.py\" 417)) get_item ((Some (\"contracts/CToken.py\" 417)) attr ((Some (\"contracts/CToken.py\" 417)) storage) \"ledger\") ((Some (\"contracts/CToken.py\" 406)) attr (None parameter) \"to_\")) \"balance\") ((Some (\"contracts/CToken.py\" 417)) add ((Some (\"contracts/CToken.py\" 417)) attr ((Some (\"contracts/CToken.py\" 417)) get_item ((Some (\"contracts/CToken.py\" 417)) attr ((Some (\"contracts/CToken.py\" 417)) storage) \"ledger\") ((Some (\"contracts/CToken.py\" 406)) attr (None parameter) \"to_\")) \"balance\") ((Some (\"contracts/CToken.py\" 404)) attr (None parameter) \"value\"))) ((Some (\"contracts/CToken.py\" 418)) if_block ((Some (\"contracts/CToken.py\" 418)) neq ((Some (\"contracts/CToken.py\" 403)) attr (None parameter) \"from_\") (None sender)) (((Some (\"contracts/CToken.py\" 419)) set ((Some (\"contracts/CToken.py\" 419)) get_item ((Some (\"contracts/CToken.py\" 419)) attr ((Some (\"contracts/CToken.py\" 419)) get_item ((Some (\"contracts/CToken.py\" 419)) attr ((Some (\"contracts/CToken.py\" 419)) storage) \"ledger\") ((Some (\"contracts/CToken.py\" 403)) attr (None parameter) \"from_\")) \"approvals\") (None sender)) ((Some (\"contracts/CToken.py\" 419)) open_variant ((Some (\"contracts/CToken.py\" 419)) is_nat ((Some (\"contracts/CToken.py\" 420)) sub ((Some (\"contracts/CToken.py\" 420)) get_item ((Some (\"contracts/CToken.py\" 420)) attr ((Some (\"contracts/CToken.py\" 420)) get_item ((Some (\"contracts/CToken.py\" 420)) attr ((Some (\"contracts/CToken.py\" 420)) storage) \"ledger\") ((Some (\"contracts/CToken.py\" 403)) attr (None parameter) \"from_\")) \"approvals\") (None sender)) ((Some (\"contracts/CToken.py\" 404)) attr (None parameter) \"value\"))) \"Some\" \"None\")) ((Some (\"contracts/CToken.py\" 421)) if_block ((Some (\"contracts/CToken.py\" 421)) eq ((Some (\"contracts/CToken.py\" 421)) get_item ((Some (\"contracts/CToken.py\" 421)) attr ((Some (\"contracts/CToken.py\" 421)) get_item ((Some (\"contracts/CToken.py\" 421)) attr ((Some (\"contracts/CToken.py\" 421)) storage) \"ledger\") ((Some (\"contracts/CToken.py\" 403)) attr (None parameter) \"from_\")) \"approvals\") (None sender)) ((Some (\"contracts/CToken.py\" 421)) literal (intOrNat 0))) (((Some (\"contracts/CToken.py\" 422)) del_item ((Some (\"contracts/CToken.py\" 422)) attr ((Some (\"contracts/CToken.py\" 422)) get_item ((Some (\"contracts/CToken.py\" 422)) attr ((Some (\"contracts/CToken.py\" 422)) storage) \"ledger\") ((Some (\"contracts/CToken.py\" 403)) attr (None parameter) \"from_\")) \"approvals\") (None sender)))))))) (updateMetadata True None None None True None (Some (\"contracts/CToken.py\" 473)) (((Some (\"contracts/CToken.py\" 474)) set_type (None parameter) (record ((key \"string\") (value \"bytes\")) Variable (Some (\"contracts/CToken.py\" 474)))) ((Some (\"contracts/CToken.py\" 943)) verify ((Some (\"contracts/CToken.py\" 943)) eq (None sender) ((Some (\"contracts/CToken.py\" 943)) attr ((Some (\"contracts/CToken.py\" 943)) storage) \"administrator\")) ((Some (\"contracts/CToken.py\" 943)) literal (string \"CT_NOT_ADMIN\"))) ((Some (\"contracts/CToken.py\" 476)) set ((Some (\"contracts/CToken.py\" 476)) get_item ((Some (\"contracts/CToken.py\" 476)) attr ((Some (\"contracts/CToken.py\" 476)) storage) \"metadata\") ((Some (\"contracts/CToken.py\" 476)) attr (None parameter) \"key\")) ((Some (\"contracts/CToken.py\" 476)) attr (None parameter) \"value\")))) (updateProtocolSeizeShare True (Some True) None None True None (Some (\"contracts/CToken.py\" 794)) (((Some (\"contracts/CToken.py\" 795)) set_type (None parameter) \"nat\") ((Some (\"contracts/CToken.py\" 943)) verify ((Some (\"contracts/CToken.py\" 943)) eq (None sender) ((Some (\"contracts/CToken.py\" 943)) attr ((Some (\"contracts/CToken.py\" 943)) storage) \"administrator\")) ((Some (\"contracts/CToken.py\" 943)) literal (string \"CT_NOT_ADMIN\"))) ((Some (\"contracts/CToken.py\" 797)) set ((Some (\"contracts/CToken.py\" 797)) attr ((Some (\"contracts/CToken.py\" 797)) storage) \"protocolSeizeShareMantissa\") (None parameter)))))\nflags ()\nprivates ()\nviews ((onchain accrualBlockNumber True (Some (\"contracts/CToken.py\" 684)) False \"\" (((Some (\"contracts/CToken.py\" 685)) set_type ((Some (\"contracts/CToken.py\" 684)) parameter) \"unit\") ((Some (\"contracts/CToken.py\" 686)) result ((Some (\"contracts/CToken.py\" 686)) attr (None storage) \"accrualBlockNumber\")))) (onchain balanceOf True (Some (\"contracts/CToken.py\" 500)) False \"\" (((Some (\"contracts/CToken.py\" 501)) define_local \"result\" ((Some (\"contracts/CToken.py\" 501)) literal (intOrNat 0)) True) ((Some (\"contracts/CToken.py\" 502)) if_block ((Some (\"contracts/CToken.py\" 502)) contains ((Some (\"contracts/CToken.py\" 502)) attr (None storage) \"ledger\") ((Some (\"contracts/CToken.py\" 500)) parameter)) (((Some (\"contracts/CToken.py\" 503)) set ((Some (\"contracts/CToken.py\" 503)) var \"result\") ((Some (\"contracts/CToken.py\" 503)) attr ((Some (\"contracts/CToken.py\" 503)) get_item ((Some (\"contracts/CToken.py\" 502)) attr (None storage) \"ledger\") ((Some (\"contracts/CToken.py\" 500)) parameter)) \"balance\")))) ((Some (\"contracts/CToken.py\" 504)) result ((Some (\"contracts/CToken.py\" 504)) var \"result\")))) (onchain borrowBalanceStoredView True (Some (\"contracts/CToken.py\" 620)) False \"\" (((Some (\"contracts/CToken.py\" 621)) set_type ((Some (\"contracts/CToken.py\" 620)) parameter) \"address\") ((Some (\"contracts/CToken.py\" 625)) define_local \"borrowBalance\" ((Some (\"contracts/CToken.py\" 625)) literal (nat 0)) True) ((Some (\"contracts/CToken.py\" 626)) if_block ((Some (\"contracts/CToken.py\" 626)) contains ((Some (\"contracts/CToken.py\" 626)) attr (None storage) \"borrows\") ((Some (\"contracts/CToken.py\" 620)) parameter)) (((Some (\"contracts/CToken.py\" 627)) define_local \"borrowSnapshot\" ((Some (\"contracts/CToken.py\" 628)) get_item ((Some (\"contracts/CToken.py\" 626)) attr (None storage) \"borrows\") ((Some (\"contracts/CToken.py\" 620)) parameter)) True) ((Some (\"contracts/CToken.py\" 629)) if_block ((Some (\"contracts/CToken.py\" 629)) gt ((Some (\"contracts/CToken.py\" 629)) attr ((Some (\"contracts/CToken.py\" 629)) var \"borrowSnapshot\") \"principal\") ((Some (\"contracts/CToken.py\" 629)) literal (intOrNat 0))) (((Some (\"contracts/CToken.py\" 631)) set ((Some (\"contracts/CToken.py\" 631)) var \"borrowBalance\") ((Some (\"contracts/CToken.py\" 631)) div ((Some (\"contracts/CToken.py\" 630)) mul_homo ((Some (\"contracts/CToken.py\" 630)) attr ((Some (\"contracts/CToken.py\" 630)) var \"borrowSnapshot\") \"principal\") ((Some (\"contracts/CToken.py\" 630)) attr (None storage) \"borrowIndex\")) ((Some (\"contracts/CToken.py\" 631)) attr ((Some (\"contracts/CToken.py\" 631)) var \"borrowSnapshot\") \"interestIndex\"))))))) ((Some (\"contracts/CToken.py\" 622)) result ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\")))) (onchain comptroller True (Some (\"contracts/CToken.py\" 679)) False \"\" (((Some (\"contracts/CToken.py\" 680)) set_type ((Some (\"contracts/CToken.py\" 679)) parameter) \"unit\") ((Some (\"contracts/CToken.py\" 681)) result ((Some (\"contracts/CToken.py\" 681)) attr (None storage) \"comptroller\")))) (onchain exchangeRateStoredView True (Some (\"contracts/CToken.py\" 660)) False \"\" (((Some (\"contracts/CToken.py\" 661)) set_type ((Some (\"contracts/CToken.py\" 660)) parameter) \"unit\") ((Some (\"contracts/CToken.py\" 668)) define_local \"excRate\" ((Some (\"contracts/CToken.py\" 668)) attr (None storage) \"initialExchangeRateMantissa\") True) ((Some (\"contracts/CToken.py\" 669)) if_block ((Some (\"contracts/CToken.py\" 669)) gt ((Some (\"contracts/CToken.py\" 669)) attr (None storage) \"totalSupply\") ((Some (\"contracts/CToken.py\" 669)) literal (intOrNat 0))) (((Some (\"contracts/utils/Exponential.py\" 193)) set_type ((Some (\"contracts/CFA12.py\" 24)) attr (None storage) \"currentCash\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 47)) set_type ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr (None storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr (None storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr (None storage) \"totalReserves\"))) \"Some\" \"None\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr (None storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr (None storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr (None storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr (None storage) \"expScale\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 254)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr (None storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr (None storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr (None storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr (None storage) \"expScale\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 255)) set_type ((Some (\"contracts/CToken.py\" 669)) attr (None storage) \"totalSupply\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 256)) verify ((Some (\"contracts/utils/Exponential.py\" 256)) gt ((Some (\"contracts/CToken.py\" 669)) attr (None storage) \"totalSupply\") ((Some (\"contracts/utils/Exponential.py\" 256)) literal (intOrNat 0))) ((Some (\"contracts/utils/Exponential.py\" 256)) literal (string \"DIVISION_BY_ZERO\"))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 257)) div ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr (None storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr (None storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr (None storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr (None storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 669)) attr (None storage) \"totalSupply\")) \"nat\") ((Some (\"contracts/CToken.py\" 675)) set ((Some (\"contracts/CToken.py\" 675)) var \"excRate\") ((Some (\"contracts/utils/Exponential.py\" 257)) div ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr (None storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr (None storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr (None storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr (None storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 669)) attr (None storage) \"totalSupply\"))))) ((Some (\"contracts/CToken.py\" 662)) result ((Some (\"contracts/CToken.py\" 676)) var \"excRate\")))) (onchain getAccountSnapshotView True (Some (\"contracts/CToken.py\" 593)) False \"\" (((Some (\"contracts/CToken.py\" 565)) define_local \"compute_CToken_565\" ((Some (\"contracts/CToken.py\" 565)) record (account ((Some (\"contracts/CToken.py\" 593)) parameter)) (borrowBalance ((Some (\"contracts/CToken.py\" 568)) literal (nat 0))) (cTokenBalance ((Some (\"contracts/CToken.py\" 567)) literal (nat 0))) (exchangeRateMantissa ((Some (\"contracts/CToken.py\" 569)) literal (nat 0)))) True) ((Some (\"contracts/CToken.py\" 571)) if_block ((Some (\"contracts/CToken.py\" 571)) contains ((Some (\"contracts/CToken.py\" 571)) attr (None storage) \"ledger\") ((Some (\"contracts/CToken.py\" 593)) parameter)) (((Some (\"contracts/CToken.py\" 949)) verify ((Some (\"contracts/CToken.py\" 949)) eq (None level) ((Some (\"contracts/CToken.py\" 949)) attr (None storage) \"accrualBlockNumber\")) ((Some (\"contracts/CToken.py\" 949)) literal (string \"CT_INTEREST_OLD\"))) ((Some (\"contracts/CToken.py\" 573)) set ((Some (\"contracts/CToken.py\" 573)) attr ((Some (\"contracts/CToken.py\" 565)) var \"compute_CToken_565\") \"cTokenBalance\") ((Some (\"contracts/CToken.py\" 573)) attr ((Some (\"contracts/CToken.py\" 573)) get_item ((Some (\"contracts/CToken.py\" 571)) attr (None storage) \"ledger\") ((Some (\"contracts/CToken.py\" 593)) parameter)) \"balance\")) ((Some (\"contracts/CToken.py\" 625)) define_local \"borrowBalance\" ((Some (\"contracts/CToken.py\" 625)) literal (nat 0)) True) ((Some (\"contracts/CToken.py\" 626)) if_block ((Some (\"contracts/CToken.py\" 626)) contains ((Some (\"contracts/CToken.py\" 626)) attr (None storage) \"borrows\") ((Some (\"contracts/CToken.py\" 593)) parameter)) (((Some (\"contracts/CToken.py\" 627)) define_local \"borrowSnapshot\" ((Some (\"contracts/CToken.py\" 628)) get_item ((Some (\"contracts/CToken.py\" 626)) attr (None storage) \"borrows\") ((Some (\"contracts/CToken.py\" 593)) parameter)) True) ((Some (\"contracts/CToken.py\" 629)) if_block ((Some (\"contracts/CToken.py\" 629)) gt ((Some (\"contracts/CToken.py\" 629)) attr ((Some (\"contracts/CToken.py\" 629)) var \"borrowSnapshot\") \"principal\") ((Some (\"contracts/CToken.py\" 629)) literal (intOrNat 0))) (((Some (\"contracts/CToken.py\" 631)) set ((Some (\"contracts/CToken.py\" 631)) var \"borrowBalance\") ((Some (\"contracts/CToken.py\" 631)) div ((Some (\"contracts/CToken.py\" 630)) mul_homo ((Some (\"contracts/CToken.py\" 630)) attr ((Some (\"contracts/CToken.py\" 630)) var \"borrowSnapshot\") \"principal\") ((Some (\"contracts/CToken.py\" 630)) attr (None storage) \"borrowIndex\")) ((Some (\"contracts/CToken.py\" 631)) attr ((Some (\"contracts/CToken.py\" 631)) var \"borrowSnapshot\") \"interestIndex\"))))))) ((Some (\"contracts/CToken.py\" 574)) set ((Some (\"contracts/CToken.py\" 574)) attr ((Some (\"contracts/CToken.py\" 565)) var \"compute_CToken_565\") \"borrowBalance\") ((Some (\"contracts/CToken.py\" 632)) var \"borrowBalance\")) ((Some (\"contracts/CToken.py\" 668)) define_local \"excRate\" ((Some (\"contracts/CToken.py\" 668)) attr (None storage) \"initialExchangeRateMantissa\") True) ((Some (\"contracts/CToken.py\" 669)) if_block ((Some (\"contracts/CToken.py\" 669)) gt ((Some (\"contracts/CToken.py\" 669)) attr (None storage) \"totalSupply\") ((Some (\"contracts/CToken.py\" 669)) literal (intOrNat 0))) (((Some (\"contracts/utils/Exponential.py\" 193)) set_type ((Some (\"contracts/CFA12.py\" 24)) attr (None storage) \"currentCash\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 47)) set_type ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr (None storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr (None storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr (None storage) \"totalReserves\"))) \"Some\" \"None\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr (None storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr (None storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr (None storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr (None storage) \"expScale\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 254)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr (None storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr (None storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr (None storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr (None storage) \"expScale\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 255)) set_type ((Some (\"contracts/CToken.py\" 669)) attr (None storage) \"totalSupply\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 256)) verify ((Some (\"contracts/utils/Exponential.py\" 256)) gt ((Some (\"contracts/CToken.py\" 669)) attr (None storage) \"totalSupply\") ((Some (\"contracts/utils/Exponential.py\" 256)) literal (intOrNat 0))) ((Some (\"contracts/utils/Exponential.py\" 256)) literal (string \"DIVISION_BY_ZERO\"))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 257)) div ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr (None storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr (None storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr (None storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr (None storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 669)) attr (None storage) \"totalSupply\")) \"nat\") ((Some (\"contracts/CToken.py\" 675)) set ((Some (\"contracts/CToken.py\" 675)) var \"excRate\") ((Some (\"contracts/utils/Exponential.py\" 257)) div ((Some (\"contracts/utils/Exponential.py\" 48)) mul_homo ((Some (\"contracts/CToken.py\" 671)) open_variant ((Some (\"contracts/CToken.py\" 671)) is_nat ((Some (\"contracts/CToken.py\" 672)) sub ((Some (\"contracts/CToken.py\" 672)) add ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub ((Some (\"contracts/CFA12.py\" 24)) attr (None storage) \"currentCash\") ((Some (\"contracts/CToken.py\" 665)) literal (nat 0)))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) ((Some (\"contracts/CToken.py\" 672)) attr (None storage) \"totalBorrows\")) ((Some (\"contracts/CToken.py\" 672)) attr (None storage) \"totalReserves\"))) \"Some\" \"None\") ((Some (\"contracts/utils/Exponential.py\" 48)) attr (None storage) \"expScale\")) ((Some (\"contracts/CToken.py\" 669)) attr (None storage) \"totalSupply\"))))) ((Some (\"contracts/CToken.py\" 575)) set ((Some (\"contracts/CToken.py\" 575)) attr ((Some (\"contracts/CToken.py\" 565)) var \"compute_CToken_565\") \"exchangeRateMantissa\") ((Some (\"contracts/CToken.py\" 676)) var \"excRate\")))) ((Some (\"contracts/CToken.py\" 594)) result ((Some (\"contracts/CToken.py\" 565)) var \"compute_CToken_565\")))))\nentrypoints_layout ()\ninitial_metadata ()\nbalance ())", + "export": "(template_id (None static_id 0) \nstorage ((Some (\"contracts/utils/Exponential.py\" 21)) record (account_liquidity ((Some (\"contracts/Comptroller.py\" 61)) type_annotation ((Some (\"contracts/Comptroller.py\" 61)) big_map ) (big_map \"address\" (record ((liquidity \"int\") (updateLevel \"nat\") (valid \"bool\")) Variable (Some (\"contracts/Comptroller.py\" 34)))))) (activeOperations ((Some (\"contracts/Comptroller.py\" 65)) type_annotation ((Some (\"contracts/Comptroller.py\" 65)) set ) (set \"nat\"))) (administrator ((Some (\"./deploy/compile_targets/CompileComptroller.py\" 10)) literal (address \"KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2\"))) (closeFactorMantissa ((Some (\"./deploy/compile_targets/CompileComptroller.py\" 12)) literal (nat 500000000000000000))) (collaterals ((Some (\"contracts/Comptroller.py\" 55)) type_annotation ((Some (\"contracts/Comptroller.py\" 55)) big_map ) (big_map \"address\" (set \"address\")))) (expScale ((Some (\"contracts/utils/Exponential.py\" 21)) literal (nat 1000000000000000000))) (halfExpScale ((Some (\"contracts/utils/Exponential.py\" 21)) literal (nat 500000000000000000))) (liquidationIncentiveMantissa ((Some (\"./deploy/compile_targets/CompileComptroller.py\" 13)) literal (nat 1050000000000000000))) (loans ((Some (\"contracts/Comptroller.py\" 58)) type_annotation ((Some (\"contracts/Comptroller.py\" 58)) big_map ) (big_map \"address\" (set \"address\")))) (marketNameToAddress ((Some (\"contracts/Comptroller.py\" 52)) type_annotation ((Some (\"contracts/Comptroller.py\" 52)) map ) (map \"string\" \"address\"))) (markets ((Some (\"contracts/Comptroller.py\" 50)) type_annotation ((Some (\"contracts/Comptroller.py\" 50)) big_map ) (big_map \"address\" (record ((borrowPaused \"bool\") (collateralFactor (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) (isListed \"bool\") (mintPaused \"bool\") (name \"string\") (price (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) (priceExp \"nat\") (priceTimestamp \"timestamp\") (updateLevel \"nat\")) Variable (Some (\"contracts/Comptroller.py\" 20)))))) (maxPriceTimeDifference ((Some (\"contracts/Comptroller.py\" 68)) literal (int 86400))) (oracleAddress ((Some (\"./deploy/compile_targets/CompileComptroller.py\" 11)) literal (address \"KT1LDtNKDnpziwSrmSfx3xCbs7nBMg7VFp4m\"))) (pendingAdministrator (None variant \"None\" (None literal (unit)))) (transferPaused ((Some (\"contracts/Comptroller.py\" 53)) literal (bool True))))\nstorage_type (())\nentrypoints ((acceptGovernance True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 560)) (((Some (\"contracts/Comptroller.py\" 561)) verify ((Some (\"contracts/Comptroller.py\" 561)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 561)) MUL ((Some (\"contracts/Comptroller.py\" 561)) type_annotation ((Some (\"contracts/Comptroller.py\" 561)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 561)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 561)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 563)) set_type (None parameter) \"unit\") ((Some (\"contracts/Comptroller.py\" 564)) verify ((Some (\"contracts/Comptroller.py\" 564)) eq (None sender) ((Some (\"contracts/Comptroller.py\" 564)) open_variant ((Some (\"contracts/Comptroller.py\" 564)) attr ((Some (\"contracts/Comptroller.py\" 564)) storage) \"pendingAdministrator\") \"Some\" ((Some (\"contracts/Comptroller.py\" 564)) literal (string \"CMPT_NOT_SET_PENDING_ADMIN\")))) ((Some (\"contracts/Comptroller.py\" 564)) literal (string \"CMPT_NOT_PENDING_ADMIN\"))) ((Some (\"contracts/Comptroller.py\" 566)) set ((Some (\"contracts/Comptroller.py\" 566)) attr ((Some (\"contracts/Comptroller.py\" 566)) storage) \"administrator\") ((Some (\"contracts/Comptroller.py\" 566)) open_variant ((Some (\"contracts/Comptroller.py\" 566)) attr ((Some (\"contracts/Comptroller.py\" 566)) storage) \"pendingAdministrator\") \"Some\" \"None\")) ((Some (\"contracts/Comptroller.py\" 567)) set ((Some (\"contracts/Comptroller.py\" 567)) attr ((Some (\"contracts/Comptroller.py\" 567)) storage) \"pendingAdministrator\") (None variant \"None\" (None literal (unit)))))) (borrowAllowed True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 207)) (((Some (\"contracts/Comptroller.py\" 208)) verify ((Some (\"contracts/Comptroller.py\" 208)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 208)) MUL ((Some (\"contracts/Comptroller.py\" 208)) type_annotation ((Some (\"contracts/Comptroller.py\" 208)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 208)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 208)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 210)) set_type (None parameter) (record ((borrowAmount \"nat\") (borrower \"address\") (cToken \"address\")) (Value ((\"cToken\") ((\"borrower\") (\"borrowAmount\")))) (Some (\"contracts/interfaces/ComptrollerInterface.py\" 9)))) ((Some (\"contracts/Comptroller.py\" 211)) verify ((Some (\"contracts/Comptroller.py\" 212)) not ((Some (\"contracts/Comptroller.py\" 212)) attr ((Some (\"contracts/Comptroller.py\" 212)) get_item ((Some (\"contracts/Comptroller.py\" 212)) attr ((Some (\"contracts/Comptroller.py\" 212)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 212)) attr (None parameter) \"cToken\")) \"borrowPaused\")) ((Some (\"contracts/Comptroller.py\" 211)) literal (string \"CMPT_BORROW_PAUSED\"))) ((Some (\"contracts/Comptroller.py\" 741)) verify ((Some (\"contracts/Comptroller.py\" 741)) and ((Some (\"contracts/Comptroller.py\" 741)) contains ((Some (\"contracts/Comptroller.py\" 741)) attr ((Some (\"contracts/Comptroller.py\" 741)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 212)) attr (None parameter) \"cToken\")) ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) get_item ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 212)) attr (None parameter) \"cToken\")) \"isListed\")) ((Some (\"contracts/Comptroller.py\" 741)) literal (string \"CMPT_MARKET_NOT_LISTED\"))) ((Some (\"contracts/Comptroller.py\" 214)) if_block ((Some (\"contracts/Comptroller.py\" 214)) not ((Some (\"contracts/Comptroller.py\" 214)) contains ((Some (\"contracts/Comptroller.py\" 214)) attr ((Some (\"contracts/Comptroller.py\" 214)) storage) \"loans\") ((Some (\"contracts/Comptroller.py\" 214)) attr (None parameter) \"borrower\"))) (((Some (\"contracts/Comptroller.py\" 216)) verify ((Some (\"contracts/Comptroller.py\" 216)) eq (None sender) ((Some (\"contracts/Comptroller.py\" 212)) attr (None parameter) \"cToken\")) ((Some (\"contracts/Comptroller.py\" 216)) literal (string \"CMPT_INVALID_BORROW_SENDER\"))) ((Some (\"contracts/Comptroller.py\" 741)) verify ((Some (\"contracts/Comptroller.py\" 741)) and ((Some (\"contracts/Comptroller.py\" 741)) contains ((Some (\"contracts/Comptroller.py\" 741)) attr ((Some (\"contracts/Comptroller.py\" 741)) storage) \"markets\") (None sender)) ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) get_item ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) storage) \"markets\") (None sender)) \"isListed\")) ((Some (\"contracts/Comptroller.py\" 741)) literal (string \"CMPT_MARKET_NOT_LISTED\"))) ((Some (\"contracts/Comptroller.py\" 229)) if_block ((Some (\"contracts/Comptroller.py\" 229)) contains ((Some (\"contracts/Comptroller.py\" 229)) attr ((Some (\"contracts/Comptroller.py\" 229)) storage) \"loans\") ((Some (\"contracts/Comptroller.py\" 214)) attr (None parameter) \"borrower\")) (((Some (\"contracts/Comptroller.py\" 230)) update_set ((Some (\"contracts/Comptroller.py\" 230)) get_item ((Some (\"contracts/Comptroller.py\" 230)) attr ((Some (\"contracts/Comptroller.py\" 230)) storage) \"loans\") ((Some (\"contracts/Comptroller.py\" 214)) attr (None parameter) \"borrower\")) (None sender) True))) (else_block (((Some (\"contracts/Comptroller.py\" 232)) set ((Some (\"contracts/Comptroller.py\" 232)) get_item ((Some (\"contracts/Comptroller.py\" 232)) attr ((Some (\"contracts/Comptroller.py\" 232)) storage) \"loans\") ((Some (\"contracts/Comptroller.py\" 214)) attr (None parameter) \"borrower\")) ((Some (\"contracts/Comptroller.py\" 232)) set (None sender))))))) ((Some (\"contracts/Comptroller.py\" 755)) verify ((Some (\"contracts/Comptroller.py\" 755)) contains ((Some (\"contracts/Comptroller.py\" 755)) attr ((Some (\"contracts/Comptroller.py\" 755)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 214)) attr (None parameter) \"borrower\")) ((Some (\"contracts/Comptroller.py\" 755)) literal (string \"CMPT_LIQUIDITY_ABSENT\"))) ((Some (\"contracts/Comptroller.py\" 757)) verify ((Some (\"contracts/Comptroller.py\" 758)) attr ((Some (\"contracts/Comptroller.py\" 758)) get_item ((Some (\"contracts/Comptroller.py\" 758)) attr ((Some (\"contracts/Comptroller.py\" 758)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 214)) attr (None parameter) \"borrower\")) \"valid\") ((Some (\"contracts/Comptroller.py\" 757)) literal (string \"CMPT_LIQUIDITY_INVALID\"))) ((Some (\"contracts/utils/Exponential.py\" 193)) set_type (None level) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/Comptroller.py\" 760)) attr ((Some (\"contracts/Comptroller.py\" 760)) get_item ((Some (\"contracts/Comptroller.py\" 760)) attr ((Some (\"contracts/Comptroller.py\" 760)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 214)) attr (None parameter) \"borrower\")) \"updateLevel\") \"nat\") ((Some (\"contracts/Comptroller.py\" 759)) define_local \"compute_Comptroller_759\" ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub (None level) ((Some (\"contracts/Comptroller.py\" 760)) attr ((Some (\"contracts/Comptroller.py\" 760)) get_item ((Some (\"contracts/Comptroller.py\" 760)) attr ((Some (\"contracts/Comptroller.py\" 760)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 214)) attr (None parameter) \"borrower\")) \"updateLevel\"))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) True) ((Some (\"contracts/Comptroller.py\" 761)) verify ((Some (\"contracts/Comptroller.py\" 761)) eq ((Some (\"contracts/Comptroller.py\" 759)) var \"compute_Comptroller_759\") ((Some (\"contracts/Comptroller.py\" 761)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 761)) literal (string \"CMPT_LIQUIDITY_OLD\"))) ((Some (\"contracts/Comptroller.py\" 306)) verify ((Some (\"contracts/Comptroller.py\" 306)) eq (None level) ((Some (\"contracts/Comptroller.py\" 306)) attr ((Some (\"contracts/Comptroller.py\" 306)) get_item ((Some (\"contracts/Comptroller.py\" 306)) attr ((Some (\"contracts/Comptroller.py\" 306)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 212)) attr (None parameter) \"cToken\")) \"updateLevel\")) ((Some (\"contracts/Comptroller.py\" 306)) literal (string \"CMPT_UPDATE_PRICE\"))) ((Some (\"contracts/Comptroller.py\" 225)) verify ((Some (\"contracts/Comptroller.py\" 225)) gt ((Some (\"contracts/Comptroller.py\" 225)) attr ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) get_item ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 212)) attr (None parameter) \"cToken\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 225)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 225)) literal (string \"CMPT_INVALID_PRICE\"))) ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) get_item ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 212)) attr (None parameter) \"cToken\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) get_item ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 212)) attr (None parameter) \"cToken\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 220)) attr (None parameter) \"borrowAmount\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) get_item ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 212)) attr (None parameter) \"cToken\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 220)) attr (None parameter) \"borrowAmount\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) get_item ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 212)) attr (None parameter) \"cToken\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 220)) attr (None parameter) \"borrowAmount\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 190)) define_local \"compute_Comptroller_190\" ((Some (\"contracts/Comptroller.py\" 190)) sub ((Some (\"contracts/Comptroller.py\" 190)) attr ((Some (\"contracts/Comptroller.py\" 190)) get_item ((Some (\"contracts/Comptroller.py\" 190)) attr ((Some (\"contracts/Comptroller.py\" 190)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 214)) attr (None parameter) \"borrower\")) \"liquidity\") ((Some (\"contracts/Comptroller.py\" 190)) to_int ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) get_item ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 212)) attr (None parameter) \"cToken\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 220)) attr (None parameter) \"borrowAmount\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))) True) ((Some (\"contracts/Comptroller.py\" 192)) verify ((Some (\"contracts/Comptroller.py\" 192)) ge ((Some (\"contracts/Comptroller.py\" 190)) var \"compute_Comptroller_190\") ((Some (\"contracts/Comptroller.py\" 192)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 192)) literal (string \"CMPT_REDEEMER_SHORTFALL\"))) ((Some (\"contracts/Comptroller.py\" 764)) if_block ((Some (\"contracts/Comptroller.py\" 764)) contains ((Some (\"contracts/Comptroller.py\" 764)) attr ((Some (\"contracts/Comptroller.py\" 764)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 214)) attr (None parameter) \"borrower\")) (((Some (\"contracts/Comptroller.py\" 765)) set ((Some (\"contracts/Comptroller.py\" 765)) attr ((Some (\"contracts/Comptroller.py\" 765)) get_item ((Some (\"contracts/Comptroller.py\" 765)) attr ((Some (\"contracts/Comptroller.py\" 765)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 214)) attr (None parameter) \"borrower\")) \"valid\") ((Some (\"contracts/Comptroller.py\" 765)) literal (bool False))))))) (disableMarket True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 727)) (((Some (\"contracts/Comptroller.py\" 728)) verify ((Some (\"contracts/Comptroller.py\" 728)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 728)) MUL ((Some (\"contracts/Comptroller.py\" 728)) type_annotation ((Some (\"contracts/Comptroller.py\" 728)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 728)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 728)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 730)) set_type (None parameter) \"address\") ((Some (\"contracts/Comptroller.py\" 749)) verify ((Some (\"contracts/Comptroller.py\" 749)) eq (None sender) ((Some (\"contracts/Comptroller.py\" 749)) attr ((Some (\"contracts/Comptroller.py\" 749)) storage) \"administrator\")) ((Some (\"contracts/Comptroller.py\" 749)) literal (string \"CMPT_NOT_ADMIN\"))) ((Some (\"contracts/Comptroller.py\" 741)) verify ((Some (\"contracts/Comptroller.py\" 741)) and ((Some (\"contracts/Comptroller.py\" 741)) contains ((Some (\"contracts/Comptroller.py\" 741)) attr ((Some (\"contracts/Comptroller.py\" 741)) storage) \"markets\") (None parameter)) ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) get_item ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) storage) \"markets\") (None parameter)) \"isListed\")) ((Some (\"contracts/Comptroller.py\" 741)) literal (string \"CMPT_MARKET_NOT_LISTED\"))) ((Some (\"contracts/Comptroller.py\" 733)) set ((Some (\"contracts/Comptroller.py\" 733)) attr ((Some (\"contracts/Comptroller.py\" 733)) get_item ((Some (\"contracts/Comptroller.py\" 733)) attr ((Some (\"contracts/Comptroller.py\" 733)) storage) \"markets\") (None parameter)) \"isListed\") ((Some (\"contracts/Comptroller.py\" 733)) literal (bool False))))) (enterMarkets True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 78)) (((Some (\"contracts/Comptroller.py\" 79)) verify ((Some (\"contracts/Comptroller.py\" 79)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 79)) MUL ((Some (\"contracts/Comptroller.py\" 79)) type_annotation ((Some (\"contracts/Comptroller.py\" 79)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 79)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 79)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 81)) set_type (None parameter) (list \"address\")) ((Some (\"contracts/Comptroller.py\" 82)) for_group \"token\" (None parameter) (((Some (\"contracts/Comptroller.py\" 741)) verify ((Some (\"contracts/Comptroller.py\" 741)) and ((Some (\"contracts/Comptroller.py\" 741)) contains ((Some (\"contracts/Comptroller.py\" 741)) attr ((Some (\"contracts/Comptroller.py\" 741)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 82)) var \"token\")) ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) get_item ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 82)) var \"token\")) \"isListed\")) ((Some (\"contracts/Comptroller.py\" 741)) literal (string \"CMPT_MARKET_NOT_LISTED\"))) ((Some (\"contracts/Comptroller.py\" 88)) if_block ((Some (\"contracts/Comptroller.py\" 88)) contains ((Some (\"contracts/Comptroller.py\" 88)) attr ((Some (\"contracts/Comptroller.py\" 88)) storage) \"collaterals\") (None sender)) (((Some (\"contracts/Comptroller.py\" 89)) update_set ((Some (\"contracts/Comptroller.py\" 89)) get_item ((Some (\"contracts/Comptroller.py\" 89)) attr ((Some (\"contracts/Comptroller.py\" 89)) storage) \"collaterals\") (None sender)) ((Some (\"contracts/Comptroller.py\" 82)) var \"token\") True))) (else_block (((Some (\"contracts/Comptroller.py\" 91)) set ((Some (\"contracts/Comptroller.py\" 91)) get_item ((Some (\"contracts/Comptroller.py\" 91)) attr ((Some (\"contracts/Comptroller.py\" 91)) storage) \"collaterals\") (None sender)) ((Some (\"contracts/Comptroller.py\" 91)) set ((Some (\"contracts/Comptroller.py\" 82)) var \"token\"))))))) ((Some (\"contracts/Comptroller.py\" 764)) if_block ((Some (\"contracts/Comptroller.py\" 764)) contains ((Some (\"contracts/Comptroller.py\" 764)) attr ((Some (\"contracts/Comptroller.py\" 764)) storage) \"account_liquidity\") (None sender)) (((Some (\"contracts/Comptroller.py\" 765)) set ((Some (\"contracts/Comptroller.py\" 765)) attr ((Some (\"contracts/Comptroller.py\" 765)) get_item ((Some (\"contracts/Comptroller.py\" 765)) attr ((Some (\"contracts/Comptroller.py\" 765)) storage) \"account_liquidity\") (None sender)) \"valid\") ((Some (\"contracts/Comptroller.py\" 765)) literal (bool False))))))) (exitMarket True None None None True None (Some (\"contracts/Comptroller.py\" 106)) (((Some (\"contracts/Comptroller.py\" 107)) verify ((Some (\"contracts/Comptroller.py\" 107)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 107)) MUL ((Some (\"contracts/Comptroller.py\" 107)) type_annotation ((Some (\"contracts/Comptroller.py\" 107)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 107)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 107)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 109)) set_type (None parameter) \"address\") ((Some (\"contracts/utils/OperationProtector.py\" 46)) update_set ((Some (\"contracts/utils/OperationProtector.py\" 46)) attr ((Some (\"contracts/utils/OperationProtector.py\" 46)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 28)) literal (nat 1)) True) ((Some (\"contracts/Comptroller.py\" 114)) set ((Some (\"contracts/Comptroller.py\" 114)) operations) ((Some (\"contracts/Comptroller.py\" 114)) cons ((Some (\"contracts/Comptroller.py\" 114)) transfer ((Some (\"contracts/Comptroller.py\" 114)) tuple (None sender) ((Some (\"contracts/Comptroller.py\" 114)) self \"setAccountSnapAndExitMarket\")) ((Some (\"contracts/Comptroller.py\" 115)) literal (mutez 0)) ((Some (\"contracts/Comptroller.py\" 113)) open_variant ((Some (\"contracts/Comptroller.py\" 112)) contract \"getAccountSnapshot\" (tuple \"address\" (contract (record ((account \"address\") (borrowBalance \"nat\") (cTokenBalance \"nat\") (exchangeRateMantissa \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 21))))) (None parameter)) \"Some\" \"None\")) ((Some (\"contracts/Comptroller.py\" 114)) operations))))) (hardResetOp True (Some True) None None True None (Some (\"contracts/utils/OperationProtector.py\" 56)) (((Some (\"contracts/utils/OperationProtector.py\" 57)) set_type (None parameter) \"unit\") ((Some (\"contracts/Comptroller.py\" 749)) verify ((Some (\"contracts/Comptroller.py\" 749)) eq (None sender) ((Some (\"contracts/Comptroller.py\" 749)) attr ((Some (\"contracts/Comptroller.py\" 749)) storage) \"administrator\")) ((Some (\"contracts/Comptroller.py\" 749)) literal (string \"CMPT_NOT_ADMIN\"))) ((Some (\"contracts/utils/OperationProtector.py\" 59)) set ((Some (\"contracts/utils/OperationProtector.py\" 59)) attr ((Some (\"contracts/utils/OperationProtector.py\" 59)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 59)) set )))) (liquidateBorrowAllowed True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 429)) (((Some (\"contracts/Comptroller.py\" 430)) verify ((Some (\"contracts/Comptroller.py\" 430)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 430)) MUL ((Some (\"contracts/Comptroller.py\" 430)) type_annotation ((Some (\"contracts/Comptroller.py\" 430)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 430)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 430)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 432)) set_type (None parameter) (record ((borrower \"address\") (cTokenBorrowed \"address\") (cTokenCollateral \"address\") (liquidator \"address\") (repayAmount \"nat\")) Variable (Some (\"contracts/interfaces/ComptrollerInterface.py\" 28)))) ((Some (\"contracts/Comptroller.py\" 741)) verify ((Some (\"contracts/Comptroller.py\" 741)) and ((Some (\"contracts/Comptroller.py\" 741)) contains ((Some (\"contracts/Comptroller.py\" 741)) attr ((Some (\"contracts/Comptroller.py\" 741)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 434)) attr (None parameter) \"cTokenBorrowed\")) ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) get_item ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 434)) attr (None parameter) \"cTokenBorrowed\")) \"isListed\")) ((Some (\"contracts/Comptroller.py\" 741)) literal (string \"CMPT_MARKET_NOT_LISTED\"))) ((Some (\"contracts/Comptroller.py\" 741)) verify ((Some (\"contracts/Comptroller.py\" 741)) and ((Some (\"contracts/Comptroller.py\" 741)) contains ((Some (\"contracts/Comptroller.py\" 741)) attr ((Some (\"contracts/Comptroller.py\" 741)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 435)) attr (None parameter) \"cTokenCollateral\")) ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) get_item ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 435)) attr (None parameter) \"cTokenCollateral\")) \"isListed\")) ((Some (\"contracts/Comptroller.py\" 741)) literal (string \"CMPT_MARKET_NOT_LISTED\"))) ((Some (\"contracts/Comptroller.py\" 486)) define_local \"calculation\" ((Some (\"contracts/Comptroller.py\" 486)) record (sumBorrowPlusEffects ((Some (\"contracts/Comptroller.py\" 487)) literal (nat 0))) (sumCollateral ((Some (\"contracts/Comptroller.py\" 487)) literal (nat 0)))) True) ((Some (\"contracts/Comptroller.py\" 488)) define_local \"temp\" ((Some (\"contracts/Comptroller.py\" 488)) record (sumBorrowPlusEffects ((Some (\"contracts/Comptroller.py\" 489)) literal (nat 0))) (sumCollateral ((Some (\"contracts/Comptroller.py\" 488)) literal (nat 0)))) True) ((Some (\"contracts/Comptroller.py\" 490)) if_block ((Some (\"contracts/Comptroller.py\" 490)) contains ((Some (\"contracts/Comptroller.py\" 490)) attr ((Some (\"contracts/Comptroller.py\" 490)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 438)) attr (None parameter) \"borrower\")) (((Some (\"contracts/Comptroller.py\" 491)) for_group \"asset\" ((Some (\"contracts/Comptroller.py\" 491)) elements ((Some (\"contracts/Comptroller.py\" 491)) get_item ((Some (\"contracts/Comptroller.py\" 491)) attr ((Some (\"contracts/Comptroller.py\" 491)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 438)) attr (None parameter) \"borrower\"))) (((Some (\"contracts/Comptroller.py\" 520)) verify ((Some (\"contracts/Comptroller.py\" 520)) is_variant ((Some (\"contracts/Comptroller.py\" 519)) open_variant ((Some (\"contracts/Comptroller.py\" 518)) view \"getAccountSnapshotView\" ((Some (\"contracts/Comptroller.py\" 438)) attr (None parameter) \"borrower\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\") (option (record ((account \"address\") (borrowBalance \"nat\") (cTokenBalance \"nat\") (exchangeRateMantissa \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 21))))) \"Some\" ((Some (\"contracts/Comptroller.py\" 519)) literal (string \"INVALID ACCOUNT SNAPSHOT VIEW\"))) \"Some\") ((Some (\"contracts/Comptroller.py\" 520)) literal (string \"CMPT_OUTDATED_ACCOUNT_SNAPHOT\"))) ((Some (\"contracts/Comptroller.py\" 521)) define_local \"params\" ((Some (\"contracts/Comptroller.py\" 521)) open_variant ((Some (\"contracts/Comptroller.py\" 519)) open_variant ((Some (\"contracts/Comptroller.py\" 518)) view \"getAccountSnapshotView\" ((Some (\"contracts/Comptroller.py\" 438)) attr (None parameter) \"borrower\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\") (option (record ((account \"address\") (borrowBalance \"nat\") (cTokenBalance \"nat\") (exchangeRateMantissa \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 21))))) \"Some\" ((Some (\"contracts/Comptroller.py\" 519)) literal (string \"INVALID ACCOUNT SNAPSHOT VIEW\"))) \"Some\" \"None\") True) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/Comptroller.py\" 522)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"params\") \"exchangeRateMantissa\") \"nat\") ((Some (\"contracts/Comptroller.py\" 522)) define_local \"compute_Comptroller_522\" ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/Comptroller.py\" 522)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"params\") \"exchangeRateMantissa\"))) True) ((Some (\"contracts/Comptroller.py\" 306)) verify ((Some (\"contracts/Comptroller.py\" 306)) eq (None level) ((Some (\"contracts/Comptroller.py\" 306)) attr ((Some (\"contracts/Comptroller.py\" 306)) get_item ((Some (\"contracts/Comptroller.py\" 306)) attr ((Some (\"contracts/Comptroller.py\" 306)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"updateLevel\")) ((Some (\"contracts/Comptroller.py\" 306)) literal (string \"CMPT_UPDATE_PRICE\"))) ((Some (\"contracts/Comptroller.py\" 225)) verify ((Some (\"contracts/Comptroller.py\" 225)) gt ((Some (\"contracts/Comptroller.py\" 225)) attr ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) get_item ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 225)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 225)) literal (string \"CMPT_INVALID_PRICE\"))) ((Some (\"contracts/utils/Exponential.py\" 205)) set_type ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 206)) set_type ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"collateralFactor\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 205)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 206)) set_type ((Some (\"contracts/Comptroller.py\" 522)) var \"compute_Comptroller_522\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"compute_Comptroller_522\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/Comptroller.py\" 526)) define_local \"compute_Comptroller_526\" ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"compute_Comptroller_522\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")))) True) ((Some (\"contracts/Comptroller.py\" 527)) define_local \"calc\" ((Some (\"contracts/Comptroller.py\" 527)) record (sumBorrowPlusEffects ((Some (\"contracts/Comptroller.py\" 528)) literal (nat 0))) (sumCollateral ((Some (\"contracts/Comptroller.py\" 527)) literal (nat 0)))) True) ((Some (\"contracts/Comptroller.py\" 530)) if_block ((Some (\"contracts/Comptroller.py\" 530)) and ((Some (\"contracts/Comptroller.py\" 530)) contains ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) var \"params\") \"account\")) ((Some (\"contracts/Comptroller.py\" 530)) contains ((Some (\"contracts/Comptroller.py\" 530)) get_item ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) var \"params\") \"account\")) ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\"))) (((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 531)) set ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 531)) add ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumCollateral\") ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))))) ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 533)) set ((Some (\"contracts/Comptroller.py\" 533)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 533)) add ((Some (\"contracts/Comptroller.py\" 533)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumBorrowPlusEffects\") ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))) ((Some (\"contracts/Comptroller.py\" 496)) set ((Some (\"contracts/Comptroller.py\" 496)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 496)) add ((Some (\"contracts/Comptroller.py\" 496)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumCollateral\"))) ((Some (\"contracts/Comptroller.py\" 497)) set ((Some (\"contracts/Comptroller.py\" 497)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 497)) add ((Some (\"contracts/Comptroller.py\" 497)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 533)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumBorrowPlusEffects\"))))))) ((Some (\"contracts/Comptroller.py\" 498)) if_block ((Some (\"contracts/Comptroller.py\" 498)) contains ((Some (\"contracts/Comptroller.py\" 498)) attr ((Some (\"contracts/Comptroller.py\" 498)) storage) \"loans\") ((Some (\"contracts/Comptroller.py\" 438)) attr (None parameter) \"borrower\")) (((Some (\"contracts/Comptroller.py\" 499)) for_group \"asset\" ((Some (\"contracts/Comptroller.py\" 499)) elements ((Some (\"contracts/Comptroller.py\" 499)) get_item ((Some (\"contracts/Comptroller.py\" 499)) attr ((Some (\"contracts/Comptroller.py\" 499)) storage) \"loans\") ((Some (\"contracts/Comptroller.py\" 438)) attr (None parameter) \"borrower\"))) (((Some (\"contracts/Comptroller.py\" 501)) if_block ((Some (\"contracts/Comptroller.py\" 501)) contains ((Some (\"contracts/Comptroller.py\" 501)) attr ((Some (\"contracts/Comptroller.py\" 501)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 438)) attr (None parameter) \"borrower\")) (((Some (\"contracts/Comptroller.py\" 502)) if_block ((Some (\"contracts/Comptroller.py\" 502)) not ((Some (\"contracts/Comptroller.py\" 502)) contains ((Some (\"contracts/Comptroller.py\" 502)) get_item ((Some (\"contracts/Comptroller.py\" 502)) attr ((Some (\"contracts/Comptroller.py\" 502)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 438)) attr (None parameter) \"borrower\")) ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\"))) (((Some (\"contracts/Comptroller.py\" 520)) verify ((Some (\"contracts/Comptroller.py\" 520)) is_variant ((Some (\"contracts/Comptroller.py\" 519)) open_variant ((Some (\"contracts/Comptroller.py\" 518)) view \"getAccountSnapshotView\" ((Some (\"contracts/Comptroller.py\" 438)) attr (None parameter) \"borrower\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\") (option (record ((account \"address\") (borrowBalance \"nat\") (cTokenBalance \"nat\") (exchangeRateMantissa \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 21))))) \"Some\" ((Some (\"contracts/Comptroller.py\" 519)) literal (string \"INVALID ACCOUNT SNAPSHOT VIEW\"))) \"Some\") ((Some (\"contracts/Comptroller.py\" 520)) literal (string \"CMPT_OUTDATED_ACCOUNT_SNAPHOT\"))) ((Some (\"contracts/Comptroller.py\" 521)) define_local \"params\" ((Some (\"contracts/Comptroller.py\" 521)) open_variant ((Some (\"contracts/Comptroller.py\" 519)) open_variant ((Some (\"contracts/Comptroller.py\" 518)) view \"getAccountSnapshotView\" ((Some (\"contracts/Comptroller.py\" 438)) attr (None parameter) \"borrower\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\") (option (record ((account \"address\") (borrowBalance \"nat\") (cTokenBalance \"nat\") (exchangeRateMantissa \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 21))))) \"Some\" ((Some (\"contracts/Comptroller.py\" 519)) literal (string \"INVALID ACCOUNT SNAPSHOT VIEW\"))) \"Some\" \"None\") True) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/Comptroller.py\" 522)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"params\") \"exchangeRateMantissa\") \"nat\") ((Some (\"contracts/Comptroller.py\" 522)) define_local \"compute_Comptroller_522\" ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/Comptroller.py\" 522)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"params\") \"exchangeRateMantissa\"))) True) ((Some (\"contracts/Comptroller.py\" 306)) verify ((Some (\"contracts/Comptroller.py\" 306)) eq (None level) ((Some (\"contracts/Comptroller.py\" 306)) attr ((Some (\"contracts/Comptroller.py\" 306)) get_item ((Some (\"contracts/Comptroller.py\" 306)) attr ((Some (\"contracts/Comptroller.py\" 306)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"updateLevel\")) ((Some (\"contracts/Comptroller.py\" 306)) literal (string \"CMPT_UPDATE_PRICE\"))) ((Some (\"contracts/Comptroller.py\" 225)) verify ((Some (\"contracts/Comptroller.py\" 225)) gt ((Some (\"contracts/Comptroller.py\" 225)) attr ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) get_item ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 225)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 225)) literal (string \"CMPT_INVALID_PRICE\"))) ((Some (\"contracts/utils/Exponential.py\" 205)) set_type ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 206)) set_type ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"collateralFactor\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 205)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 206)) set_type ((Some (\"contracts/Comptroller.py\" 522)) var \"compute_Comptroller_522\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"compute_Comptroller_522\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/Comptroller.py\" 526)) define_local \"compute_Comptroller_526\" ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"compute_Comptroller_522\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")))) True) ((Some (\"contracts/Comptroller.py\" 527)) define_local \"calc\" ((Some (\"contracts/Comptroller.py\" 527)) record (sumBorrowPlusEffects ((Some (\"contracts/Comptroller.py\" 528)) literal (nat 0))) (sumCollateral ((Some (\"contracts/Comptroller.py\" 527)) literal (nat 0)))) True) ((Some (\"contracts/Comptroller.py\" 530)) if_block ((Some (\"contracts/Comptroller.py\" 530)) and ((Some (\"contracts/Comptroller.py\" 530)) contains ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) var \"params\") \"account\")) ((Some (\"contracts/Comptroller.py\" 530)) contains ((Some (\"contracts/Comptroller.py\" 530)) get_item ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) var \"params\") \"account\")) ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\"))) (((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 531)) set ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 531)) add ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumCollateral\") ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))))) ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 533)) set ((Some (\"contracts/Comptroller.py\" 533)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 533)) add ((Some (\"contracts/Comptroller.py\" 533)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumBorrowPlusEffects\") ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))) ((Some (\"contracts/Comptroller.py\" 507)) set ((Some (\"contracts/Comptroller.py\" 496)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 507)) add ((Some (\"contracts/Comptroller.py\" 496)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumCollateral\"))) ((Some (\"contracts/Comptroller.py\" 508)) set ((Some (\"contracts/Comptroller.py\" 497)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 508)) add ((Some (\"contracts/Comptroller.py\" 497)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 533)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumBorrowPlusEffects\"))))))) (else_block (((Some (\"contracts/Comptroller.py\" 520)) verify ((Some (\"contracts/Comptroller.py\" 520)) is_variant ((Some (\"contracts/Comptroller.py\" 519)) open_variant ((Some (\"contracts/Comptroller.py\" 518)) view \"getAccountSnapshotView\" ((Some (\"contracts/Comptroller.py\" 438)) attr (None parameter) \"borrower\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\") (option (record ((account \"address\") (borrowBalance \"nat\") (cTokenBalance \"nat\") (exchangeRateMantissa \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 21))))) \"Some\" ((Some (\"contracts/Comptroller.py\" 519)) literal (string \"INVALID ACCOUNT SNAPSHOT VIEW\"))) \"Some\") ((Some (\"contracts/Comptroller.py\" 520)) literal (string \"CMPT_OUTDATED_ACCOUNT_SNAPHOT\"))) ((Some (\"contracts/Comptroller.py\" 521)) define_local \"params\" ((Some (\"contracts/Comptroller.py\" 521)) open_variant ((Some (\"contracts/Comptroller.py\" 519)) open_variant ((Some (\"contracts/Comptroller.py\" 518)) view \"getAccountSnapshotView\" ((Some (\"contracts/Comptroller.py\" 438)) attr (None parameter) \"borrower\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\") (option (record ((account \"address\") (borrowBalance \"nat\") (cTokenBalance \"nat\") (exchangeRateMantissa \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 21))))) \"Some\" ((Some (\"contracts/Comptroller.py\" 519)) literal (string \"INVALID ACCOUNT SNAPSHOT VIEW\"))) \"Some\" \"None\") True) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/Comptroller.py\" 522)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"params\") \"exchangeRateMantissa\") \"nat\") ((Some (\"contracts/Comptroller.py\" 522)) define_local \"compute_Comptroller_522\" ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/Comptroller.py\" 522)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"params\") \"exchangeRateMantissa\"))) True) ((Some (\"contracts/Comptroller.py\" 306)) verify ((Some (\"contracts/Comptroller.py\" 306)) eq (None level) ((Some (\"contracts/Comptroller.py\" 306)) attr ((Some (\"contracts/Comptroller.py\" 306)) get_item ((Some (\"contracts/Comptroller.py\" 306)) attr ((Some (\"contracts/Comptroller.py\" 306)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"updateLevel\")) ((Some (\"contracts/Comptroller.py\" 306)) literal (string \"CMPT_UPDATE_PRICE\"))) ((Some (\"contracts/Comptroller.py\" 225)) verify ((Some (\"contracts/Comptroller.py\" 225)) gt ((Some (\"contracts/Comptroller.py\" 225)) attr ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) get_item ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 225)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 225)) literal (string \"CMPT_INVALID_PRICE\"))) ((Some (\"contracts/utils/Exponential.py\" 205)) set_type ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 206)) set_type ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"collateralFactor\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 205)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 206)) set_type ((Some (\"contracts/Comptroller.py\" 522)) var \"compute_Comptroller_522\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"compute_Comptroller_522\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/Comptroller.py\" 526)) define_local \"compute_Comptroller_526\" ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"compute_Comptroller_522\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")))) True) ((Some (\"contracts/Comptroller.py\" 527)) define_local \"calc\" ((Some (\"contracts/Comptroller.py\" 527)) record (sumBorrowPlusEffects ((Some (\"contracts/Comptroller.py\" 528)) literal (nat 0))) (sumCollateral ((Some (\"contracts/Comptroller.py\" 527)) literal (nat 0)))) True) ((Some (\"contracts/Comptroller.py\" 530)) if_block ((Some (\"contracts/Comptroller.py\" 530)) and ((Some (\"contracts/Comptroller.py\" 530)) contains ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) var \"params\") \"account\")) ((Some (\"contracts/Comptroller.py\" 530)) contains ((Some (\"contracts/Comptroller.py\" 530)) get_item ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) var \"params\") \"account\")) ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\"))) (((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 531)) set ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 531)) add ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumCollateral\") ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))))) ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 533)) set ((Some (\"contracts/Comptroller.py\" 533)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 533)) add ((Some (\"contracts/Comptroller.py\" 533)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumBorrowPlusEffects\") ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))) ((Some (\"contracts/Comptroller.py\" 512)) set ((Some (\"contracts/Comptroller.py\" 496)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 512)) add ((Some (\"contracts/Comptroller.py\" 496)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumCollateral\"))) ((Some (\"contracts/Comptroller.py\" 513)) set ((Some (\"contracts/Comptroller.py\" 497)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 513)) add ((Some (\"contracts/Comptroller.py\" 497)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 533)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumBorrowPlusEffects\"))))))))) ((Some (\"contracts/Comptroller.py\" 378)) define_local \"calcLiquidity\" ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") True) ((Some (\"contracts/Comptroller.py\" 380)) define_local \"compute_Comptroller_380\" ((Some (\"contracts/Comptroller.py\" 381)) sub ((Some (\"contracts/Comptroller.py\" 381)) attr ((Some (\"contracts/Comptroller.py\" 379)) var \"calcLiquidity\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 381)) attr ((Some (\"contracts/Comptroller.py\" 379)) var \"calcLiquidity\") \"sumBorrowPlusEffects\")) True) ((Some (\"contracts/Comptroller.py\" 437)) define_local \"liquidtiy\" ((Some (\"contracts/Comptroller.py\" 380)) var \"compute_Comptroller_380\") True) ((Some (\"contracts/Comptroller.py\" 440)) verify ((Some (\"contracts/Comptroller.py\" 440)) lt ((Some (\"contracts/Comptroller.py\" 440)) var \"liquidtiy\") ((Some (\"contracts/Comptroller.py\" 440)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 440)) literal (string \"CMPT_INSUFFICIENT_SHORTFALL\"))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/Comptroller.py\" 446)) attr ((Some (\"contracts/Comptroller.py\" 446)) storage) \"closeFactorMantissa\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/Comptroller.py\" 446)) attr ((Some (\"contracts/Comptroller.py\" 446)) storage) \"closeFactorMantissa\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/Comptroller.py\" 446)) attr ((Some (\"contracts/Comptroller.py\" 446)) storage) \"closeFactorMantissa\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 442)) first ((Some (\"contracts/Comptroller.py\" 443)) open_variant ((Some (\"contracts/Comptroller.py\" 442)) view \"borrowBalanceStoredView\" ((Some (\"contracts/Comptroller.py\" 438)) attr (None parameter) \"borrower\") ((Some (\"contracts/Comptroller.py\" 434)) attr (None parameter) \"cTokenBorrowed\") (tuple \"nat\" \"nat\")) \"Some\" ((Some (\"contracts/Comptroller.py\" 443)) literal (string \"INVALID ACCOUNT BORROW BALANCE VIEW\")))) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/Comptroller.py\" 446)) attr ((Some (\"contracts/Comptroller.py\" 446)) storage) \"closeFactorMantissa\") ((Some (\"contracts/Comptroller.py\" 442)) first ((Some (\"contracts/Comptroller.py\" 443)) open_variant ((Some (\"contracts/Comptroller.py\" 442)) view \"borrowBalanceStoredView\" ((Some (\"contracts/Comptroller.py\" 438)) attr (None parameter) \"borrower\") ((Some (\"contracts/Comptroller.py\" 434)) attr (None parameter) \"cTokenBorrowed\") (tuple \"nat\" \"nat\")) \"Some\" ((Some (\"contracts/Comptroller.py\" 443)) literal (string \"INVALID ACCOUNT BORROW BALANCE VIEW\"))))) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/Comptroller.py\" 446)) attr ((Some (\"contracts/Comptroller.py\" 446)) storage) \"closeFactorMantissa\") ((Some (\"contracts/Comptroller.py\" 442)) first ((Some (\"contracts/Comptroller.py\" 443)) open_variant ((Some (\"contracts/Comptroller.py\" 442)) view \"borrowBalanceStoredView\" ((Some (\"contracts/Comptroller.py\" 438)) attr (None parameter) \"borrower\") ((Some (\"contracts/Comptroller.py\" 434)) attr (None parameter) \"cTokenBorrowed\") (tuple \"nat\" \"nat\")) \"Some\" ((Some (\"contracts/Comptroller.py\" 443)) literal (string \"INVALID ACCOUNT BORROW BALANCE VIEW\"))))))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 445)) define_local \"maxClose\" ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/Comptroller.py\" 446)) attr ((Some (\"contracts/Comptroller.py\" 446)) storage) \"closeFactorMantissa\") ((Some (\"contracts/Comptroller.py\" 442)) first ((Some (\"contracts/Comptroller.py\" 443)) open_variant ((Some (\"contracts/Comptroller.py\" 442)) view \"borrowBalanceStoredView\" ((Some (\"contracts/Comptroller.py\" 438)) attr (None parameter) \"borrower\") ((Some (\"contracts/Comptroller.py\" 434)) attr (None parameter) \"cTokenBorrowed\") (tuple \"nat\" \"nat\")) \"Some\" ((Some (\"contracts/Comptroller.py\" 443)) literal (string \"INVALID ACCOUNT BORROW BALANCE VIEW\"))))) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")) True) ((Some (\"contracts/Comptroller.py\" 448)) verify ((Some (\"contracts/Comptroller.py\" 448)) ge ((Some (\"contracts/Comptroller.py\" 448)) var \"maxClose\") ((Some (\"contracts/Comptroller.py\" 448)) attr (None parameter) \"repayAmount\")) ((Some (\"contracts/Comptroller.py\" 448)) literal (string \"CMPT_TOO_MUCH_REPAY\"))) ((Some (\"contracts/Comptroller.py\" 764)) if_block ((Some (\"contracts/Comptroller.py\" 764)) contains ((Some (\"contracts/Comptroller.py\" 764)) attr ((Some (\"contracts/Comptroller.py\" 764)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 438)) attr (None parameter) \"borrower\")) (((Some (\"contracts/Comptroller.py\" 765)) set ((Some (\"contracts/Comptroller.py\" 765)) attr ((Some (\"contracts/Comptroller.py\" 765)) get_item ((Some (\"contracts/Comptroller.py\" 765)) attr ((Some (\"contracts/Comptroller.py\" 765)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 438)) attr (None parameter) \"borrower\")) \"valid\") ((Some (\"contracts/Comptroller.py\" 765)) literal (bool False))))) ((Some (\"contracts/Comptroller.py\" 764)) if_block ((Some (\"contracts/Comptroller.py\" 764)) contains ((Some (\"contracts/Comptroller.py\" 764)) attr ((Some (\"contracts/Comptroller.py\" 764)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 451)) attr (None parameter) \"liquidator\")) (((Some (\"contracts/Comptroller.py\" 765)) set ((Some (\"contracts/Comptroller.py\" 765)) attr ((Some (\"contracts/Comptroller.py\" 765)) get_item ((Some (\"contracts/Comptroller.py\" 765)) attr ((Some (\"contracts/Comptroller.py\" 765)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 451)) attr (None parameter) \"liquidator\")) \"valid\") ((Some (\"contracts/Comptroller.py\" 765)) literal (bool False))))))) (mintAllowed True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 148)) (((Some (\"contracts/Comptroller.py\" 149)) verify ((Some (\"contracts/Comptroller.py\" 149)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 149)) MUL ((Some (\"contracts/Comptroller.py\" 149)) type_annotation ((Some (\"contracts/Comptroller.py\" 149)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 149)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 149)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 151)) set_type (None parameter) (record ((cToken \"address\") (mintAmount \"nat\") (minter \"address\")) (Value ((\"cToken\") ((\"minter\") (\"mintAmount\")))) (Some (\"contracts/interfaces/ComptrollerInterface.py\" 7)))) ((Some (\"contracts/Comptroller.py\" 152)) verify ((Some (\"contracts/Comptroller.py\" 153)) not ((Some (\"contracts/Comptroller.py\" 153)) attr ((Some (\"contracts/Comptroller.py\" 153)) get_item ((Some (\"contracts/Comptroller.py\" 153)) attr ((Some (\"contracts/Comptroller.py\" 153)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 153)) attr (None parameter) \"cToken\")) \"mintPaused\")) ((Some (\"contracts/Comptroller.py\" 152)) literal (string \"CMPT_MINT_PAUSED\"))) ((Some (\"contracts/Comptroller.py\" 741)) verify ((Some (\"contracts/Comptroller.py\" 741)) and ((Some (\"contracts/Comptroller.py\" 741)) contains ((Some (\"contracts/Comptroller.py\" 741)) attr ((Some (\"contracts/Comptroller.py\" 741)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 153)) attr (None parameter) \"cToken\")) ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) get_item ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 153)) attr (None parameter) \"cToken\")) \"isListed\")) ((Some (\"contracts/Comptroller.py\" 741)) literal (string \"CMPT_MARKET_NOT_LISTED\"))) ((Some (\"contracts/Comptroller.py\" 764)) if_block ((Some (\"contracts/Comptroller.py\" 764)) contains ((Some (\"contracts/Comptroller.py\" 764)) attr ((Some (\"contracts/Comptroller.py\" 764)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 155)) attr (None parameter) \"minter\")) (((Some (\"contracts/Comptroller.py\" 765)) set ((Some (\"contracts/Comptroller.py\" 765)) attr ((Some (\"contracts/Comptroller.py\" 765)) get_item ((Some (\"contracts/Comptroller.py\" 765)) attr ((Some (\"contracts/Comptroller.py\" 765)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 155)) attr (None parameter) \"minter\")) \"valid\") ((Some (\"contracts/Comptroller.py\" 765)) literal (bool False))))))) (redeemAllowed True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 170)) (((Some (\"contracts/Comptroller.py\" 171)) verify ((Some (\"contracts/Comptroller.py\" 171)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 171)) MUL ((Some (\"contracts/Comptroller.py\" 171)) type_annotation ((Some (\"contracts/Comptroller.py\" 171)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 171)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 171)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 173)) set_type (None parameter) (record ((cToken \"address\") (redeemAmount \"nat\") (redeemer \"address\")) (Value ((\"cToken\") ((\"redeemer\") (\"redeemAmount\")))) (Some (\"contracts/interfaces/ComptrollerInterface.py\" 11)))) ((Some (\"contracts/Comptroller.py\" 741)) verify ((Some (\"contracts/Comptroller.py\" 741)) and ((Some (\"contracts/Comptroller.py\" 741)) contains ((Some (\"contracts/Comptroller.py\" 741)) attr ((Some (\"contracts/Comptroller.py\" 741)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"cToken\")) ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) get_item ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"cToken\")) \"isListed\")) ((Some (\"contracts/Comptroller.py\" 741)) literal (string \"CMPT_MARKET_NOT_LISTED\"))) ((Some (\"contracts/Comptroller.py\" 180)) if_block ((Some (\"contracts/Comptroller.py\" 180)) and ((Some (\"contracts/Comptroller.py\" 180)) contains ((Some (\"contracts/Comptroller.py\" 180)) attr ((Some (\"contracts/Comptroller.py\" 180)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"redeemer\")) ((Some (\"contracts/Comptroller.py\" 180)) contains ((Some (\"contracts/Comptroller.py\" 180)) get_item ((Some (\"contracts/Comptroller.py\" 180)) attr ((Some (\"contracts/Comptroller.py\" 180)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"redeemer\")) ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"cToken\"))) (((Some (\"contracts/Comptroller.py\" 182)) if_block ((Some (\"contracts/Comptroller.py\" 182)) and ((Some (\"contracts/Comptroller.py\" 182)) contains ((Some (\"contracts/Comptroller.py\" 182)) attr ((Some (\"contracts/Comptroller.py\" 182)) storage) \"loans\") ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"redeemer\")) ((Some (\"contracts/Comptroller.py\" 182)) neq ((Some (\"contracts/Comptroller.py\" 182)) size ((Some (\"contracts/Comptroller.py\" 182)) get_item ((Some (\"contracts/Comptroller.py\" 182)) attr ((Some (\"contracts/Comptroller.py\" 182)) storage) \"loans\") ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"redeemer\"))) ((Some (\"contracts/Comptroller.py\" 182)) literal (intOrNat 0)))) (((Some (\"contracts/Comptroller.py\" 755)) verify ((Some (\"contracts/Comptroller.py\" 755)) contains ((Some (\"contracts/Comptroller.py\" 755)) attr ((Some (\"contracts/Comptroller.py\" 755)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"redeemer\")) ((Some (\"contracts/Comptroller.py\" 755)) literal (string \"CMPT_LIQUIDITY_ABSENT\"))) ((Some (\"contracts/Comptroller.py\" 757)) verify ((Some (\"contracts/Comptroller.py\" 758)) attr ((Some (\"contracts/Comptroller.py\" 758)) get_item ((Some (\"contracts/Comptroller.py\" 758)) attr ((Some (\"contracts/Comptroller.py\" 758)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"redeemer\")) \"valid\") ((Some (\"contracts/Comptroller.py\" 757)) literal (string \"CMPT_LIQUIDITY_INVALID\"))) ((Some (\"contracts/utils/Exponential.py\" 193)) set_type (None level) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/Comptroller.py\" 760)) attr ((Some (\"contracts/Comptroller.py\" 760)) get_item ((Some (\"contracts/Comptroller.py\" 760)) attr ((Some (\"contracts/Comptroller.py\" 760)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"redeemer\")) \"updateLevel\") \"nat\") ((Some (\"contracts/Comptroller.py\" 759)) define_local \"compute_Comptroller_759\" ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub (None level) ((Some (\"contracts/Comptroller.py\" 760)) attr ((Some (\"contracts/Comptroller.py\" 760)) get_item ((Some (\"contracts/Comptroller.py\" 760)) attr ((Some (\"contracts/Comptroller.py\" 760)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"redeemer\")) \"updateLevel\"))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) True) ((Some (\"contracts/Comptroller.py\" 761)) verify ((Some (\"contracts/Comptroller.py\" 761)) eq ((Some (\"contracts/Comptroller.py\" 759)) var \"compute_Comptroller_759\") ((Some (\"contracts/Comptroller.py\" 761)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 761)) literal (string \"CMPT_LIQUIDITY_OLD\"))) ((Some (\"contracts/Comptroller.py\" 306)) verify ((Some (\"contracts/Comptroller.py\" 306)) eq (None level) ((Some (\"contracts/Comptroller.py\" 306)) attr ((Some (\"contracts/Comptroller.py\" 306)) get_item ((Some (\"contracts/Comptroller.py\" 306)) attr ((Some (\"contracts/Comptroller.py\" 306)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"cToken\")) \"updateLevel\")) ((Some (\"contracts/Comptroller.py\" 306)) literal (string \"CMPT_UPDATE_PRICE\"))) ((Some (\"contracts/Comptroller.py\" 225)) verify ((Some (\"contracts/Comptroller.py\" 225)) gt ((Some (\"contracts/Comptroller.py\" 225)) attr ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) get_item ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"cToken\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 225)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 225)) literal (string \"CMPT_INVALID_PRICE\"))) ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) get_item ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"cToken\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) get_item ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"cToken\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"redeemAmount\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) get_item ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"cToken\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"redeemAmount\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) get_item ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"cToken\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"redeemAmount\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 190)) define_local \"compute_Comptroller_190\" ((Some (\"contracts/Comptroller.py\" 190)) sub ((Some (\"contracts/Comptroller.py\" 190)) attr ((Some (\"contracts/Comptroller.py\" 190)) get_item ((Some (\"contracts/Comptroller.py\" 190)) attr ((Some (\"contracts/Comptroller.py\" 190)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"redeemer\")) \"liquidity\") ((Some (\"contracts/Comptroller.py\" 190)) to_int ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) get_item ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"cToken\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"redeemAmount\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))) True) ((Some (\"contracts/Comptroller.py\" 192)) verify ((Some (\"contracts/Comptroller.py\" 192)) ge ((Some (\"contracts/Comptroller.py\" 190)) var \"compute_Comptroller_190\") ((Some (\"contracts/Comptroller.py\" 192)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 192)) literal (string \"CMPT_REDEEMER_SHORTFALL\"))))))) ((Some (\"contracts/Comptroller.py\" 764)) if_block ((Some (\"contracts/Comptroller.py\" 764)) contains ((Some (\"contracts/Comptroller.py\" 764)) attr ((Some (\"contracts/Comptroller.py\" 764)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"redeemer\")) (((Some (\"contracts/Comptroller.py\" 765)) set ((Some (\"contracts/Comptroller.py\" 765)) attr ((Some (\"contracts/Comptroller.py\" 765)) get_item ((Some (\"contracts/Comptroller.py\" 765)) attr ((Some (\"contracts/Comptroller.py\" 765)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"redeemer\")) \"valid\") ((Some (\"contracts/Comptroller.py\" 765)) literal (bool False))))))) (removeFromLoans True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 235)) (((Some (\"contracts/Comptroller.py\" 236)) verify ((Some (\"contracts/Comptroller.py\" 236)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 236)) MUL ((Some (\"contracts/Comptroller.py\" 236)) type_annotation ((Some (\"contracts/Comptroller.py\" 236)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 236)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 236)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 741)) verify ((Some (\"contracts/Comptroller.py\" 741)) and ((Some (\"contracts/Comptroller.py\" 741)) contains ((Some (\"contracts/Comptroller.py\" 741)) attr ((Some (\"contracts/Comptroller.py\" 741)) storage) \"markets\") (None sender)) ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) get_item ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) storage) \"markets\") (None sender)) \"isListed\")) ((Some (\"contracts/Comptroller.py\" 741)) literal (string \"CMPT_MARKET_NOT_LISTED\"))) ((Some (\"contracts/Comptroller.py\" 239)) if_block ((Some (\"contracts/Comptroller.py\" 239)) and ((Some (\"contracts/Comptroller.py\" 239)) contains ((Some (\"contracts/Comptroller.py\" 239)) attr ((Some (\"contracts/Comptroller.py\" 239)) storage) \"loans\") (None parameter)) ((Some (\"contracts/Comptroller.py\" 239)) contains ((Some (\"contracts/Comptroller.py\" 239)) get_item ((Some (\"contracts/Comptroller.py\" 239)) attr ((Some (\"contracts/Comptroller.py\" 239)) storage) \"loans\") (None parameter)) (None sender))) (((Some (\"contracts/Comptroller.py\" 240)) update_set ((Some (\"contracts/Comptroller.py\" 240)) get_item ((Some (\"contracts/Comptroller.py\" 240)) attr ((Some (\"contracts/Comptroller.py\" 240)) storage) \"loans\") (None parameter)) (None sender) False))))) (repayBorrowAllowed True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 252)) (((Some (\"contracts/Comptroller.py\" 253)) verify ((Some (\"contracts/Comptroller.py\" 253)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 253)) MUL ((Some (\"contracts/Comptroller.py\" 253)) type_annotation ((Some (\"contracts/Comptroller.py\" 253)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 253)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 253)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 255)) set_type (None parameter) (record ((borrower \"address\") (cToken \"address\") (payer \"address\") (repayAmount \"nat\")) (Value ((\"cToken\") ((\"payer\") ((\"borrower\") (\"repayAmount\"))))) (Some (\"contracts/interfaces/ComptrollerInterface.py\" 13)))) ((Some (\"contracts/Comptroller.py\" 741)) verify ((Some (\"contracts/Comptroller.py\" 741)) and ((Some (\"contracts/Comptroller.py\" 741)) contains ((Some (\"contracts/Comptroller.py\" 741)) attr ((Some (\"contracts/Comptroller.py\" 741)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 256)) attr (None parameter) \"cToken\")) ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) get_item ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 256)) attr (None parameter) \"cToken\")) \"isListed\")) ((Some (\"contracts/Comptroller.py\" 741)) literal (string \"CMPT_MARKET_NOT_LISTED\"))) ((Some (\"contracts/Comptroller.py\" 764)) if_block ((Some (\"contracts/Comptroller.py\" 764)) contains ((Some (\"contracts/Comptroller.py\" 764)) attr ((Some (\"contracts/Comptroller.py\" 764)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 257)) attr (None parameter) \"borrower\")) (((Some (\"contracts/Comptroller.py\" 765)) set ((Some (\"contracts/Comptroller.py\" 765)) attr ((Some (\"contracts/Comptroller.py\" 765)) get_item ((Some (\"contracts/Comptroller.py\" 765)) attr ((Some (\"contracts/Comptroller.py\" 765)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 257)) attr (None parameter) \"borrower\")) \"valid\") ((Some (\"contracts/Comptroller.py\" 765)) literal (bool False))))) ((Some (\"contracts/Comptroller.py\" 764)) if_block ((Some (\"contracts/Comptroller.py\" 764)) contains ((Some (\"contracts/Comptroller.py\" 764)) attr ((Some (\"contracts/Comptroller.py\" 764)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 258)) attr (None parameter) \"payer\")) (((Some (\"contracts/Comptroller.py\" 765)) set ((Some (\"contracts/Comptroller.py\" 765)) attr ((Some (\"contracts/Comptroller.py\" 765)) get_item ((Some (\"contracts/Comptroller.py\" 765)) attr ((Some (\"contracts/Comptroller.py\" 765)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 258)) attr (None parameter) \"payer\")) \"valid\") ((Some (\"contracts/Comptroller.py\" 765)) literal (bool False))))))) (setAccountLiquidityWithView True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 331)) (((Some (\"contracts/Comptroller.py\" 332)) verify ((Some (\"contracts/Comptroller.py\" 332)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 332)) MUL ((Some (\"contracts/Comptroller.py\" 332)) type_annotation ((Some (\"contracts/Comptroller.py\" 332)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 332)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 332)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 334)) set_type (None parameter) \"address\") ((Some (\"contracts/Comptroller.py\" 486)) define_local \"calculation\" ((Some (\"contracts/Comptroller.py\" 486)) record (sumBorrowPlusEffects ((Some (\"contracts/Comptroller.py\" 487)) literal (nat 0))) (sumCollateral ((Some (\"contracts/Comptroller.py\" 487)) literal (nat 0)))) True) ((Some (\"contracts/Comptroller.py\" 488)) define_local \"temp\" ((Some (\"contracts/Comptroller.py\" 488)) record (sumBorrowPlusEffects ((Some (\"contracts/Comptroller.py\" 489)) literal (nat 0))) (sumCollateral ((Some (\"contracts/Comptroller.py\" 488)) literal (nat 0)))) True) ((Some (\"contracts/Comptroller.py\" 490)) if_block ((Some (\"contracts/Comptroller.py\" 490)) contains ((Some (\"contracts/Comptroller.py\" 490)) attr ((Some (\"contracts/Comptroller.py\" 490)) storage) \"collaterals\") (None parameter)) (((Some (\"contracts/Comptroller.py\" 491)) for_group \"asset\" ((Some (\"contracts/Comptroller.py\" 491)) elements ((Some (\"contracts/Comptroller.py\" 491)) get_item ((Some (\"contracts/Comptroller.py\" 491)) attr ((Some (\"contracts/Comptroller.py\" 491)) storage) \"collaterals\") (None parameter))) (((Some (\"contracts/Comptroller.py\" 520)) verify ((Some (\"contracts/Comptroller.py\" 520)) is_variant ((Some (\"contracts/Comptroller.py\" 519)) open_variant ((Some (\"contracts/Comptroller.py\" 518)) view \"getAccountSnapshotView\" (None parameter) ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\") (option (record ((account \"address\") (borrowBalance \"nat\") (cTokenBalance \"nat\") (exchangeRateMantissa \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 21))))) \"Some\" ((Some (\"contracts/Comptroller.py\" 519)) literal (string \"INVALID ACCOUNT SNAPSHOT VIEW\"))) \"Some\") ((Some (\"contracts/Comptroller.py\" 520)) literal (string \"CMPT_OUTDATED_ACCOUNT_SNAPHOT\"))) ((Some (\"contracts/Comptroller.py\" 521)) define_local \"params\" ((Some (\"contracts/Comptroller.py\" 521)) open_variant ((Some (\"contracts/Comptroller.py\" 519)) open_variant ((Some (\"contracts/Comptroller.py\" 518)) view \"getAccountSnapshotView\" (None parameter) ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\") (option (record ((account \"address\") (borrowBalance \"nat\") (cTokenBalance \"nat\") (exchangeRateMantissa \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 21))))) \"Some\" ((Some (\"contracts/Comptroller.py\" 519)) literal (string \"INVALID ACCOUNT SNAPSHOT VIEW\"))) \"Some\" \"None\") True) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/Comptroller.py\" 522)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"params\") \"exchangeRateMantissa\") \"nat\") ((Some (\"contracts/Comptroller.py\" 522)) define_local \"compute_Comptroller_522\" ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/Comptroller.py\" 522)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"params\") \"exchangeRateMantissa\"))) True) ((Some (\"contracts/Comptroller.py\" 306)) verify ((Some (\"contracts/Comptroller.py\" 306)) eq (None level) ((Some (\"contracts/Comptroller.py\" 306)) attr ((Some (\"contracts/Comptroller.py\" 306)) get_item ((Some (\"contracts/Comptroller.py\" 306)) attr ((Some (\"contracts/Comptroller.py\" 306)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"updateLevel\")) ((Some (\"contracts/Comptroller.py\" 306)) literal (string \"CMPT_UPDATE_PRICE\"))) ((Some (\"contracts/Comptroller.py\" 225)) verify ((Some (\"contracts/Comptroller.py\" 225)) gt ((Some (\"contracts/Comptroller.py\" 225)) attr ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) get_item ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 225)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 225)) literal (string \"CMPT_INVALID_PRICE\"))) ((Some (\"contracts/utils/Exponential.py\" 205)) set_type ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 206)) set_type ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"collateralFactor\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 205)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 206)) set_type ((Some (\"contracts/Comptroller.py\" 522)) var \"compute_Comptroller_522\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"compute_Comptroller_522\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/Comptroller.py\" 526)) define_local \"compute_Comptroller_526\" ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"compute_Comptroller_522\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")))) True) ((Some (\"contracts/Comptroller.py\" 527)) define_local \"calc\" ((Some (\"contracts/Comptroller.py\" 527)) record (sumBorrowPlusEffects ((Some (\"contracts/Comptroller.py\" 528)) literal (nat 0))) (sumCollateral ((Some (\"contracts/Comptroller.py\" 527)) literal (nat 0)))) True) ((Some (\"contracts/Comptroller.py\" 530)) if_block ((Some (\"contracts/Comptroller.py\" 530)) and ((Some (\"contracts/Comptroller.py\" 530)) contains ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) var \"params\") \"account\")) ((Some (\"contracts/Comptroller.py\" 530)) contains ((Some (\"contracts/Comptroller.py\" 530)) get_item ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) var \"params\") \"account\")) ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\"))) (((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 531)) set ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 531)) add ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumCollateral\") ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))))) ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 533)) set ((Some (\"contracts/Comptroller.py\" 533)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 533)) add ((Some (\"contracts/Comptroller.py\" 533)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumBorrowPlusEffects\") ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))) ((Some (\"contracts/Comptroller.py\" 496)) set ((Some (\"contracts/Comptroller.py\" 496)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 496)) add ((Some (\"contracts/Comptroller.py\" 496)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumCollateral\"))) ((Some (\"contracts/Comptroller.py\" 497)) set ((Some (\"contracts/Comptroller.py\" 497)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 497)) add ((Some (\"contracts/Comptroller.py\" 497)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 533)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumBorrowPlusEffects\"))))))) ((Some (\"contracts/Comptroller.py\" 498)) if_block ((Some (\"contracts/Comptroller.py\" 498)) contains ((Some (\"contracts/Comptroller.py\" 498)) attr ((Some (\"contracts/Comptroller.py\" 498)) storage) \"loans\") (None parameter)) (((Some (\"contracts/Comptroller.py\" 499)) for_group \"asset\" ((Some (\"contracts/Comptroller.py\" 499)) elements ((Some (\"contracts/Comptroller.py\" 499)) get_item ((Some (\"contracts/Comptroller.py\" 499)) attr ((Some (\"contracts/Comptroller.py\" 499)) storage) \"loans\") (None parameter))) (((Some (\"contracts/Comptroller.py\" 501)) if_block ((Some (\"contracts/Comptroller.py\" 501)) contains ((Some (\"contracts/Comptroller.py\" 501)) attr ((Some (\"contracts/Comptroller.py\" 501)) storage) \"collaterals\") (None parameter)) (((Some (\"contracts/Comptroller.py\" 502)) if_block ((Some (\"contracts/Comptroller.py\" 502)) not ((Some (\"contracts/Comptroller.py\" 502)) contains ((Some (\"contracts/Comptroller.py\" 502)) get_item ((Some (\"contracts/Comptroller.py\" 502)) attr ((Some (\"contracts/Comptroller.py\" 502)) storage) \"collaterals\") (None parameter)) ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\"))) (((Some (\"contracts/Comptroller.py\" 520)) verify ((Some (\"contracts/Comptroller.py\" 520)) is_variant ((Some (\"contracts/Comptroller.py\" 519)) open_variant ((Some (\"contracts/Comptroller.py\" 518)) view \"getAccountSnapshotView\" (None parameter) ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\") (option (record ((account \"address\") (borrowBalance \"nat\") (cTokenBalance \"nat\") (exchangeRateMantissa \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 21))))) \"Some\" ((Some (\"contracts/Comptroller.py\" 519)) literal (string \"INVALID ACCOUNT SNAPSHOT VIEW\"))) \"Some\") ((Some (\"contracts/Comptroller.py\" 520)) literal (string \"CMPT_OUTDATED_ACCOUNT_SNAPHOT\"))) ((Some (\"contracts/Comptroller.py\" 521)) define_local \"params\" ((Some (\"contracts/Comptroller.py\" 521)) open_variant ((Some (\"contracts/Comptroller.py\" 519)) open_variant ((Some (\"contracts/Comptroller.py\" 518)) view \"getAccountSnapshotView\" (None parameter) ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\") (option (record ((account \"address\") (borrowBalance \"nat\") (cTokenBalance \"nat\") (exchangeRateMantissa \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 21))))) \"Some\" ((Some (\"contracts/Comptroller.py\" 519)) literal (string \"INVALID ACCOUNT SNAPSHOT VIEW\"))) \"Some\" \"None\") True) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/Comptroller.py\" 522)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"params\") \"exchangeRateMantissa\") \"nat\") ((Some (\"contracts/Comptroller.py\" 522)) define_local \"compute_Comptroller_522\" ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/Comptroller.py\" 522)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"params\") \"exchangeRateMantissa\"))) True) ((Some (\"contracts/Comptroller.py\" 306)) verify ((Some (\"contracts/Comptroller.py\" 306)) eq (None level) ((Some (\"contracts/Comptroller.py\" 306)) attr ((Some (\"contracts/Comptroller.py\" 306)) get_item ((Some (\"contracts/Comptroller.py\" 306)) attr ((Some (\"contracts/Comptroller.py\" 306)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"updateLevel\")) ((Some (\"contracts/Comptroller.py\" 306)) literal (string \"CMPT_UPDATE_PRICE\"))) ((Some (\"contracts/Comptroller.py\" 225)) verify ((Some (\"contracts/Comptroller.py\" 225)) gt ((Some (\"contracts/Comptroller.py\" 225)) attr ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) get_item ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 225)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 225)) literal (string \"CMPT_INVALID_PRICE\"))) ((Some (\"contracts/utils/Exponential.py\" 205)) set_type ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 206)) set_type ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"collateralFactor\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 205)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 206)) set_type ((Some (\"contracts/Comptroller.py\" 522)) var \"compute_Comptroller_522\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"compute_Comptroller_522\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/Comptroller.py\" 526)) define_local \"compute_Comptroller_526\" ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"compute_Comptroller_522\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")))) True) ((Some (\"contracts/Comptroller.py\" 527)) define_local \"calc\" ((Some (\"contracts/Comptroller.py\" 527)) record (sumBorrowPlusEffects ((Some (\"contracts/Comptroller.py\" 528)) literal (nat 0))) (sumCollateral ((Some (\"contracts/Comptroller.py\" 527)) literal (nat 0)))) True) ((Some (\"contracts/Comptroller.py\" 530)) if_block ((Some (\"contracts/Comptroller.py\" 530)) and ((Some (\"contracts/Comptroller.py\" 530)) contains ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) var \"params\") \"account\")) ((Some (\"contracts/Comptroller.py\" 530)) contains ((Some (\"contracts/Comptroller.py\" 530)) get_item ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) var \"params\") \"account\")) ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\"))) (((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 531)) set ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 531)) add ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumCollateral\") ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))))) ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 533)) set ((Some (\"contracts/Comptroller.py\" 533)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 533)) add ((Some (\"contracts/Comptroller.py\" 533)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumBorrowPlusEffects\") ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))) ((Some (\"contracts/Comptroller.py\" 507)) set ((Some (\"contracts/Comptroller.py\" 496)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 507)) add ((Some (\"contracts/Comptroller.py\" 496)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumCollateral\"))) ((Some (\"contracts/Comptroller.py\" 508)) set ((Some (\"contracts/Comptroller.py\" 497)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 508)) add ((Some (\"contracts/Comptroller.py\" 497)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 533)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumBorrowPlusEffects\"))))))) (else_block (((Some (\"contracts/Comptroller.py\" 520)) verify ((Some (\"contracts/Comptroller.py\" 520)) is_variant ((Some (\"contracts/Comptroller.py\" 519)) open_variant ((Some (\"contracts/Comptroller.py\" 518)) view \"getAccountSnapshotView\" (None parameter) ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\") (option (record ((account \"address\") (borrowBalance \"nat\") (cTokenBalance \"nat\") (exchangeRateMantissa \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 21))))) \"Some\" ((Some (\"contracts/Comptroller.py\" 519)) literal (string \"INVALID ACCOUNT SNAPSHOT VIEW\"))) \"Some\") ((Some (\"contracts/Comptroller.py\" 520)) literal (string \"CMPT_OUTDATED_ACCOUNT_SNAPHOT\"))) ((Some (\"contracts/Comptroller.py\" 521)) define_local \"params\" ((Some (\"contracts/Comptroller.py\" 521)) open_variant ((Some (\"contracts/Comptroller.py\" 519)) open_variant ((Some (\"contracts/Comptroller.py\" 518)) view \"getAccountSnapshotView\" (None parameter) ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\") (option (record ((account \"address\") (borrowBalance \"nat\") (cTokenBalance \"nat\") (exchangeRateMantissa \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 21))))) \"Some\" ((Some (\"contracts/Comptroller.py\" 519)) literal (string \"INVALID ACCOUNT SNAPSHOT VIEW\"))) \"Some\" \"None\") True) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/Comptroller.py\" 522)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"params\") \"exchangeRateMantissa\") \"nat\") ((Some (\"contracts/Comptroller.py\" 522)) define_local \"compute_Comptroller_522\" ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/Comptroller.py\" 522)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"params\") \"exchangeRateMantissa\"))) True) ((Some (\"contracts/Comptroller.py\" 306)) verify ((Some (\"contracts/Comptroller.py\" 306)) eq (None level) ((Some (\"contracts/Comptroller.py\" 306)) attr ((Some (\"contracts/Comptroller.py\" 306)) get_item ((Some (\"contracts/Comptroller.py\" 306)) attr ((Some (\"contracts/Comptroller.py\" 306)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"updateLevel\")) ((Some (\"contracts/Comptroller.py\" 306)) literal (string \"CMPT_UPDATE_PRICE\"))) ((Some (\"contracts/Comptroller.py\" 225)) verify ((Some (\"contracts/Comptroller.py\" 225)) gt ((Some (\"contracts/Comptroller.py\" 225)) attr ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) get_item ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 225)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 225)) literal (string \"CMPT_INVALID_PRICE\"))) ((Some (\"contracts/utils/Exponential.py\" 205)) set_type ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 206)) set_type ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"collateralFactor\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 205)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 206)) set_type ((Some (\"contracts/Comptroller.py\" 522)) var \"compute_Comptroller_522\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"compute_Comptroller_522\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/Comptroller.py\" 526)) define_local \"compute_Comptroller_526\" ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"compute_Comptroller_522\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")))) True) ((Some (\"contracts/Comptroller.py\" 527)) define_local \"calc\" ((Some (\"contracts/Comptroller.py\" 527)) record (sumBorrowPlusEffects ((Some (\"contracts/Comptroller.py\" 528)) literal (nat 0))) (sumCollateral ((Some (\"contracts/Comptroller.py\" 527)) literal (nat 0)))) True) ((Some (\"contracts/Comptroller.py\" 530)) if_block ((Some (\"contracts/Comptroller.py\" 530)) and ((Some (\"contracts/Comptroller.py\" 530)) contains ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) var \"params\") \"account\")) ((Some (\"contracts/Comptroller.py\" 530)) contains ((Some (\"contracts/Comptroller.py\" 530)) get_item ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) var \"params\") \"account\")) ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\"))) (((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 531)) set ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 531)) add ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumCollateral\") ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))))) ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 533)) set ((Some (\"contracts/Comptroller.py\" 533)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 533)) add ((Some (\"contracts/Comptroller.py\" 533)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumBorrowPlusEffects\") ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))) ((Some (\"contracts/Comptroller.py\" 512)) set ((Some (\"contracts/Comptroller.py\" 496)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 512)) add ((Some (\"contracts/Comptroller.py\" 496)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumCollateral\"))) ((Some (\"contracts/Comptroller.py\" 513)) set ((Some (\"contracts/Comptroller.py\" 497)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 513)) add ((Some (\"contracts/Comptroller.py\" 497)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 533)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumBorrowPlusEffects\"))))))))) ((Some (\"contracts/Comptroller.py\" 335)) define_local \"liquidity\" ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") True) ((Some (\"contracts/utils/OperationProtector.py\" 43)) verify ((Some (\"contracts/utils/OperationProtector.py\" 43)) contains ((Some (\"contracts/utils/OperationProtector.py\" 43)) attr ((Some (\"contracts/utils/OperationProtector.py\" 43)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 31)) literal (nat 4))) ((Some (\"contracts/utils/OperationProtector.py\" 43)) literal (string \"OP_NOT_ACTIVE\"))) ((Some (\"contracts/utils/OperationProtector.py\" 49)) update_set ((Some (\"contracts/utils/OperationProtector.py\" 49)) attr ((Some (\"contracts/utils/OperationProtector.py\" 49)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 31)) literal (nat 4)) False) ((Some (\"contracts/Comptroller.py\" 338)) set ((Some (\"contracts/Comptroller.py\" 338)) get_item ((Some (\"contracts/Comptroller.py\" 338)) attr ((Some (\"contracts/Comptroller.py\" 338)) storage) \"account_liquidity\") (None parameter)) ((Some (\"contracts/Comptroller.py\" 338)) record (liquidity ((Some (\"contracts/Comptroller.py\" 339)) sub ((Some (\"contracts/Comptroller.py\" 339)) attr ((Some (\"contracts/Comptroller.py\" 336)) var \"liquidity\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 339)) attr ((Some (\"contracts/Comptroller.py\" 336)) var \"liquidity\") \"sumBorrowPlusEffects\"))) (updateLevel (None level)) (valid ((Some (\"contracts/Comptroller.py\" 338)) literal (bool True))))))) (setAccountSnapAndExitMarket True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 123)) (((Some (\"contracts/Comptroller.py\" 124)) verify ((Some (\"contracts/Comptroller.py\" 124)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 124)) MUL ((Some (\"contracts/Comptroller.py\" 124)) type_annotation ((Some (\"contracts/Comptroller.py\" 124)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 124)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 124)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 126)) set_type (None parameter) (record ((account \"address\") (borrowBalance \"nat\") (cTokenBalance \"nat\") (exchangeRateMantissa \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 21)))) ((Some (\"contracts/utils/OperationProtector.py\" 43)) verify ((Some (\"contracts/utils/OperationProtector.py\" 43)) contains ((Some (\"contracts/utils/OperationProtector.py\" 43)) attr ((Some (\"contracts/utils/OperationProtector.py\" 43)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 28)) literal (nat 1))) ((Some (\"contracts/utils/OperationProtector.py\" 43)) literal (string \"OP_NOT_ACTIVE\"))) ((Some (\"contracts/utils/OperationProtector.py\" 49)) update_set ((Some (\"contracts/utils/OperationProtector.py\" 49)) attr ((Some (\"contracts/utils/OperationProtector.py\" 49)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 28)) literal (nat 1)) False) ((Some (\"contracts/Comptroller.py\" 128)) verify ((Some (\"contracts/Comptroller.py\" 128)) eq ((Some (\"contracts/Comptroller.py\" 128)) attr (None parameter) \"borrowBalance\") ((Some (\"contracts/Comptroller.py\" 129)) literal (nat 0))) ((Some (\"contracts/Comptroller.py\" 128)) literal (string \"CMPT_BORROW_IN_MARKET\"))) ((Some (\"contracts/Comptroller.py\" 741)) verify ((Some (\"contracts/Comptroller.py\" 741)) and ((Some (\"contracts/Comptroller.py\" 741)) contains ((Some (\"contracts/Comptroller.py\" 741)) attr ((Some (\"contracts/Comptroller.py\" 741)) storage) \"markets\") (None sender)) ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) get_item ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) storage) \"markets\") (None sender)) \"isListed\")) ((Some (\"contracts/Comptroller.py\" 741)) literal (string \"CMPT_MARKET_NOT_LISTED\"))) ((Some (\"contracts/Comptroller.py\" 180)) if_block ((Some (\"contracts/Comptroller.py\" 180)) and ((Some (\"contracts/Comptroller.py\" 180)) contains ((Some (\"contracts/Comptroller.py\" 180)) attr ((Some (\"contracts/Comptroller.py\" 180)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 132)) attr (None parameter) \"account\")) ((Some (\"contracts/Comptroller.py\" 180)) contains ((Some (\"contracts/Comptroller.py\" 180)) get_item ((Some (\"contracts/Comptroller.py\" 180)) attr ((Some (\"contracts/Comptroller.py\" 180)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 132)) attr (None parameter) \"account\")) (None sender))) (((Some (\"contracts/Comptroller.py\" 182)) if_block ((Some (\"contracts/Comptroller.py\" 182)) and ((Some (\"contracts/Comptroller.py\" 182)) contains ((Some (\"contracts/Comptroller.py\" 182)) attr ((Some (\"contracts/Comptroller.py\" 182)) storage) \"loans\") ((Some (\"contracts/Comptroller.py\" 132)) attr (None parameter) \"account\")) ((Some (\"contracts/Comptroller.py\" 182)) neq ((Some (\"contracts/Comptroller.py\" 182)) size ((Some (\"contracts/Comptroller.py\" 182)) get_item ((Some (\"contracts/Comptroller.py\" 182)) attr ((Some (\"contracts/Comptroller.py\" 182)) storage) \"loans\") ((Some (\"contracts/Comptroller.py\" 132)) attr (None parameter) \"account\"))) ((Some (\"contracts/Comptroller.py\" 182)) literal (intOrNat 0)))) (((Some (\"contracts/Comptroller.py\" 755)) verify ((Some (\"contracts/Comptroller.py\" 755)) contains ((Some (\"contracts/Comptroller.py\" 755)) attr ((Some (\"contracts/Comptroller.py\" 755)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 132)) attr (None parameter) \"account\")) ((Some (\"contracts/Comptroller.py\" 755)) literal (string \"CMPT_LIQUIDITY_ABSENT\"))) ((Some (\"contracts/Comptroller.py\" 757)) verify ((Some (\"contracts/Comptroller.py\" 758)) attr ((Some (\"contracts/Comptroller.py\" 758)) get_item ((Some (\"contracts/Comptroller.py\" 758)) attr ((Some (\"contracts/Comptroller.py\" 758)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 132)) attr (None parameter) \"account\")) \"valid\") ((Some (\"contracts/Comptroller.py\" 757)) literal (string \"CMPT_LIQUIDITY_INVALID\"))) ((Some (\"contracts/utils/Exponential.py\" 193)) set_type (None level) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/Comptroller.py\" 760)) attr ((Some (\"contracts/Comptroller.py\" 760)) get_item ((Some (\"contracts/Comptroller.py\" 760)) attr ((Some (\"contracts/Comptroller.py\" 760)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 132)) attr (None parameter) \"account\")) \"updateLevel\") \"nat\") ((Some (\"contracts/Comptroller.py\" 759)) define_local \"compute_Comptroller_759\" ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub (None level) ((Some (\"contracts/Comptroller.py\" 760)) attr ((Some (\"contracts/Comptroller.py\" 760)) get_item ((Some (\"contracts/Comptroller.py\" 760)) attr ((Some (\"contracts/Comptroller.py\" 760)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 132)) attr (None parameter) \"account\")) \"updateLevel\"))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) True) ((Some (\"contracts/Comptroller.py\" 761)) verify ((Some (\"contracts/Comptroller.py\" 761)) eq ((Some (\"contracts/Comptroller.py\" 759)) var \"compute_Comptroller_759\") ((Some (\"contracts/Comptroller.py\" 761)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 761)) literal (string \"CMPT_LIQUIDITY_OLD\"))) ((Some (\"contracts/Comptroller.py\" 306)) verify ((Some (\"contracts/Comptroller.py\" 306)) eq (None level) ((Some (\"contracts/Comptroller.py\" 306)) attr ((Some (\"contracts/Comptroller.py\" 306)) get_item ((Some (\"contracts/Comptroller.py\" 306)) attr ((Some (\"contracts/Comptroller.py\" 306)) storage) \"markets\") (None sender)) \"updateLevel\")) ((Some (\"contracts/Comptroller.py\" 306)) literal (string \"CMPT_UPDATE_PRICE\"))) ((Some (\"contracts/Comptroller.py\" 225)) verify ((Some (\"contracts/Comptroller.py\" 225)) gt ((Some (\"contracts/Comptroller.py\" 225)) attr ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) get_item ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) storage) \"markets\") (None sender)) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 225)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 225)) literal (string \"CMPT_INVALID_PRICE\"))) ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) get_item ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) storage) \"markets\") (None sender)) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) get_item ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) storage) \"markets\") (None sender)) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 132)) attr (None parameter) \"cTokenBalance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) get_item ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) storage) \"markets\") (None sender)) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 132)) attr (None parameter) \"cTokenBalance\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) get_item ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) storage) \"markets\") (None sender)) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 132)) attr (None parameter) \"cTokenBalance\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 190)) define_local \"compute_Comptroller_190\" ((Some (\"contracts/Comptroller.py\" 190)) sub ((Some (\"contracts/Comptroller.py\" 190)) attr ((Some (\"contracts/Comptroller.py\" 190)) get_item ((Some (\"contracts/Comptroller.py\" 190)) attr ((Some (\"contracts/Comptroller.py\" 190)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 132)) attr (None parameter) \"account\")) \"liquidity\") ((Some (\"contracts/Comptroller.py\" 190)) to_int ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) get_item ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) storage) \"markets\") (None sender)) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 132)) attr (None parameter) \"cTokenBalance\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))) True) ((Some (\"contracts/Comptroller.py\" 192)) verify ((Some (\"contracts/Comptroller.py\" 192)) ge ((Some (\"contracts/Comptroller.py\" 190)) var \"compute_Comptroller_190\") ((Some (\"contracts/Comptroller.py\" 192)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 192)) literal (string \"CMPT_REDEEMER_SHORTFALL\"))))))) ((Some (\"contracts/Comptroller.py\" 764)) if_block ((Some (\"contracts/Comptroller.py\" 764)) contains ((Some (\"contracts/Comptroller.py\" 764)) attr ((Some (\"contracts/Comptroller.py\" 764)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 132)) attr (None parameter) \"account\")) (((Some (\"contracts/Comptroller.py\" 765)) set ((Some (\"contracts/Comptroller.py\" 765)) attr ((Some (\"contracts/Comptroller.py\" 765)) get_item ((Some (\"contracts/Comptroller.py\" 765)) attr ((Some (\"contracts/Comptroller.py\" 765)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 132)) attr (None parameter) \"account\")) \"valid\") ((Some (\"contracts/Comptroller.py\" 765)) literal (bool False))))) ((Some (\"contracts/Comptroller.py\" 133)) if_block ((Some (\"contracts/Comptroller.py\" 133)) and ((Some (\"contracts/Comptroller.py\" 133)) contains ((Some (\"contracts/Comptroller.py\" 133)) attr ((Some (\"contracts/Comptroller.py\" 133)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 132)) attr (None parameter) \"account\")) ((Some (\"contracts/Comptroller.py\" 133)) contains ((Some (\"contracts/Comptroller.py\" 133)) get_item ((Some (\"contracts/Comptroller.py\" 133)) attr ((Some (\"contracts/Comptroller.py\" 133)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 132)) attr (None parameter) \"account\")) (None sender))) (((Some (\"contracts/Comptroller.py\" 135)) update_set ((Some (\"contracts/Comptroller.py\" 135)) get_item ((Some (\"contracts/Comptroller.py\" 135)) attr ((Some (\"contracts/Comptroller.py\" 135)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 132)) attr (None parameter) \"account\")) (None sender) False))) ((Some (\"contracts/Comptroller.py\" 764)) if_block ((Some (\"contracts/Comptroller.py\" 764)) contains ((Some (\"contracts/Comptroller.py\" 764)) attr ((Some (\"contracts/Comptroller.py\" 764)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 132)) attr (None parameter) \"account\")) (((Some (\"contracts/Comptroller.py\" 765)) set ((Some (\"contracts/Comptroller.py\" 765)) attr ((Some (\"contracts/Comptroller.py\" 765)) get_item ((Some (\"contracts/Comptroller.py\" 765)) attr ((Some (\"contracts/Comptroller.py\" 765)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 132)) attr (None parameter) \"account\")) \"valid\") ((Some (\"contracts/Comptroller.py\" 765)) literal (bool False))))))) (setBorrowPaused True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 597)) (((Some (\"contracts/Comptroller.py\" 598)) verify ((Some (\"contracts/Comptroller.py\" 598)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 598)) MUL ((Some (\"contracts/Comptroller.py\" 598)) type_annotation ((Some (\"contracts/Comptroller.py\" 598)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 598)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 598)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 600)) set_type (None parameter) (record ((cToken \"address\") (state \"bool\")) Variable (Some (\"contracts/Comptroller.py\" 600)))) ((Some (\"contracts/Comptroller.py\" 741)) verify ((Some (\"contracts/Comptroller.py\" 741)) and ((Some (\"contracts/Comptroller.py\" 741)) contains ((Some (\"contracts/Comptroller.py\" 741)) attr ((Some (\"contracts/Comptroller.py\" 741)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 601)) attr (None parameter) \"cToken\")) ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) get_item ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 601)) attr (None parameter) \"cToken\")) \"isListed\")) ((Some (\"contracts/Comptroller.py\" 741)) literal (string \"CMPT_MARKET_NOT_LISTED\"))) ((Some (\"contracts/Comptroller.py\" 749)) verify ((Some (\"contracts/Comptroller.py\" 749)) eq (None sender) ((Some (\"contracts/Comptroller.py\" 749)) attr ((Some (\"contracts/Comptroller.py\" 749)) storage) \"administrator\")) ((Some (\"contracts/Comptroller.py\" 749)) literal (string \"CMPT_NOT_ADMIN\"))) ((Some (\"contracts/Comptroller.py\" 603)) set ((Some (\"contracts/Comptroller.py\" 603)) attr ((Some (\"contracts/Comptroller.py\" 603)) get_item ((Some (\"contracts/Comptroller.py\" 603)) attr ((Some (\"contracts/Comptroller.py\" 603)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 601)) attr (None parameter) \"cToken\")) \"borrowPaused\") ((Some (\"contracts/Comptroller.py\" 603)) attr (None parameter) \"state\")))) (setCloseFactor True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 646)) (((Some (\"contracts/Comptroller.py\" 647)) verify ((Some (\"contracts/Comptroller.py\" 647)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 647)) MUL ((Some (\"contracts/Comptroller.py\" 647)) type_annotation ((Some (\"contracts/Comptroller.py\" 647)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 647)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 647)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 649)) set_type (None parameter) \"nat\") ((Some (\"contracts/Comptroller.py\" 749)) verify ((Some (\"contracts/Comptroller.py\" 749)) eq (None sender) ((Some (\"contracts/Comptroller.py\" 749)) attr ((Some (\"contracts/Comptroller.py\" 749)) storage) \"administrator\")) ((Some (\"contracts/Comptroller.py\" 749)) literal (string \"CMPT_NOT_ADMIN\"))) ((Some (\"contracts/Comptroller.py\" 651)) set ((Some (\"contracts/Comptroller.py\" 651)) attr ((Some (\"contracts/Comptroller.py\" 651)) storage) \"closeFactorMantissa\") (None parameter)))) (setCollateralFactor True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 663)) (((Some (\"contracts/Comptroller.py\" 664)) verify ((Some (\"contracts/Comptroller.py\" 664)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 664)) MUL ((Some (\"contracts/Comptroller.py\" 664)) type_annotation ((Some (\"contracts/Comptroller.py\" 664)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 664)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 664)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 666)) set_type (None parameter) (record ((cToken \"address\") (newCollateralFactor \"nat\")) Variable (Some (\"contracts/Comptroller.py\" 666)))) ((Some (\"contracts/Comptroller.py\" 749)) verify ((Some (\"contracts/Comptroller.py\" 749)) eq (None sender) ((Some (\"contracts/Comptroller.py\" 749)) attr ((Some (\"contracts/Comptroller.py\" 749)) storage) \"administrator\")) ((Some (\"contracts/Comptroller.py\" 749)) literal (string \"CMPT_NOT_ADMIN\"))) ((Some (\"contracts/Comptroller.py\" 741)) verify ((Some (\"contracts/Comptroller.py\" 741)) and ((Some (\"contracts/Comptroller.py\" 741)) contains ((Some (\"contracts/Comptroller.py\" 741)) attr ((Some (\"contracts/Comptroller.py\" 741)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 669)) attr (None parameter) \"cToken\")) ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) get_item ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 669)) attr (None parameter) \"cToken\")) \"isListed\")) ((Some (\"contracts/Comptroller.py\" 741)) literal (string \"CMPT_MARKET_NOT_LISTED\"))) ((Some (\"contracts/Comptroller.py\" 670)) set ((Some (\"contracts/Comptroller.py\" 670)) attr ((Some (\"contracts/Comptroller.py\" 670)) attr ((Some (\"contracts/Comptroller.py\" 670)) get_item ((Some (\"contracts/Comptroller.py\" 670)) attr ((Some (\"contracts/Comptroller.py\" 670)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 669)) attr (None parameter) \"cToken\")) \"collateralFactor\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 670)) attr (None parameter) \"newCollateralFactor\")))) (setLiquidationIncentive True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 680)) (((Some (\"contracts/Comptroller.py\" 681)) verify ((Some (\"contracts/Comptroller.py\" 681)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 681)) MUL ((Some (\"contracts/Comptroller.py\" 681)) type_annotation ((Some (\"contracts/Comptroller.py\" 681)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 681)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 681)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 683)) set_type (None parameter) \"nat\") ((Some (\"contracts/Comptroller.py\" 749)) verify ((Some (\"contracts/Comptroller.py\" 749)) eq (None sender) ((Some (\"contracts/Comptroller.py\" 749)) attr ((Some (\"contracts/Comptroller.py\" 749)) storage) \"administrator\")) ((Some (\"contracts/Comptroller.py\" 749)) literal (string \"CMPT_NOT_ADMIN\"))) ((Some (\"contracts/Comptroller.py\" 685)) set ((Some (\"contracts/Comptroller.py\" 685)) attr ((Some (\"contracts/Comptroller.py\" 685)) storage) \"liquidationIncentiveMantissa\") (None parameter)))) (setMintPaused True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 579)) (((Some (\"contracts/Comptroller.py\" 580)) verify ((Some (\"contracts/Comptroller.py\" 580)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 580)) MUL ((Some (\"contracts/Comptroller.py\" 580)) type_annotation ((Some (\"contracts/Comptroller.py\" 580)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 580)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 580)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 582)) set_type (None parameter) (record ((cToken \"address\") (state \"bool\")) Variable (Some (\"contracts/Comptroller.py\" 582)))) ((Some (\"contracts/Comptroller.py\" 741)) verify ((Some (\"contracts/Comptroller.py\" 741)) and ((Some (\"contracts/Comptroller.py\" 741)) contains ((Some (\"contracts/Comptroller.py\" 741)) attr ((Some (\"contracts/Comptroller.py\" 741)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 583)) attr (None parameter) \"cToken\")) ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) get_item ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 583)) attr (None parameter) \"cToken\")) \"isListed\")) ((Some (\"contracts/Comptroller.py\" 741)) literal (string \"CMPT_MARKET_NOT_LISTED\"))) ((Some (\"contracts/Comptroller.py\" 749)) verify ((Some (\"contracts/Comptroller.py\" 749)) eq (None sender) ((Some (\"contracts/Comptroller.py\" 749)) attr ((Some (\"contracts/Comptroller.py\" 749)) storage) \"administrator\")) ((Some (\"contracts/Comptroller.py\" 749)) literal (string \"CMPT_NOT_ADMIN\"))) ((Some (\"contracts/Comptroller.py\" 585)) set ((Some (\"contracts/Comptroller.py\" 585)) attr ((Some (\"contracts/Comptroller.py\" 585)) get_item ((Some (\"contracts/Comptroller.py\" 585)) attr ((Some (\"contracts/Comptroller.py\" 585)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 583)) attr (None parameter) \"cToken\")) \"mintPaused\") ((Some (\"contracts/Comptroller.py\" 585)) attr (None parameter) \"state\")))) (setPendingGovernance True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 545)) (((Some (\"contracts/Comptroller.py\" 546)) verify ((Some (\"contracts/Comptroller.py\" 546)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 546)) MUL ((Some (\"contracts/Comptroller.py\" 546)) type_annotation ((Some (\"contracts/Comptroller.py\" 546)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 546)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 546)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 548)) set_type (None parameter) \"address\") ((Some (\"contracts/Comptroller.py\" 749)) verify ((Some (\"contracts/Comptroller.py\" 749)) eq (None sender) ((Some (\"contracts/Comptroller.py\" 749)) attr ((Some (\"contracts/Comptroller.py\" 749)) storage) \"administrator\")) ((Some (\"contracts/Comptroller.py\" 749)) literal (string \"CMPT_NOT_ADMIN\"))) ((Some (\"contracts/Comptroller.py\" 550)) set ((Some (\"contracts/Comptroller.py\" 550)) attr ((Some (\"contracts/Comptroller.py\" 550)) storage) \"pendingAdministrator\") ((Some (\"contracts/Comptroller.py\" 550)) variant \"Some\" (None parameter))))) (setPriceOracleAndTimeDiff True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 630)) (((Some (\"contracts/Comptroller.py\" 631)) verify ((Some (\"contracts/Comptroller.py\" 631)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 631)) MUL ((Some (\"contracts/Comptroller.py\" 631)) type_annotation ((Some (\"contracts/Comptroller.py\" 631)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 631)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 631)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 633)) set_type (None parameter) (record ((priceOracle \"address\") (timeDiff \"int\")) Variable (Some (\"contracts/Comptroller.py\" 633)))) ((Some (\"contracts/Comptroller.py\" 749)) verify ((Some (\"contracts/Comptroller.py\" 749)) eq (None sender) ((Some (\"contracts/Comptroller.py\" 749)) attr ((Some (\"contracts/Comptroller.py\" 749)) storage) \"administrator\")) ((Some (\"contracts/Comptroller.py\" 749)) literal (string \"CMPT_NOT_ADMIN\"))) ((Some (\"contracts/Comptroller.py\" 635)) set ((Some (\"contracts/Comptroller.py\" 635)) attr ((Some (\"contracts/Comptroller.py\" 635)) storage) \"maxPriceTimeDifference\") ((Some (\"contracts/Comptroller.py\" 635)) attr (None parameter) \"timeDiff\")) ((Some (\"contracts/Comptroller.py\" 636)) set ((Some (\"contracts/Comptroller.py\" 636)) attr ((Some (\"contracts/Comptroller.py\" 636)) storage) \"oracleAddress\") ((Some (\"contracts/Comptroller.py\" 636)) attr (None parameter) \"priceOracle\")))) (setTransferPaused True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 613)) (((Some (\"contracts/Comptroller.py\" 614)) verify ((Some (\"contracts/Comptroller.py\" 614)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 614)) MUL ((Some (\"contracts/Comptroller.py\" 614)) type_annotation ((Some (\"contracts/Comptroller.py\" 614)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 614)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 614)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 616)) set_type (None parameter) \"bool\") ((Some (\"contracts/Comptroller.py\" 749)) verify ((Some (\"contracts/Comptroller.py\" 749)) eq (None sender) ((Some (\"contracts/Comptroller.py\" 749)) attr ((Some (\"contracts/Comptroller.py\" 749)) storage) \"administrator\")) ((Some (\"contracts/Comptroller.py\" 749)) literal (string \"CMPT_NOT_ADMIN\"))) ((Some (\"contracts/Comptroller.py\" 618)) set ((Some (\"contracts/Comptroller.py\" 618)) attr ((Some (\"contracts/Comptroller.py\" 618)) storage) \"transferPaused\") (None parameter)))) (supportMarket True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 698)) (((Some (\"contracts/Comptroller.py\" 699)) verify ((Some (\"contracts/Comptroller.py\" 699)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 699)) MUL ((Some (\"contracts/Comptroller.py\" 699)) type_annotation ((Some (\"contracts/Comptroller.py\" 699)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 699)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 699)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 701)) set_type (None parameter) (record ((cToken \"address\") (name \"string\") (priceExp \"nat\")) Variable (Some (\"contracts/Comptroller.py\" 701)))) ((Some (\"contracts/Comptroller.py\" 749)) verify ((Some (\"contracts/Comptroller.py\" 749)) eq (None sender) ((Some (\"contracts/Comptroller.py\" 749)) attr ((Some (\"contracts/Comptroller.py\" 749)) storage) \"administrator\")) ((Some (\"contracts/Comptroller.py\" 749)) literal (string \"CMPT_NOT_ADMIN\"))) ((Some (\"contracts/Comptroller.py\" 745)) verify ((Some (\"contracts/Comptroller.py\" 745)) not ((Some (\"contracts/Comptroller.py\" 745)) and ((Some (\"contracts/Comptroller.py\" 745)) contains ((Some (\"contracts/Comptroller.py\" 745)) attr ((Some (\"contracts/Comptroller.py\" 745)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 704)) attr (None parameter) \"cToken\")) ((Some (\"contracts/Comptroller.py\" 746)) attr ((Some (\"contracts/Comptroller.py\" 746)) get_item ((Some (\"contracts/Comptroller.py\" 746)) attr ((Some (\"contracts/Comptroller.py\" 746)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 704)) attr (None parameter) \"cToken\")) \"isListed\"))) ((Some (\"contracts/Comptroller.py\" 745)) literal (string \"CMPT_MARKET_ALREADY_LISTED\"))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/Comptroller.py\" 707)) literal (nat 500000000000000000)) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/Comptroller.py\" 713)) literal (nat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 705)) set ((Some (\"contracts/Comptroller.py\" 705)) get_item ((Some (\"contracts/Comptroller.py\" 705)) attr ((Some (\"contracts/Comptroller.py\" 705)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 704)) attr (None parameter) \"cToken\")) ((Some (\"contracts/Comptroller.py\" 705)) record (borrowPaused ((Some (\"contracts/Comptroller.py\" 709)) literal (bool True))) (collateralFactor ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/Comptroller.py\" 707)) literal (nat 500000000000000000))))) (isListed ((Some (\"contracts/Comptroller.py\" 705)) literal (bool True))) (mintPaused ((Some (\"contracts/Comptroller.py\" 708)) literal (bool True))) (name ((Some (\"contracts/Comptroller.py\" 711)) attr (None parameter) \"name\")) (price ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/Comptroller.py\" 713)) literal (nat 0))))) (priceExp ((Some (\"contracts/Comptroller.py\" 714)) attr (None parameter) \"priceExp\")) (priceTimestamp ((Some (\"contracts/Comptroller.py\" 716)) literal (timestamp 0))) (updateLevel ((Some (\"contracts/Comptroller.py\" 715)) literal (nat 0))))) ((Some (\"contracts/Comptroller.py\" 717)) set ((Some (\"contracts/Comptroller.py\" 717)) get_item ((Some (\"contracts/Comptroller.py\" 717)) attr ((Some (\"contracts/Comptroller.py\" 717)) storage) \"marketNameToAddress\") ((Some (\"contracts/Comptroller.py\" 717)) add ((Some (\"contracts/Comptroller.py\" 711)) attr (None parameter) \"name\") ((Some (\"contracts/Comptroller.py\" 717)) literal (string \"-USD\")))) ((Some (\"contracts/Comptroller.py\" 704)) attr (None parameter) \"cToken\")))) (sweepFA12 True None None None True None (Some (\"contracts/utils/SweepTokens.py\" 35)) (((Some (\"contracts/utils/SweepTokens.py\" 36)) set_type (None parameter) (record ((amount \"nat\") (tokenAddress \"address\")) Variable (Some (\"contracts/utils/SweepTokens.py\" 36)))) ((Some (\"contracts/utils/TransferTokens.py\" 19)) set ((Some (\"contracts/utils/TransferTokens.py\" 19)) operations) ((Some (\"contracts/utils/TransferTokens.py\" 19)) cons ((Some (\"contracts/utils/TransferTokens.py\" 19)) transfer ((Some (\"contracts/utils/TransferTokens.py\" 6)) record (from_ (None self_address)) (to_ ((Some (\"contracts/utils/SweepTokens.py\" 39)) attr ((Some (\"contracts/utils/SweepTokens.py\" 39)) storage) \"administrator\")) (value ((Some (\"contracts/utils/SweepTokens.py\" 40)) attr (None parameter) \"amount\"))) ((Some (\"contracts/utils/TransferTokens.py\" 19)) literal (mutez 0)) ((Some (\"contracts/utils/TransferTokens.py\" 17)) open_variant ((Some (\"contracts/utils/TransferTokens.py\" 12)) contract \"transfer\" (record ((from_ \"address\") (to_ \"address\") (value \"nat\")) (Value ((\"from_ as from\") ((\"to_ as to\") (\"value\")))) (Some (\"contracts/utils/TransferTokens.py\" 13))) ((Some (\"contracts/utils/SweepTokens.py\" 38)) attr (None parameter) \"tokenAddress\")) \"Some\" \"None\")) ((Some (\"contracts/utils/TransferTokens.py\" 19)) operations))))) (sweepFA2 True None None None True None (Some (\"contracts/utils/SweepTokens.py\" 51)) (((Some (\"contracts/utils/SweepTokens.py\" 52)) set_type (None parameter) (record ((amount \"nat\") (id \"nat\") (tokenAddress \"address\")) Variable (Some (\"contracts/utils/SweepTokens.py\" 52)))) ((Some (\"contracts/utils/TransferTokens.py\" 45)) set ((Some (\"contracts/utils/TransferTokens.py\" 45)) operations) ((Some (\"contracts/utils/TransferTokens.py\" 45)) cons ((Some (\"contracts/utils/TransferTokens.py\" 45)) transfer ((Some (\"contracts/utils/TransferTokens.py\" 45)) list ((Some (\"contracts/utils/TransferTokens.py\" 26)) record (from_ (None self_address)) (txs ((Some (\"contracts/utils/TransferTokens.py\" 26)) list ((Some (\"contracts/utils/TransferTokens.py\" 29)) record (amount ((Some (\"contracts/utils/SweepTokens.py\" 56)) attr (None parameter) \"amount\")) (to_ ((Some (\"contracts/utils/SweepTokens.py\" 55)) attr ((Some (\"contracts/utils/SweepTokens.py\" 55)) storage) \"administrator\")) (token_id ((Some (\"contracts/utils/SweepTokens.py\" 54)) attr (None parameter) \"id\"))))))) ((Some (\"contracts/utils/TransferTokens.py\" 45)) literal (mutez 0)) ((Some (\"contracts/utils/TransferTokens.py\" 43)) open_variant ((Some (\"contracts/utils/TransferTokens.py\" 38)) contract \"transfer\" (list (record ((from_ \"address\") (txs (list (record ((amount \"nat\") (to_ \"address\") (token_id \"nat\")) (Value ((\"to_\") ((\"token_id\") (\"amount\")))) (Some (\"contracts/utils/TransferTokens.py\" 22)))))) (Value ((\"from_\") (\"txs\"))) (Some (\"contracts/utils/TransferTokens.py\" 40)))) ((Some (\"contracts/utils/SweepTokens.py\" 54)) attr (None parameter) \"tokenAddress\")) \"Some\" \"None\")) ((Some (\"contracts/utils/TransferTokens.py\" 45)) operations))))) (sweepMutez True None None None True None (Some (\"contracts/utils/SweepTokens.py\" 16)) (((Some (\"contracts/utils/SweepTokens.py\" 17)) set_type (None parameter) \"bool\") ((Some (\"contracts/utils/SweepTokens.py\" 19)) if_block (None parameter) (((Some (\"contracts/utils/SweepTokens.py\" 22)) set ((Some (\"contracts/utils/SweepTokens.py\" 22)) operations) ((Some (\"contracts/utils/SweepTokens.py\" 22)) cons ((Some (\"contracts/utils/SweepTokens.py\" 22)) transfer (None literal (unit)) (None balance) ((Some (\"contracts/utils/SweepTokens.py\" 21)) open_variant ((Some (\"contracts/utils/SweepTokens.py\" 20)) contract \"receive\" \"unit\" ((Some (\"contracts/utils/SweepTokens.py\" 21)) attr ((Some (\"contracts/utils/SweepTokens.py\" 21)) storage) \"administrator\")) \"Some\" \"None\")) ((Some (\"contracts/utils/SweepTokens.py\" 22)) operations))))) (else_block (((Some (\"contracts/utils/SweepTokens.py\" 24)) set ((Some (\"contracts/utils/SweepTokens.py\" 24)) operations) ((Some (\"contracts/utils/SweepTokens.py\" 24)) cons ((Some (\"contracts/utils/SweepTokens.py\" 24)) transfer (None literal (unit)) (None balance) ((Some (\"contracts/utils/SweepTokens.py\" 24)) open_variant ((Some (\"contracts/utils/SweepTokens.py\" 24)) contract \"\" \"unit\" ((Some (\"contracts/utils/SweepTokens.py\" 24)) attr ((Some (\"contracts/utils/SweepTokens.py\" 24)) storage) \"administrator\")) \"Some\" \"None\")) ((Some (\"contracts/utils/SweepTokens.py\" 24)) operations))))))) (transferAllowed True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 274)) (((Some (\"contracts/Comptroller.py\" 275)) verify ((Some (\"contracts/Comptroller.py\" 275)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 275)) MUL ((Some (\"contracts/Comptroller.py\" 275)) type_annotation ((Some (\"contracts/Comptroller.py\" 275)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 275)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 275)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 277)) set_type (None parameter) (record ((cToken \"address\") (dst \"address\") (src \"address\") (transferTokens \"nat\")) (Value (((\"cToken\") (\"src\")) ((\"dst\") (\"transferTokens\")))) (Some (\"contracts/interfaces/ComptrollerInterface.py\" 16)))) ((Some (\"contracts/Comptroller.py\" 278)) verify ((Some (\"contracts/Comptroller.py\" 278)) not ((Some (\"contracts/Comptroller.py\" 278)) attr ((Some (\"contracts/Comptroller.py\" 278)) storage) \"transferPaused\")) ((Some (\"contracts/Comptroller.py\" 278)) literal (string \"CMPT_TRANSFER_PAUSED\"))) ((Some (\"contracts/Comptroller.py\" 741)) verify ((Some (\"contracts/Comptroller.py\" 741)) and ((Some (\"contracts/Comptroller.py\" 741)) contains ((Some (\"contracts/Comptroller.py\" 741)) attr ((Some (\"contracts/Comptroller.py\" 741)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"cToken\")) ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) get_item ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"cToken\")) \"isListed\")) ((Some (\"contracts/Comptroller.py\" 741)) literal (string \"CMPT_MARKET_NOT_LISTED\"))) ((Some (\"contracts/Comptroller.py\" 180)) if_block ((Some (\"contracts/Comptroller.py\" 180)) and ((Some (\"contracts/Comptroller.py\" 180)) contains ((Some (\"contracts/Comptroller.py\" 180)) attr ((Some (\"contracts/Comptroller.py\" 180)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"src\")) ((Some (\"contracts/Comptroller.py\" 180)) contains ((Some (\"contracts/Comptroller.py\" 180)) get_item ((Some (\"contracts/Comptroller.py\" 180)) attr ((Some (\"contracts/Comptroller.py\" 180)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"src\")) ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"cToken\"))) (((Some (\"contracts/Comptroller.py\" 182)) if_block ((Some (\"contracts/Comptroller.py\" 182)) and ((Some (\"contracts/Comptroller.py\" 182)) contains ((Some (\"contracts/Comptroller.py\" 182)) attr ((Some (\"contracts/Comptroller.py\" 182)) storage) \"loans\") ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"src\")) ((Some (\"contracts/Comptroller.py\" 182)) neq ((Some (\"contracts/Comptroller.py\" 182)) size ((Some (\"contracts/Comptroller.py\" 182)) get_item ((Some (\"contracts/Comptroller.py\" 182)) attr ((Some (\"contracts/Comptroller.py\" 182)) storage) \"loans\") ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"src\"))) ((Some (\"contracts/Comptroller.py\" 182)) literal (intOrNat 0)))) (((Some (\"contracts/Comptroller.py\" 755)) verify ((Some (\"contracts/Comptroller.py\" 755)) contains ((Some (\"contracts/Comptroller.py\" 755)) attr ((Some (\"contracts/Comptroller.py\" 755)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"src\")) ((Some (\"contracts/Comptroller.py\" 755)) literal (string \"CMPT_LIQUIDITY_ABSENT\"))) ((Some (\"contracts/Comptroller.py\" 757)) verify ((Some (\"contracts/Comptroller.py\" 758)) attr ((Some (\"contracts/Comptroller.py\" 758)) get_item ((Some (\"contracts/Comptroller.py\" 758)) attr ((Some (\"contracts/Comptroller.py\" 758)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"src\")) \"valid\") ((Some (\"contracts/Comptroller.py\" 757)) literal (string \"CMPT_LIQUIDITY_INVALID\"))) ((Some (\"contracts/utils/Exponential.py\" 193)) set_type (None level) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/Comptroller.py\" 760)) attr ((Some (\"contracts/Comptroller.py\" 760)) get_item ((Some (\"contracts/Comptroller.py\" 760)) attr ((Some (\"contracts/Comptroller.py\" 760)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"src\")) \"updateLevel\") \"nat\") ((Some (\"contracts/Comptroller.py\" 759)) define_local \"compute_Comptroller_759\" ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub (None level) ((Some (\"contracts/Comptroller.py\" 760)) attr ((Some (\"contracts/Comptroller.py\" 760)) get_item ((Some (\"contracts/Comptroller.py\" 760)) attr ((Some (\"contracts/Comptroller.py\" 760)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"src\")) \"updateLevel\"))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) True) ((Some (\"contracts/Comptroller.py\" 761)) verify ((Some (\"contracts/Comptroller.py\" 761)) eq ((Some (\"contracts/Comptroller.py\" 759)) var \"compute_Comptroller_759\") ((Some (\"contracts/Comptroller.py\" 761)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 761)) literal (string \"CMPT_LIQUIDITY_OLD\"))) ((Some (\"contracts/Comptroller.py\" 306)) verify ((Some (\"contracts/Comptroller.py\" 306)) eq (None level) ((Some (\"contracts/Comptroller.py\" 306)) attr ((Some (\"contracts/Comptroller.py\" 306)) get_item ((Some (\"contracts/Comptroller.py\" 306)) attr ((Some (\"contracts/Comptroller.py\" 306)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"cToken\")) \"updateLevel\")) ((Some (\"contracts/Comptroller.py\" 306)) literal (string \"CMPT_UPDATE_PRICE\"))) ((Some (\"contracts/Comptroller.py\" 225)) verify ((Some (\"contracts/Comptroller.py\" 225)) gt ((Some (\"contracts/Comptroller.py\" 225)) attr ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) get_item ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"cToken\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 225)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 225)) literal (string \"CMPT_INVALID_PRICE\"))) ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) get_item ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"cToken\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) get_item ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"cToken\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"transferTokens\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) get_item ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"cToken\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"transferTokens\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) get_item ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"cToken\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"transferTokens\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 190)) define_local \"compute_Comptroller_190\" ((Some (\"contracts/Comptroller.py\" 190)) sub ((Some (\"contracts/Comptroller.py\" 190)) attr ((Some (\"contracts/Comptroller.py\" 190)) get_item ((Some (\"contracts/Comptroller.py\" 190)) attr ((Some (\"contracts/Comptroller.py\" 190)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"src\")) \"liquidity\") ((Some (\"contracts/Comptroller.py\" 190)) to_int ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) get_item ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"cToken\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"transferTokens\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))) True) ((Some (\"contracts/Comptroller.py\" 192)) verify ((Some (\"contracts/Comptroller.py\" 192)) ge ((Some (\"contracts/Comptroller.py\" 190)) var \"compute_Comptroller_190\") ((Some (\"contracts/Comptroller.py\" 192)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 192)) literal (string \"CMPT_REDEEMER_SHORTFALL\"))))))) ((Some (\"contracts/Comptroller.py\" 764)) if_block ((Some (\"contracts/Comptroller.py\" 764)) contains ((Some (\"contracts/Comptroller.py\" 764)) attr ((Some (\"contracts/Comptroller.py\" 764)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"src\")) (((Some (\"contracts/Comptroller.py\" 765)) set ((Some (\"contracts/Comptroller.py\" 765)) attr ((Some (\"contracts/Comptroller.py\" 765)) get_item ((Some (\"contracts/Comptroller.py\" 765)) attr ((Some (\"contracts/Comptroller.py\" 765)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"src\")) \"valid\") ((Some (\"contracts/Comptroller.py\" 765)) literal (bool False))))))) (updateAccountLiquidityWithView True None None None True None (Some (\"contracts/Comptroller.py\" 315)) (((Some (\"contracts/Comptroller.py\" 316)) verify ((Some (\"contracts/Comptroller.py\" 316)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 316)) MUL ((Some (\"contracts/Comptroller.py\" 316)) type_annotation ((Some (\"contracts/Comptroller.py\" 316)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 316)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 316)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 318)) set_type (None parameter) \"address\") ((Some (\"contracts/Comptroller.py\" 292)) for_group \"asset\" ((Some (\"contracts/Comptroller.py\" 292)) values ((Some (\"contracts/Comptroller.py\" 292)) attr ((Some (\"contracts/Comptroller.py\" 292)) storage) \"marketNameToAddress\")) (((Some (\"contracts/Comptroller.py\" 293)) if_block ((Some (\"contracts/Comptroller.py\" 293)) lt ((Some (\"contracts/Comptroller.py\" 293)) attr ((Some (\"contracts/Comptroller.py\" 293)) get_item ((Some (\"contracts/Comptroller.py\" 293)) attr ((Some (\"contracts/Comptroller.py\" 293)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 292)) var \"asset\")) \"updateLevel\") (None level)) (((Some (\"contracts/Comptroller.py\" 294)) define_local \"pricePair\" ((Some (\"contracts/Comptroller.py\" 296)) open_variant ((Some (\"contracts/Comptroller.py\" 295)) view \"getPrice\" ((Some (\"contracts/Comptroller.py\" 295)) add ((Some (\"contracts/Comptroller.py\" 295)) attr ((Some (\"contracts/Comptroller.py\" 295)) get_item ((Some (\"contracts/Comptroller.py\" 295)) attr ((Some (\"contracts/Comptroller.py\" 295)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 292)) var \"asset\")) \"name\") ((Some (\"contracts/Comptroller.py\" 295)) literal (string \"-USD\"))) ((Some (\"contracts/Comptroller.py\" 295)) attr ((Some (\"contracts/Comptroller.py\" 295)) storage) \"oracleAddress\") (tuple \"timestamp\" \"nat\")) \"Some\" ((Some (\"contracts/Comptroller.py\" 296)) literal (string \"invalid oracle view call\"))) True) ((Some (\"contracts/Comptroller.py\" 298)) if_block ((Some (\"contracts/Comptroller.py\" 298)) neq ((Some (\"contracts/Comptroller.py\" 298)) attr ((Some (\"contracts/Comptroller.py\" 298)) get_item ((Some (\"contracts/Comptroller.py\" 298)) attr ((Some (\"contracts/Comptroller.py\" 298)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 292)) var \"asset\")) \"priceTimestamp\") ((Some (\"contracts/Comptroller.py\" 298)) literal (timestamp 0))) (((Some (\"contracts/Comptroller.py\" 299)) verify ((Some (\"contracts/Comptroller.py\" 299)) le ((Some (\"contracts/Comptroller.py\" 299)) sub (None now) ((Some (\"contracts/Comptroller.py\" 299)) first ((Some (\"contracts/Comptroller.py\" 299)) var \"pricePair\"))) ((Some (\"contracts/Comptroller.py\" 299)) attr ((Some (\"contracts/Comptroller.py\" 299)) storage) \"maxPriceTimeDifference\")) ((Some (\"contracts/Comptroller.py\" 299)) literal (string \"STALE_ASSET_PRICE\"))))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/Comptroller.py\" 301)) mul_homo ((Some (\"contracts/Comptroller.py\" 301)) second ((Some (\"contracts/Comptroller.py\" 301)) var \"pricePair\")) ((Some (\"contracts/Comptroller.py\" 301)) attr ((Some (\"contracts/Comptroller.py\" 301)) get_item ((Some (\"contracts/Comptroller.py\" 301)) attr ((Some (\"contracts/Comptroller.py\" 301)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 292)) var \"asset\")) \"priceExp\")) \"nat\") ((Some (\"contracts/Comptroller.py\" 300)) set ((Some (\"contracts/Comptroller.py\" 300)) attr ((Some (\"contracts/Comptroller.py\" 300)) get_item ((Some (\"contracts/Comptroller.py\" 300)) attr ((Some (\"contracts/Comptroller.py\" 300)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 292)) var \"asset\")) \"price\") ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/Comptroller.py\" 301)) mul_homo ((Some (\"contracts/Comptroller.py\" 301)) second ((Some (\"contracts/Comptroller.py\" 301)) var \"pricePair\")) ((Some (\"contracts/Comptroller.py\" 301)) attr ((Some (\"contracts/Comptroller.py\" 301)) get_item ((Some (\"contracts/Comptroller.py\" 301)) attr ((Some (\"contracts/Comptroller.py\" 301)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 292)) var \"asset\")) \"priceExp\"))))) ((Some (\"contracts/Comptroller.py\" 302)) set ((Some (\"contracts/Comptroller.py\" 302)) attr ((Some (\"contracts/Comptroller.py\" 302)) get_item ((Some (\"contracts/Comptroller.py\" 302)) attr ((Some (\"contracts/Comptroller.py\" 302)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 292)) var \"asset\")) \"priceTimestamp\") ((Some (\"contracts/Comptroller.py\" 302)) first ((Some (\"contracts/Comptroller.py\" 302)) var \"pricePair\"))) ((Some (\"contracts/Comptroller.py\" 303)) set ((Some (\"contracts/Comptroller.py\" 303)) attr ((Some (\"contracts/Comptroller.py\" 303)) get_item ((Some (\"contracts/Comptroller.py\" 303)) attr ((Some (\"contracts/Comptroller.py\" 303)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 292)) var \"asset\")) \"updateLevel\") (None level)))))) ((Some (\"contracts/Comptroller.py\" 345)) for_group \"asset\" ((Some (\"contracts/Comptroller.py\" 345)) values ((Some (\"contracts/Comptroller.py\" 345)) attr ((Some (\"contracts/Comptroller.py\" 345)) storage) \"marketNameToAddress\")) (((Some (\"contracts/Comptroller.py\" 346)) set ((Some (\"contracts/Comptroller.py\" 346)) operations) ((Some (\"contracts/Comptroller.py\" 346)) cons ((Some (\"contracts/Comptroller.py\" 346)) transfer (None literal (unit)) ((Some (\"contracts/Comptroller.py\" 346)) literal (mutez 0)) ((Some (\"contracts/Comptroller.py\" 347)) open_variant ((Some (\"contracts/Comptroller.py\" 346)) contract \"accrueInterest\" \"unit\" ((Some (\"contracts/Comptroller.py\" 345)) var \"asset\")) \"Some\" \"None\")) ((Some (\"contracts/Comptroller.py\" 346)) operations))))) ((Some (\"contracts/utils/OperationProtector.py\" 46)) update_set ((Some (\"contracts/utils/OperationProtector.py\" 46)) attr ((Some (\"contracts/utils/OperationProtector.py\" 46)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 31)) literal (nat 4)) True) ((Some (\"contracts/Comptroller.py\" 322)) set ((Some (\"contracts/Comptroller.py\" 322)) operations) ((Some (\"contracts/Comptroller.py\" 322)) cons ((Some (\"contracts/Comptroller.py\" 322)) transfer (None parameter) ((Some (\"contracts/Comptroller.py\" 322)) literal (mutez 0)) ((Some (\"contracts/Comptroller.py\" 322)) self \"setAccountLiquidityWithView\")) ((Some (\"contracts/Comptroller.py\" 322)) operations))))) (updateAllAssetPricesWithView True None None None False None (Some (\"contracts/Comptroller.py\" 286)) (((Some (\"contracts/Comptroller.py\" 287)) verify ((Some (\"contracts/Comptroller.py\" 287)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 287)) MUL ((Some (\"contracts/Comptroller.py\" 287)) type_annotation ((Some (\"contracts/Comptroller.py\" 287)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 287)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 287)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 292)) for_group \"asset\" ((Some (\"contracts/Comptroller.py\" 292)) values ((Some (\"contracts/Comptroller.py\" 292)) attr ((Some (\"contracts/Comptroller.py\" 292)) storage) \"marketNameToAddress\")) (((Some (\"contracts/Comptroller.py\" 293)) if_block ((Some (\"contracts/Comptroller.py\" 293)) lt ((Some (\"contracts/Comptroller.py\" 293)) attr ((Some (\"contracts/Comptroller.py\" 293)) get_item ((Some (\"contracts/Comptroller.py\" 293)) attr ((Some (\"contracts/Comptroller.py\" 293)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 292)) var \"asset\")) \"updateLevel\") (None level)) (((Some (\"contracts/Comptroller.py\" 294)) define_local \"pricePair\" ((Some (\"contracts/Comptroller.py\" 296)) open_variant ((Some (\"contracts/Comptroller.py\" 295)) view \"getPrice\" ((Some (\"contracts/Comptroller.py\" 295)) add ((Some (\"contracts/Comptroller.py\" 295)) attr ((Some (\"contracts/Comptroller.py\" 295)) get_item ((Some (\"contracts/Comptroller.py\" 295)) attr ((Some (\"contracts/Comptroller.py\" 295)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 292)) var \"asset\")) \"name\") ((Some (\"contracts/Comptroller.py\" 295)) literal (string \"-USD\"))) ((Some (\"contracts/Comptroller.py\" 295)) attr ((Some (\"contracts/Comptroller.py\" 295)) storage) \"oracleAddress\") (tuple \"timestamp\" \"nat\")) \"Some\" ((Some (\"contracts/Comptroller.py\" 296)) literal (string \"invalid oracle view call\"))) True) ((Some (\"contracts/Comptroller.py\" 298)) if_block ((Some (\"contracts/Comptroller.py\" 298)) neq ((Some (\"contracts/Comptroller.py\" 298)) attr ((Some (\"contracts/Comptroller.py\" 298)) get_item ((Some (\"contracts/Comptroller.py\" 298)) attr ((Some (\"contracts/Comptroller.py\" 298)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 292)) var \"asset\")) \"priceTimestamp\") ((Some (\"contracts/Comptroller.py\" 298)) literal (timestamp 0))) (((Some (\"contracts/Comptroller.py\" 299)) verify ((Some (\"contracts/Comptroller.py\" 299)) le ((Some (\"contracts/Comptroller.py\" 299)) sub (None now) ((Some (\"contracts/Comptroller.py\" 299)) first ((Some (\"contracts/Comptroller.py\" 299)) var \"pricePair\"))) ((Some (\"contracts/Comptroller.py\" 299)) attr ((Some (\"contracts/Comptroller.py\" 299)) storage) \"maxPriceTimeDifference\")) ((Some (\"contracts/Comptroller.py\" 299)) literal (string \"STALE_ASSET_PRICE\"))))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/Comptroller.py\" 301)) mul_homo ((Some (\"contracts/Comptroller.py\" 301)) second ((Some (\"contracts/Comptroller.py\" 301)) var \"pricePair\")) ((Some (\"contracts/Comptroller.py\" 301)) attr ((Some (\"contracts/Comptroller.py\" 301)) get_item ((Some (\"contracts/Comptroller.py\" 301)) attr ((Some (\"contracts/Comptroller.py\" 301)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 292)) var \"asset\")) \"priceExp\")) \"nat\") ((Some (\"contracts/Comptroller.py\" 300)) set ((Some (\"contracts/Comptroller.py\" 300)) attr ((Some (\"contracts/Comptroller.py\" 300)) get_item ((Some (\"contracts/Comptroller.py\" 300)) attr ((Some (\"contracts/Comptroller.py\" 300)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 292)) var \"asset\")) \"price\") ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/Comptroller.py\" 301)) mul_homo ((Some (\"contracts/Comptroller.py\" 301)) second ((Some (\"contracts/Comptroller.py\" 301)) var \"pricePair\")) ((Some (\"contracts/Comptroller.py\" 301)) attr ((Some (\"contracts/Comptroller.py\" 301)) get_item ((Some (\"contracts/Comptroller.py\" 301)) attr ((Some (\"contracts/Comptroller.py\" 301)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 292)) var \"asset\")) \"priceExp\"))))) ((Some (\"contracts/Comptroller.py\" 302)) set ((Some (\"contracts/Comptroller.py\" 302)) attr ((Some (\"contracts/Comptroller.py\" 302)) get_item ((Some (\"contracts/Comptroller.py\" 302)) attr ((Some (\"contracts/Comptroller.py\" 302)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 292)) var \"asset\")) \"priceTimestamp\") ((Some (\"contracts/Comptroller.py\" 302)) first ((Some (\"contracts/Comptroller.py\" 302)) var \"pricePair\"))) ((Some (\"contracts/Comptroller.py\" 303)) set ((Some (\"contracts/Comptroller.py\" 303)) attr ((Some (\"contracts/Comptroller.py\" 303)) get_item ((Some (\"contracts/Comptroller.py\" 303)) attr ((Some (\"contracts/Comptroller.py\" 303)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 292)) var \"asset\")) \"updateLevel\") (None level)))))))))\nflags ()\nprivates ()\nviews ((onchain liquidateCalculateSeizeTokens True (Some (\"contracts/Comptroller.py\" 394)) False \"\" (((Some (\"contracts/Comptroller.py\" 395)) set_type ((Some (\"contracts/Comptroller.py\" 394)) parameter) (record ((actualRepayAmount \"nat\") (cTokenBorrowed \"address\") (cTokenCollateral \"address\")) Variable (Some (\"contracts/interfaces/ComptrollerInterface.py\" 25)))) ((Some (\"contracts/Comptroller.py\" 306)) verify ((Some (\"contracts/Comptroller.py\" 306)) eq (None level) ((Some (\"contracts/Comptroller.py\" 306)) attr ((Some (\"contracts/Comptroller.py\" 306)) get_item ((Some (\"contracts/Comptroller.py\" 306)) attr (None storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 398)) attr ((Some (\"contracts/Comptroller.py\" 394)) parameter) \"cTokenBorrowed\")) \"updateLevel\")) ((Some (\"contracts/Comptroller.py\" 306)) literal (string \"CMPT_UPDATE_PRICE\"))) ((Some (\"contracts/Comptroller.py\" 397)) define_local \"priceBorrowedMantissa\" ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) get_item ((Some (\"contracts/Comptroller.py\" 306)) attr (None storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 398)) attr ((Some (\"contracts/Comptroller.py\" 394)) parameter) \"cTokenBorrowed\")) \"price\") True) ((Some (\"contracts/Comptroller.py\" 306)) verify ((Some (\"contracts/Comptroller.py\" 306)) eq (None level) ((Some (\"contracts/Comptroller.py\" 306)) attr ((Some (\"contracts/Comptroller.py\" 306)) get_item ((Some (\"contracts/Comptroller.py\" 306)) attr (None storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 400)) attr ((Some (\"contracts/Comptroller.py\" 394)) parameter) \"cTokenCollateral\")) \"updateLevel\")) ((Some (\"contracts/Comptroller.py\" 306)) literal (string \"CMPT_UPDATE_PRICE\"))) ((Some (\"contracts/Comptroller.py\" 399)) define_local \"priceCollateralMantissa\" ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) get_item ((Some (\"contracts/Comptroller.py\" 306)) attr (None storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 400)) attr ((Some (\"contracts/Comptroller.py\" 394)) parameter) \"cTokenCollateral\")) \"price\") True) ((Some (\"contracts/Comptroller.py\" 402)) verify ((Some (\"contracts/Comptroller.py\" 402)) and ((Some (\"contracts/Comptroller.py\" 402)) neq ((Some (\"contracts/Comptroller.py\" 402)) attr ((Some (\"contracts/Comptroller.py\" 402)) var \"priceBorrowedMantissa\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 402)) literal (nat 0))) ((Some (\"contracts/Comptroller.py\" 403)) neq ((Some (\"contracts/Comptroller.py\" 403)) attr ((Some (\"contracts/Comptroller.py\" 403)) var \"priceCollateralMantissa\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 403)) literal (nat 0)))) ((Some (\"contracts/Comptroller.py\" 402)) literal (string \"CMPT_PRICE_ERROR\"))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/Comptroller.py\" 412)) attr (None storage) \"liquidationIncentiveMantissa\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 205)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/Comptroller.py\" 412)) attr (None storage) \"liquidationIncentiveMantissa\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 206)) set_type ((Some (\"contracts/Comptroller.py\" 412)) var \"priceBorrowedMantissa\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/Comptroller.py\" 412)) attr (None storage) \"liquidationIncentiveMantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 412)) var \"priceBorrowedMantissa\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr (None storage) \"expScale\")) \"nat\") ((Some (\"contracts/Comptroller.py\" 411)) define_local \"numerator\" ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/Comptroller.py\" 412)) attr (None storage) \"liquidationIncentiveMantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 412)) var \"priceBorrowedMantissa\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr (None storage) \"expScale\")))) True) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/Comptroller.py\" 408)) first ((Some (\"contracts/Comptroller.py\" 406)) open_variant ((Some (\"contracts/Comptroller.py\" 405)) view \"exchangeRateStoredView\" (None literal (unit)) ((Some (\"contracts/Comptroller.py\" 400)) attr ((Some (\"contracts/Comptroller.py\" 394)) parameter) \"cTokenCollateral\") (tuple \"nat\" \"nat\")) \"Some\" ((Some (\"contracts/Comptroller.py\" 406)) literal (string \"INVALID EXCHANGE RATE VIEW\")))) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 205)) set_type ((Some (\"contracts/Comptroller.py\" 414)) var \"priceCollateralMantissa\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 206)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/Comptroller.py\" 408)) first ((Some (\"contracts/Comptroller.py\" 406)) open_variant ((Some (\"contracts/Comptroller.py\" 405)) view \"exchangeRateStoredView\" (None literal (unit)) ((Some (\"contracts/Comptroller.py\" 400)) attr ((Some (\"contracts/Comptroller.py\" 394)) parameter) \"cTokenCollateral\") (tuple \"nat\" \"nat\")) \"Some\" ((Some (\"contracts/Comptroller.py\" 406)) literal (string \"INVALID EXCHANGE RATE VIEW\")))))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 414)) var \"priceCollateralMantissa\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 408)) first ((Some (\"contracts/Comptroller.py\" 406)) open_variant ((Some (\"contracts/Comptroller.py\" 405)) view \"exchangeRateStoredView\" (None literal (unit)) ((Some (\"contracts/Comptroller.py\" 400)) attr ((Some (\"contracts/Comptroller.py\" 394)) parameter) \"cTokenCollateral\") (tuple \"nat\" \"nat\")) \"Some\" ((Some (\"contracts/Comptroller.py\" 406)) literal (string \"INVALID EXCHANGE RATE VIEW\"))))) ((Some (\"contracts/utils/Exponential.py\" 207)) attr (None storage) \"expScale\")) \"nat\") ((Some (\"contracts/Comptroller.py\" 413)) define_local \"denominator\" ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 414)) var \"priceCollateralMantissa\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 408)) first ((Some (\"contracts/Comptroller.py\" 406)) open_variant ((Some (\"contracts/Comptroller.py\" 405)) view \"exchangeRateStoredView\" (None literal (unit)) ((Some (\"contracts/Comptroller.py\" 400)) attr ((Some (\"contracts/Comptroller.py\" 394)) parameter) \"cTokenCollateral\") (tuple \"nat\" \"nat\")) \"Some\" ((Some (\"contracts/Comptroller.py\" 406)) literal (string \"INVALID EXCHANGE RATE VIEW\"))))) ((Some (\"contracts/utils/Exponential.py\" 207)) attr (None storage) \"expScale\")))) True) ((Some (\"contracts/utils/Exponential.py\" 241)) set_type ((Some (\"contracts/Comptroller.py\" 417)) var \"numerator\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 242)) set_type ((Some (\"contracts/Comptroller.py\" 417)) var \"denominator\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 243)) verify ((Some (\"contracts/utils/Exponential.py\" 243)) gt ((Some (\"contracts/utils/Exponential.py\" 243)) attr ((Some (\"contracts/Comptroller.py\" 417)) var \"denominator\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 243)) literal (intOrNat 0))) ((Some (\"contracts/utils/Exponential.py\" 243)) literal (string \"DIVISION_BY_ZERO\"))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 244)) div ((Some (\"contracts/utils/Exponential.py\" 244)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 244)) attr ((Some (\"contracts/Comptroller.py\" 417)) var \"numerator\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr (None storage) \"expScale\")) ((Some (\"contracts/utils/Exponential.py\" 243)) attr ((Some (\"contracts/Comptroller.py\" 417)) var \"denominator\") \"mantissa\")) \"nat\") ((Some (\"contracts/Comptroller.py\" 416)) define_local \"ratio\" ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 244)) div ((Some (\"contracts/utils/Exponential.py\" 244)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 244)) attr ((Some (\"contracts/Comptroller.py\" 417)) var \"numerator\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr (None storage) \"expScale\")) ((Some (\"contracts/utils/Exponential.py\" 243)) attr ((Some (\"contracts/Comptroller.py\" 417)) var \"denominator\") \"mantissa\")))) True) ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 420)) var \"ratio\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 420)) var \"ratio\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 420)) attr ((Some (\"contracts/Comptroller.py\" 394)) parameter) \"actualRepayAmount\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 420)) var \"ratio\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 420)) attr ((Some (\"contracts/Comptroller.py\" 394)) parameter) \"actualRepayAmount\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 420)) var \"ratio\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 420)) attr ((Some (\"contracts/Comptroller.py\" 394)) parameter) \"actualRepayAmount\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 419)) result ((Some (\"contracts/Comptroller.py\" 419)) tuple ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 420)) var \"ratio\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 420)) attr ((Some (\"contracts/Comptroller.py\" 394)) parameter) \"actualRepayAmount\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr (None storage) \"expScale\")) ((Some (\"contracts/Comptroller.py\" 409)) second ((Some (\"contracts/Comptroller.py\" 406)) open_variant ((Some (\"contracts/Comptroller.py\" 405)) view \"exchangeRateStoredView\" (None literal (unit)) ((Some (\"contracts/Comptroller.py\" 400)) attr ((Some (\"contracts/Comptroller.py\" 394)) parameter) \"cTokenCollateral\") (tuple \"nat\" \"nat\")) \"Some\" ((Some (\"contracts/Comptroller.py\" 406)) literal (string \"INVALID EXCHANGE RATE VIEW\")))))))) (onchain seizeAllowed True (Some (\"contracts/Comptroller.py\" 459)) False \"\" (((Some (\"contracts/Comptroller.py\" 460)) set_type ((Some (\"contracts/Comptroller.py\" 459)) parameter) (record ((cTokenBorrowed \"address\") (cTokenCollateral \"address\")) Variable (Some (\"contracts/Comptroller.py\" 460)))) ((Some (\"contracts/Comptroller.py\" 469)) if_block ((Some (\"contracts/Comptroller.py\" 469)) or ((Some (\"contracts/Comptroller.py\" 469)) not ((Some (\"contracts/Comptroller.py\" 463)) and ((Some (\"contracts/Comptroller.py\" 463)) contains ((Some (\"contracts/Comptroller.py\" 463)) attr (None storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 463)) attr ((Some (\"contracts/Comptroller.py\" 459)) parameter) \"cTokenBorrowed\")) ((Some (\"contracts/Comptroller.py\" 464)) attr ((Some (\"contracts/Comptroller.py\" 464)) get_item ((Some (\"contracts/Comptroller.py\" 463)) attr (None storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 463)) attr ((Some (\"contracts/Comptroller.py\" 459)) parameter) \"cTokenBorrowed\")) \"isListed\"))) ((Some (\"contracts/Comptroller.py\" 469)) not ((Some (\"contracts/Comptroller.py\" 466)) and ((Some (\"contracts/Comptroller.py\" 466)) contains ((Some (\"contracts/Comptroller.py\" 463)) attr (None storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 466)) attr ((Some (\"contracts/Comptroller.py\" 459)) parameter) \"cTokenCollateral\")) ((Some (\"contracts/Comptroller.py\" 467)) attr ((Some (\"contracts/Comptroller.py\" 467)) get_item ((Some (\"contracts/Comptroller.py\" 463)) attr (None storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 466)) attr ((Some (\"contracts/Comptroller.py\" 459)) parameter) \"cTokenCollateral\")) \"isListed\")))) (((Some (\"contracts/Comptroller.py\" 470)) result ((Some (\"contracts/Comptroller.py\" 470)) literal (bool False))))) (else_block (((Some (\"contracts/Comptroller.py\" 475)) if_block ((Some (\"contracts/Comptroller.py\" 475)) or ((Some (\"contracts/Comptroller.py\" 475)) is_variant ((Some (\"contracts/Comptroller.py\" 472)) view \"comptroller\" (None literal (unit)) ((Some (\"contracts/Comptroller.py\" 463)) attr ((Some (\"contracts/Comptroller.py\" 459)) parameter) \"cTokenBorrowed\") \"address\") \"None\") ((Some (\"contracts/Comptroller.py\" 475)) is_variant ((Some (\"contracts/Comptroller.py\" 473)) view \"comptroller\" (None literal (unit)) ((Some (\"contracts/Comptroller.py\" 466)) attr ((Some (\"contracts/Comptroller.py\" 459)) parameter) \"cTokenCollateral\") \"address\") \"None\")) (((Some (\"contracts/Comptroller.py\" 476)) result ((Some (\"contracts/Comptroller.py\" 476)) literal (bool False))))) (else_block (((Some (\"contracts/Comptroller.py\" 480)) result ((Some (\"contracts/Comptroller.py\" 480)) eq ((Some (\"contracts/Comptroller.py\" 478)) open_variant ((Some (\"contracts/Comptroller.py\" 472)) view \"comptroller\" (None literal (unit)) ((Some (\"contracts/Comptroller.py\" 463)) attr ((Some (\"contracts/Comptroller.py\" 459)) parameter) \"cTokenBorrowed\") \"address\") \"Some\" \"None\") ((Some (\"contracts/Comptroller.py\" 479)) open_variant ((Some (\"contracts/Comptroller.py\" 473)) view \"comptroller\" (None literal (unit)) ((Some (\"contracts/Comptroller.py\" 466)) attr ((Some (\"contracts/Comptroller.py\" 459)) parameter) \"cTokenCollateral\") \"address\") \"Some\" \"None\"))))))))))\nentrypoints_layout ()\ninitial_metadata ()\nbalance ())", "id": "(None static_id 0)", "line_no": "(Some (\"\" -1))", "show": true diff --git a/compiled_contracts/script_init.py b/compiled_contracts/script_init.py index f6ce3f9b..fc33647b 100644 --- a/compiled_contracts/script_init.py +++ b/compiled_contracts/script_init.py @@ -1,33 +1,14 @@ import smartpy as sp -import json +IRM = sp.io.import_script_from_url("file:contracts/InterestRateModel.py") CFG = sp.io.import_script_from_url("file:deploy/compile_targets/Config.py") -CFA12 = sp.io.import_script_from_url("file:contracts/CFA12.py") +CMPT = sp.io.import_script_from_url("file:contracts/Comptroller.py") UTILS = sp.io.import_script_from_url("file:deploy/compile_targets/Utils.py") -UTILS.checkDependencies(CFG.CFA12) +UTILS.checkDependencies(CFG.Comptroller) -sp.add_compilation_target("CtzBTC", CFA12.CFA12( - comptroller_ = sp.address(CFG.deployResult.Comptroller), - interestRateModel_ = sp.address(CFG.deployResult.CFA12_IRM), - initialExchangeRateMantissa_ = sp.nat(CFG.CFA2.initialExchangeRateMantissa), - administrator_ = sp.address(CFG.deployResult.Governance), - # specify metadata before deployment - metadata_ = sp.big_map({ - "": sp.utils.bytes_of_string("tezos-storage:data"), - "data": sp.utils.bytes_of_string(json.dumps({ - "name": "TezFin Interest-Bearing tzBTC", - "description": "Interest-bearing token for tzBTC (wrapped Bitcoin on Tezos) supplied to the TezFin lending protocol.", - "version": "3.0", - "authors": ["Tezos Finance Protocol"], - "homepage": "https://tezos.finance", - "interfaces": ["TZIP-007", "TZIP-016"], - })) - }), - token_metadata_ = { - "name": sp.utils.bytes_of_string("TezFin Interest-Bearing tzBTC"), - "symbol": sp.utils.bytes_of_string("\ua730tzBTC"), - "decimals": sp.utils.bytes_of_string("8"), - }, - fa1_2_TokenAddress_ = sp.address(CFG.deployResult.tzBTC) +sp.add_compilation_target("Comptroller", CMPT.Comptroller(administrator_ = sp.address(CFG.deployResult.Governance), + oracleAddress_ = sp.address(CFG.deployResult.TezFinOracle), + closeFactorMantissa_ = sp.nat(CFG.Comptroller.closeFactorMantissa), + liquidationIncentiveMantissa_ = sp.nat(CFG.Comptroller.liquidationIncentiveMantissa) )) diff --git a/compiled_contracts/script_pure.py b/compiled_contracts/script_pure.py index f6ce3f9b..fc33647b 100644 --- a/compiled_contracts/script_pure.py +++ b/compiled_contracts/script_pure.py @@ -1,33 +1,14 @@ import smartpy as sp -import json +IRM = sp.io.import_script_from_url("file:contracts/InterestRateModel.py") CFG = sp.io.import_script_from_url("file:deploy/compile_targets/Config.py") -CFA12 = sp.io.import_script_from_url("file:contracts/CFA12.py") +CMPT = sp.io.import_script_from_url("file:contracts/Comptroller.py") UTILS = sp.io.import_script_from_url("file:deploy/compile_targets/Utils.py") -UTILS.checkDependencies(CFG.CFA12) +UTILS.checkDependencies(CFG.Comptroller) -sp.add_compilation_target("CtzBTC", CFA12.CFA12( - comptroller_ = sp.address(CFG.deployResult.Comptroller), - interestRateModel_ = sp.address(CFG.deployResult.CFA12_IRM), - initialExchangeRateMantissa_ = sp.nat(CFG.CFA2.initialExchangeRateMantissa), - administrator_ = sp.address(CFG.deployResult.Governance), - # specify metadata before deployment - metadata_ = sp.big_map({ - "": sp.utils.bytes_of_string("tezos-storage:data"), - "data": sp.utils.bytes_of_string(json.dumps({ - "name": "TezFin Interest-Bearing tzBTC", - "description": "Interest-bearing token for tzBTC (wrapped Bitcoin on Tezos) supplied to the TezFin lending protocol.", - "version": "3.0", - "authors": ["Tezos Finance Protocol"], - "homepage": "https://tezos.finance", - "interfaces": ["TZIP-007", "TZIP-016"], - })) - }), - token_metadata_ = { - "name": sp.utils.bytes_of_string("TezFin Interest-Bearing tzBTC"), - "symbol": sp.utils.bytes_of_string("\ua730tzBTC"), - "decimals": sp.utils.bytes_of_string("8"), - }, - fa1_2_TokenAddress_ = sp.address(CFG.deployResult.tzBTC) +sp.add_compilation_target("Comptroller", CMPT.Comptroller(administrator_ = sp.address(CFG.deployResult.Governance), + oracleAddress_ = sp.address(CFG.deployResult.TezFinOracle), + closeFactorMantissa_ = sp.nat(CFG.Comptroller.closeFactorMantissa), + liquidationIncentiveMantissa_ = sp.nat(CFG.Comptroller.liquidationIncentiveMantissa) )) From dff0b444db64e643d6418fc3e9d33c67ce37c9d6 Mon Sep 17 00:00:00 2001 From: "ilya.razievskij" Date: Thu, 12 Jun 2025 11:15:53 +0300 Subject: [PATCH 8/9] feat: added market limiting mechanism --- contracts/Comptroller.py | 71 +++++++++++++++++++++- contracts/Governance.py | 15 +++++ contracts/errors/ComptrollerErrors.py | 3 +- contracts/tests/ComptrollerTest.py | 84 ++++++++++++++++++++++++++- contracts/tests/GovernanceTest.py | 5 ++ 5 files changed, 174 insertions(+), 4 deletions(-) diff --git a/contracts/Comptroller.py b/contracts/Comptroller.py index c70e79ce..4d4d2e2f 100644 --- a/contracts/Comptroller.py +++ b/contracts/Comptroller.py @@ -41,7 +41,7 @@ class Comptroller(CMPTInterface.ComptrollerInterface, Exponential.Exponential, SweepTokens.SweepTokens, OP.OperationProtector): - def __init__(self, administrator_, oracleAddress_, closeFactorMantissa_, liquidationIncentiveMantissa_, **extra_storage): + def __init__(self, administrator_, oracleAddress_, closeFactorMantissa_, liquidationIncentiveMantissa_, maxAssetsPerUser_=15, **extra_storage): Exponential.Exponential.__init__( self, administrator=administrator_, @@ -66,6 +66,7 @@ def __init__(self, administrator_, oracleAddress_, closeFactorMantissa_, liquida closeFactorMantissa=closeFactorMantissa_, liquidationIncentiveMantissa=liquidationIncentiveMantissa_, maxPriceTimeDifference = sp.int(86400), + maxAssetsPerUser=maxAssetsPerUser_, **extra_storage ) @@ -79,7 +80,11 @@ def enterMarkets(self, cTokens): sp.verify(sp.amount == sp.utils.nat_to_mutez( 0), "TEZ_TRANSFERED") sp.set_type(cTokens, sp.TList(sp.TAddress)) + currentAssetCount = sp.local("currentAssetCount", self.getUserUniqueAssetsCount(sp.sender)) sp.for token in cTokens: + sp.if self.isNewAssetForUser(sp.sender, token): + sp.verify(currentAssetCount.value < self.data.maxAssetsPerUser, EC.CMPT_TOO_MANY_ASSETS) + currentAssetCount.value += 1 self.addToCollaterals(token, sp.sender) self.invalidateLiquidity(sp.sender) @@ -211,6 +216,10 @@ def borrowAllowed(self, params): sp.verify( ~ self.data.markets[params.cToken].borrowPaused, EC.CMPT_BORROW_PAUSED) self.verifyMarketListed(params.cToken) + sp.if self.isNewAssetForUser(params.borrower, params.cToken): + uniqueAssetsCount = self.getUserUniqueAssetsCount(params.borrower) + sp.verify(uniqueAssetsCount < self.data.maxAssetsPerUser, + EC.CMPT_TOO_MANY_ASSETS) sp.if ~ self.data.loans.contains(params.borrower): # only cTokens may call borrowAllowed if borrower not in market sp.verify(sp.sender == params.cToken, @@ -533,6 +542,25 @@ def calculateAccountAssetLiquidityView(self, asset, account): calc.sumBorrowPlusEffects += self.mulScalarTruncate( self.data.markets[asset].price, params.value.borrowBalance) return calc + + """ + Gets the number of unique assets for a given user + + returns: TNat - The number of unique assets held by the user + """ + @sp.onchain_view() + def getUserAssetsCount(self, user): + sp.set_type(user, sp.TAddress) + sp.result(self.getUserUniqueAssetsCount(user)) + + """ + Returns the current limit for the maximum number of unique assets a user can hold + + returns: TNat - Current limit value for maxAssetsPerUser + """ + @sp.onchain_view() + def getMaxAssetsPerUser(self): + sp.result(self.data.maxAssetsPerUser) """ Sets a new pending governance for the market @@ -650,6 +678,21 @@ def setCloseFactor(self, closeFactorMantissa): self.verifyAdministrator() self.data.closeFactorMantissa = closeFactorMantissa + """ + Sets the maximum number of unique assets a user can hold + + dev: Governance function to set maxAssetsPerUser + + newLimit: TNat - The new limit for the maximum number of unique assets a user can hold + """ + @sp.entry_point(lazify=True) + def setMaxAssetsPerUser(self, newLimit): + sp.verify(sp.amount == sp.utils.nat_to_mutez( + 0), "TEZ_TRANSFERED") + sp.set_type(newLimit, sp.TNat) + self.verifyAdministrator() + self.data.maxAssetsPerUser = newLimit + """ Sets the collateralFactor for a market @@ -763,3 +806,29 @@ def verifyLiquidityCorrect(self, account): def invalidateLiquidity(self, account): sp.if self.data.account_liquidity.contains(account): self.data.account_liquidity[account].valid = False + + def getUserUniqueAssetsCount(self, user): + unique_assets = sp.local("unique_assets", sp.set(t=sp.TAddress)) + + sp.if self.data.collaterals.contains(user): + sp.for asset in self.data.collaterals[user].elements(): + unique_assets.value.add(asset) + + sp.if self.data.loans.contains(user): + sp.for asset in self.data.loans[user].elements(): + unique_assets.value.add(asset) + + return sp.len(unique_assets.value) + + def isNewAssetForUser(self, user, cToken): + is_new = sp.local("is_new", True) + + sp.if self.data.collaterals.contains(user): + sp.if self.data.collaterals[user].contains(cToken): + is_new.value = False + + sp.if self.data.loans.contains(user) & is_new.value: + sp.if self.data.loans[user].contains(cToken): + is_new.value = False + + return is_new.value diff --git a/contracts/Governance.py b/contracts/Governance.py index ecaf24cb..a788acb2 100644 --- a/contracts/Governance.py +++ b/contracts/Governance.py @@ -304,7 +304,22 @@ def disableMarket(self, params): contract = sp.contract( sp.TAddress, params.comptroller, "disableMarket").open_some() sp.transfer(params.cToken, sp.mutez(0), contract) + + """ + Set the maximum number of unique assets a user can hold + params: TRecord + comptroller: TAddress - The address of Comptroller contract + maxAssets: TNat - The maximum number of assets a user can hold + """ + @sp.entry_point + def setMaxAssetsPerUser(self, params): + self.verifyAdministrator() + sp.set_type(params, sp.TRecord( + comptroller=sp.TAddress, maxAssets=sp.TNat)) + contract = sp.contract(sp.TNat, params.comptroller, + "setMaxAssetsPerUser").open_some() + sp.transfer(params.maxAssets, sp.mutez(0), contract) """ Pause or activate the mint of given CToken diff --git a/contracts/errors/ComptrollerErrors.py b/contracts/errors/ComptrollerErrors.py index e0b970b4..dfada98a 100644 --- a/contracts/errors/ComptrollerErrors.py +++ b/contracts/errors/ComptrollerErrors.py @@ -51,4 +51,5 @@ class ErrorCodes: CMPT_TOO_MUCH_REPAY = "CMPT_TOO_MUCH_REPAY" # comptroller addresses for collateral token and borrowed token do not match CMPT_COMPTROLLER_MISMATCH = "CMPT_COMPTROLLER_MISMATCH" - CMPT_OUTDATED_ACCOUNT_SNAPSHOT = "CMPT_OUTDATED_ACCOUNT_SNAPHOT" + CMPT_OUTDATED_ACCOUNT_SNAPSHOT = "CMPT_OUTDATED_ACCOUNT_SNAPSHOT" + CMPT_TOO_MANY_ASSETS = "CMPT_TOO_MANY_ASSETS" diff --git a/contracts/tests/ComptrollerTest.py b/contracts/tests/ComptrollerTest.py index e369aff6..54e0db8d 100644 --- a/contracts/tests/ComptrollerTest.py +++ b/contracts/tests/ComptrollerTest.py @@ -17,8 +17,9 @@ def __init__(self, administrator_, oracleAddress_): administrator_ = administrator_, oracleAddress_ = oracleAddress_, closeFactorMantissa_= sp.nat(0), - liquidationIncentiveMantissa_= sp.nat(0)) - + liquidationIncentiveMantissa_= sp.nat(0), + maxAssetsPerUser_= sp.nat(3)) + # test-oriented entry points @sp.entry_point def addMarket(self, params): @@ -369,7 +370,86 @@ def test(): # [CONSISTENCY] return governance back to test account "admin" scenario += cmpt.setPendingGovernance(admin.address).run(sender=pendingGovernance, level=bLevel.next()) scenario += cmpt.acceptGovernance(sp.unit).run(sender=admin, level=bLevel.next()) + + scenario.h2("Test Asset Limit Functionality") + scenario.h3("Setup additional markets for asset limit testing") + cTokenExtra1 = CTMock.CTokenMock(test_account_snapshot_ = sp.record( + account = alice.address, + cTokenBalance = sp.nat(10), + borrowBalance = sp.nat(0), + exchangeRateMantissa = exchRate + )) + scenario += cTokenExtra1 + + cTokenExtra2 = CTMock.CTokenMock(test_account_snapshot_ = sp.record( + account = alice.address, + cTokenBalance = sp.nat(10), + borrowBalance = sp.nat(0), + exchangeRateMantissa = exchRate + )) + scenario += cTokenExtra2 + + extraMarkets = [ + sp.pair(cTokenExtra1.address, + sp.record(isListed = sp.bool(True), + collateralFactor = sp.record(mantissa=sp.nat(int(5e17))), + mintPaused = sp.bool(False), + borrowPaused = sp.bool(False), + name = sp.string("extra1"), + price = sp.record(mantissa=sp.nat(int(1e18))), + priceExp = sp.nat(int(1e18)), + updateLevel = sp.nat(0), + priceTimestamp= sp.timestamp(0))), + sp.pair(cTokenExtra2.address, + sp.record(isListed = sp.bool(True), + collateralFactor = sp.record(mantissa=sp.nat(int(5e17))), + mintPaused = sp.bool(False), + borrowPaused = sp.bool(False), + name = sp.string("extra2"), + price = sp.record(mantissa=sp.nat(int(1e18))), + priceExp = sp.nat(int(1e18)), + updateLevel = sp.nat(0), + priceTimestamp= sp.timestamp(0))) + ] + + for market in extraMarkets: + scenario += cmpt.addMarket(market).run(level = bLevel.next()) + + scenario.h3("Test max assets per user limit") + + scenario.h4("Check initial max assets limit") + scenario.verify_equal(cmpt.data.maxAssetsPerUser, 3) + + scenario.h4("Admin can change max assets limit") + TestAdminFunctionality.checkAdminRequirementH4(scenario, "set max assets per user", bLevel, admin, alice, cmpt.setMaxAssetsPerUser, sp.nat(2)) + scenario.verify_equal(cmpt.data.maxAssetsPerUser, 2) + + scenario.h4("Reset limit back to 3 for testing") + scenario += cmpt.setMaxAssetsPerUser(sp.nat(3)).run(sender=admin, level=bLevel.next()) + + scenario.h3("Test asset limit enforcement in enterMarkets") + # Alice currently has 2 assets + scenario.h4("Alice currently has 2 assets") + alice_count = sp.view("getUserAssetsCount", cmpt.address, alice.address, t=sp.TNat).open_some() + scenario.show(alice_count) + scenario.verify_equal(alice_count, 2) + + scenario.h4("Alice can enter 1 more market (within limit)") + scenario += cmpt.enterMarkets([cTokenExtra1.address]).run( + sender=alice, level=bLevel.next()) + + scenario.verify(cmpt.data.collaterals[alice.address].contains(cTokenExtra1.address)) + + scenario.h4("Alice now has 3 assets (at limit)") + alice_count = sp.view("getUserAssetsCount", cmpt.address, alice.address, t=sp.TNat).open_some() + scenario.verify_equal(alice_count, 3) + + scenario.h4("Alice cannot enter 4th market (exceeds limit)") + scenario += cmpt.enterMarkets([cTokenExtra2.address]).run( + sender=alice, level=bLevel.next(), valid=False) + scenario.h4("Alice cannot borrow from new market (would exceed limit)") + scenario += cmpt.borrowAllowed(borrowArgLambda(cTokenExtra2.address)).run(sender = alice, level = bLevel.current(), valid = False) # Helpers diff --git a/contracts/tests/GovernanceTest.py b/contracts/tests/GovernanceTest.py index a09dd8e3..de54cac2 100644 --- a/contracts/tests/GovernanceTest.py +++ b/contracts/tests/GovernanceTest.py @@ -250,3 +250,8 @@ def testComptroller(scenario, ctoken, bLevel, alice, admin, governor, cmpt, orac arg = sp.record(comptroller = cmpt.address, cToken = ctoken.address) TestAdminFunctionality.checkAdminRequirementH4(scenario, "disable market", bLevel, admin, alice, governor.disableMarket, arg) scenario.verify(cmpt.data.markets.contains(arg.cToken) & ~ cmpt.data.markets[arg.cToken].isListed) + + scenario.h3("Set max assets per user") + arg = sp.record(comptroller = cmpt.address, maxAssets = sp.nat(10)) + TestAdminFunctionality.checkAdminRequirementH4(scenario, "set max assets per user", bLevel, admin, alice, governor.setMaxAssetsPerUser, arg) + scenario.verify(cmpt.data.maxAssetsPerUser == arg.maxAssets) From 758104bad23941409ebc4cd12496d275425a1cc2 Mon Sep 17 00:00:00 2001 From: "ilya.razievskij" Date: Mon, 16 Jun 2025 12:22:56 +0300 Subject: [PATCH 9/9] chore: compiled contracts update --- compiled_contracts/Comptroller/log.txt | 10 +- .../Comptroller/step_000_cont_0_contract.json | 359 ++-- .../Comptroller/step_000_cont_0_contract.py | 200 ++- .../Comptroller/step_000_cont_0_contract.tz | 1556 +++++++++-------- .../Comptroller/step_000_cont_0_sizes.csv | 4 +- .../Comptroller/step_000_cont_0_storage.json | 1201 +++++++++---- .../Comptroller/step_000_cont_0_storage.py | 2 +- .../Comptroller/step_000_cont_0_storage.tz | 2 +- .../Comptroller/step_000_cont_0_types.py | 6 +- compiled_contracts/Governance/log.txt | 10 +- .../Governance/step_000_cont_0_contract.json | 175 +- .../Governance/step_000_cont_0_contract.py | 6 + .../Governance/step_000_cont_0_contract.tz | 332 ++-- .../Governance/step_000_cont_0_sizes.csv | 4 +- .../Governance/step_000_cont_0_storage.json | 3 - .../Governance/step_000_cont_0_storage.tz | 2 +- .../Governance/step_000_cont_0_types.py | 2 +- compiled_contracts/scenario.json | 2 +- 18 files changed, 2332 insertions(+), 1544 deletions(-) diff --git a/compiled_contracts/Comptroller/log.txt b/compiled_contracts/Comptroller/log.txt index 1b876121..b355fb29 100644 --- a/compiled_contracts/Comptroller/log.txt +++ b/compiled_contracts/Comptroller/log.txt @@ -1,10 +1,10 @@ Creating contract KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 - -> (Pair (Pair (Pair (Pair {} (Pair {} "KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2")) (Pair (Pair 500000000000000000 {}) (Pair 1000000000000000000 500000000000000000))) (Pair (Pair (Pair 1050000000000000000 {}) (Pair {} {})) (Pair (Pair 86400 "KT1LDtNKDnpziwSrmSfx3xCbs7nBMg7VFp4m") (Pair None True)))) {Elt 0 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP; GET 7; IF_NONE { PUSH string "CMPT_NOT_SET_PENDING_ADMIN"; FAILWITH } {}; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_PENDING_ADMIN"; FAILWITH }; DUP; GET 7; IF_NONE { PUSH int 566; FAILWITH } {}; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; CAR; DIG 4; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; NONE address; UPDATE 7; NIL operation; PAIR }; Elt 1 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } {} } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 4; DUP 2; CAR; GET; IF_NONE { PUSH int 212; FAILWITH } {}; CAR; CAR; CAR; IF { PUSH string "CMPT_BORROW_PAUSED"; FAILWITH } {}; DUP 2; GET 3; GET 4; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; CAR; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; GET 3; CAR; CDR; DUP 2; GET 3; MEM; IF {} { DUP; CAR; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_INVALID_BORROW_SENDER"; FAILWITH }; DUP 2; GET 3; GET 4; SENDER; MEM; IF { DUP 2; GET 3; GET 4; SENDER; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; GET 3; CAR; CDR; DUP 2; GET 3; MEM; IF { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; DUP; DUP 7; GET 3; DUP; DUG 2; GET; IF_NONE { PUSH int 230; FAILWITH } {}; PUSH bool True; SENDER; UPDATE; SOME; SWAP; UPDATE; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR; SWAP } { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; EMPTY_SET address; PUSH bool True; SENDER; UPDATE; SOME; DUP 7; GET 3; UPDATE; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR; SWAP } }; DUP 2; CAR; CAR; CAR; DUP 2; GET 3; MEM; IF {} { PUSH string "CMPT_LIQUIDITY_ABSENT"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; GET 3; GET; IF_NONE { PUSH int 758; FAILWITH } {}; GET 4; IF {} { PUSH string "CMPT_LIQUIDITY_INVALID"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; GET 3; GET; IF_NONE { PUSH int 760; FAILWITH } {}; GET 3; LEVEL; SUB; ISNAT; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; PUSH nat 0; DUP 2; COMPARE; EQ; IF {} { PUSH string "CMPT_LIQUIDITY_OLD"; FAILWITH }; DUP 3; GET 3; GET 4; DUP 3; CAR; GET; IF_NONE { PUSH int 306; FAILWITH } {}; GET 8; LEVEL; DIG 2; DROP; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; GET 4; DUP 3; CAR; GET; IF_NONE { PUSH int 307; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 2; CAR; GET 5; DUP 2; GET 4; DUP 4; GET 3; GET 4; DUP 4; CAR; GET; IF_NONE { PUSH int 191; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; INT; DUP 3; CAR; CAR; CAR; DUP 3; GET 3; GET; IF_NONE { PUSH int 190; FAILWITH } {}; CAR; SUB; PUSH int 0; SWAP; COMPARE; GE; IF {} { PUSH string "CMPT_REDEEMER_SHORTFALL"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; GET 3; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 5; GET 3; DUP; DUG 2; GET; IF_NONE { PUSH int 765; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 2 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; DUP 2; GET 3; GET 4; DUP 2; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; DIG 6; DUP; DUG 2; GET; IF_NONE { PUSH int 733; FAILWITH } {}; UNPAIR; UNPAIR; SWAP; CDR; PUSH bool False; PAIR; SWAP; PAIR; PAIR; SOME; SWAP; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 3 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP; ITER { DUP 3; GET 3; GET 4; DUP 2; MEM; IF { DUP 3; GET 3; GET 4; DUP 2; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 3; CAR; GET 3; CDR; SENDER; MEM; IF { DIG 2; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; DUP; SENDER; DUP; DUG 2; GET; IF_NONE { PUSH int 89; FAILWITH } {}; PUSH bool True; DIG 8; UPDATE; SOME; SWAP; UPDATE; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; SWAP } { DIG 2; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; EMPTY_SET address; PUSH bool True; DIG 7; UPDATE; SOME; SENDER; UPDATE; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; SWAP } }; DROP; DUP; CAR; CAR; CAR; SENDER; MEM; IF { UNPAIR; UNPAIR; UNPAIR; DUP; SENDER; DUP; DUG 2; GET; IF_NONE { PUSH int 765; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } {}; NIL operation; PAIR }; Elt 4 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { DROP } } } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; DUP; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; EMPTY_SET nat; PAIR; SWAP; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 5 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT {} { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 4; DUP 2; CAR; CDR; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; CAR; CDR; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; GET 3; GET 4; DUP 2; GET 3; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; GET 3; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; PUSH (pair nat nat) (Pair 0 0); DUP; DUP 4; CAR; GET 3; CDR; DUP 4; CAR; CAR; MEM; IF { DUP 4; CAR; GET 3; CDR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 491; FAILWITH } {}; ITER { DUP; DUP 5; CAR; CAR; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH string "CMPT_OUTDATED_ACCOUNT_SNAPHOT"; FAILWITH } { DROP }; DUP; DUP 5; CAR; CAR; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH int 521; FAILWITH } {}; DUP; GET 4; DUP 7; GET 3; GET 4; DUP 4; GET; IF_NONE { PUSH int 306; FAILWITH } {}; GET 8; LEVEL; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 8; GET 3; GET 4; DUP 5; GET; IF_NONE { PUSH int 307; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 7; CAR; GET 5; SWAP; DUP 8; CAR; GET 5; DUP 9; GET 3; GET 4; DUP 6; GET; IF_NONE { PUSH int 525; FAILWITH } {}; CAR; CAR; CDR; DUP 10; GET 3; GET 4; DUP 7; GET; IF_NONE { PUSH int 525; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; MEM; IF { DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 530; FAILWITH } {}; DUP 5; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 9; CAR; GET 5; DUP 5; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 8; CAR; GET 5; DIG 3; CAR; CDR; DUP 9; GET 3; GET 4; DIG 5; GET; IF_NONE { PUSH int 534; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } } {}; DUP 4; GET 3; CAR; CDR; DUP 4; CAR; CAR; MEM; IF { DUP 4; GET 3; CAR; CDR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 499; FAILWITH } {}; ITER { DUP 5; CAR; GET 3; CDR; DUP 5; CAR; CAR; MEM; IF { DUP 5; CAR; GET 3; CDR; DUP 5; CAR; CAR; GET; IF_NONE { PUSH int 502; FAILWITH } {}; DUP 2; MEM; IF { DROP } { DUP; DUP 5; CAR; CAR; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH string "CMPT_OUTDATED_ACCOUNT_SNAPHOT"; FAILWITH } { DROP }; DUP; DUP 5; CAR; CAR; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH int 521; FAILWITH } {}; DUP; GET 4; DUP 7; GET 3; GET 4; DUP 4; GET; IF_NONE { PUSH int 306; FAILWITH } {}; GET 8; LEVEL; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 8; GET 3; GET 4; DUP 5; GET; IF_NONE { PUSH int 307; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 7; CAR; GET 5; SWAP; DUP 8; CAR; GET 5; DUP 9; GET 3; GET 4; DUP 6; GET; IF_NONE { PUSH int 525; FAILWITH } {}; CAR; CAR; CDR; DUP 10; GET 3; GET 4; DUP 7; GET; IF_NONE { PUSH int 525; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; MEM; IF { DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 530; FAILWITH } {}; DUP 5; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 9; CAR; GET 5; DUP 5; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 8; CAR; GET 5; DIG 3; CAR; CDR; DUP 9; GET 3; GET 4; DIG 5; GET; IF_NONE { PUSH int 534; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } } { DUP; DUP 5; CAR; CAR; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH string "CMPT_OUTDATED_ACCOUNT_SNAPHOT"; FAILWITH } { DROP }; DUP; DUP 5; CAR; CAR; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH int 521; FAILWITH } {}; DUP; GET 4; DUP 7; GET 3; GET 4; DUP 4; GET; IF_NONE { PUSH int 306; FAILWITH } {}; GET 8; LEVEL; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 8; GET 3; GET 4; DUP 5; GET; IF_NONE { PUSH int 307; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 7; CAR; GET 5; SWAP; DUP 8; CAR; GET 5; DUP 9; GET 3; GET 4; DUP 6; GET; IF_NONE { PUSH int 525; FAILWITH } {}; CAR; CAR; CDR; DUP 10; GET 3; GET 4; DUP 7; GET; IF_NONE { PUSH int 525; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; MEM; IF { DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 530; FAILWITH } {}; DUP 5; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 9; CAR; GET 5; DUP 5; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 8; CAR; GET 5; DIG 3; CAR; CDR; DUP 9; GET 3; GET 4; DIG 5; GET; IF_NONE { PUSH int 534; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } }; DROP } { DROP }; UNPAIR; SWAP; SUB; PUSH int 0; COMPARE; GT; IF {} { PUSH string "CMPT_INSUFFICIENT_SHORTFALL"; FAILWITH }; DUP 2; CAR; GET 5; DUP 2; CAR; CDR; DUP 3; CAR; CAR; VIEW "borrowBalanceStoredView" (pair nat nat); IF_NONE { PUSH string "INVALID ACCOUNT BORROW BALANCE VIEW"; FAILWITH } {}; CAR; DUP 4; CAR; GET 3; CAR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; SWAP; DUP; GET 6; DIG 2; COMPARE; GE; IF {} { PUSH string "CMPT_TOO_MUCH_REPAY"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; CAR; CAR; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DUP 6; CAR; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 765; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR; SWAP } {}; DUP 2; CAR; CAR; CAR; DUP 2; GET 5; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 5; GET 5; DUP; DUG 2; GET; IF_NONE { PUSH int 765; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 6 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 4; DUP 2; CAR; GET; IF_NONE { PUSH int 153; FAILWITH } {}; CAR; GET 4; IF { PUSH string "CMPT_MINT_PAUSED"; FAILWITH } {}; DUP 2; GET 3; GET 4; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; CAR; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; GET 3; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 5; GET 3; DUP; DUG 2; GET; IF_NONE { PUSH int 765; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 7 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 4; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; CAR; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; CAR; GET 3; CDR; DUP 2; GET 3; MEM; IF { DUP 2; CAR; GET 3; CDR; DUP 2; GET 3; GET; IF_NONE { PUSH int 180; FAILWITH } {}; DUP 2; CAR; MEM } { PUSH bool False }; IF { DUP 2; GET 3; CAR; CDR; DUP 2; GET 3; MEM; IF { PUSH nat 0; DUP 3; GET 3; CAR; CDR; DUP 3; GET 3; GET; IF_NONE { PUSH int 182; FAILWITH } {}; SIZE; COMPARE; NEQ } { PUSH bool False }; IF { DUP 2; CAR; CAR; CAR; DUP 2; GET 3; MEM; IF {} { PUSH string "CMPT_LIQUIDITY_ABSENT"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; GET 3; GET; IF_NONE { PUSH int 758; FAILWITH } {}; GET 4; IF {} { PUSH string "CMPT_LIQUIDITY_INVALID"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; GET 3; GET; IF_NONE { PUSH int 760; FAILWITH } {}; GET 3; LEVEL; SUB; ISNAT; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; PUSH nat 0; DUP 2; COMPARE; EQ; IF {} { PUSH string "CMPT_LIQUIDITY_OLD"; FAILWITH }; DUP 3; GET 3; GET 4; DUP 3; CAR; GET; IF_NONE { PUSH int 306; FAILWITH } {}; GET 8; LEVEL; DIG 2; DROP; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; GET 4; DUP 3; CAR; GET; IF_NONE { PUSH int 307; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 2; CAR; GET 5; DUP 2; GET 4; DUP 4; GET 3; GET 4; DUP 4; CAR; GET; IF_NONE { PUSH int 191; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; INT; DUP 3; CAR; CAR; CAR; DUP 3; GET 3; GET; IF_NONE { PUSH int 190; FAILWITH } {}; CAR; SUB; PUSH int 0; SWAP; COMPARE; GE; IF {} { PUSH string "CMPT_REDEEMER_SHORTFALL"; FAILWITH } } {} } {}; DUP 2; CAR; CAR; CAR; DUP 2; GET 3; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 5; GET 3; DUP; DUG 2; GET; IF_NONE { PUSH int 765; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 8 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 4; SENDER; MEM; IF { DUP 2; GET 3; GET 4; SENDER; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; GET 3; CAR; CDR; DUP 2; MEM; IF { DUP 2; GET 3; CAR; CDR; DUP 2; GET; IF_NONE { PUSH int 239; FAILWITH } {}; SENDER; MEM } { PUSH bool False }; IF { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; DUP; DIG 6; DUP; DUG 2; GET; IF_NONE { PUSH int 240; FAILWITH } {}; PUSH bool False; SENDER; UPDATE; SOME; SWAP; UPDATE; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR } { DROP }; NIL operation; PAIR }; Elt 9 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 4; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; CAR; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; GET 5; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DUP 6; GET 5; DUP; DUG 2; GET; IF_NONE { PUSH int 765; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR; SWAP } {}; DUP 2; CAR; CAR; CAR; DUP 2; GET 3; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 5; GET 3; DUP; DUG 2; GET; IF_NONE { PUSH int 765; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 10 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; PUSH (pair nat nat) (Pair 0 0); DUP; DUP 4; CAR; GET 3; CDR; DUP 4; MEM; IF { DUP 4; CAR; GET 3; CDR; DUP 4; GET; IF_NONE { PUSH int 491; FAILWITH } {}; ITER { DUP; DUP 5; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH string "CMPT_OUTDATED_ACCOUNT_SNAPHOT"; FAILWITH } { DROP }; DUP; DUP 5; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH int 521; FAILWITH } {}; DUP; GET 4; DUP 7; GET 3; GET 4; DUP 4; GET; IF_NONE { PUSH int 306; FAILWITH } {}; GET 8; LEVEL; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 8; GET 3; GET 4; DUP 5; GET; IF_NONE { PUSH int 307; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 7; CAR; GET 5; SWAP; DUP 8; CAR; GET 5; DUP 9; GET 3; GET 4; DUP 6; GET; IF_NONE { PUSH int 525; FAILWITH } {}; CAR; CAR; CDR; DUP 10; GET 3; GET 4; DUP 7; GET; IF_NONE { PUSH int 525; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; MEM; IF { DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 530; FAILWITH } {}; DUP 5; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 9; CAR; GET 5; DUP 5; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 8; CAR; GET 5; DIG 3; CAR; CDR; DUP 9; GET 3; GET 4; DIG 5; GET; IF_NONE { PUSH int 534; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } } {}; DUP 4; GET 3; CAR; CDR; DUP 4; MEM; IF { DUP 4; GET 3; CAR; CDR; DUP 4; GET; IF_NONE { PUSH int 499; FAILWITH } {}; ITER { DUP 5; CAR; GET 3; CDR; DUP 5; MEM; IF { DUP 5; CAR; GET 3; CDR; DUP 5; GET; IF_NONE { PUSH int 502; FAILWITH } {}; DUP 2; MEM; IF { DROP } { DUP; DUP 5; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH string "CMPT_OUTDATED_ACCOUNT_SNAPHOT"; FAILWITH } { DROP }; DUP; DUP 5; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH int 521; FAILWITH } {}; DUP; GET 4; DUP 7; GET 3; GET 4; DUP 4; GET; IF_NONE { PUSH int 306; FAILWITH } {}; GET 8; LEVEL; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 8; GET 3; GET 4; DUP 5; GET; IF_NONE { PUSH int 307; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 7; CAR; GET 5; SWAP; DUP 8; CAR; GET 5; DUP 9; GET 3; GET 4; DUP 6; GET; IF_NONE { PUSH int 525; FAILWITH } {}; CAR; CAR; CDR; DUP 10; GET 3; GET 4; DUP 7; GET; IF_NONE { PUSH int 525; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; MEM; IF { DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 530; FAILWITH } {}; DUP 5; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 9; CAR; GET 5; DUP 5; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 8; CAR; GET 5; DIG 3; CAR; CDR; DUP 9; GET 3; GET 4; DIG 5; GET; IF_NONE { PUSH int 534; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } } { DUP; DUP 5; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH string "CMPT_OUTDATED_ACCOUNT_SNAPHOT"; FAILWITH } { DROP }; DUP; DUP 5; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH int 521; FAILWITH } {}; DUP; GET 4; DUP 7; GET 3; GET 4; DUP 4; GET; IF_NONE { PUSH int 306; FAILWITH } {}; GET 8; LEVEL; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 8; GET 3; GET 4; DUP 5; GET; IF_NONE { PUSH int 307; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 7; CAR; GET 5; SWAP; DUP 8; CAR; GET 5; DUP 9; GET 3; GET 4; DUP 6; GET; IF_NONE { PUSH int 525; FAILWITH } {}; CAR; CAR; CDR; DUP 10; GET 3; GET 4; DUP 7; GET; IF_NONE { PUSH int 525; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; MEM; IF { DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 530; FAILWITH } {}; DUP 5; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 9; CAR; GET 5; DUP 5; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 8; CAR; GET 5; DIG 3; CAR; CDR; DUP 9; GET 3; GET 4; DIG 5; GET; IF_NONE { PUSH int 534; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } } } {}; DUP 2; DUP 5; CAR; CAR; GET 3; PUSH nat 4; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; DIG 4; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 4; UPDATE; PAIR; SWAP; PUSH bool True; LEVEL; DIG 7; DROP; DIG 7; DROP; DIG 6; UNPAIR; SWAP; SUB; PAIR 3; SOME; DIG 5; UPDATE; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 11 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { IF_LEFT {} { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 3; PUSH nat 1; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 1; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PUSH nat 0; DUP 2; CAR; CDR; COMPARE; EQ; IF {} { PUSH string "CMPT_BORROW_IN_MARKET"; FAILWITH }; DUP 2; GET 3; GET 4; SENDER; MEM; IF { DUP 2; GET 3; GET 4; SENDER; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; CAR; GET 3; CDR; DUP 2; CAR; CAR; MEM; IF { DUP 2; CAR; GET 3; CDR; DUP 2; CAR; CAR; GET; IF_NONE { PUSH int 180; FAILWITH } {}; SENDER; MEM } { PUSH bool False }; IF { DUP 2; GET 3; CAR; CDR; DUP 2; CAR; CAR; MEM; IF { PUSH nat 0; DUP 3; GET 3; CAR; CDR; DUP 3; CAR; CAR; GET; IF_NONE { PUSH int 182; FAILWITH } {}; SIZE; COMPARE; NEQ } { PUSH bool False }; IF { DUP 2; CAR; CAR; CAR; DUP 2; CAR; CAR; MEM; IF {} { PUSH string "CMPT_LIQUIDITY_ABSENT"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; CAR; CAR; GET; IF_NONE { PUSH int 758; FAILWITH } {}; GET 4; IF {} { PUSH string "CMPT_LIQUIDITY_INVALID"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; CAR; CAR; GET; IF_NONE { PUSH int 760; FAILWITH } {}; GET 3; LEVEL; SUB; ISNAT; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; PUSH nat 0; DUP 2; COMPARE; EQ; IF {} { PUSH string "CMPT_LIQUIDITY_OLD"; FAILWITH }; DUP 3; GET 3; GET 4; SENDER; GET; IF_NONE { PUSH int 306; FAILWITH } {}; GET 8; LEVEL; DIG 2; DROP; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; GET 4; SENDER; GET; IF_NONE { PUSH int 307; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 2; CAR; GET 5; DUP 2; GET 3; DUP 4; GET 3; GET 4; SENDER; GET; IF_NONE { PUSH int 191; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; INT; DUP 3; CAR; CAR; CAR; DUP 3; CAR; CAR; GET; IF_NONE { PUSH int 190; FAILWITH } {}; CAR; SUB; PUSH int 0; SWAP; COMPARE; GE; IF {} { PUSH string "CMPT_REDEEMER_SHORTFALL"; FAILWITH } } {} } {}; DUP 2; CAR; CAR; CAR; DUP 2; CAR; CAR; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DUP 6; CAR; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 765; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR; SWAP } {}; DUP 2; CAR; GET 3; CDR; DUP 2; CAR; CAR; MEM; IF { DUP 2; CAR; GET 3; CDR; DUP 2; CAR; CAR; GET; IF_NONE { PUSH int 133; FAILWITH } {}; SENDER; MEM } { PUSH bool False }; IF { SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; DUP; DUP 7; CAR; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 135; FAILWITH } {}; PUSH bool False; SENDER; UPDATE; SOME; SWAP; UPDATE; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; SWAP } {}; DUP 2; CAR; CAR; CAR; DUP 2; CAR; CAR; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 5; CAR; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 765; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 12 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } {} } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 4; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; CAR; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; DUP 7; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 603; FAILWITH } {}; UNPAIR; UNPAIR; CDR; DIG 9; CDR; PAIR; PAIR; PAIR; SOME; SWAP; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 13 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; CDR; DIG 4; PAIR; PAIR; SWAP; PAIR; PAIR; NIL operation; PAIR }; Elt 14 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } } { PUSH int -1; FAILWITH } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; DUP 2; GET 3; GET 4; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; CAR; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; DUP 7; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 670; FAILWITH } {}; UNPAIR; UNPAIR; CAR; DIG 9; CDR; SWAP; PAIR; PAIR; PAIR; SOME; SWAP; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 15 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } } { PUSH int -1; FAILWITH } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; CDR; DIG 4; PAIR; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 16 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT {} { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 4; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; CAR; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; DUP 7; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 585; FAILWITH } {}; UNPAIR; UNPAIR; SWAP; CAR; DIG 9; CDR; SWAP; PAIR; SWAP; PAIR; PAIR; SOME; SWAP; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 17 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SOME; UPDATE 7; NIL operation; PAIR }; Elt 18 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; SWAP; CDR; DIG 3; UNPAIR; SWAP; PAIR; PAIR; SWAP; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 19 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; UPDATE 8; NIL operation; PAIR }; Elt 20 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; DUP 2; GET 3; GET 4; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; CAR; GET; IF_NONE { PUSH int 746; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF { PUSH string "CMPT_MARKET_ALREADY_LISTED"; FAILWITH } {}; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; PUSH (pair timestamp nat) (Pair "1970-01-01T00:00:00Z" 0); DUP 7; GET 4; PAIR; PUSH nat 0; DUP 8; GET 3; PAIR; PAIR; PUSH (pair (pair bool nat) (pair bool bool)) (Pair (Pair True 500000000000000000) (Pair True True)); PAIR; SOME; DUP 7; CAR; UPDATE; SWAP; DUP 6; CAR; SOME; PUSH string "-USD"; DIG 7; GET 3; CONCAT; UPDATE; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 21 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 8; IF { PUSH string "CMPT_TRANSFER_PAUSED"; FAILWITH } {}; DUP 2; GET 3; GET 4; DUP 2; CAR; CAR; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; CAR; CAR; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; CAR; GET 3; CDR; DUP 2; CAR; CDR; MEM; IF { DUP 2; CAR; GET 3; CDR; DUP 2; CAR; CDR; GET; IF_NONE { PUSH int 180; FAILWITH } {}; DUP 2; CAR; CAR; MEM } { PUSH bool False }; IF { DUP 2; GET 3; CAR; CDR; DUP 2; CAR; CDR; MEM; IF { PUSH nat 0; DUP 3; GET 3; CAR; CDR; DUP 3; CAR; CDR; GET; IF_NONE { PUSH int 182; FAILWITH } {}; SIZE; COMPARE; NEQ } { PUSH bool False }; IF { DUP 2; CAR; CAR; CAR; DUP 2; CAR; CDR; MEM; IF {} { PUSH string "CMPT_LIQUIDITY_ABSENT"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; CAR; CDR; GET; IF_NONE { PUSH int 758; FAILWITH } {}; GET 4; IF {} { PUSH string "CMPT_LIQUIDITY_INVALID"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; CAR; CDR; GET; IF_NONE { PUSH int 760; FAILWITH } {}; GET 3; LEVEL; SUB; ISNAT; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; PUSH nat 0; DUP 2; COMPARE; EQ; IF {} { PUSH string "CMPT_LIQUIDITY_OLD"; FAILWITH }; DUP 3; GET 3; GET 4; DUP 3; CAR; CAR; GET; IF_NONE { PUSH int 306; FAILWITH } {}; GET 8; LEVEL; DIG 2; DROP; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; GET 4; DUP 3; CAR; CAR; GET; IF_NONE { PUSH int 307; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 2; CAR; GET 5; DUP 2; GET 4; DUP 4; GET 3; GET 4; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 191; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; INT; DUP 3; CAR; CAR; CAR; DUP 3; CAR; CDR; GET; IF_NONE { PUSH int 190; FAILWITH } {}; CAR; SUB; PUSH int 0; SWAP; COMPARE; GE; IF {} { PUSH string "CMPT_REDEEMER_SHORTFALL"; FAILWITH } } {} } {}; DUP 2; CAR; CAR; CAR; DUP 2; CAR; CDR; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 5; CAR; CDR; DUP; DUG 2; GET; IF_NONE { PUSH int 765; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }}) + -> (Pair (Pair (Pair (Pair (Pair {} {}) (Pair "KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2" 500000000000000000)) (Pair (Pair {} 1000000000000000000) (Pair 500000000000000000 1050000000000000000))) (Pair (Pair (Pair {} {}) (Pair {} 15)) (Pair (Pair 86400 "KT1LDtNKDnpziwSrmSfx3xCbs7nBMg7VFp4m") (Pair None True)))) {Elt 0 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP; GET 7; IF_NONE { PUSH string "CMPT_NOT_SET_PENDING_ADMIN"; FAILWITH } {}; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_PENDING_ADMIN"; FAILWITH }; DUP; GET 7; IF_NONE { PUSH int 594; FAILWITH } {}; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; DIG 4; PAIR; SWAP; PAIR; PAIR; PAIR; NONE address; UPDATE 7; NIL operation; PAIR }; Elt 1 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } {} } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 3; DUP 2; CAR; GET; IF_NONE { PUSH int 217; FAILWITH } {}; CAR; CAR; CAR; IF { PUSH string "CMPT_BORROW_PAUSED"; FAILWITH } {}; DUP 2; GET 3; GET 3; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 3; DUP 2; CAR; GET; IF_NONE { PUSH int 785; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; PUSH bool True; DUP 3; CAR; GET 3; CAR; DUP 3; GET 3; MEM; IF { DUP 3; CAR; GET 3; CAR; DUP 3; GET 3; GET; IF_NONE { PUSH int 827; FAILWITH } {}; DUP 3; CAR; MEM; IF { DROP; PUSH bool False } {} } {}; DUP 3; GET 3; CAR; CAR; DUP 3; GET 3; MEM; IF { DUP } { PUSH bool False }; IF { DUP 3; GET 3; CAR; CAR; DUP 3; GET 3; GET; IF_NONE { PUSH int 831; FAILWITH } {}; DUP 3; CAR; MEM; IF { DROP; PUSH bool False } {} } {}; DUP; IF { EMPTY_SET address; DUP 4; CAR; GET 3; CAR; DUP 4; GET 3; MEM; IF { DUP 4; CAR; GET 3; CAR; DUP 4; GET 3; GET; IF_NONE { PUSH int 814; FAILWITH } {}; ITER { SWAP; PUSH bool True; DIG 2; UPDATE } } {}; DUP 4; GET 3; CAR; CAR; DUP 4; GET 3; MEM; IF { DUP 4; GET 3; CAR; CAR; DUP 4; GET 3; GET; IF_NONE { PUSH int 818; FAILWITH } {}; ITER { SWAP; PUSH bool True; DIG 2; UPDATE } } {}; DUP 4; GET 3; GET 4; SWAP; SIZE; COMPARE; LT; IF {} { PUSH string "CMPT_TOO_MANY_ASSETS"; FAILWITH } } {}; DUP 3; GET 3; CAR; CAR; DUP 3; GET 3; MEM; IF {} { DUP 2; CAR; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_INVALID_BORROW_SENDER"; FAILWITH }; DUP 3; GET 3; GET 3; SENDER; MEM; IF { DUP 3; GET 3; GET 3; SENDER; GET; IF_NONE { PUSH int 785; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 3; GET 3; CAR; CAR; DUP 3; GET 3; MEM; IF { DIG 2; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DUP 8; GET 3; DUP; DUG 2; GET; IF_NONE { PUSH int 239; FAILWITH } {}; PUSH bool True; SENDER; UPDATE; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR; SWAP; PAIR; DUG 2 } { DIG 2; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; EMPTY_SET address; PUSH bool True; SENDER; UPDATE; SOME; DUP 8; GET 3; UPDATE; PAIR; PAIR; PAIR; SWAP; PAIR; DUG 2 } }; DUP 3; CAR; CAR; CAR; CAR; DUP 3; GET 3; MEM; IF {} { PUSH string "CMPT_LIQUIDITY_ABSENT"; FAILWITH }; DUP 3; CAR; CAR; CAR; CAR; DUP 3; GET 3; GET; IF_NONE { PUSH int 801; FAILWITH } {}; GET 4; IF {} { PUSH string "CMPT_LIQUIDITY_INVALID"; FAILWITH }; DUP 3; CAR; CAR; CAR; CAR; DUP 3; GET 3; GET; IF_NONE { PUSH int 803; FAILWITH } {}; GET 3; LEVEL; SUB; ISNAT; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; PUSH nat 0; DUP 2; COMPARE; EQ; IF {} { PUSH string "CMPT_LIQUIDITY_OLD"; FAILWITH }; DUP 4; GET 3; GET 3; DUP 4; CAR; GET; IF_NONE { PUSH int 315; FAILWITH } {}; GET 8; LEVEL; DIG 2; DROP; DIG 2; DROP; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; GET 3; DUP 3; CAR; GET; IF_NONE { PUSH int 316; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 2; CAR; GET 3; CDR; DUP 2; GET 4; DUP 4; GET 3; GET 3; DUP 4; CAR; GET; IF_NONE { PUSH int 196; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; INT; DUP 3; CAR; CAR; CAR; CAR; DUP 3; GET 3; GET; IF_NONE { PUSH int 195; FAILWITH } {}; CAR; SUB; PUSH int 0; SWAP; COMPARE; GE; IF {} { PUSH string "CMPT_REDEEMER_SHORTFALL"; FAILWITH }; DUP 2; CAR; CAR; CAR; CAR; DUP 2; GET 3; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 6; GET 3; DUP; DUG 2; GET; IF_NONE { PUSH int 808; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 2 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 3; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; DUP 2; GET 3; GET 3; DUP 2; MEM; IF { DUP 2; GET 3; GET 3; DUP 2; GET; IF_NONE { PUSH int 785; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; DUP; DIG 6; DUP; DUG 2; GET; IF_NONE { PUSH int 776; FAILWITH } {}; UNPAIR; UNPAIR; SWAP; CDR; PUSH bool False; PAIR; SWAP; PAIR; PAIR; SOME; SWAP; UPDATE; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 3 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; EMPTY_SET address; DUP 3; CAR; GET 3; CAR; SENDER; MEM; IF { DUP 3; CAR; GET 3; CAR; SENDER; GET; IF_NONE { PUSH int 814; FAILWITH } {}; ITER { SWAP; PUSH bool True; DIG 2; UPDATE } } {}; DUP 3; GET 3; CAR; CAR; SENDER; MEM; IF { DUP 3; GET 3; CAR; CAR; SENDER; GET; IF_NONE { PUSH int 818; FAILWITH } {}; ITER { SWAP; PUSH bool True; DIG 2; UPDATE } } {}; DUP; SIZE; DUP 3; ITER { PUSH bool True; DUP 6; CAR; GET 3; CAR; SENDER; MEM; IF { DUP 6; CAR; GET 3; CAR; SENDER; GET; IF_NONE { PUSH int 827; FAILWITH } {}; DUP 3; MEM; IF { DROP; PUSH bool False } {} } {}; DUP 6; GET 3; CAR; CAR; SENDER; MEM; IF { DUP } { PUSH bool False }; IF { DUP 6; GET 3; CAR; CAR; SENDER; GET; IF_NONE { PUSH int 831; FAILWITH } {}; DUP 3; MEM; IF { DROP; PUSH bool False } {} } {}; IF { DUP 5; GET 3; GET 4; DUP 3; COMPARE; LT; IF {} { PUSH string "CMPT_TOO_MANY_ASSETS"; FAILWITH }; SWAP; PUSH nat 1; ADD; SWAP } {}; DUP 5; GET 3; GET 3; DUP 2; MEM; IF { DUP 5; GET 3; GET 3; DUP 2; GET; IF_NONE { PUSH int 785; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 5; CAR; GET 3; CAR; SENDER; MEM; IF { DIG 4; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; DUP; SENDER; DUP; DUG 2; GET; IF_NONE { PUSH int 94; FAILWITH } {}; PUSH bool True; DIG 8; UPDATE; SOME; SWAP; UPDATE; PAIR; PAIR; SWAP; PAIR; PAIR; DUG 3 } { DIG 4; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; EMPTY_SET address; PUSH bool True; DIG 7; UPDATE; SOME; SENDER; UPDATE; PAIR; PAIR; SWAP; PAIR; PAIR; DUG 3 } }; DROP 3; DUP; CAR; CAR; CAR; CAR; SENDER; MEM; IF { UNPAIR; UNPAIR; UNPAIR; UNPAIR; DUP; SENDER; DUP; DUG 2; GET; IF_NONE { PUSH int 808; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR; PAIR } {}; NIL operation; PAIR }; Elt 4 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { DROP } } } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; DUP; CAR; CAR; GET 3; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; UNPAIR; UNPAIR; UNPAIR; CAR; EMPTY_SET nat; SWAP; PAIR; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 5 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT {} { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 3; DUP 2; CAR; CDR; MEM; IF { DUP 2; GET 3; GET 3; DUP 2; CAR; CDR; GET; IF_NONE { PUSH int 785; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; GET 3; GET 3; DUP 2; GET 3; MEM; IF { DUP 2; GET 3; GET 3; DUP 2; GET 3; GET; IF_NONE { PUSH int 785; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; PUSH (pair nat nat) (Pair 0 0); DUP; DUP 4; CAR; GET 3; CAR; DUP 4; CAR; CAR; MEM; IF { DUP 4; CAR; GET 3; CAR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 500; FAILWITH } {}; ITER { DUP; DUP 5; CAR; CAR; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH string "CMPT_OUTDATED_ACCOUNT_SNAPSHOT"; FAILWITH } { DROP }; DUP; DUP 5; CAR; CAR; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH int 530; FAILWITH } {}; DUP; GET 4; DUP 7; GET 3; GET 3; DUP 4; GET; IF_NONE { PUSH int 315; FAILWITH } {}; GET 8; LEVEL; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 8; GET 3; GET 3; DUP 5; GET; IF_NONE { PUSH int 316; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 7; CAR; GET 3; CDR; SWAP; DUP 8; CAR; GET 3; CDR; DUP 9; GET 3; GET 3; DUP 6; GET; IF_NONE { PUSH int 534; FAILWITH } {}; CAR; CAR; CDR; DUP 10; GET 3; GET 3; DUP 7; GET; IF_NONE { PUSH int 534; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 8; CAR; GET 3; CAR; DUP 4; CAR; CAR; MEM; IF { DUP 8; CAR; GET 3; CAR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 539; FAILWITH } {}; DUP 5; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 9; CAR; GET 3; CDR; DUP 5; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 8; CAR; GET 3; CDR; DIG 3; CAR; CDR; DUP 9; GET 3; GET 3; DIG 5; GET; IF_NONE { PUSH int 543; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } } {}; DUP 4; GET 3; CAR; CAR; DUP 4; CAR; CAR; MEM; IF { DUP 4; GET 3; CAR; CAR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 508; FAILWITH } {}; ITER { DUP 5; CAR; GET 3; CAR; DUP 5; CAR; CAR; MEM; IF { DUP 5; CAR; GET 3; CAR; DUP 5; CAR; CAR; GET; IF_NONE { PUSH int 511; FAILWITH } {}; DUP 2; MEM; IF { DROP } { DUP; DUP 5; CAR; CAR; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH string "CMPT_OUTDATED_ACCOUNT_SNAPSHOT"; FAILWITH } { DROP }; DUP; DUP 5; CAR; CAR; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH int 530; FAILWITH } {}; DUP; GET 4; DUP 7; GET 3; GET 3; DUP 4; GET; IF_NONE { PUSH int 315; FAILWITH } {}; GET 8; LEVEL; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 8; GET 3; GET 3; DUP 5; GET; IF_NONE { PUSH int 316; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 7; CAR; GET 3; CDR; SWAP; DUP 8; CAR; GET 3; CDR; DUP 9; GET 3; GET 3; DUP 6; GET; IF_NONE { PUSH int 534; FAILWITH } {}; CAR; CAR; CDR; DUP 10; GET 3; GET 3; DUP 7; GET; IF_NONE { PUSH int 534; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 8; CAR; GET 3; CAR; DUP 4; CAR; CAR; MEM; IF { DUP 8; CAR; GET 3; CAR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 539; FAILWITH } {}; DUP 5; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 9; CAR; GET 3; CDR; DUP 5; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 8; CAR; GET 3; CDR; DIG 3; CAR; CDR; DUP 9; GET 3; GET 3; DIG 5; GET; IF_NONE { PUSH int 543; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } } { DUP; DUP 5; CAR; CAR; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH string "CMPT_OUTDATED_ACCOUNT_SNAPSHOT"; FAILWITH } { DROP }; DUP; DUP 5; CAR; CAR; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH int 530; FAILWITH } {}; DUP; GET 4; DUP 7; GET 3; GET 3; DUP 4; GET; IF_NONE { PUSH int 315; FAILWITH } {}; GET 8; LEVEL; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 8; GET 3; GET 3; DUP 5; GET; IF_NONE { PUSH int 316; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 7; CAR; GET 3; CDR; SWAP; DUP 8; CAR; GET 3; CDR; DUP 9; GET 3; GET 3; DUP 6; GET; IF_NONE { PUSH int 534; FAILWITH } {}; CAR; CAR; CDR; DUP 10; GET 3; GET 3; DUP 7; GET; IF_NONE { PUSH int 534; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 8; CAR; GET 3; CAR; DUP 4; CAR; CAR; MEM; IF { DUP 8; CAR; GET 3; CAR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 539; FAILWITH } {}; DUP 5; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 9; CAR; GET 3; CDR; DUP 5; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 8; CAR; GET 3; CDR; DIG 3; CAR; CDR; DUP 9; GET 3; GET 3; DIG 5; GET; IF_NONE { PUSH int 543; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } }; DROP } { DROP }; UNPAIR; SWAP; SUB; PUSH int 0; COMPARE; GT; IF {} { PUSH string "CMPT_INSUFFICIENT_SHORTFALL"; FAILWITH }; DUP 2; CAR; GET 3; CDR; DUP 2; CAR; CDR; DUP 3; CAR; CAR; VIEW "borrowBalanceStoredView" (pair nat nat); IF_NONE { PUSH string "INVALID ACCOUNT BORROW BALANCE VIEW"; FAILWITH } {}; CAR; DUP 4; CAR; CAR; GET 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; SWAP; DUP; GET 6; DIG 2; COMPARE; GE; IF {} { PUSH string "CMPT_TOO_MUCH_REPAY"; FAILWITH }; DUP 2; CAR; CAR; CAR; CAR; DUP 2; CAR; CAR; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; DUP; DUP 7; CAR; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 808; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR; PAIR; SWAP } {}; DUP 2; CAR; CAR; CAR; CAR; DUP 2; GET 5; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 6; GET 5; DUP; DUG 2; GET; IF_NONE { PUSH int 808; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 6 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 3; DUP 2; CAR; GET; IF_NONE { PUSH int 158; FAILWITH } {}; CAR; GET 4; IF { PUSH string "CMPT_MINT_PAUSED"; FAILWITH } {}; DUP 2; GET 3; GET 3; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 3; DUP 2; CAR; GET; IF_NONE { PUSH int 785; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; CAR; CAR; CAR; CAR; DUP 2; GET 3; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 6; GET 3; DUP; DUG 2; GET; IF_NONE { PUSH int 808; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 7 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 3; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 3; DUP 2; CAR; GET; IF_NONE { PUSH int 785; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; CAR; GET 3; CAR; DUP 2; GET 3; MEM; IF { DUP 2; CAR; GET 3; CAR; DUP 2; GET 3; GET; IF_NONE { PUSH int 185; FAILWITH } {}; DUP 2; CAR; MEM } { PUSH bool False }; IF { DUP 2; GET 3; CAR; CAR; DUP 2; GET 3; MEM; IF { PUSH nat 0; DUP 3; GET 3; CAR; CAR; DUP 3; GET 3; GET; IF_NONE { PUSH int 187; FAILWITH } {}; SIZE; COMPARE; NEQ } { PUSH bool False }; IF { DUP 2; CAR; CAR; CAR; CAR; DUP 2; GET 3; MEM; IF {} { PUSH string "CMPT_LIQUIDITY_ABSENT"; FAILWITH }; DUP 2; CAR; CAR; CAR; CAR; DUP 2; GET 3; GET; IF_NONE { PUSH int 801; FAILWITH } {}; GET 4; IF {} { PUSH string "CMPT_LIQUIDITY_INVALID"; FAILWITH }; DUP 2; CAR; CAR; CAR; CAR; DUP 2; GET 3; GET; IF_NONE { PUSH int 803; FAILWITH } {}; GET 3; LEVEL; SUB; ISNAT; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; PUSH nat 0; DUP 2; COMPARE; EQ; IF {} { PUSH string "CMPT_LIQUIDITY_OLD"; FAILWITH }; DUP 3; GET 3; GET 3; DUP 3; CAR; GET; IF_NONE { PUSH int 315; FAILWITH } {}; GET 8; LEVEL; DIG 2; DROP; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; GET 3; DUP 3; CAR; GET; IF_NONE { PUSH int 316; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 2; CAR; GET 3; CDR; DUP 2; GET 4; DUP 4; GET 3; GET 3; DUP 4; CAR; GET; IF_NONE { PUSH int 196; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; INT; DUP 3; CAR; CAR; CAR; CAR; DUP 3; GET 3; GET; IF_NONE { PUSH int 195; FAILWITH } {}; CAR; SUB; PUSH int 0; SWAP; COMPARE; GE; IF {} { PUSH string "CMPT_REDEEMER_SHORTFALL"; FAILWITH } } {} } {}; DUP 2; CAR; CAR; CAR; CAR; DUP 2; GET 3; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 6; GET 3; DUP; DUG 2; GET; IF_NONE { PUSH int 808; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 8 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 3; SENDER; MEM; IF { DUP 2; GET 3; GET 3; SENDER; GET; IF_NONE { PUSH int 785; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; GET 3; CAR; CAR; DUP 2; MEM; IF { DUP 2; GET 3; CAR; CAR; DUP 2; GET; IF_NONE { PUSH int 248; FAILWITH } {}; SENDER; MEM } { PUSH bool False }; IF { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 6; DUP; DUG 2; GET; IF_NONE { PUSH int 249; FAILWITH } {}; PUSH bool False; SENDER; UPDATE; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR; SWAP; PAIR } { DROP }; NIL operation; PAIR }; Elt 9 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 3; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 3; DUP 2; CAR; GET; IF_NONE { PUSH int 785; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; CAR; CAR; CAR; CAR; DUP 2; GET 5; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; DUP; DUP 7; GET 5; DUP; DUG 2; GET; IF_NONE { PUSH int 808; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR; PAIR; SWAP } {}; DUP 2; CAR; CAR; CAR; CAR; DUP 2; GET 3; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 6; GET 3; DUP; DUG 2; GET; IF_NONE { PUSH int 808; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 10 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; PUSH (pair nat nat) (Pair 0 0); DUP; DUP 4; CAR; GET 3; CAR; DUP 4; MEM; IF { DUP 4; CAR; GET 3; CAR; DUP 4; GET; IF_NONE { PUSH int 500; FAILWITH } {}; ITER { DUP; DUP 5; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH string "CMPT_OUTDATED_ACCOUNT_SNAPSHOT"; FAILWITH } { DROP }; DUP; DUP 5; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH int 530; FAILWITH } {}; DUP; GET 4; DUP 7; GET 3; GET 3; DUP 4; GET; IF_NONE { PUSH int 315; FAILWITH } {}; GET 8; LEVEL; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 8; GET 3; GET 3; DUP 5; GET; IF_NONE { PUSH int 316; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 7; CAR; GET 3; CDR; SWAP; DUP 8; CAR; GET 3; CDR; DUP 9; GET 3; GET 3; DUP 6; GET; IF_NONE { PUSH int 534; FAILWITH } {}; CAR; CAR; CDR; DUP 10; GET 3; GET 3; DUP 7; GET; IF_NONE { PUSH int 534; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 8; CAR; GET 3; CAR; DUP 4; CAR; CAR; MEM; IF { DUP 8; CAR; GET 3; CAR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 539; FAILWITH } {}; DUP 5; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 9; CAR; GET 3; CDR; DUP 5; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 8; CAR; GET 3; CDR; DIG 3; CAR; CDR; DUP 9; GET 3; GET 3; DIG 5; GET; IF_NONE { PUSH int 543; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } } {}; DUP 4; GET 3; CAR; CAR; DUP 4; MEM; IF { DUP 4; GET 3; CAR; CAR; DUP 4; GET; IF_NONE { PUSH int 508; FAILWITH } {}; ITER { DUP 5; CAR; GET 3; CAR; DUP 5; MEM; IF { DUP 5; CAR; GET 3; CAR; DUP 5; GET; IF_NONE { PUSH int 511; FAILWITH } {}; DUP 2; MEM; IF { DROP } { DUP; DUP 5; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH string "CMPT_OUTDATED_ACCOUNT_SNAPSHOT"; FAILWITH } { DROP }; DUP; DUP 5; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH int 530; FAILWITH } {}; DUP; GET 4; DUP 7; GET 3; GET 3; DUP 4; GET; IF_NONE { PUSH int 315; FAILWITH } {}; GET 8; LEVEL; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 8; GET 3; GET 3; DUP 5; GET; IF_NONE { PUSH int 316; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 7; CAR; GET 3; CDR; SWAP; DUP 8; CAR; GET 3; CDR; DUP 9; GET 3; GET 3; DUP 6; GET; IF_NONE { PUSH int 534; FAILWITH } {}; CAR; CAR; CDR; DUP 10; GET 3; GET 3; DUP 7; GET; IF_NONE { PUSH int 534; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 8; CAR; GET 3; CAR; DUP 4; CAR; CAR; MEM; IF { DUP 8; CAR; GET 3; CAR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 539; FAILWITH } {}; DUP 5; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 9; CAR; GET 3; CDR; DUP 5; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 8; CAR; GET 3; CDR; DIG 3; CAR; CDR; DUP 9; GET 3; GET 3; DIG 5; GET; IF_NONE { PUSH int 543; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } } { DUP; DUP 5; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH string "CMPT_OUTDATED_ACCOUNT_SNAPSHOT"; FAILWITH } { DROP }; DUP; DUP 5; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH int 530; FAILWITH } {}; DUP; GET 4; DUP 7; GET 3; GET 3; DUP 4; GET; IF_NONE { PUSH int 315; FAILWITH } {}; GET 8; LEVEL; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 8; GET 3; GET 3; DUP 5; GET; IF_NONE { PUSH int 316; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 7; CAR; GET 3; CDR; SWAP; DUP 8; CAR; GET 3; CDR; DUP 9; GET 3; GET 3; DUP 6; GET; IF_NONE { PUSH int 534; FAILWITH } {}; CAR; CAR; CDR; DUP 10; GET 3; GET 3; DUP 7; GET; IF_NONE { PUSH int 534; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 8; CAR; GET 3; CAR; DUP 4; CAR; CAR; MEM; IF { DUP 8; CAR; GET 3; CAR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 539; FAILWITH } {}; DUP 5; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 9; CAR; GET 3; CDR; DUP 5; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 8; CAR; GET 3; CDR; DIG 3; CAR; CDR; DUP 9; GET 3; GET 3; DIG 5; GET; IF_NONE { PUSH int 543; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } } } {}; DUP 2; DUP 5; CAR; CAR; CAR; CDR; PUSH nat 4; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; DIG 4; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; PUSH bool False; PUSH nat 4; UPDATE; SWAP; PUSH bool True; LEVEL; DIG 8; DROP; DIG 8; DROP; DIG 7; UNPAIR; SWAP; SUB; PAIR 3; SOME; DIG 6; UPDATE; PAIR; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 11 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { IF_LEFT {} { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; CAR; CDR; PUSH nat 1; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; PUSH bool False; PUSH nat 1; UPDATE; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; PUSH nat 0; DUP 2; CAR; CDR; COMPARE; EQ; IF {} { PUSH string "CMPT_BORROW_IN_MARKET"; FAILWITH }; DUP 2; GET 3; GET 3; SENDER; MEM; IF { DUP 2; GET 3; GET 3; SENDER; GET; IF_NONE { PUSH int 785; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; CAR; GET 3; CAR; DUP 2; CAR; CAR; MEM; IF { DUP 2; CAR; GET 3; CAR; DUP 2; CAR; CAR; GET; IF_NONE { PUSH int 185; FAILWITH } {}; SENDER; MEM } { PUSH bool False }; IF { DUP 2; GET 3; CAR; CAR; DUP 2; CAR; CAR; MEM; IF { PUSH nat 0; DUP 3; GET 3; CAR; CAR; DUP 3; CAR; CAR; GET; IF_NONE { PUSH int 187; FAILWITH } {}; SIZE; COMPARE; NEQ } { PUSH bool False }; IF { DUP 2; CAR; CAR; CAR; CAR; DUP 2; CAR; CAR; MEM; IF {} { PUSH string "CMPT_LIQUIDITY_ABSENT"; FAILWITH }; DUP 2; CAR; CAR; CAR; CAR; DUP 2; CAR; CAR; GET; IF_NONE { PUSH int 801; FAILWITH } {}; GET 4; IF {} { PUSH string "CMPT_LIQUIDITY_INVALID"; FAILWITH }; DUP 2; CAR; CAR; CAR; CAR; DUP 2; CAR; CAR; GET; IF_NONE { PUSH int 803; FAILWITH } {}; GET 3; LEVEL; SUB; ISNAT; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; PUSH nat 0; DUP 2; COMPARE; EQ; IF {} { PUSH string "CMPT_LIQUIDITY_OLD"; FAILWITH }; DUP 3; GET 3; GET 3; SENDER; GET; IF_NONE { PUSH int 315; FAILWITH } {}; GET 8; LEVEL; DIG 2; DROP; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; GET 3; SENDER; GET; IF_NONE { PUSH int 316; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 2; CAR; GET 3; CDR; DUP 2; GET 3; DUP 4; GET 3; GET 3; SENDER; GET; IF_NONE { PUSH int 196; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; INT; DUP 3; CAR; CAR; CAR; CAR; DUP 3; CAR; CAR; GET; IF_NONE { PUSH int 195; FAILWITH } {}; CAR; SUB; PUSH int 0; SWAP; COMPARE; GE; IF {} { PUSH string "CMPT_REDEEMER_SHORTFALL"; FAILWITH } } {} } {}; DUP 2; CAR; CAR; CAR; CAR; DUP 2; CAR; CAR; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; DUP; DUP 7; CAR; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 808; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR; PAIR; SWAP } {}; DUP 2; CAR; GET 3; CAR; DUP 2; CAR; CAR; MEM; IF { DUP 2; CAR; GET 3; CAR; DUP 2; CAR; CAR; GET; IF_NONE { PUSH int 138; FAILWITH } {}; SENDER; MEM } { PUSH bool False }; IF { SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; DUP; DUP 7; CAR; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 140; FAILWITH } {}; PUSH bool False; SENDER; UPDATE; SOME; SWAP; UPDATE; PAIR; PAIR; SWAP; PAIR; PAIR; SWAP } {}; DUP 2; CAR; CAR; CAR; CAR; DUP 2; CAR; CAR; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 6; CAR; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 808; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 12 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 3; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 3; DUP 2; CAR; GET; IF_NONE { PUSH int 785; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; CAR; CAR; GET 3; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; DUP; DUP 7; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 631; FAILWITH } {}; UNPAIR; UNPAIR; CDR; DIG 9; CDR; PAIR; PAIR; PAIR; SOME; SWAP; UPDATE; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 13 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 3; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; CAR; DIG 4; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 14 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 3; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; DUP 2; GET 3; GET 3; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 3; DUP 2; CAR; GET; IF_NONE { PUSH int 785; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; DUP; DUP 7; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 713; FAILWITH } {}; UNPAIR; UNPAIR; CAR; DIG 9; CDR; SWAP; PAIR; PAIR; PAIR; SOME; SWAP; UPDATE; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 15 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } } { PUSH int -1; FAILWITH } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 3; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CAR; DIG 4; SWAP; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; NIL operation; PAIR }; Elt 16 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } } { PUSH int -1; FAILWITH } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 3; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CAR; DIG 4; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 17 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT {} { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 3; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 3; DUP 2; CAR; GET; IF_NONE { PUSH int 785; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; CAR; CAR; GET 3; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; DUP; DUP 7; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 613; FAILWITH } {}; UNPAIR; UNPAIR; SWAP; CAR; DIG 9; CDR; SWAP; PAIR; SWAP; PAIR; PAIR; SOME; SWAP; UPDATE; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 18 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 3; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SOME; UPDATE 7; NIL operation; PAIR }; Elt 19 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 3; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; SWAP; CDR; DIG 3; UNPAIR; SWAP; PAIR; PAIR; SWAP; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 20 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 3; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; UPDATE 8; NIL operation; PAIR }; Elt 21 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 3; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; DUP 2; GET 3; GET 3; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 3; DUP 2; CAR; GET; IF_NONE { PUSH int 789; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF { PUSH string "CMPT_MARKET_ALREADY_LISTED"; FAILWITH } {}; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH (pair timestamp nat) (Pair "1970-01-01T00:00:00Z" 0); DUP 7; GET 4; PAIR; PUSH nat 0; DUP 8; GET 3; PAIR; PAIR; PUSH (pair (pair bool nat) (pair bool bool)) (Pair (Pair True 500000000000000000) (Pair True True)); PAIR; SOME; DUP 7; CAR; UPDATE; PAIR; SWAP; UNPAIR; SWAP; DUP 6; CAR; SOME; PUSH string "-USD"; DIG 7; GET 3; CONCAT; UPDATE; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 22 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 8; IF { PUSH string "CMPT_TRANSFER_PAUSED"; FAILWITH } {}; DUP 2; GET 3; GET 3; DUP 2; CAR; CAR; MEM; IF { DUP 2; GET 3; GET 3; DUP 2; CAR; CAR; GET; IF_NONE { PUSH int 785; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; CAR; GET 3; CAR; DUP 2; CAR; CDR; MEM; IF { DUP 2; CAR; GET 3; CAR; DUP 2; CAR; CDR; GET; IF_NONE { PUSH int 185; FAILWITH } {}; DUP 2; CAR; CAR; MEM } { PUSH bool False }; IF { DUP 2; GET 3; CAR; CAR; DUP 2; CAR; CDR; MEM; IF { PUSH nat 0; DUP 3; GET 3; CAR; CAR; DUP 3; CAR; CDR; GET; IF_NONE { PUSH int 187; FAILWITH } {}; SIZE; COMPARE; NEQ } { PUSH bool False }; IF { DUP 2; CAR; CAR; CAR; CAR; DUP 2; CAR; CDR; MEM; IF {} { PUSH string "CMPT_LIQUIDITY_ABSENT"; FAILWITH }; DUP 2; CAR; CAR; CAR; CAR; DUP 2; CAR; CDR; GET; IF_NONE { PUSH int 801; FAILWITH } {}; GET 4; IF {} { PUSH string "CMPT_LIQUIDITY_INVALID"; FAILWITH }; DUP 2; CAR; CAR; CAR; CAR; DUP 2; CAR; CDR; GET; IF_NONE { PUSH int 803; FAILWITH } {}; GET 3; LEVEL; SUB; ISNAT; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; PUSH nat 0; DUP 2; COMPARE; EQ; IF {} { PUSH string "CMPT_LIQUIDITY_OLD"; FAILWITH }; DUP 3; GET 3; GET 3; DUP 3; CAR; CAR; GET; IF_NONE { PUSH int 315; FAILWITH } {}; GET 8; LEVEL; DIG 2; DROP; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; GET 3; DUP 3; CAR; CAR; GET; IF_NONE { PUSH int 316; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 2; CAR; GET 3; CDR; DUP 2; GET 4; DUP 4; GET 3; GET 3; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 196; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; INT; DUP 3; CAR; CAR; CAR; CAR; DUP 3; CAR; CDR; GET; IF_NONE { PUSH int 195; FAILWITH } {}; CAR; SUB; PUSH int 0; SWAP; COMPARE; GE; IF {} { PUSH string "CMPT_REDEEMER_SHORTFALL"; FAILWITH } } {} } {}; DUP 2; CAR; CAR; CAR; CAR; DUP 2; CAR; CDR; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 6; CAR; CDR; DUP; DUG 2; GET; IF_NONE { PUSH int 808; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }}) => ./compiled_contracts/Comptroller/step_000_cont_0_storage.tz 1 - => ./compiled_contracts/Comptroller/step_000_cont_0_storage.json 4674 + => ./compiled_contracts/Comptroller/step_000_cont_0_storage.json 5105 => ./compiled_contracts/Comptroller/step_000_cont_0_sizes.csv 2 => ./compiled_contracts/Comptroller/step_000_cont_0_storage.py 1 => ./compiled_contracts/Comptroller/step_000_cont_0_types.py 7 - => ./compiled_contracts/Comptroller/step_000_cont_0_contract.tz 1159 - => ./compiled_contracts/Comptroller/step_000_cont_0_contract.json 1738 - => ./compiled_contracts/Comptroller/step_000_cont_0_contract.py 548 + => ./compiled_contracts/Comptroller/step_000_cont_0_contract.tz 1259 + => ./compiled_contracts/Comptroller/step_000_cont_0_contract.json 1851 + => ./compiled_contracts/Comptroller/step_000_cont_0_contract.py 590 diff --git a/compiled_contracts/Comptroller/step_000_cont_0_contract.json b/compiled_contracts/Comptroller/step_000_cont_0_contract.json index 11d211fc..1b51af94 100644 --- a/compiled_contracts/Comptroller/step_000_cont_0_contract.json +++ b/compiled_contracts/Comptroller/step_000_cont_0_contract.json @@ -15,23 +15,26 @@ "prim": "pair", "args": [ { - "prim": "big_map", + "prim": "pair", "args": [ - { "prim": "address" }, { - "prim": "pair", + "prim": "big_map", "args": [ - { "prim": "int", "annots": [ "%liquidity" ] }, - { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%updateLevel" ] }, { "prim": "bool", "annots": [ "%valid" ] } ] } - ] - } - ], - "annots": [ "%account_liquidity" ] + { "prim": "address" }, + { + "prim": "pair", + "args": [ + { "prim": "int", "annots": [ "%liquidity" ] }, + { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%updateLevel" ] }, { "prim": "bool", "annots": [ "%valid" ] } ] } + ] + } + ], + "annots": [ "%account_liquidity" ] + }, + { "prim": "set", "args": [ { "prim": "nat" } ], "annots": [ "%activeOperations" ] } + ] }, - { - "prim": "pair", - "args": [ { "prim": "set", "args": [ { "prim": "nat" } ], "annots": [ "%activeOperations" ] }, { "prim": "address", "annots": [ "%administrator" ] } ] - } + { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%administrator" ] }, { "prim": "nat", "annots": [ "%closeFactorMantissa" ] } ] } ] }, { @@ -40,11 +43,11 @@ { "prim": "pair", "args": [ - { "prim": "nat", "annots": [ "%closeFactorMantissa" ] }, - { "prim": "big_map", "args": [ { "prim": "address" }, { "prim": "set", "args": [ { "prim": "address" } ] } ], "annots": [ "%collaterals" ] } + { "prim": "big_map", "args": [ { "prim": "address" }, { "prim": "set", "args": [ { "prim": "address" } ] } ], "annots": [ "%collaterals" ] }, + { "prim": "nat", "annots": [ "%expScale" ] } ] }, - { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%expScale" ] }, { "prim": "nat", "annots": [ "%halfExpScale" ] } ] } + { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%halfExpScale" ] }, { "prim": "nat", "annots": [ "%liquidationIncentiveMantissa" ] } ] } ] } ] @@ -58,14 +61,13 @@ { "prim": "pair", "args": [ - { "prim": "nat", "annots": [ "%liquidationIncentiveMantissa" ] }, - { "prim": "big_map", "args": [ { "prim": "address" }, { "prim": "set", "args": [ { "prim": "address" } ] } ], "annots": [ "%loans" ] } + { "prim": "big_map", "args": [ { "prim": "address" }, { "prim": "set", "args": [ { "prim": "address" } ] } ], "annots": [ "%loans" ] }, + { "prim": "map", "args": [ { "prim": "string" }, { "prim": "address" } ], "annots": [ "%marketNameToAddress" ] } ] }, { "prim": "pair", "args": [ - { "prim": "map", "args": [ { "prim": "string" }, { "prim": "address" } ], "annots": [ "%marketNameToAddress" ] }, { "prim": "big_map", "args": [ @@ -97,7 +99,8 @@ } ], "annots": [ "%markets" ] - } + }, + { "prim": "nat", "annots": [ "%maxAssetsPerUser" ] } ] } ] @@ -211,13 +214,13 @@ { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }, - { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "bool" } ] } + { "prim": "or", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "bool" } ] }, { "prim": "nat" } ] } ] }, { "prim": "or", "args": [ - { "prim": "nat" }, { "prim": "or", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] } + { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "or", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] } ] @@ -267,13 +270,19 @@ "prim": "pair", "args": [ { - "prim": "big_map", + "prim": "pair", "args": [ - { "prim": "address" }, - { "prim": "pair", "args": [ { "prim": "int" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "bool" } ] } ] } + { + "prim": "big_map", + "args": [ + { "prim": "address" }, + { "prim": "pair", "args": [ { "prim": "int" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "bool" } ] } ] } + ] + }, + { "prim": "set", "args": [ { "prim": "nat" } ] } ] }, - { "prim": "pair", "args": [ { "prim": "set", "args": [ { "prim": "nat" } ] }, { "prim": "address" } ] } + { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }, { @@ -281,7 +290,7 @@ "args": [ { "prim": "pair", - "args": [ { "prim": "nat" }, { "prim": "big_map", "args": [ { "prim": "address" }, { "prim": "set", "args": [ { "prim": "address" } ] } ] } ] + "args": [ { "prim": "big_map", "args": [ { "prim": "address" }, { "prim": "set", "args": [ { "prim": "address" } ] } ] }, { "prim": "nat" } ] }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] @@ -296,12 +305,14 @@ "args": [ { "prim": "pair", - "args": [ { "prim": "nat" }, { "prim": "big_map", "args": [ { "prim": "address" }, { "prim": "set", "args": [ { "prim": "address" } ] } ] } ] + "args": [ + { "prim": "big_map", "args": [ { "prim": "address" }, { "prim": "set", "args": [ { "prim": "address" } ] } ] }, + { "prim": "map", "args": [ { "prim": "string" }, { "prim": "address" } ] } + ] }, { "prim": "pair", "args": [ - { "prim": "map", "args": [ { "prim": "string" }, { "prim": "address" } ] }, { "prim": "big_map", "args": [ @@ -326,7 +337,8 @@ ] } ] - } + }, + { "prim": "nat" } ] } ] @@ -358,13 +370,19 @@ "prim": "pair", "args": [ { - "prim": "big_map", + "prim": "pair", "args": [ - { "prim": "address" }, - { "prim": "pair", "args": [ { "prim": "int" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "bool" } ] } ] } + { + "prim": "big_map", + "args": [ + { "prim": "address" }, + { "prim": "pair", "args": [ { "prim": "int" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "bool" } ] } ] } + ] + }, + { "prim": "set", "args": [ { "prim": "nat" } ] } ] }, - { "prim": "pair", "args": [ { "prim": "set", "args": [ { "prim": "nat" } ] }, { "prim": "address" } ] } + { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }, { @@ -372,7 +390,7 @@ "args": [ { "prim": "pair", - "args": [ { "prim": "nat" }, { "prim": "big_map", "args": [ { "prim": "address" }, { "prim": "set", "args": [ { "prim": "address" } ] } ] } ] + "args": [ { "prim": "big_map", "args": [ { "prim": "address" }, { "prim": "set", "args": [ { "prim": "address" } ] } ] }, { "prim": "nat" } ] }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] @@ -387,12 +405,14 @@ "args": [ { "prim": "pair", - "args": [ { "prim": "nat" }, { "prim": "big_map", "args": [ { "prim": "address" }, { "prim": "set", "args": [ { "prim": "address" } ] } ] } ] + "args": [ + { "prim": "big_map", "args": [ { "prim": "address" }, { "prim": "set", "args": [ { "prim": "address" } ] } ] }, + { "prim": "map", "args": [ { "prim": "string" }, { "prim": "address" } ] } + ] }, { "prim": "pair", "args": [ - { "prim": "map", "args": [ { "prim": "string" }, { "prim": "address" } ] }, { "prim": "big_map", "args": [ @@ -417,7 +437,8 @@ ] } ] - } + }, + { "prim": "nat" } ] } ] @@ -574,29 +595,29 @@ ], "annots": [ "%setAccountSnapAndExitMarket" ] }, - { - "prim": "pair", - "args": [ { "prim": "address", "annots": [ "%cToken" ] }, { "prim": "bool", "annots": [ "%state" ] } ], - "annots": [ "%setBorrowPaused" ] - } - ] - }, - { - "prim": "or", - "args": [ - { "prim": "nat", "annots": [ "%setCloseFactor" ] }, { "prim": "or", "args": [ { "prim": "pair", - "args": [ { "prim": "address", "annots": [ "%cToken" ] }, { "prim": "nat", "annots": [ "%newCollateralFactor" ] } ], - "annots": [ "%setCollateralFactor" ] + "args": [ { "prim": "address", "annots": [ "%cToken" ] }, { "prim": "bool", "annots": [ "%state" ] } ], + "annots": [ "%setBorrowPaused" ] }, - { "prim": "nat", "annots": [ "%setLiquidationIncentive" ] } + { "prim": "nat", "annots": [ "%setCloseFactor" ] } ] } ] + }, + { + "prim": "or", + "args": [ + { + "prim": "pair", + "args": [ { "prim": "address", "annots": [ "%cToken" ] }, { "prim": "nat", "annots": [ "%newCollateralFactor" ] } ], + "annots": [ "%setCollateralFactor" ] + }, + { "prim": "or", "args": [ { "prim": "nat", "annots": [ "%setLiquidationIncentive" ] }, { "prim": "nat", "annots": [ "%setMaxAssetsPerUser" ] } ] } + ] } ] }, @@ -803,7 +824,15 @@ "prim": "IF_LEFT", "args": [ [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "11" } ] } ], - [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "12" } ] } ] + [ + { + "prim": "IF_LEFT", + "args": [ + [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "12" } ] } ], + [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "13" } ] } ] + ] + } + ] ] } ], @@ -811,13 +840,13 @@ { "prim": "IF_LEFT", "args": [ - [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "13" } ] } ], + [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "14" } ] } ], [ { "prim": "IF_LEFT", "args": [ - [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "14" } ] } ], - [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "15" } ] } ] + [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "15" } ] } ], + [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "16" } ] } ] ] } ] @@ -835,13 +864,13 @@ { "prim": "IF_LEFT", "args": [ - [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "16" } ] } ], + [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "17" } ] } ], [ { "prim": "IF_LEFT", "args": [ - [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "17" } ] } ], - [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "18" } ] } ] + [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "18" } ] } ], + [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "19" } ] } ] ] } ] @@ -852,13 +881,13 @@ { "prim": "IF_LEFT", "args": [ - [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "19" } ] } ], + [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "20" } ] } ], [ { "prim": "IF_LEFT", "args": [ - [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "20" } ] } ], - [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "21" } ] } ] + [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "21" } ] } ], + [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "22" } ] } ] ] } ] @@ -902,16 +931,16 @@ { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, - { "prim": "SWAP" }, { "prim": "UNPAIR" }, + { "prim": "SWAP" }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "1" } ] }, { "prim": "UPDATE" }, - { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "PAIR" }, + { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "CONTRACT", @@ -940,7 +969,7 @@ ], "annots": [ "%getAccountSnapshot" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "113" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "118" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "SWAP" }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, @@ -978,7 +1007,7 @@ { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SELF_ADDRESS" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, @@ -1047,7 +1076,7 @@ { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "CONS" }, { "prim": "SELF_ADDRESS" }, @@ -1075,7 +1104,7 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CONTRACT", "args": [ { "prim": "unit" } ], "annots": [ "%receive" ] }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "21" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "BALANCE" }, @@ -1088,7 +1117,7 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CONTRACT", "args": [ { "prim": "unit" } ] }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "24" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "BALANCE" }, @@ -1113,7 +1142,8 @@ { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "TEZ_TRANSFERED" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CDR" }, { "prim": "ITER", "args": [ @@ -1122,10 +1152,10 @@ { "prim": "LEVEL" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "293" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "302" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "8" } ] }, { "prim": "COMPARE" }, { "prim": "LT" }, @@ -1139,10 +1169,10 @@ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "-USD" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "295" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "304" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "CONCAT" }, @@ -1156,10 +1186,10 @@ { "prim": "PUSH", "args": [ { "prim": "timestamp" }, { "string": "1970-01-01T00:00:00Z" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "298" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "307" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "7" } ] }, { "prim": "COMPARE" }, { "prim": "NEQ" }, @@ -1188,10 +1218,10 @@ }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "301" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "310" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, @@ -1203,13 +1233,12 @@ { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, - { "prim": "SWAP" }, { "prim": "DUP" }, { "prim": "DUP", "args": [ { "int": "9" } ] }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "300" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "309" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -1228,7 +1257,7 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "302" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "311" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, { "prim": "UPDATE", "args": [ { "int": "7" } ] }, @@ -1240,7 +1269,7 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "303" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "312" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "LEVEL" }, { "prim": "DIG", "args": [ { "int": "8" } ] }, { "prim": "DROP" }, @@ -1250,7 +1279,6 @@ { "prim": "SOME" }, { "prim": "SWAP" }, { "prim": "UPDATE" }, - { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, @@ -1268,14 +1296,15 @@ { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CDR" }, { "prim": "ITER", "args": [ [ { "prim": "CDR" }, { "prim": "CONTRACT", "args": [ { "prim": "unit" } ], "annots": [ "%accrueInterest" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "347" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "356" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "UNIT" }, { "prim": "TRANSFER_TOKENS" }, @@ -1287,16 +1316,16 @@ { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, - { "prim": "SWAP" }, { "prim": "UNPAIR" }, + { "prim": "SWAP" }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "4" } ] }, { "prim": "UPDATE" }, - { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "PAIR" }, + { "prim": "PAIR" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "SELF", "annots": [ "%setAccountLiquidityWithView" ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, @@ -1314,7 +1343,8 @@ { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "TEZ_TRANSFERED" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CDR" }, { "prim": "ITER", "args": [ @@ -1323,10 +1353,10 @@ { "prim": "LEVEL" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "293" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "302" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "8" } ] }, { "prim": "COMPARE" }, { "prim": "LT" }, @@ -1340,10 +1370,10 @@ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "-USD" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "295" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "304" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "CONCAT" }, @@ -1357,10 +1387,10 @@ { "prim": "PUSH", "args": [ { "prim": "timestamp" }, { "string": "1970-01-01T00:00:00Z" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "298" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "307" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "7" } ] }, { "prim": "COMPARE" }, { "prim": "NEQ" }, @@ -1389,10 +1419,10 @@ }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "301" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "310" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, @@ -1404,13 +1434,12 @@ { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, - { "prim": "SWAP" }, { "prim": "DUP" }, { "prim": "DUP", "args": [ { "int": "9" } ] }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "300" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "309" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, @@ -1429,7 +1458,7 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "302" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "311" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, { "prim": "UPDATE", "args": [ { "int": "7" } ] }, @@ -1441,7 +1470,7 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "303" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "312" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "LEVEL" }, { "prim": "DIG", "args": [ { "int": "8" } ] }, { "prim": "DROP" }, @@ -1451,7 +1480,6 @@ { "prim": "SOME" }, { "prim": "SWAP" }, { "prim": "UPDATE" }, - { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, @@ -1490,6 +1518,88 @@ ] ] }, + { + "prim": "view", + "args": [ + { "string": "getMaxAssetsPerUser" }, + { "prim": "unit" }, + { "prim": "nat" }, + [ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] } ] + ] + }, + { + "prim": "view", + "args": [ + { "string": "getUserAssetsCount" }, + { "prim": "address" }, + { "prim": "nat" }, + [ + { "prim": "UNPAIR", "args": [ { "int": "3" } ] }, + { "prim": "EMPTY_SET", "args": [ { "prim": "address" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "814" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { + "prim": "ITER", + "args": [ + [ + { "prim": "SWAP" }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "UPDATE" } + ] + ] + } + ], + [] + ] + }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "DROP" }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "818" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { + "prim": "ITER", + "args": [ + [ + { "prim": "SWAP" }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "UPDATE" } + ] + ] + } + ], + [ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ] + ] + }, + { "prim": "SIZE" } + ] + ] + }, { "prim": "view", "args": [ @@ -1506,11 +1616,11 @@ { "prim": "UNPAIR", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "306" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "315" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "8" } ] }, { "prim": "LEVEL" }, { "prim": "COMPARE" }, @@ -1518,20 +1628,20 @@ { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_UPDATE_PRICE" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "307" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "316" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "306" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "315" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "8" } ] }, { "prim": "LEVEL" }, { "prim": "DIG", "args": [ { "int": "5" } ] }, @@ -1541,11 +1651,11 @@ { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_UPDATE_PRICE" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "307" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "316" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, @@ -1562,18 +1672,19 @@ { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_PRICE_ERROR" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CDR" }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, - { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "CAR" }, { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "6" } ] }, { "prim": "MUL" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "207" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "UNIT" }, @@ -1591,7 +1702,8 @@ { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CDR" }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "MUL" }, { "prim": "EDIV" }, @@ -1604,7 +1716,8 @@ { "prim": "CDR" }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CDR" }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "DIG", "args": [ { "int": "3" } ] }, @@ -1627,7 +1740,7 @@ { "prim": "DROP" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "MEM" }, @@ -1637,11 +1750,11 @@ [ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "464" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "473" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] } ], @@ -1654,7 +1767,7 @@ [ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, { "prim": "MEM" }, @@ -1664,11 +1777,11 @@ [ { "prim": "SWAP" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CDR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "467" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "476" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "NOT" } @@ -1718,12 +1831,12 @@ { "prim": "CDR" }, { "prim": "UNIT" }, { "prim": "VIEW", "args": [ { "string": "comptroller" }, { "prim": "address" } ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "479" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "488" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "SWAP" }, { "prim": "CAR" }, { "prim": "UNIT" }, { "prim": "VIEW", "args": [ { "string": "comptroller" }, { "prim": "address" } ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "478" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "487" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "COMPARE" }, { "prim": "EQ" } ] diff --git a/compiled_contracts/Comptroller/step_000_cont_0_contract.py b/compiled_contracts/Comptroller/step_000_cont_0_contract.py index a4d0a499..c6fddcbb 100644 --- a/compiled_contracts/Comptroller/step_000_cont_0_contract.py +++ b/compiled_contracts/Comptroller/step_000_cont_0_contract.py @@ -2,7 +2,7 @@ class Contract(sp.Contract): def __init__(self): - self.init_type(sp.TRecord(account_liquidity = sp.TBigMap(sp.TAddress, sp.TRecord(liquidity = sp.TInt, updateLevel = sp.TNat, valid = sp.TBool).layout(("liquidity", ("updateLevel", "valid")))), activeOperations = sp.TSet(sp.TNat), administrator = sp.TAddress, closeFactorMantissa = sp.TNat, collaterals = sp.TBigMap(sp.TAddress, sp.TSet(sp.TAddress)), expScale = sp.TNat, halfExpScale = sp.TNat, liquidationIncentiveMantissa = sp.TNat, loans = sp.TBigMap(sp.TAddress, sp.TSet(sp.TAddress)), marketNameToAddress = sp.TMap(sp.TString, sp.TAddress), markets = sp.TBigMap(sp.TAddress, sp.TRecord(borrowPaused = sp.TBool, collateralFactor = sp.TRecord(mantissa = sp.TNat).layout("mantissa"), isListed = sp.TBool, mintPaused = sp.TBool, name = sp.TString, price = sp.TRecord(mantissa = sp.TNat).layout("mantissa"), priceExp = sp.TNat, priceTimestamp = sp.TTimestamp, updateLevel = sp.TNat).layout(((("borrowPaused", "collateralFactor"), ("isListed", "mintPaused")), (("name", "price"), ("priceExp", ("priceTimestamp", "updateLevel")))))), maxPriceTimeDifference = sp.TInt, oracleAddress = sp.TAddress, pendingAdministrator = sp.TOption(sp.TAddress), transferPaused = sp.TBool).layout(((("account_liquidity", ("activeOperations", "administrator")), (("closeFactorMantissa", "collaterals"), ("expScale", "halfExpScale"))), ((("liquidationIncentiveMantissa", "loans"), ("marketNameToAddress", "markets")), (("maxPriceTimeDifference", "oracleAddress"), ("pendingAdministrator", "transferPaused")))))) + self.init_type(sp.TRecord(account_liquidity = sp.TBigMap(sp.TAddress, sp.TRecord(liquidity = sp.TInt, updateLevel = sp.TNat, valid = sp.TBool).layout(("liquidity", ("updateLevel", "valid")))), activeOperations = sp.TSet(sp.TNat), administrator = sp.TAddress, closeFactorMantissa = sp.TNat, collaterals = sp.TBigMap(sp.TAddress, sp.TSet(sp.TAddress)), expScale = sp.TNat, halfExpScale = sp.TNat, liquidationIncentiveMantissa = sp.TNat, loans = sp.TBigMap(sp.TAddress, sp.TSet(sp.TAddress)), marketNameToAddress = sp.TMap(sp.TString, sp.TAddress), markets = sp.TBigMap(sp.TAddress, sp.TRecord(borrowPaused = sp.TBool, collateralFactor = sp.TRecord(mantissa = sp.TNat).layout("mantissa"), isListed = sp.TBool, mintPaused = sp.TBool, name = sp.TString, price = sp.TRecord(mantissa = sp.TNat).layout("mantissa"), priceExp = sp.TNat, priceTimestamp = sp.TTimestamp, updateLevel = sp.TNat).layout(((("borrowPaused", "collateralFactor"), ("isListed", "mintPaused")), (("name", "price"), ("priceExp", ("priceTimestamp", "updateLevel")))))), maxAssetsPerUser = sp.TNat, maxPriceTimeDifference = sp.TInt, oracleAddress = sp.TAddress, pendingAdministrator = sp.TOption(sp.TAddress), transferPaused = sp.TBool).layout((((("account_liquidity", "activeOperations"), ("administrator", "closeFactorMantissa")), (("collaterals", "expScale"), ("halfExpScale", "liquidationIncentiveMantissa"))), ((("loans", "marketNameToAddress"), ("markets", "maxAssetsPerUser")), (("maxPriceTimeDifference", "oracleAddress"), ("pendingAdministrator", "transferPaused")))))) self.init(account_liquidity = {}, activeOperations = sp.set([]), administrator = sp.address('KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2'), @@ -14,6 +14,7 @@ def __init__(self): loans = {}, marketNameToAddress = {}, markets = {}, + maxAssetsPerUser = 15, maxPriceTimeDifference = 86400, oracleAddress = sp.address('KT1LDtNKDnpziwSrmSfx3xCbs7nBMg7VFp4m'), pendingAdministrator = sp.none, @@ -33,6 +34,22 @@ def borrowAllowed(self, params): sp.set_type(params, sp.TRecord(borrowAmount = sp.TNat, borrower = sp.TAddress, cToken = sp.TAddress).layout(("cToken", ("borrower", "borrowAmount")))) sp.verify(~ self.data.markets[params.cToken].borrowPaused, 'CMPT_BORROW_PAUSED') sp.verify((self.data.markets.contains(params.cToken)) & self.data.markets[params.cToken].isListed, 'CMPT_MARKET_NOT_LISTED') + is_new = sp.local("is_new", True) + sp.if self.data.collaterals.contains(params.borrower): + sp.if self.data.collaterals[params.borrower].contains(params.cToken): + is_new.value = False + sp.if (self.data.loans.contains(params.borrower)) & is_new.value: + sp.if self.data.loans[params.borrower].contains(params.cToken): + is_new.value = False + sp.if is_new.value: + unique_assets = sp.local("unique_assets", sp.set([]), sp.TSet(sp.TAddress)) + sp.if self.data.collaterals.contains(params.borrower): + sp.for asset in self.data.collaterals[params.borrower].elements(): + unique_assets.value.add(asset) + sp.if self.data.loans.contains(params.borrower): + sp.for asset in self.data.loans[params.borrower].elements(): + unique_assets.value.add(asset) + sp.verify(sp.len(unique_assets.value) < self.data.maxAssetsPerUser, 'CMPT_TOO_MANY_ASSETS') sp.if ~ (self.data.loans.contains(params.borrower)): sp.verify(sp.sender == params.cToken, 'CMPT_INVALID_BORROW_SENDER') sp.verify((self.data.markets.contains(sp.sender)) & self.data.markets[sp.sender].isListed, 'CMPT_MARKET_NOT_LISTED') @@ -44,8 +61,8 @@ def borrowAllowed(self, params): sp.verify(self.data.account_liquidity[params.borrower].valid, 'CMPT_LIQUIDITY_INVALID') sp.set_type(sp.level, sp.TNat) sp.set_type(self.data.account_liquidity[params.borrower].updateLevel, sp.TNat) - compute_Comptroller_759 = sp.local("compute_Comptroller_759", sp.as_nat(sp.level - self.data.account_liquidity[params.borrower].updateLevel, message = 'SUBTRACTION_UNDERFLOW')) - sp.verify(compute_Comptroller_759.value == 0, 'CMPT_LIQUIDITY_OLD') + compute_Comptroller_802 = sp.local("compute_Comptroller_802", sp.as_nat(sp.level - self.data.account_liquidity[params.borrower].updateLevel, message = 'SUBTRACTION_UNDERFLOW')) + sp.verify(compute_Comptroller_802.value == 0, 'CMPT_LIQUIDITY_OLD') sp.verify(sp.level == self.data.markets[params.cToken].updateLevel, 'CMPT_UPDATE_PRICE') sp.verify(self.data.markets[params.cToken].price.mantissa > 0, 'CMPT_INVALID_PRICE') sp.set_type(self.data.markets[params.cToken].price, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) @@ -53,8 +70,8 @@ def borrowAllowed(self, params): sp.set_type(params.borrowAmount, sp.TNat) sp.set_type(self.data.markets[params.cToken].price.mantissa * params.borrowAmount, sp.TNat) sp.set_type(sp.record(mantissa = self.data.markets[params.cToken].price.mantissa * params.borrowAmount), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - compute_Comptroller_190 = sp.local("compute_Comptroller_190", self.data.account_liquidity[params.borrower].liquidity - sp.to_int((self.data.markets[params.cToken].price.mantissa * params.borrowAmount) // self.data.expScale)) - sp.verify(compute_Comptroller_190.value >= 0, 'CMPT_REDEEMER_SHORTFALL') + compute_Comptroller_195 = sp.local("compute_Comptroller_195", self.data.account_liquidity[params.borrower].liquidity - sp.to_int((self.data.markets[params.cToken].price.mantissa * params.borrowAmount) // self.data.expScale)) + sp.verify(compute_Comptroller_195.value >= 0, 'CMPT_REDEEMER_SHORTFALL') sp.if self.data.account_liquidity.contains(params.borrower): self.data.account_liquidity[params.borrower].valid = False @@ -70,7 +87,25 @@ def disableMarket(self, params): def enterMarkets(self, params): sp.verify(sp.amount == sp.mul(sp.set_type_expr(0, sp.TNat), sp.mutez(1)), 'TEZ_TRANSFERED') sp.set_type(params, sp.TList(sp.TAddress)) + unique_assets = sp.local("unique_assets", sp.set([]), sp.TSet(sp.TAddress)) + sp.if self.data.collaterals.contains(sp.sender): + sp.for asset in self.data.collaterals[sp.sender].elements(): + unique_assets.value.add(asset) + sp.if self.data.loans.contains(sp.sender): + sp.for asset in self.data.loans[sp.sender].elements(): + unique_assets.value.add(asset) + currentAssetCount = sp.local("currentAssetCount", sp.len(unique_assets.value)) sp.for token in params: + is_new = sp.local("is_new", True) + sp.if self.data.collaterals.contains(sp.sender): + sp.if self.data.collaterals[sp.sender].contains(token): + is_new.value = False + sp.if (self.data.loans.contains(sp.sender)) & is_new.value: + sp.if self.data.loans[sp.sender].contains(token): + is_new.value = False + sp.if is_new.value: + sp.verify(currentAssetCount.value < self.data.maxAssetsPerUser, 'CMPT_TOO_MANY_ASSETS') + currentAssetCount.value += 1 sp.verify((self.data.markets.contains(token)) & self.data.markets[token].isListed, 'CMPT_MARKET_NOT_LISTED') sp.if self.data.collaterals.contains(sp.sender): self.data.collaterals[sp.sender].add(token) @@ -102,27 +137,27 @@ def liquidateBorrowAllowed(self, params): temp = sp.local("temp", sp.record(sumBorrowPlusEffects = 0, sumCollateral = 0)) sp.if self.data.collaterals.contains(params.borrower): sp.for asset in self.data.collaterals[params.borrower].elements(): - sp.verify(sp.view("getAccountSnapshotView", params.borrower, asset, sp.TOption(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').is_some(), 'CMPT_OUTDATED_ACCOUNT_SNAPHOT') + sp.verify(sp.view("getAccountSnapshotView", params.borrower, asset, sp.TOption(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').is_some(), 'CMPT_OUTDATED_ACCOUNT_SNAPSHOT') params = sp.local("params", sp.view("getAccountSnapshotView", params.borrower, asset, sp.TOption(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').open_some()) sp.set_type(params.value.exchangeRateMantissa, sp.TNat) - compute_Comptroller_522 = sp.local("compute_Comptroller_522", sp.record(mantissa = params.value.exchangeRateMantissa)) + compute_Comptroller_531 = sp.local("compute_Comptroller_531", sp.record(mantissa = params.value.exchangeRateMantissa)) sp.verify(sp.level == self.data.markets[asset].updateLevel, 'CMPT_UPDATE_PRICE') sp.verify(self.data.markets[asset].price.mantissa > 0, 'CMPT_INVALID_PRICE') sp.set_type(self.data.markets[asset].price, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(self.data.markets[asset].collateralFactor, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale, sp.TNat) sp.set_type(sp.record(mantissa = (self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(compute_Comptroller_522.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type((((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_522.value.mantissa) // self.data.expScale, sp.TNat) - compute_Comptroller_526 = sp.local("compute_Comptroller_526", sp.record(mantissa = (((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_522.value.mantissa) // self.data.expScale)) + sp.set_type(compute_Comptroller_531.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type((((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_531.value.mantissa) // self.data.expScale, sp.TNat) + compute_Comptroller_535 = sp.local("compute_Comptroller_535", sp.record(mantissa = (((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_531.value.mantissa) // self.data.expScale)) calc = sp.local("calc", sp.record(sumBorrowPlusEffects = 0, sumCollateral = 0)) sp.if (self.data.collaterals.contains(params.value.account)) & (self.data.collaterals[params.value.account].contains(asset)): - sp.set_type(compute_Comptroller_526.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(compute_Comptroller_526.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_Comptroller_535.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_Comptroller_535.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(params.value.cTokenBalance, sp.TNat) - sp.set_type(compute_Comptroller_526.value.mantissa * params.value.cTokenBalance, sp.TNat) - sp.set_type(sp.record(mantissa = compute_Comptroller_526.value.mantissa * params.value.cTokenBalance), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - calc.value.sumCollateral += (compute_Comptroller_526.value.mantissa * params.value.cTokenBalance) // self.data.expScale + sp.set_type(compute_Comptroller_535.value.mantissa * params.value.cTokenBalance, sp.TNat) + sp.set_type(sp.record(mantissa = compute_Comptroller_535.value.mantissa * params.value.cTokenBalance), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + calc.value.sumCollateral += (compute_Comptroller_535.value.mantissa * params.value.cTokenBalance) // self.data.expScale sp.set_type(self.data.markets[asset].price, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(self.data.markets[asset].price, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(params.value.borrowBalance, sp.TNat) @@ -135,27 +170,27 @@ def liquidateBorrowAllowed(self, params): sp.for asset in self.data.loans[params.borrower].elements(): sp.if self.data.collaterals.contains(params.borrower): sp.if ~ (self.data.collaterals[params.borrower].contains(asset)): - sp.verify(sp.view("getAccountSnapshotView", params.borrower, asset, sp.TOption(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').is_some(), 'CMPT_OUTDATED_ACCOUNT_SNAPHOT') + sp.verify(sp.view("getAccountSnapshotView", params.borrower, asset, sp.TOption(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').is_some(), 'CMPT_OUTDATED_ACCOUNT_SNAPSHOT') params = sp.local("params", sp.view("getAccountSnapshotView", params.borrower, asset, sp.TOption(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').open_some()) sp.set_type(params.value.exchangeRateMantissa, sp.TNat) - compute_Comptroller_522 = sp.local("compute_Comptroller_522", sp.record(mantissa = params.value.exchangeRateMantissa)) + compute_Comptroller_531 = sp.local("compute_Comptroller_531", sp.record(mantissa = params.value.exchangeRateMantissa)) sp.verify(sp.level == self.data.markets[asset].updateLevel, 'CMPT_UPDATE_PRICE') sp.verify(self.data.markets[asset].price.mantissa > 0, 'CMPT_INVALID_PRICE') sp.set_type(self.data.markets[asset].price, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(self.data.markets[asset].collateralFactor, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale, sp.TNat) sp.set_type(sp.record(mantissa = (self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(compute_Comptroller_522.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type((((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_522.value.mantissa) // self.data.expScale, sp.TNat) - compute_Comptroller_526 = sp.local("compute_Comptroller_526", sp.record(mantissa = (((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_522.value.mantissa) // self.data.expScale)) + sp.set_type(compute_Comptroller_531.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type((((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_531.value.mantissa) // self.data.expScale, sp.TNat) + compute_Comptroller_535 = sp.local("compute_Comptroller_535", sp.record(mantissa = (((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_531.value.mantissa) // self.data.expScale)) calc = sp.local("calc", sp.record(sumBorrowPlusEffects = 0, sumCollateral = 0)) sp.if (self.data.collaterals.contains(params.value.account)) & (self.data.collaterals[params.value.account].contains(asset)): - sp.set_type(compute_Comptroller_526.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(compute_Comptroller_526.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_Comptroller_535.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_Comptroller_535.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(params.value.cTokenBalance, sp.TNat) - sp.set_type(compute_Comptroller_526.value.mantissa * params.value.cTokenBalance, sp.TNat) - sp.set_type(sp.record(mantissa = compute_Comptroller_526.value.mantissa * params.value.cTokenBalance), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - calc.value.sumCollateral += (compute_Comptroller_526.value.mantissa * params.value.cTokenBalance) // self.data.expScale + sp.set_type(compute_Comptroller_535.value.mantissa * params.value.cTokenBalance, sp.TNat) + sp.set_type(sp.record(mantissa = compute_Comptroller_535.value.mantissa * params.value.cTokenBalance), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + calc.value.sumCollateral += (compute_Comptroller_535.value.mantissa * params.value.cTokenBalance) // self.data.expScale sp.set_type(self.data.markets[asset].price, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(self.data.markets[asset].price, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(params.value.borrowBalance, sp.TNat) @@ -165,27 +200,27 @@ def liquidateBorrowAllowed(self, params): calculation.value.sumCollateral += calc.value.sumCollateral calculation.value.sumBorrowPlusEffects += calc.value.sumBorrowPlusEffects sp.else: - sp.verify(sp.view("getAccountSnapshotView", params.borrower, asset, sp.TOption(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').is_some(), 'CMPT_OUTDATED_ACCOUNT_SNAPHOT') + sp.verify(sp.view("getAccountSnapshotView", params.borrower, asset, sp.TOption(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').is_some(), 'CMPT_OUTDATED_ACCOUNT_SNAPSHOT') params = sp.local("params", sp.view("getAccountSnapshotView", params.borrower, asset, sp.TOption(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').open_some()) sp.set_type(params.value.exchangeRateMantissa, sp.TNat) - compute_Comptroller_522 = sp.local("compute_Comptroller_522", sp.record(mantissa = params.value.exchangeRateMantissa)) + compute_Comptroller_531 = sp.local("compute_Comptroller_531", sp.record(mantissa = params.value.exchangeRateMantissa)) sp.verify(sp.level == self.data.markets[asset].updateLevel, 'CMPT_UPDATE_PRICE') sp.verify(self.data.markets[asset].price.mantissa > 0, 'CMPT_INVALID_PRICE') sp.set_type(self.data.markets[asset].price, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(self.data.markets[asset].collateralFactor, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale, sp.TNat) sp.set_type(sp.record(mantissa = (self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(compute_Comptroller_522.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type((((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_522.value.mantissa) // self.data.expScale, sp.TNat) - compute_Comptroller_526 = sp.local("compute_Comptroller_526", sp.record(mantissa = (((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_522.value.mantissa) // self.data.expScale)) + sp.set_type(compute_Comptroller_531.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type((((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_531.value.mantissa) // self.data.expScale, sp.TNat) + compute_Comptroller_535 = sp.local("compute_Comptroller_535", sp.record(mantissa = (((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_531.value.mantissa) // self.data.expScale)) calc = sp.local("calc", sp.record(sumBorrowPlusEffects = 0, sumCollateral = 0)) sp.if (self.data.collaterals.contains(params.value.account)) & (self.data.collaterals[params.value.account].contains(asset)): - sp.set_type(compute_Comptroller_526.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(compute_Comptroller_526.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_Comptroller_535.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_Comptroller_535.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(params.value.cTokenBalance, sp.TNat) - sp.set_type(compute_Comptroller_526.value.mantissa * params.value.cTokenBalance, sp.TNat) - sp.set_type(sp.record(mantissa = compute_Comptroller_526.value.mantissa * params.value.cTokenBalance), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - calc.value.sumCollateral += (compute_Comptroller_526.value.mantissa * params.value.cTokenBalance) // self.data.expScale + sp.set_type(compute_Comptroller_535.value.mantissa * params.value.cTokenBalance, sp.TNat) + sp.set_type(sp.record(mantissa = compute_Comptroller_535.value.mantissa * params.value.cTokenBalance), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + calc.value.sumCollateral += (compute_Comptroller_535.value.mantissa * params.value.cTokenBalance) // self.data.expScale sp.set_type(self.data.markets[asset].price, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(self.data.markets[asset].price, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(params.value.borrowBalance, sp.TNat) @@ -195,8 +230,8 @@ def liquidateBorrowAllowed(self, params): calculation.value.sumCollateral += calc.value.sumCollateral calculation.value.sumBorrowPlusEffects += calc.value.sumBorrowPlusEffects calcLiquidity = sp.local("calcLiquidity", calculation.value) - compute_Comptroller_380 = sp.local("compute_Comptroller_380", calcLiquidity.value.sumCollateral - calcLiquidity.value.sumBorrowPlusEffects) - liquidtiy = sp.local("liquidtiy", compute_Comptroller_380.value) + compute_Comptroller_389 = sp.local("compute_Comptroller_389", calcLiquidity.value.sumCollateral - calcLiquidity.value.sumBorrowPlusEffects) + liquidtiy = sp.local("liquidtiy", compute_Comptroller_389.value) sp.verify(liquidtiy.value < 0, 'CMPT_INSUFFICIENT_SHORTFALL') sp.set_type(self.data.closeFactorMantissa, sp.TNat) sp.set_type(sp.record(mantissa = self.data.closeFactorMantissa), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) @@ -231,8 +266,8 @@ def redeemAllowed(self, params): sp.verify(self.data.account_liquidity[params.redeemer].valid, 'CMPT_LIQUIDITY_INVALID') sp.set_type(sp.level, sp.TNat) sp.set_type(self.data.account_liquidity[params.redeemer].updateLevel, sp.TNat) - compute_Comptroller_759 = sp.local("compute_Comptroller_759", sp.as_nat(sp.level - self.data.account_liquidity[params.redeemer].updateLevel, message = 'SUBTRACTION_UNDERFLOW')) - sp.verify(compute_Comptroller_759.value == 0, 'CMPT_LIQUIDITY_OLD') + compute_Comptroller_802 = sp.local("compute_Comptroller_802", sp.as_nat(sp.level - self.data.account_liquidity[params.redeemer].updateLevel, message = 'SUBTRACTION_UNDERFLOW')) + sp.verify(compute_Comptroller_802.value == 0, 'CMPT_LIQUIDITY_OLD') sp.verify(sp.level == self.data.markets[params.cToken].updateLevel, 'CMPT_UPDATE_PRICE') sp.verify(self.data.markets[params.cToken].price.mantissa > 0, 'CMPT_INVALID_PRICE') sp.set_type(self.data.markets[params.cToken].price, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) @@ -240,8 +275,8 @@ def redeemAllowed(self, params): sp.set_type(params.redeemAmount, sp.TNat) sp.set_type(self.data.markets[params.cToken].price.mantissa * params.redeemAmount, sp.TNat) sp.set_type(sp.record(mantissa = self.data.markets[params.cToken].price.mantissa * params.redeemAmount), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - compute_Comptroller_190 = sp.local("compute_Comptroller_190", self.data.account_liquidity[params.redeemer].liquidity - sp.to_int((self.data.markets[params.cToken].price.mantissa * params.redeemAmount) // self.data.expScale)) - sp.verify(compute_Comptroller_190.value >= 0, 'CMPT_REDEEMER_SHORTFALL') + compute_Comptroller_195 = sp.local("compute_Comptroller_195", self.data.account_liquidity[params.redeemer].liquidity - sp.to_int((self.data.markets[params.cToken].price.mantissa * params.redeemAmount) // self.data.expScale)) + sp.verify(compute_Comptroller_195.value >= 0, 'CMPT_REDEEMER_SHORTFALL') sp.if self.data.account_liquidity.contains(params.redeemer): self.data.account_liquidity[params.redeemer].valid = False @@ -270,27 +305,27 @@ def setAccountLiquidityWithView(self, params): temp = sp.local("temp", sp.record(sumBorrowPlusEffects = 0, sumCollateral = 0)) sp.if self.data.collaterals.contains(params): sp.for asset in self.data.collaterals[params].elements(): - sp.verify(sp.view("getAccountSnapshotView", params, asset, sp.TOption(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').is_some(), 'CMPT_OUTDATED_ACCOUNT_SNAPHOT') + sp.verify(sp.view("getAccountSnapshotView", params, asset, sp.TOption(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').is_some(), 'CMPT_OUTDATED_ACCOUNT_SNAPSHOT') params = sp.local("params", sp.view("getAccountSnapshotView", params, asset, sp.TOption(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').open_some()) sp.set_type(params.value.exchangeRateMantissa, sp.TNat) - compute_Comptroller_522 = sp.local("compute_Comptroller_522", sp.record(mantissa = params.value.exchangeRateMantissa)) + compute_Comptroller_531 = sp.local("compute_Comptroller_531", sp.record(mantissa = params.value.exchangeRateMantissa)) sp.verify(sp.level == self.data.markets[asset].updateLevel, 'CMPT_UPDATE_PRICE') sp.verify(self.data.markets[asset].price.mantissa > 0, 'CMPT_INVALID_PRICE') sp.set_type(self.data.markets[asset].price, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(self.data.markets[asset].collateralFactor, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale, sp.TNat) sp.set_type(sp.record(mantissa = (self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(compute_Comptroller_522.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type((((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_522.value.mantissa) // self.data.expScale, sp.TNat) - compute_Comptroller_526 = sp.local("compute_Comptroller_526", sp.record(mantissa = (((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_522.value.mantissa) // self.data.expScale)) + sp.set_type(compute_Comptroller_531.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type((((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_531.value.mantissa) // self.data.expScale, sp.TNat) + compute_Comptroller_535 = sp.local("compute_Comptroller_535", sp.record(mantissa = (((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_531.value.mantissa) // self.data.expScale)) calc = sp.local("calc", sp.record(sumBorrowPlusEffects = 0, sumCollateral = 0)) sp.if (self.data.collaterals.contains(params.value.account)) & (self.data.collaterals[params.value.account].contains(asset)): - sp.set_type(compute_Comptroller_526.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(compute_Comptroller_526.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_Comptroller_535.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_Comptroller_535.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(params.value.cTokenBalance, sp.TNat) - sp.set_type(compute_Comptroller_526.value.mantissa * params.value.cTokenBalance, sp.TNat) - sp.set_type(sp.record(mantissa = compute_Comptroller_526.value.mantissa * params.value.cTokenBalance), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - calc.value.sumCollateral += (compute_Comptroller_526.value.mantissa * params.value.cTokenBalance) // self.data.expScale + sp.set_type(compute_Comptroller_535.value.mantissa * params.value.cTokenBalance, sp.TNat) + sp.set_type(sp.record(mantissa = compute_Comptroller_535.value.mantissa * params.value.cTokenBalance), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + calc.value.sumCollateral += (compute_Comptroller_535.value.mantissa * params.value.cTokenBalance) // self.data.expScale sp.set_type(self.data.markets[asset].price, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(self.data.markets[asset].price, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(params.value.borrowBalance, sp.TNat) @@ -303,27 +338,27 @@ def setAccountLiquidityWithView(self, params): sp.for asset in self.data.loans[params].elements(): sp.if self.data.collaterals.contains(params): sp.if ~ (self.data.collaterals[params].contains(asset)): - sp.verify(sp.view("getAccountSnapshotView", params, asset, sp.TOption(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').is_some(), 'CMPT_OUTDATED_ACCOUNT_SNAPHOT') + sp.verify(sp.view("getAccountSnapshotView", params, asset, sp.TOption(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').is_some(), 'CMPT_OUTDATED_ACCOUNT_SNAPSHOT') params = sp.local("params", sp.view("getAccountSnapshotView", params, asset, sp.TOption(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').open_some()) sp.set_type(params.value.exchangeRateMantissa, sp.TNat) - compute_Comptroller_522 = sp.local("compute_Comptroller_522", sp.record(mantissa = params.value.exchangeRateMantissa)) + compute_Comptroller_531 = sp.local("compute_Comptroller_531", sp.record(mantissa = params.value.exchangeRateMantissa)) sp.verify(sp.level == self.data.markets[asset].updateLevel, 'CMPT_UPDATE_PRICE') sp.verify(self.data.markets[asset].price.mantissa > 0, 'CMPT_INVALID_PRICE') sp.set_type(self.data.markets[asset].price, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(self.data.markets[asset].collateralFactor, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale, sp.TNat) sp.set_type(sp.record(mantissa = (self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(compute_Comptroller_522.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type((((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_522.value.mantissa) // self.data.expScale, sp.TNat) - compute_Comptroller_526 = sp.local("compute_Comptroller_526", sp.record(mantissa = (((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_522.value.mantissa) // self.data.expScale)) + sp.set_type(compute_Comptroller_531.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type((((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_531.value.mantissa) // self.data.expScale, sp.TNat) + compute_Comptroller_535 = sp.local("compute_Comptroller_535", sp.record(mantissa = (((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_531.value.mantissa) // self.data.expScale)) calc = sp.local("calc", sp.record(sumBorrowPlusEffects = 0, sumCollateral = 0)) sp.if (self.data.collaterals.contains(params.value.account)) & (self.data.collaterals[params.value.account].contains(asset)): - sp.set_type(compute_Comptroller_526.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(compute_Comptroller_526.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_Comptroller_535.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_Comptroller_535.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(params.value.cTokenBalance, sp.TNat) - sp.set_type(compute_Comptroller_526.value.mantissa * params.value.cTokenBalance, sp.TNat) - sp.set_type(sp.record(mantissa = compute_Comptroller_526.value.mantissa * params.value.cTokenBalance), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - calc.value.sumCollateral += (compute_Comptroller_526.value.mantissa * params.value.cTokenBalance) // self.data.expScale + sp.set_type(compute_Comptroller_535.value.mantissa * params.value.cTokenBalance, sp.TNat) + sp.set_type(sp.record(mantissa = compute_Comptroller_535.value.mantissa * params.value.cTokenBalance), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + calc.value.sumCollateral += (compute_Comptroller_535.value.mantissa * params.value.cTokenBalance) // self.data.expScale sp.set_type(self.data.markets[asset].price, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(self.data.markets[asset].price, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(params.value.borrowBalance, sp.TNat) @@ -333,27 +368,27 @@ def setAccountLiquidityWithView(self, params): calculation.value.sumCollateral += calc.value.sumCollateral calculation.value.sumBorrowPlusEffects += calc.value.sumBorrowPlusEffects sp.else: - sp.verify(sp.view("getAccountSnapshotView", params, asset, sp.TOption(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').is_some(), 'CMPT_OUTDATED_ACCOUNT_SNAPHOT') + sp.verify(sp.view("getAccountSnapshotView", params, asset, sp.TOption(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').is_some(), 'CMPT_OUTDATED_ACCOUNT_SNAPSHOT') params = sp.local("params", sp.view("getAccountSnapshotView", params, asset, sp.TOption(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))).open_some(message = 'INVALID ACCOUNT SNAPSHOT VIEW').open_some()) sp.set_type(params.value.exchangeRateMantissa, sp.TNat) - compute_Comptroller_522 = sp.local("compute_Comptroller_522", sp.record(mantissa = params.value.exchangeRateMantissa)) + compute_Comptroller_531 = sp.local("compute_Comptroller_531", sp.record(mantissa = params.value.exchangeRateMantissa)) sp.verify(sp.level == self.data.markets[asset].updateLevel, 'CMPT_UPDATE_PRICE') sp.verify(self.data.markets[asset].price.mantissa > 0, 'CMPT_INVALID_PRICE') sp.set_type(self.data.markets[asset].price, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(self.data.markets[asset].collateralFactor, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale, sp.TNat) sp.set_type(sp.record(mantissa = (self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(compute_Comptroller_522.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type((((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_522.value.mantissa) // self.data.expScale, sp.TNat) - compute_Comptroller_526 = sp.local("compute_Comptroller_526", sp.record(mantissa = (((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_522.value.mantissa) // self.data.expScale)) + sp.set_type(compute_Comptroller_531.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type((((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_531.value.mantissa) // self.data.expScale, sp.TNat) + compute_Comptroller_535 = sp.local("compute_Comptroller_535", sp.record(mantissa = (((self.data.markets[asset].price.mantissa * self.data.markets[asset].collateralFactor.mantissa) // self.data.expScale) * compute_Comptroller_531.value.mantissa) // self.data.expScale)) calc = sp.local("calc", sp.record(sumBorrowPlusEffects = 0, sumCollateral = 0)) sp.if (self.data.collaterals.contains(params.value.account)) & (self.data.collaterals[params.value.account].contains(asset)): - sp.set_type(compute_Comptroller_526.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - sp.set_type(compute_Comptroller_526.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_Comptroller_535.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + sp.set_type(compute_Comptroller_535.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(params.value.cTokenBalance, sp.TNat) - sp.set_type(compute_Comptroller_526.value.mantissa * params.value.cTokenBalance, sp.TNat) - sp.set_type(sp.record(mantissa = compute_Comptroller_526.value.mantissa * params.value.cTokenBalance), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - calc.value.sumCollateral += (compute_Comptroller_526.value.mantissa * params.value.cTokenBalance) // self.data.expScale + sp.set_type(compute_Comptroller_535.value.mantissa * params.value.cTokenBalance, sp.TNat) + sp.set_type(sp.record(mantissa = compute_Comptroller_535.value.mantissa * params.value.cTokenBalance), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) + calc.value.sumCollateral += (compute_Comptroller_535.value.mantissa * params.value.cTokenBalance) // self.data.expScale sp.set_type(self.data.markets[asset].price, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(self.data.markets[asset].price, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) sp.set_type(params.value.borrowBalance, sp.TNat) @@ -381,8 +416,8 @@ def setAccountSnapAndExitMarket(self, params): sp.verify(self.data.account_liquidity[params.account].valid, 'CMPT_LIQUIDITY_INVALID') sp.set_type(sp.level, sp.TNat) sp.set_type(self.data.account_liquidity[params.account].updateLevel, sp.TNat) - compute_Comptroller_759 = sp.local("compute_Comptroller_759", sp.as_nat(sp.level - self.data.account_liquidity[params.account].updateLevel, message = 'SUBTRACTION_UNDERFLOW')) - sp.verify(compute_Comptroller_759.value == 0, 'CMPT_LIQUIDITY_OLD') + compute_Comptroller_802 = sp.local("compute_Comptroller_802", sp.as_nat(sp.level - self.data.account_liquidity[params.account].updateLevel, message = 'SUBTRACTION_UNDERFLOW')) + sp.verify(compute_Comptroller_802.value == 0, 'CMPT_LIQUIDITY_OLD') sp.verify(sp.level == self.data.markets[sp.sender].updateLevel, 'CMPT_UPDATE_PRICE') sp.verify(self.data.markets[sp.sender].price.mantissa > 0, 'CMPT_INVALID_PRICE') sp.set_type(self.data.markets[sp.sender].price, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) @@ -390,8 +425,8 @@ def setAccountSnapAndExitMarket(self, params): sp.set_type(params.cTokenBalance, sp.TNat) sp.set_type(self.data.markets[sp.sender].price.mantissa * params.cTokenBalance, sp.TNat) sp.set_type(sp.record(mantissa = self.data.markets[sp.sender].price.mantissa * params.cTokenBalance), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - compute_Comptroller_190 = sp.local("compute_Comptroller_190", self.data.account_liquidity[params.account].liquidity - sp.to_int((self.data.markets[sp.sender].price.mantissa * params.cTokenBalance) // self.data.expScale)) - sp.verify(compute_Comptroller_190.value >= 0, 'CMPT_REDEEMER_SHORTFALL') + compute_Comptroller_195 = sp.local("compute_Comptroller_195", self.data.account_liquidity[params.account].liquidity - sp.to_int((self.data.markets[sp.sender].price.mantissa * params.cTokenBalance) // self.data.expScale)) + sp.verify(compute_Comptroller_195.value >= 0, 'CMPT_REDEEMER_SHORTFALL') sp.if self.data.account_liquidity.contains(params.account): self.data.account_liquidity[params.account].valid = False sp.if (self.data.collaterals.contains(params.account)) & (self.data.collaterals[params.account].contains(sp.sender)): @@ -429,6 +464,13 @@ def setLiquidationIncentive(self, params): sp.verify(sp.sender == self.data.administrator, 'CMPT_NOT_ADMIN') self.data.liquidationIncentiveMantissa = params + @sp.entrypoint + def setMaxAssetsPerUser(self, params): + sp.verify(sp.amount == sp.mul(sp.set_type_expr(0, sp.TNat), sp.mutez(1)), 'TEZ_TRANSFERED') + sp.set_type(params, sp.TNat) + sp.verify(sp.sender == self.data.administrator, 'CMPT_NOT_ADMIN') + self.data.maxAssetsPerUser = params + @sp.entrypoint def setMintPaused(self, params): sp.verify(sp.amount == sp.mul(sp.set_type_expr(0, sp.TNat), sp.mutez(1)), 'TEZ_TRANSFERED') @@ -500,8 +542,8 @@ def transferAllowed(self, params): sp.verify(self.data.account_liquidity[params.src].valid, 'CMPT_LIQUIDITY_INVALID') sp.set_type(sp.level, sp.TNat) sp.set_type(self.data.account_liquidity[params.src].updateLevel, sp.TNat) - compute_Comptroller_759 = sp.local("compute_Comptroller_759", sp.as_nat(sp.level - self.data.account_liquidity[params.src].updateLevel, message = 'SUBTRACTION_UNDERFLOW')) - sp.verify(compute_Comptroller_759.value == 0, 'CMPT_LIQUIDITY_OLD') + compute_Comptroller_802 = sp.local("compute_Comptroller_802", sp.as_nat(sp.level - self.data.account_liquidity[params.src].updateLevel, message = 'SUBTRACTION_UNDERFLOW')) + sp.verify(compute_Comptroller_802.value == 0, 'CMPT_LIQUIDITY_OLD') sp.verify(sp.level == self.data.markets[params.cToken].updateLevel, 'CMPT_UPDATE_PRICE') sp.verify(self.data.markets[params.cToken].price.mantissa > 0, 'CMPT_INVALID_PRICE') sp.set_type(self.data.markets[params.cToken].price, sp.TRecord(mantissa = sp.TNat).layout("mantissa")) @@ -509,8 +551,8 @@ def transferAllowed(self, params): sp.set_type(params.transferTokens, sp.TNat) sp.set_type(self.data.markets[params.cToken].price.mantissa * params.transferTokens, sp.TNat) sp.set_type(sp.record(mantissa = self.data.markets[params.cToken].price.mantissa * params.transferTokens), sp.TRecord(mantissa = sp.TNat).layout("mantissa")) - compute_Comptroller_190 = sp.local("compute_Comptroller_190", self.data.account_liquidity[params.src].liquidity - sp.to_int((self.data.markets[params.cToken].price.mantissa * params.transferTokens) // self.data.expScale)) - sp.verify(compute_Comptroller_190.value >= 0, 'CMPT_REDEEMER_SHORTFALL') + compute_Comptroller_195 = sp.local("compute_Comptroller_195", self.data.account_liquidity[params.src].liquidity - sp.to_int((self.data.markets[params.cToken].price.mantissa * params.transferTokens) // self.data.expScale)) + sp.verify(compute_Comptroller_195.value >= 0, 'CMPT_REDEEMER_SHORTFALL') sp.if self.data.account_liquidity.contains(params.src): self.data.account_liquidity[params.src].valid = False diff --git a/compiled_contracts/Comptroller/step_000_cont_0_contract.tz b/compiled_contracts/Comptroller/step_000_cont_0_contract.tz index 8710f0dd..4c424caa 100644 --- a/compiled_contracts/Comptroller/step_000_cont_0_contract.tz +++ b/compiled_contracts/Comptroller/step_000_cont_0_contract.tz @@ -1,11 +1,11 @@ -parameter (or (or (or (or (or (unit %acceptGovernance) (pair %borrowAllowed (address %cToken) (pair (address %borrower) (nat %borrowAmount)))) (or (address %disableMarket) (or (list %enterMarkets address) (unit %hardResetOp)))) (or (or (pair %liquidateBorrowAllowed (pair (address %borrower) (address %cTokenBorrowed)) (pair (address %cTokenCollateral) (pair (address %liquidator) (nat %repayAmount)))) (or (pair %mintAllowed (address %cToken) (pair (address %minter) (nat %mintAmount))) (pair %redeemAllowed (address %cToken) (pair (address %redeemer) (nat %redeemAmount))))) (or (address %removeFromLoans) (or (pair %repayBorrowAllowed (address %cToken) (pair (address %payer) (pair (address %borrower) (nat %repayAmount)))) (address %setAccountLiquidityWithView))))) (or (or (or (pair %setAccountSnapAndExitMarket (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))) (pair %setBorrowPaused (address %cToken) (bool %state))) (or (nat %setCloseFactor) (or (pair %setCollateralFactor (address %cToken) (nat %newCollateralFactor)) (nat %setLiquidationIncentive)))) (or (or (pair %setMintPaused (address %cToken) (bool %state)) (or (address %setPendingGovernance) (pair %setPriceOracleAndTimeDiff (address %priceOracle) (int %timeDiff)))) (or (bool %setTransferPaused) (or (pair %supportMarket (address %cToken) (pair (string %name) (nat %priceExp))) (pair %transferAllowed (pair (address %cToken) (address %src)) (pair (address %dst) (nat %transferTokens)))))))) (or (or (address %exitMarket) (or (pair %sweepFA12 (nat %amount) (address %tokenAddress)) (pair %sweepFA2 (nat %amount) (pair (nat %id) (address %tokenAddress))))) (or (bool %sweepMutez) (or (address %updateAccountLiquidityWithView) (unit %updateAllAssetPricesWithView))))); -storage (pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))))) (big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))))); +parameter (or (or (or (or (or (unit %acceptGovernance) (pair %borrowAllowed (address %cToken) (pair (address %borrower) (nat %borrowAmount)))) (or (address %disableMarket) (or (list %enterMarkets address) (unit %hardResetOp)))) (or (or (pair %liquidateBorrowAllowed (pair (address %borrower) (address %cTokenBorrowed)) (pair (address %cTokenCollateral) (pair (address %liquidator) (nat %repayAmount)))) (or (pair %mintAllowed (address %cToken) (pair (address %minter) (nat %mintAmount))) (pair %redeemAllowed (address %cToken) (pair (address %redeemer) (nat %redeemAmount))))) (or (address %removeFromLoans) (or (pair %repayBorrowAllowed (address %cToken) (pair (address %payer) (pair (address %borrower) (nat %repayAmount)))) (address %setAccountLiquidityWithView))))) (or (or (or (pair %setAccountSnapAndExitMarket (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))) (or (pair %setBorrowPaused (address %cToken) (bool %state)) (nat %setCloseFactor))) (or (pair %setCollateralFactor (address %cToken) (nat %newCollateralFactor)) (or (nat %setLiquidationIncentive) (nat %setMaxAssetsPerUser)))) (or (or (pair %setMintPaused (address %cToken) (bool %state)) (or (address %setPendingGovernance) (pair %setPriceOracleAndTimeDiff (address %priceOracle) (int %timeDiff)))) (or (bool %setTransferPaused) (or (pair %supportMarket (address %cToken) (pair (string %name) (nat %priceExp))) (pair %transferAllowed (pair (address %cToken) (address %src)) (pair (address %dst) (nat %transferTokens)))))))) (or (or (address %exitMarket) (or (pair %sweepFA12 (nat %amount) (address %tokenAddress)) (pair %sweepFA2 (nat %amount) (pair (nat %id) (address %tokenAddress))))) (or (bool %sweepMutez) (or (address %updateAccountLiquidityWithView) (unit %updateAllAssetPricesWithView))))); +storage (pair (pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))))) (big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))))); code { - UNPAIR 3; # @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + UNPAIR 3; # @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) IF_LEFT { - DUP; # @parameter.left : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DUP; # @parameter.left : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) IF_LEFT { IF_LEFT @@ -14,83 +14,83 @@ code { IF_LEFT { - DROP; # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - # == acceptGovernance == # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 0; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # == acceptGovernance == # @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 0; # nat : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) } { - DROP; # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - # == borrowAllowed == # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 1; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # == borrowAllowed == # @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 1; # nat : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + }; # nat : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) } { IF_LEFT { - DROP; # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - # == disableMarket == # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 2; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # == disableMarket == # @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 2; # nat : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) } { IF_LEFT { - DROP; # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - # == enterMarkets == # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 3; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # == enterMarkets == # @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 3; # nat : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) } { - DROP; # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - # == hardResetOp == # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 4; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # == hardResetOp == # @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 4; # nat : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + }; # nat : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + }; # nat : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + }; # nat : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) } { IF_LEFT { IF_LEFT { - DROP; # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - # == liquidateBorrowAllowed == # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 5; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # == liquidateBorrowAllowed == # @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 5; # nat : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) } { IF_LEFT { - DROP; # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - # == mintAllowed == # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 6; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # == mintAllowed == # @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 6; # nat : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) } { - DROP; # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - # == redeemAllowed == # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 7; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # == redeemAllowed == # @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 7; # nat : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + }; # nat : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + }; # nat : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) } { IF_LEFT { - DROP; # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - # == removeFromLoans == # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 8; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # == removeFromLoans == # @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 8; # nat : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) } { IF_LEFT { - DROP; # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - # == repayBorrowAllowed == # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 9; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # == repayBorrowAllowed == # @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 9; # nat : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) } { - DROP; # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - # == setAccountLiquidityWithView == # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 10; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # == setAccountLiquidityWithView == # @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 10; # nat : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + }; # nat : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + }; # nat : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + }; # nat : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + }; # nat : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) } { IF_LEFT @@ -99,99 +99,107 @@ code { IF_LEFT { - DROP; # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - # == setAccountSnapAndExitMarket == # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 11; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # == setAccountSnapAndExitMarket == # @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 11; # nat : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) } { - DROP; # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - # == setBorrowPaused == # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 12; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + IF_LEFT + { + DROP; # @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # == setBorrowPaused == # @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 12; # nat : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + } + { + DROP; # @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # == setCloseFactor == # @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 13; # nat : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + }; # nat : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + }; # nat : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) } { IF_LEFT { - DROP; # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - # == setCloseFactor == # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 13; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # == setCollateralFactor == # @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 14; # nat : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) } { IF_LEFT { - DROP; # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - # == setCollateralFactor == # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 14; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # == setLiquidationIncentive == # @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 15; # nat : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) } { - DROP; # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - # == setLiquidationIncentive == # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 15; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # == setMaxAssetsPerUser == # @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 16; # nat : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + }; # nat : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + }; # nat : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + }; # nat : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) } { IF_LEFT { IF_LEFT { - DROP; # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - # == setMintPaused == # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 16; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # == setMintPaused == # @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 17; # nat : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) } { IF_LEFT { - DROP; # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - # == setPendingGovernance == # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 17; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # == setPendingGovernance == # @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 18; # nat : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) } { - DROP; # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - # == setPriceOracleAndTimeDiff == # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 18; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # == setPriceOracleAndTimeDiff == # @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 19; # nat : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + }; # nat : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + }; # nat : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) } { IF_LEFT { - DROP; # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - # == setTransferPaused == # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 19; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # == setTransferPaused == # @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 20; # nat : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) } { IF_LEFT { - DROP; # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - # == supportMarket == # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 20; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # == supportMarket == # @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 21; # nat : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) } { - DROP; # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - # == transferAllowed == # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 21; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 4; # big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) : nat : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # nat : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET; # option (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # == transferAllowed == # @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 22; # nat : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + }; # nat : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + }; # nat : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + }; # nat : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + }; # nat : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + }; # nat : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 4; # big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) : nat : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # nat : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET; # option (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int -1; # int : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int -1; # int : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } { - # missing entrypoint # @some : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # @some : @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUG 2; # @parameter.left : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @some : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair @parameter.left (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))))) : @some : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - EXEC; # pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # missing entrypoint # @some : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + }; # @some : @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUG 2; # @parameter.left : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @some : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair @parameter.left (pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))))) : @some : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + EXEC; # pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + UNPAIR; # list operation : pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) } { IF_LEFT @@ -199,815 +207,907 @@ code IF_LEFT { # == exitMarket == - # sp.verify(sp.amount == sp.mul(sp.set_type_expr(0, sp.TNat), sp.mutez(1)), 'TEZ_TRANSFERED') # @parameter%exitMarket : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH mutez 1; # mutez : @parameter%exitMarket : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 0; # nat : mutez : @parameter%exitMarket : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - MUL; # mutez : @parameter%exitMarket : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - AMOUNT; # @amount : mutez : @parameter%exitMarket : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - COMPARE; # int : @parameter%exitMarket : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - EQ; # bool : @parameter%exitMarket : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # sp.verify(sp.amount == sp.mul(sp.set_type_expr(0, sp.TNat), sp.mutez(1)), 'TEZ_TRANSFERED') # @parameter%exitMarket : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PUSH mutez 1; # mutez : @parameter%exitMarket : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 0; # nat : mutez : @parameter%exitMarket : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + MUL; # mutez : @parameter%exitMarket : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + AMOUNT; # @amount : mutez : @parameter%exitMarket : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + COMPARE; # int : @parameter%exitMarket : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + EQ; # bool : @parameter%exitMarket : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) IF {} { - PUSH string "TEZ_TRANSFERED"; # string : @parameter%exitMarket : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH string "TEZ_TRANSFERED"; # string : @parameter%exitMarket : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED - }; # @parameter%exitMarket : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter%exitMarket : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - # self.data.activeOperations.add(1) # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter%exitMarket : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : @parameter%exitMarket : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator)) : pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : @parameter%exitMarket : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid))) : pair (set %activeOperations nat) (address %administrator) : pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : @parameter%exitMarket : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # pair (set %activeOperations nat) (address %administrator) : big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid))) : pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : @parameter%exitMarket : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # set nat : address : big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid))) : pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : @parameter%exitMarket : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH bool True; # bool : set nat : address : big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid))) : pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : @parameter%exitMarket : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 1; # nat : bool : set nat : address : big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid))) : pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : @parameter%exitMarket : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UPDATE; # set nat : address : big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid))) : pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : @parameter%exitMarket : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (set nat) address : big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid))) : pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : @parameter%exitMarket : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid))) : pair (set nat) address : pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : @parameter%exitMarket : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address) : pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : @parameter%exitMarket : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : @parameter%exitMarket : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter%exitMarket : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # @parameter%exitMarket : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - # sp.transfer((sp.sender, sp.self_entrypoint('setAccountSnapAndExitMarket')), sp.tez(0), sp.contract(sp.TPair(sp.TAddress, sp.TContract(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))), params, entrypoint='getAccountSnapshot').open_some()) # @parameter%exitMarket : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CONTRACT %getAccountSnapshot (pair address (contract (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))))); # option (contract (pair address (contract (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))))) : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + }; # @parameter%exitMarket : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter%exitMarket : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # self.data.activeOperations.add(1) # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter%exitMarket : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + UNPAIR; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : @parameter%exitMarket : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + UNPAIR; # pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa)) : pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)) : pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : @parameter%exitMarket : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + UNPAIR; # pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat) : pair (address %administrator) (nat %closeFactorMantissa) : pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)) : pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : @parameter%exitMarket : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + UNPAIR; # big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid))) : set nat : pair (address %administrator) (nat %closeFactorMantissa) : pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)) : pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : @parameter%exitMarket : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # set nat : big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid))) : pair (address %administrator) (nat %closeFactorMantissa) : pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)) : pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : @parameter%exitMarket : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PUSH bool True; # bool : set nat : big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid))) : pair (address %administrator) (nat %closeFactorMantissa) : pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)) : pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : @parameter%exitMarket : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 1; # nat : bool : set nat : big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid))) : pair (address %administrator) (nat %closeFactorMantissa) : pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)) : pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : @parameter%exitMarket : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + UPDATE; # set nat : big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid))) : pair (address %administrator) (nat %closeFactorMantissa) : pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)) : pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : @parameter%exitMarket : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid))) : set nat : pair (address %administrator) (nat %closeFactorMantissa) : pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)) : pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : @parameter%exitMarket : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set nat) : pair (address %administrator) (nat %closeFactorMantissa) : pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)) : pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : @parameter%exitMarket : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set nat)) (pair (address %administrator) (nat %closeFactorMantissa)) : pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)) : pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : @parameter%exitMarket : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : @parameter%exitMarket : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair (pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter%exitMarket : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # @parameter%exitMarket : pair (pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # sp.transfer((sp.sender, sp.self_entrypoint('setAccountSnapAndExitMarket')), sp.tez(0), sp.contract(sp.TPair(sp.TAddress, sp.TContract(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))))), params, entrypoint='getAccountSnapshot').open_some()) # @parameter%exitMarket : pair (pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CONTRACT %getAccountSnapshot (pair address (contract (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa))))); # option (contract (pair address (contract (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))))) : pair (pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int 113; # int : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int 118; # int : pair (pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - NIL operation; # list operation : @some : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # @some : list operation : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH mutez 0; # mutez : @some : list operation : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SELF %setAccountSnapAndExitMarket; # @self : mutez : @some : list operation : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SENDER; # @sender : @self : mutez : @some : list operation : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair @sender @self : mutez : @some : list operation : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CONS; # list operation : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : pair (pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + NIL operation; # list operation : @some : pair (pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # @some : list operation : pair (pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PUSH mutez 0; # mutez : @some : list operation : pair (pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + SELF %setAccountSnapAndExitMarket; # @self : mutez : @some : list operation : pair (pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + SENDER; # @sender : @self : mutez : @some : list operation : pair (pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair @sender @self : mutez : @some : list operation : pair (pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CONS; # list operation : pair (pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) } { IF_LEFT { # == sweepFA12 == - # sp.transfer(sp.record(from_ = sp.self_address, to_ = self.data.administrator, value = params.amount), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), params.tokenAddress, entrypoint='transfer').open_some()) # @parameter%sweepFA12 : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - NIL operation; # list operation : @parameter%sweepFA12 : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 2; # @parameter%sweepFA12 : list operation : @parameter%sweepFA12 : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CDR; # address : list operation : @parameter%sweepFA12 : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CONTRACT %transfer (pair (address %from) (pair (address %to) (nat %value))); # option (contract (pair (address %from) (pair (address %to) (nat %value)))) : list operation : @parameter%sweepFA12 : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # sp.transfer(sp.record(from_ = sp.self_address, to_ = self.data.administrator, value = params.amount), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), params.tokenAddress, entrypoint='transfer').open_some()) # @parameter%sweepFA12 : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + NIL operation; # list operation : @parameter%sweepFA12 : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 2; # @parameter%sweepFA12 : list operation : @parameter%sweepFA12 : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CDR; # address : list operation : @parameter%sweepFA12 : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CONTRACT %transfer (pair (address %from) (pair (address %to) (nat %value))); # option (contract (pair (address %from) (pair (address %to) (nat %value)))) : list operation : @parameter%sweepFA12 : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int 17; # int : list operation : @parameter%sweepFA12 : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int 17; # int : list operation : @parameter%sweepFA12 : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : list operation : @parameter%sweepFA12 : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH mutez 0; # mutez : @some : list operation : @parameter%sweepFA12 : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DIG 3; # @parameter%sweepFA12 : mutez : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CAR; # nat : mutez : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 5; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : nat : mutez : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CAR; # pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : mutez : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CAR; # pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator)) : nat : mutez : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 4; # address : nat : mutez : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SELF_ADDRESS; # @self : address : nat : mutez : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR 3; # pair @self (pair address nat) : mutez : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CONS; # list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : list operation : @parameter%sweepFA12 : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PUSH mutez 0; # mutez : @some : list operation : @parameter%sweepFA12 : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DIG 3; # @parameter%sweepFA12 : mutez : @some : list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CAR; # nat : mutez : @some : list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 5; # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : nat : mutez : @some : list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CAR; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : nat : mutez : @some : list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CAR; # pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa)) : nat : mutez : @some : list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # address : nat : mutez : @some : list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + SELF_ADDRESS; # @self : address : nat : mutez : @some : list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PAIR 3; # pair @self (pair address nat) : mutez : @some : list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CONS; # list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) } { # == sweepFA2 == - # sp.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(amount = params.amount, to_ = self.data.administrator, token_id = params.id)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), params.tokenAddress, entrypoint='transfer').open_some()) # @parameter%sweepFA2 : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - NIL operation; # list operation : @parameter%sweepFA2 : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 2; # @parameter%sweepFA2 : list operation : @parameter%sweepFA2 : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 4; # address : list operation : @parameter%sweepFA2 : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CONTRACT %transfer (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))); # option (contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount))))))) : list operation : @parameter%sweepFA2 : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # sp.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(amount = params.amount, to_ = self.data.administrator, token_id = params.id)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), params.tokenAddress, entrypoint='transfer').open_some()) # @parameter%sweepFA2 : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + NIL operation; # list operation : @parameter%sweepFA2 : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 2; # @parameter%sweepFA2 : list operation : @parameter%sweepFA2 : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 4; # address : list operation : @parameter%sweepFA2 : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CONTRACT %transfer (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount)))))); # option (contract (list (pair (address %from_) (list %txs (pair (address %to_) (pair (nat %token_id) (nat %amount))))))) : list operation : @parameter%sweepFA2 : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int 43; # int : list operation : @parameter%sweepFA2 : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int 43; # int : list operation : @parameter%sweepFA2 : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : list operation : @parameter%sweepFA2 : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH mutez 0; # mutez : @some : list operation : @parameter%sweepFA2 : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - NIL (pair address (list (pair address (pair nat nat)))); # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%sweepFA2 : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - NIL (pair address (pair nat nat)); # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%sweepFA2 : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DIG 5; # @parameter%sweepFA2 : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP; # @parameter%sweepFA2 : @parameter%sweepFA2 : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CAR; # nat : @parameter%sweepFA2 : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # @parameter%sweepFA2 : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 8; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CAR; # pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CAR; # pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator)) : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 4; # address : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR 3; # pair address (pair nat nat) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SELF_ADDRESS; # @self : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair @self (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CONS; # list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # list operation : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : list operation : @parameter%sweepFA2 : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PUSH mutez 0; # mutez : @some : list operation : @parameter%sweepFA2 : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + NIL (pair address (list (pair address (pair nat nat)))); # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%sweepFA2 : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + NIL (pair address (pair nat nat)); # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : @parameter%sweepFA2 : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DIG 5; # @parameter%sweepFA2 : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP; # @parameter%sweepFA2 : @parameter%sweepFA2 : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CAR; # nat : @parameter%sweepFA2 : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # @parameter%sweepFA2 : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 8; # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CAR; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CAR; # pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa)) : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # address : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PAIR 3; # pair address (pair nat nat) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + SELF_ADDRESS; # @self : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair @self (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CONS; # list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + }; # list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + }; # list operation : pair (pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) } { IF_LEFT { # == sweepMutez == - # if params: # @parameter%sweepMutez : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # if params: # @parameter%sweepMutez : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) IF { - # sp.send(self.data.administrator, sp.balance) # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - NIL operation; # list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 2; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CAR; # pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CAR; # pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator)) : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 4; # address : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CONTRACT %receive unit; # option (contract unit) : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # sp.send(self.data.administrator, sp.balance) # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + NIL operation; # list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 2; # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CAR; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CAR; # pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa)) : list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # address : list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CONTRACT %receive unit; # option (contract unit) : list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int 21; # int : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int 21; # int : list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - BALANCE; # @balance : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNIT; # unit : @balance : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CONS; # list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + BALANCE; # @balance : @some : list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + UNIT; # unit : @balance : @some : list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CONS; # list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) } { - # sp.send(self.data.administrator, sp.balance) # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - NIL operation; # list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 2; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CAR; # pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CAR; # pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator)) : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 4; # address : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CONTRACT unit; # option (contract unit) : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # sp.send(self.data.administrator, sp.balance) # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + NIL operation; # list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 2; # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CAR; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CAR; # pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa)) : list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # address : list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CONTRACT unit; # option (contract unit) : list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int 24; # int : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int 24; # int : list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - BALANCE; # @balance : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNIT; # unit : @balance : @some : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CONS; # list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + BALANCE; # @balance : @some : list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + UNIT; # unit : @balance : @some : list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CONS; # list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + }; # list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) } { IF_LEFT { # == updateAccountLiquidityWithView == - # sp.verify(sp.amount == sp.mul(sp.set_type_expr(0, sp.TNat), sp.mutez(1)), 'TEZ_TRANSFERED') # @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH mutez 1; # mutez : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 0; # nat : mutez : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - MUL; # mutez : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - AMOUNT; # @amount : mutez : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - COMPARE; # int : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - EQ; # bool : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # sp.verify(sp.amount == sp.mul(sp.set_type_expr(0, sp.TNat), sp.mutez(1)), 'TEZ_TRANSFERED') # @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PUSH mutez 1; # mutez : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 0; # nat : mutez : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + MUL; # mutez : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + AMOUNT; # @amount : mutez : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + COMPARE; # int : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + EQ; # bool : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) IF {} { - PUSH string "TEZ_TRANSFERED"; # string : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH string "TEZ_TRANSFERED"; # string : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED - }; # @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - # for asset in self.data.marketNameToAddress.values(): ... # @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 2; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # map string address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + }; # @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # for asset in self.data.marketNameToAddress.values(): ... # @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 2; # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser)) : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CAR; # pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CDR; # map string address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) ITER { - CDR; # address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - # if self.data.markets[asset].updateLevel < sp.level: # address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - LEVEL; # @level : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 4; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @level : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : @level : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 4; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @level : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 3; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @level : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @level : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CDR; # address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # if self.data.markets[asset].updateLevel < sp.level: # address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + LEVEL; # @level : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 4; # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @level : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser)) : @level : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @level : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 3; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @level : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @level : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int 293; # int : @level : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int 302; # int : @level : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : @level : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 8; # nat : @level : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - COMPARE; # int : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - LT; # bool : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : @level : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 8; # nat : @level : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + COMPARE; # int : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + LT; # bool : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) IF { - # pricePair = sp.local("pricePair", sp.view("getPrice", self.data.markets[asset].name + '-USD', self.data.oracleAddress, sp.TPair(sp.TTimestamp, sp.TNat)).open_some(message = 'invalid oracle view call')) # address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 3; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 5; # pair (int %maxPriceTimeDifference) (address %oracleAddress) : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CDR; # address : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH string "-USD"; # string : address : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 5; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : string : address : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : string : address : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 4; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : string : address : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 4; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : string : address : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : string : address : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # pricePair = sp.local("pricePair", sp.view("getPrice", self.data.markets[asset].name + '-USD', self.data.oracleAddress, sp.TPair(sp.TTimestamp, sp.TNat)).open_some(message = 'invalid oracle view call')) # address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 3; # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 5; # pair (int %maxPriceTimeDifference) (address %oracleAddress) : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CDR; # address : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PUSH string "-USD"; # string : address : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 5; # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : string : address : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser)) : string : address : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : string : address : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 4; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : string : address : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : string : address : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int 295; # int : string : address : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int 304; # int : string : address : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : string : address : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # pair (string %name) (nat %price) : string : address : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CAR; # string : string : address : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CONCAT; # string : address : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - VIEW "getPrice" (pair timestamp nat); # option (pair timestamp nat) : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : string : address : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # pair (string %name) (nat %price) : string : address : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CAR; # string : string : address : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CONCAT; # string : address : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + VIEW "getPrice" (pair timestamp nat); # option (pair timestamp nat) : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH string "invalid oracle view call"; # string : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH string "invalid oracle view call"; # string : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - # if self.data.markets[asset].priceTimestamp != sp.timestamp(0): # @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH timestamp "1970-01-01T00:00:00Z"; # timestamp : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 5; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : timestamp : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : timestamp : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 4; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : timestamp : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 4; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : timestamp : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : timestamp : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # if self.data.markets[asset].priceTimestamp != sp.timestamp(0): # @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PUSH timestamp "1970-01-01T00:00:00Z"; # timestamp : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 5; # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : timestamp : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser)) : timestamp : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : timestamp : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 4; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : timestamp : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : timestamp : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int 298; # int : timestamp : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int 307; # int : timestamp : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : timestamp : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 7; # timestamp : timestamp : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - COMPARE; # int : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - NEQ; # bool : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : timestamp : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 7; # timestamp : timestamp : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + COMPARE; # int : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + NEQ; # bool : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) IF { - # sp.verify((sp.now - sp.fst(pricePair.value)) <= self.data.maxPriceTimeDifference, 'STALE_ASSET_PRICE') # @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 4; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 5; # pair (int %maxPriceTimeDifference) (address %oracleAddress) : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CAR; # int : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 2; # @some : int : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CAR; # timestamp : int : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - NOW; # @now : timestamp : int : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SUB; # int : int : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - COMPARE; # int : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - LE; # bool : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # sp.verify((sp.now - sp.fst(pricePair.value)) <= self.data.maxPriceTimeDifference, 'STALE_ASSET_PRICE') # @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 4; # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 5; # pair (int %maxPriceTimeDifference) (address %oracleAddress) : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CAR; # int : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 2; # @some : int : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CAR; # timestamp : int : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + NOW; # @now : timestamp : int : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + SUB; # int : int : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + COMPARE; # int : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + LE; # bool : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) IF {} { - PUSH string "STALE_ASSET_PRICE"; # string : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH string "STALE_ASSET_PRICE"; # string : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED - }; # @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + }; # @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) } - {}; # @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - # self.data.markets[asset].price = sp.record(mantissa = sp.snd(pricePair.value) * self.data.markets[asset].priceExp) # @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 4; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 4; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 3; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # self.data.markets[asset].price = sp.record(mantissa = sp.snd(pricePair.value) * self.data.markets[asset].priceExp) # @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 4; # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser)) : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 3; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int 301; # int : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int 310; # int : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 5; # nat : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 2; # @some : nat : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CDR; # nat : nat : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - MUL; # nat : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DIG 4; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # map string address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 9; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP; # address : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUG 2; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 5; # nat : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 2; # @some : nat : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CDR; # nat : nat : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + MUL; # nat : @some : address : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DIG 4; # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + UNPAIR; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + UNPAIR; # pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + UNPAIR; # pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser) : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + UNPAIR; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 9; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP; # address : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUG 2; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int 300; # int : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int 309; # int : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))) : pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # pair (string %name) (nat %price) : pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)) : pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CAR; # string : pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)) : pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DIG 9; # nat : string : pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)) : pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # string : nat : pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)) : pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair string nat : pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)) : pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))) : pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SOME; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # address : option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UPDATE; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - # self.data.markets[asset].priceTimestamp = sp.fst(pricePair.value) # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 8; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP; # address : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUG 2; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + UNPAIR; # pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))) : pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + UNPAIR; # pair (string %name) (nat %price) : pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)) : pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CAR; # string : pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)) : pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : nat : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DIG 9; # nat : string : pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)) : pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # string : nat : pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)) : pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair string nat : pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)) : pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))) : pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + SOME; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # address : option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + UPDATE; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # self.data.markets[asset].priceTimestamp = sp.fst(pricePair.value) # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 8; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP; # address : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUG 2; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int 302; # int : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int 311; # int : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 8; # @some : @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CAR; # timestamp : @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UPDATE 7; # @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SOME; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # address : option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UPDATE; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - # self.data.markets[asset].updateLevel = sp.level # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 8; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP; # address : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUG 2; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 8; # @some : @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CAR; # timestamp : @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + UPDATE 7; # @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + SOME; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # address : option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + UPDATE; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # self.data.markets[asset].updateLevel = sp.level # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 8; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP; # address : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUG 2; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int 303; # int : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int 312; # int : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - LEVEL; # @level : @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DIG 8; # @some : @level : @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DROP; # @level : @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DIG 8; # address : @level : @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DROP; # @level : @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UPDATE 8; # @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SOME; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # address : option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UPDATE; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # map string address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (map string address) (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (map string address) (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map string address) (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map string address) (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map string address) (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map string address) (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map string address) (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + LEVEL; # @level : @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DIG 8; # @some : @level : @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @level : @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : address : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DIG 8; # address : @level : @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @level : @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + UPDATE 8; # @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + SOME; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # address : option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + UPDATE; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) nat : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) nat) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) nat)) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) nat)) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) nat)) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) nat)) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) } { - DROP; # @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map string address) (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - # for asset in self.data.marketNameToAddress.values(): ... # @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - NIL operation; # list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 3; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # map string address : list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + }; # @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) nat)) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + }; # @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # for asset in self.data.marketNameToAddress.values(): ... # @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + NIL operation; # list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 3; # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser)) : list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CAR; # pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CDR; # map string address : list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) ITER { - CDR; # address : list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - # sp.send(asset, sp.tez(0)) # address : list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CONTRACT %accrueInterest unit; # option (contract unit) : list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CDR; # address : list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # sp.send(asset, sp.tez(0)) # address : list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CONTRACT %accrueInterest unit; # option (contract unit) : list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int 347; # int : list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int 356; # int : list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH mutez 0; # mutez : @some : list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNIT; # unit : mutez : @some : list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - TRANSFER_TOKENS; # operation : list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CONS; # list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - # self.data.activeOperations.add(4) # list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DIG 2; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : list operation : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : list operation : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator)) : pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : list operation : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid))) : pair (set %activeOperations nat) (address %administrator) : pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : list operation : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # pair (set %activeOperations nat) (address %administrator) : big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid))) : pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : list operation : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # set nat : address : big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid))) : pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : list operation : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH bool True; # bool : set nat : address : big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid))) : pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : list operation : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 4; # nat : bool : set nat : address : big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid))) : pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : list operation : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UPDATE; # set nat : address : big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid))) : pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : list operation : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (set nat) address : big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid))) : pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : list operation : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid))) : pair (set nat) address : pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : list operation : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address) : pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : list operation : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : list operation : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : list operation : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUG 2; # list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - # sp.transfer(params, sp.tez(0), sp.self_entrypoint('setAccountLiquidityWithView')) # list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SELF %setAccountLiquidityWithView; # @self : list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH mutez 0; # mutez : @self : list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DIG 3; # @parameter%updateAccountLiquidityWithView : mutez : @self : list operation : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CONS; # list operation : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PUSH mutez 0; # mutez : @some : list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + UNIT; # unit : mutez : @some : list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + TRANSFER_TOKENS; # operation : list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CONS; # list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + }; # list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # self.data.activeOperations.add(4) # list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DIG 2; # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : list operation : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + UNPAIR; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : list operation : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + UNPAIR; # pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa)) : pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)) : pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : list operation : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + UNPAIR; # pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat) : pair (address %administrator) (nat %closeFactorMantissa) : pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)) : pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : list operation : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + UNPAIR; # big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid))) : set nat : pair (address %administrator) (nat %closeFactorMantissa) : pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)) : pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : list operation : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # set nat : big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid))) : pair (address %administrator) (nat %closeFactorMantissa) : pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)) : pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : list operation : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PUSH bool True; # bool : set nat : big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid))) : pair (address %administrator) (nat %closeFactorMantissa) : pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)) : pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : list operation : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 4; # nat : bool : set nat : big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid))) : pair (address %administrator) (nat %closeFactorMantissa) : pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)) : pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : list operation : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + UPDATE; # set nat : big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid))) : pair (address %administrator) (nat %closeFactorMantissa) : pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)) : pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : list operation : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid))) : set nat : pair (address %administrator) (nat %closeFactorMantissa) : pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)) : pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : list operation : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set nat) : pair (address %administrator) (nat %closeFactorMantissa) : pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)) : pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : list operation : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set nat)) (pair (address %administrator) (nat %closeFactorMantissa)) : pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)) : pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : list operation : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : list operation : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair (pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : list operation : @parameter%updateAccountLiquidityWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUG 2; # list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # sp.transfer(params, sp.tez(0), sp.self_entrypoint('setAccountLiquidityWithView')) # list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + SELF %setAccountLiquidityWithView; # @self : list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PUSH mutez 0; # mutez : @self : list operation : @parameter%updateAccountLiquidityWithView : pair (pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DIG 3; # @parameter%updateAccountLiquidityWithView : mutez : @self : list operation : pair (pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CONS; # list operation : pair (pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) } { # == updateAllAssetPricesWithView == - # sp.verify(sp.amount == sp.mul(sp.set_type_expr(0, sp.TNat), sp.mutez(1)), 'TEZ_TRANSFERED') # @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH mutez 1; # mutez : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH nat 0; # nat : mutez : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - MUL; # mutez : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - AMOUNT; # @amount : mutez : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - COMPARE; # int : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - EQ; # bool : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # sp.verify(sp.amount == sp.mul(sp.set_type_expr(0, sp.TNat), sp.mutez(1)), 'TEZ_TRANSFERED') # @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PUSH mutez 1; # mutez : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PUSH nat 0; # nat : mutez : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + MUL; # mutez : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + AMOUNT; # @amount : mutez : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + COMPARE; # int : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + EQ; # bool : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) IF {} { - PUSH string "TEZ_TRANSFERED"; # string : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH string "TEZ_TRANSFERED"; # string : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED - }; # @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - # for asset in self.data.marketNameToAddress.values(): ... # @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 2; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # map string address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + }; # @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # for asset in self.data.marketNameToAddress.values(): ... # @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 2; # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser)) : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CAR; # pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CDR; # map string address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) ITER { - CDR; # address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - # if self.data.markets[asset].updateLevel < sp.level: # address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - LEVEL; # @level : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 4; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @level : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : @level : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 4; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @level : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 3; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @level : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @level : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + CDR; # address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # if self.data.markets[asset].updateLevel < sp.level: # address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + LEVEL; # @level : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 4; # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @level : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser)) : @level : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @level : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 3; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @level : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @level : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int 293; # int : @level : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int 302; # int : @level : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : @level : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 8; # nat : @level : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - COMPARE; # int : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - LT; # bool : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : @level : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 8; # nat : @level : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + COMPARE; # int : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + LT; # bool : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) IF { - # pricePair = sp.local("pricePair", sp.view("getPrice", self.data.markets[asset].name + '-USD', self.data.oracleAddress, sp.TPair(sp.TTimestamp, sp.TNat)).open_some(message = 'invalid oracle view call')) # address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 3; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 5; # pair (int %maxPriceTimeDifference) (address %oracleAddress) : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CDR; # address : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH string "-USD"; # string : address : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 5; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : string : address : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : string : address : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 4; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : string : address : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 4; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : string : address : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : string : address : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # pricePair = sp.local("pricePair", sp.view("getPrice", self.data.markets[asset].name + '-USD', self.data.oracleAddress, sp.TPair(sp.TTimestamp, sp.TNat)).open_some(message = 'invalid oracle view call')) # address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 3; # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 5; # pair (int %maxPriceTimeDifference) (address %oracleAddress) : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CDR; # address : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PUSH string "-USD"; # string : address : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 5; # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : string : address : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser)) : string : address : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : string : address : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 4; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : string : address : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : string : address : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int 295; # int : string : address : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int 304; # int : string : address : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : string : address : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # pair (string %name) (nat %price) : string : address : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CAR; # string : string : address : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CONCAT; # string : address : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - VIEW "getPrice" (pair timestamp nat); # option (pair timestamp nat) : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : string : address : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # pair (string %name) (nat %price) : string : address : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CAR; # string : string : address : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CONCAT; # string : address : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + VIEW "getPrice" (pair timestamp nat); # option (pair timestamp nat) : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH string "invalid oracle view call"; # string : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH string "invalid oracle view call"; # string : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - # if self.data.markets[asset].priceTimestamp != sp.timestamp(0): # @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PUSH timestamp "1970-01-01T00:00:00Z"; # timestamp : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 5; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : timestamp : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : timestamp : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 4; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : timestamp : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 4; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : timestamp : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : timestamp : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # if self.data.markets[asset].priceTimestamp != sp.timestamp(0): # @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PUSH timestamp "1970-01-01T00:00:00Z"; # timestamp : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 5; # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : timestamp : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser)) : timestamp : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : timestamp : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 4; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : timestamp : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : timestamp : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int 298; # int : timestamp : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int 307; # int : timestamp : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : timestamp : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 7; # timestamp : timestamp : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - COMPARE; # int : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - NEQ; # bool : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : timestamp : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 7; # timestamp : timestamp : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + COMPARE; # int : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + NEQ; # bool : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) IF { - # sp.verify((sp.now - sp.fst(pricePair.value)) <= self.data.maxPriceTimeDifference, 'STALE_ASSET_PRICE') # @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 4; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 5; # pair (int %maxPriceTimeDifference) (address %oracleAddress) : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CAR; # int : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 2; # @some : int : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CAR; # timestamp : int : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - NOW; # @now : timestamp : int : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SUB; # int : int : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - COMPARE; # int : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - LE; # bool : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + # sp.verify((sp.now - sp.fst(pricePair.value)) <= self.data.maxPriceTimeDifference, 'STALE_ASSET_PRICE') # @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 4; # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 5; # pair (int %maxPriceTimeDifference) (address %oracleAddress) : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CAR; # int : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 2; # @some : int : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CAR; # timestamp : int : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + NOW; # @now : timestamp : int : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + SUB; # int : int : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + COMPARE; # int : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + LE; # bool : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) IF {} { - PUSH string "STALE_ASSET_PRICE"; # string : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH string "STALE_ASSET_PRICE"; # string : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED - }; # @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + }; # @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) } - {}; # @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - # self.data.markets[asset].price = sp.record(mantissa = sp.snd(pricePair.value) * self.data.markets[asset].priceExp) # @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 4; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 4; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 3; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # self.data.markets[asset].price = sp.record(mantissa = sp.snd(pricePair.value) * self.data.markets[asset].priceExp) # @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 4; # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser)) : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 3; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int 301; # int : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int 310; # int : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 5; # nat : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 2; # @some : nat : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CDR; # nat : nat : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - MUL; # nat : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DIG 4; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # map string address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 9; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP; # address : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUG 2; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 5; # nat : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 2; # @some : nat : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CDR; # nat : nat : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + MUL; # nat : @some : address : @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DIG 4; # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + UNPAIR; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + UNPAIR; # pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + UNPAIR; # pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser) : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + UNPAIR; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 9; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP; # address : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUG 2; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int 300; # int : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int 309; # int : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))) : pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UNPAIR; # pair (string %name) (nat %price) : pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)) : pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CAR; # string : pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)) : pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DIG 9; # nat : string : pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)) : pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # string : nat : pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)) : pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair string nat : pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)) : pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))) : pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SOME; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # address : option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UPDATE; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - # self.data.markets[asset].priceTimestamp = sp.fst(pricePair.value) # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 8; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP; # address : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUG 2; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + UNPAIR; # pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))) : pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + UNPAIR; # pair (string %name) (nat %price) : pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)) : pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CAR; # string : pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)) : pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : nat : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DIG 9; # nat : string : pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)) : pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # string : nat : pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)) : pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair string nat : pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)) : pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))) : pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + SOME; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # address : option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + UPDATE; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # self.data.markets[asset].priceTimestamp = sp.fst(pricePair.value) # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 8; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP; # address : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUG 2; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int 302; # int : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int 311; # int : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 8; # @some : @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CAR; # timestamp : @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UPDATE 7; # @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SOME; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # address : option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UPDATE; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - # self.data.markets[asset].updateLevel = sp.level # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 8; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP; # address : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUG 2; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 8; # @some : @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CAR; # timestamp : @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + UPDATE 7; # @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + SOME; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # address : option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + UPDATE; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # self.data.markets[asset].updateLevel = sp.level # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 8; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP; # address : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUG 2; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int 303; # int : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int 312; # int : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - LEVEL; # @level : @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DIG 8; # @some : @level : @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DROP; # @level : @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DIG 8; # address : @level : @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DROP; # @level : @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UPDATE 8; # @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SOME; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # address : option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - UPDATE; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : map string address : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # map string address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (map string address) (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) : pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : pair (map string address) (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map string address) (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map string address) (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map string address) (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - PAIR; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map string address) (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map string address) (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + LEVEL; # @level : @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @some : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DIG 8; # @some : @level : @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @level : @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : address : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DIG 8; # address : @level : @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @level : @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + UPDATE 8; # @some : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + SOME; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # address : option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + UPDATE; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) nat : pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : pair (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) nat : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) nat) : pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) nat)) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) nat)) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused))) : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PAIR; # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) nat)) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter%updateAllAssetPricesWithView : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) nat)) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) } { - DROP; # @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map string address) (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # @parameter%updateAllAssetPricesWithView : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DROP; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - NIL operation; # list operation : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # list operation : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # list operation : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # list operation : pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set nat) address)) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - NIL operation; # list operation : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - SWAP; # list operation : list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + DROP; # @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + }; # @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair string nat) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) nat)) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + }; # @parameter%updateAllAssetPricesWithView : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DROP; # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + NIL operation; # list operation : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + }; # list operation : pair (pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + }; # list operation : pair (pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + }; # list operation : pair (pair (pair (pair (big_map address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + }; # list operation : pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + NIL operation; # list operation : list operation : pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # list operation : list operation : pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) ITER { - CONS; # list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - }; # list operation : pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUG 2; # pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) : list operation - PAIR; # pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))) (big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))))) : list operation - SWAP; # list operation : pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))) (big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))))) - PAIR; # pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))) (big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))))) + CONS; # list operation : pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + }; # list operation : pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUG 2; # pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) : list operation + PAIR; # pair (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))) (big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))))) : list operation + SWAP; # list operation : pair (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))) (big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))))) + PAIR; # pair (list operation) (pair (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))) (big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))))) + }; +view + "getMaxAssetsPerUser" unit nat + { + GET 3; # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + # sp.result(self.data.maxAssetsPerUser) # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + GET 3; # pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser)) + GET 4; # nat + }; +view + "getUserAssetsCount" address nat + { + UNPAIR 3; # @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # unique_assets = sp.local("unique_assets", sp.set([]), sp.TSet(sp.TAddress)) # @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + EMPTY_SET address; # set address : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # if self.data.collaterals.contains(params): # set address : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 3; # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : set address : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CAR; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : set address : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # pair (big_map %collaterals address (set address)) (nat %expScale) : set address : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CAR; # big_map address (set address) : set address : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 3; # @parameter : big_map address (set address) : set address : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + MEM; # bool : set address : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + IF + { + # for asset in self.data.collaterals[params].elements(): ... # set address : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 3; # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : set address : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CAR; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : set address : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # pair (big_map %collaterals address (set address)) (nat %expScale) : set address : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CAR; # big_map address (set address) : set address : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 3; # @parameter : big_map address (set address) : set address : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET; # option (set address) : set address : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + IF_NONE + { + PUSH int 814; # int : set address : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + FAILWITH; # FAILED + } + {}; # @some : set address : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + ITER + { + SWAP; # set address : address : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # unique_assets.value.add(asset) # set address : address : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + PUSH bool True; # bool : set address : address : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DIG 2; # address : bool : set address : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + UPDATE; # set address : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + }; # set address : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + } + {}; # set address : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # if self.data.loans.contains(params): # set address : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 3; # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : set address : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser)) : set address : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CAR; # pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : set address : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CAR; # big_map address (set address) : set address : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 3; # @parameter : big_map address (set address) : set address : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + MEM; # bool : set address : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + IF + { + DIG 3; # big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) : set address : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + DROP; # set address : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + # for asset in self.data.loans[params].elements(): ... # set address : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + DIG 2; # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : set address : @parameter + GET 3; # pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser)) : set address : @parameter + CAR; # pair (big_map %loans address (set address)) (map %marketNameToAddress string address) : set address : @parameter + CAR; # big_map address (set address) : set address : @parameter + DIG 2; # @parameter : big_map address (set address) : set address + GET; # option (set address) : set address + IF_NONE + { + PUSH int 818; # int : set address + FAILWITH; # FAILED + } + {}; # @some : set address + ITER + { + SWAP; # set address : address + # unique_assets.value.add(asset) # set address : address + PUSH bool True; # bool : set address : address + DIG 2; # address : bool : set address + UPDATE; # set address + }; # set address + } + { + SWAP; # @parameter : set address : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DROP; # set address : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : set address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DROP; # set address : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + SWAP; # big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) : set address + DROP; # set address + }; # set address + # sp.result(sp.len(unique_assets.value)) # set address + SIZE; # nat }; view "liquidateCalculateSeizeTokens" (pair (nat %actualRepayAmount) (pair (address %cTokenBorrowed) (address %cTokenCollateral))) (pair nat nat) { - UNPAIR 3; # @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - # sp.verify(sp.level == self.data.markets[params.cTokenBorrowed].updateLevel, 'CMPT_UPDATE_PRICE') # @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 2; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 4; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 2; # @parameter : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + UNPAIR 3; # @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # sp.verify(sp.level == self.data.markets[params.cTokenBorrowed].updateLevel, 'CMPT_UPDATE_PRICE') # @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 2; # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser)) : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 2; # @parameter : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int 306; # int : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int 315; # int : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 8; # nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - LEVEL; # @level : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - COMPARE; # int : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - EQ; # bool : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 8; # nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + LEVEL; # @level : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + COMPARE; # int : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + EQ; # bool : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) IF {} { - PUSH string "CMPT_UPDATE_PRICE"; # string : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH string "CMPT_UPDATE_PRICE"; # string : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED - }; # @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - # priceBorrowedMantissa = sp.local("priceBorrowedMantissa", self.data.markets[params.cTokenBorrowed].price) # @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 2; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 4; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 2; # @parameter : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + }; # @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # priceBorrowedMantissa = sp.local("priceBorrowedMantissa", self.data.markets[params.cTokenBorrowed].price) # @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 2; # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser)) : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 2; # @parameter : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int 307; # int : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int 316; # int : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # pair (string %name) (nat %price) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - CDR; # nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - # sp.verify(sp.level == self.data.markets[params.cTokenCollateral].updateLevel, 'CMPT_UPDATE_PRICE') # nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 3; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 3; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 4; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DUP 3; # @parameter : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 4; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + {}; # @some : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # pair (string %name) (nat %price) : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + CDR; # nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + # sp.verify(sp.level == self.data.markets[params.cTokenCollateral].updateLevel, 'CMPT_UPDATE_PRICE') # nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 3; # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser)) : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 3; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DUP 3; # @parameter : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 4; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) IF_NONE { - PUSH int 306; # int : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) + PUSH int 315; # int : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) FAILWITH; # FAILED } - {}; # @some : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - GET 8; # nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - LEVEL; # @level : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DIG 5; # big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) : @level : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - DROP; # @level : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - COMPARE; # int : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - EQ; # bool : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + {}; # @some : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + GET 8; # nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + LEVEL; # @level : nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DIG 5; # big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) : @level : nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + DROP; # @level : nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + COMPARE; # int : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + EQ; # bool : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) IF {} { - PUSH string "CMPT_UPDATE_PRICE"; # string : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + PUSH string "CMPT_UPDATE_PRICE"; # string : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) FAILWITH; # FAILED - }; # nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - # priceCollateralMantissa = sp.local("priceCollateralMantissa", self.data.markets[params.cTokenCollateral].price) # nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - DUP 3; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - GET 3; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - GET 4; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - DUP 3; # @parameter : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - GET 4; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + }; # nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + # priceCollateralMantissa = sp.local("priceCollateralMantissa", self.data.markets[params.cTokenCollateral].price) # nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + DUP 3; # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + GET 3; # pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser)) : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + GET 3; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + DUP 3; # @parameter : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + GET 4; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) IF_NONE { - PUSH int 307; # int : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + PUSH int 316; # int : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) FAILWITH; # FAILED } - {}; # @some : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - GET 3; # pair (string %name) (nat %price) : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - CDR; # nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - # sp.verify((priceBorrowedMantissa.value.mantissa != 0) & (priceCollateralMantissa.value.mantissa != 0), 'CMPT_PRICE_ERROR') # nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - PUSH nat 0; # nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - DUP 3; # nat : nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - COMPARE; # int : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - NEQ; # bool : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + {}; # @some : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + GET 3; # pair (string %name) (nat %price) : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + CDR; # nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + # sp.verify((priceBorrowedMantissa.value.mantissa != 0) & (priceCollateralMantissa.value.mantissa != 0), 'CMPT_PRICE_ERROR') # nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + PUSH nat 0; # nat : nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + DUP 3; # nat : nat : nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + COMPARE; # int : nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + NEQ; # bool : nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) IF { - PUSH nat 0; # nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - DUP 2; # nat : nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - COMPARE; # int : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - NEQ; # bool : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + PUSH nat 0; # nat : nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + DUP 2; # nat : nat : nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + COMPARE; # int : nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + NEQ; # bool : nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) } { - PUSH bool False; # bool : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - }; # bool : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + PUSH bool False; # bool : nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + }; # bool : nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) IF {} { - PUSH string "CMPT_PRICE_ERROR"; # string : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + PUSH string "CMPT_PRICE_ERROR"; # string : nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) FAILWITH; # FAILED - }; # nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - # numerator = sp.local("numerator", sp.record(mantissa = (self.data.liquidationIncentiveMantissa * priceBorrowedMantissa.value.mantissa) // self.data.expScale)) # nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - DUP 4; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - CAR; # pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - GET 5; # nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - DIG 2; # nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - DUP 5; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - GET 3; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - CAR; # pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address)) : nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - CAR; # nat : nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - MUL; # nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - EDIV; # option (pair nat nat) : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + }; # nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + # numerator = sp.local("numerator", sp.record(mantissa = (self.data.liquidationIncentiveMantissa * priceBorrowedMantissa.value.mantissa) // self.data.expScale)) # nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + DUP 4; # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + CAR; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + GET 3; # pair (big_map %collaterals address (set address)) (nat %expScale) : nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + CDR; # nat : nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + DIG 2; # nat : nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + DUP 5; # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : nat : nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + CAR; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : nat : nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + GET 6; # nat : nat : nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + MUL; # nat : nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + EDIV; # option (pair nat nat) : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) IF_NONE { - PUSH int 207; # int : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + PUSH int 207; # int : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) FAILWITH; # FAILED } { - CAR; # nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - }; # nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - # denominator = sp.local("denominator", sp.record(mantissa = (priceCollateralMantissa.value.mantissa * sp.fst(sp.view("exchangeRateStoredView", sp.unit, params.cTokenCollateral, sp.TPair(sp.TNat, sp.TNat)).open_some(message = 'INVALID EXCHANGE RATE VIEW'))) // self.data.expScale)) # nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - DUP 4; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - CAR; # pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - GET 5; # nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - DUP 4; # @parameter : nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - GET 4; # address : nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - UNIT; # unit : address : nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - VIEW "exchangeRateStoredView" (pair nat nat); # option (pair nat nat) : nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + CAR; # nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + }; # nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + # denominator = sp.local("denominator", sp.record(mantissa = (priceCollateralMantissa.value.mantissa * sp.fst(sp.view("exchangeRateStoredView", sp.unit, params.cTokenCollateral, sp.TPair(sp.TNat, sp.TNat)).open_some(message = 'INVALID EXCHANGE RATE VIEW'))) // self.data.expScale)) # nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + DUP 4; # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + CAR; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + GET 3; # pair (big_map %collaterals address (set address)) (nat %expScale) : nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + CDR; # nat : nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + DUP 4; # @parameter : nat : nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + GET 4; # address : nat : nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + UNIT; # unit : address : nat : nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + VIEW "exchangeRateStoredView" (pair nat nat); # option (pair nat nat) : nat : nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) IF_NONE { - PUSH string "INVALID EXCHANGE RATE VIEW"; # string : nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + PUSH string "INVALID EXCHANGE RATE VIEW"; # string : nat : nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) FAILWITH; # FAILED } - {}; # @some : nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - CAR; # nat : nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - DIG 3; # nat : nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - MUL; # nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - EDIV; # option (pair nat nat) : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + {}; # @some : nat : nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + CAR; # nat : nat : nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + DIG 3; # nat : nat : nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + MUL; # nat : nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + EDIV; # option (pair nat nat) : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) IF_NONE { - PUSH int 207; # int : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + PUSH int 207; # int : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) FAILWITH; # FAILED } { - CAR; # nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - }; # nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - # sp.verify(denominator.value.mantissa > 0, 'DIVISION_BY_ZERO') # nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - PUSH nat 0; # nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - DUP 2; # nat : nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - COMPARE; # int : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - GT; # bool : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + CAR; # nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + }; # nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + # sp.verify(denominator.value.mantissa > 0, 'DIVISION_BY_ZERO') # nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + PUSH nat 0; # nat : nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + DUP 2; # nat : nat : nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + COMPARE; # int : nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + GT; # bool : nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) IF {} { - PUSH string "DIVISION_BY_ZERO"; # string : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + PUSH string "DIVISION_BY_ZERO"; # string : nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) FAILWITH; # FAILED - }; # nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - # ratio = sp.local("ratio", sp.record(mantissa = (numerator.value.mantissa * self.data.expScale) // denominator.value.mantissa)) # nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - DUP 4; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - CAR; # pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - GET 5; # nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - DIG 2; # nat : nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - MUL; # nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - EDIV; # option (pair nat nat) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + }; # nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + # ratio = sp.local("ratio", sp.record(mantissa = (numerator.value.mantissa * self.data.expScale) // denominator.value.mantissa)) # nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + DUP 4; # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + CAR; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + GET 3; # pair (big_map %collaterals address (set address)) (nat %expScale) : nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + CDR; # nat : nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + DIG 2; # nat : nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + MUL; # nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + EDIV; # option (pair nat nat) : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) IF_NONE { - PUSH int 244; # int : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + PUSH int 244; # int : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) FAILWITH; # FAILED } { - CAR; # nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - }; # nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - # sp.result(((ratio.value.mantissa * params.actualRepayAmount) // self.data.expScale, sp.snd(sp.view("exchangeRateStoredView", sp.unit, params.cTokenCollateral, sp.TPair(sp.TNat, sp.TNat)).open_some(message = 'INVALID EXCHANGE RATE VIEW')))) # nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - DUP 2; # @parameter : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - GET 4; # address : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - UNIT; # unit : address : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - VIEW "exchangeRateStoredView" (pair nat nat); # option (pair nat nat) : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + CAR; # nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + }; # nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + # sp.result(((ratio.value.mantissa * params.actualRepayAmount) // self.data.expScale, sp.snd(sp.view("exchangeRateStoredView", sp.unit, params.cTokenCollateral, sp.TPair(sp.TNat, sp.TNat)).open_some(message = 'INVALID EXCHANGE RATE VIEW')))) # nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + DUP 2; # @parameter : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + GET 4; # address : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + UNIT; # unit : address : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + VIEW "exchangeRateStoredView" (pair nat nat); # option (pair nat nat) : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) IF_NONE { - PUSH string "INVALID EXCHANGE RATE VIEW"; # string : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + PUSH string "INVALID EXCHANGE RATE VIEW"; # string : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) FAILWITH; # FAILED } - {}; # @some : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - CDR; # nat : nat : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - DIG 3; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : nat : nat : @parameter - CAR; # pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale))) : nat : nat : @parameter - GET 5; # nat : nat : nat : @parameter + {}; # @some : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + CDR; # nat : nat : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + DIG 3; # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : nat : nat : @parameter + CAR; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa))) : nat : nat : @parameter + GET 3; # pair (big_map %collaterals address (set address)) (nat %expScale) : nat : nat : @parameter + CDR; # nat : nat : nat : @parameter DIG 3; # @parameter : nat : nat : nat CAR; # nat : nat : nat : nat DIG 3; # nat : nat : nat : nat @@ -1026,55 +1126,55 @@ view view "seizeAllowed" (pair (address %cTokenBorrowed) (address %cTokenCollateral)) bool { - UNPAIR 3; # @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) - DIG 2; # big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (pair address bool)) (or nat (or (pair address nat) nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (big_map address (pair int (pair nat bool))) (pair (set nat) address)) (pair (pair nat (big_map address (set address))) (pair nat nat))) (pair (pair (pair nat (big_map address (set address))) (pair (map string address) (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))))) (pair (pair int address) (pair (option address) bool)))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - DROP; # @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - # if (~ ((self.data.markets.contains(params.cTokenBorrowed)) & self.data.markets[params.cTokenBorrowed].isListed)) | (~ ((self.data.markets.contains(params.cTokenCollateral)) & self.data.markets[params.cTokenCollateral].isListed)): # @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - DUP 2; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - GET 3; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - GET 4; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - DUP 2; # @parameter : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - CAR; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - MEM; # bool : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + UNPAIR 3; # @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) + DIG 2; # big_map nat (lambda (pair (or (or (or (or unit (pair address (pair address nat))) (or address (or (list address) unit))) (or (or (pair (pair address address) (pair address (pair address nat))) (or (pair address (pair address nat)) (pair address (pair address nat)))) (or address (or (pair address (pair address (pair address nat))) address)))) (or (or (or (pair (pair address nat) (pair nat nat)) (or (pair address bool) nat)) (or (pair address nat) (or nat nat))) (or (or (pair address bool) (or address (pair address int))) (or bool (or (pair address (pair string nat)) (pair (pair address address) (pair address nat))))))) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool))))) (pair (list operation) (pair (pair (pair (pair (big_map address (pair int (pair nat bool))) (set nat)) (pair address nat)) (pair (pair (big_map address (set address)) nat) (pair nat nat))) (pair (pair (pair (big_map address (set address)) (map string address)) (pair (big_map address (pair (pair (pair bool nat) (pair bool bool)) (pair (pair string nat) (pair nat (pair timestamp nat))))) nat)) (pair (pair int address) (pair (option address) bool)))))) : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + DROP; # @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + # if (~ ((self.data.markets.contains(params.cTokenBorrowed)) & self.data.markets[params.cTokenBorrowed].isListed)) | (~ ((self.data.markets.contains(params.cTokenCollateral)) & self.data.markets[params.cTokenCollateral].isListed)): # @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + DUP 2; # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + GET 3; # pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser)) : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + GET 3; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + DUP 2; # @parameter : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + CAR; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + MEM; # bool : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) IF { - DUP 2; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - GET 3; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - GET 4; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - DUP 2; # @parameter : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - CAR; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + DUP 2; # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + GET 3; # pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser)) : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + GET 3; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + DUP 2; # @parameter : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + CAR; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) IF_NONE { - PUSH int 464; # int : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + PUSH int 473; # int : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) FAILWITH; # FAILED } - {}; # @some : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - CAR; # pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - GET 3; # bool : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + {}; # @some : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + CAR; # pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused)) : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + GET 3; # bool : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) } { - PUSH bool False; # bool : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - }; # bool : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + PUSH bool False; # bool : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + }; # bool : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) IF { - DUP 2; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - GET 3; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - GET 4; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - DUP 2; # @parameter : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - CDR; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) - MEM; # bool : @parameter : pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + DUP 2; # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + GET 3; # pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser)) : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + GET 3; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + DUP 2; # @parameter : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + CDR; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) + MEM; # bool : @parameter : pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) IF { - SWAP; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter - GET 3; # pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))))) : @parameter - GET 4; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter + SWAP; # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter + GET 3; # pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser)) : @parameter + GET 3; # big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter DUP 2; # @parameter : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter CDR; # address : big_map address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter GET; # option (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel))))) : @parameter IF_NONE { - PUSH int 467; # int : @parameter + PUSH int 476; # int : @parameter FAILWITH; # FAILED } {}; # @some : @parameter @@ -1083,13 +1183,13 @@ view NOT; # bool : @parameter } { - SWAP; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter + SWAP; # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter DROP; # @parameter PUSH bool True; # bool : @parameter }; # bool : @parameter } { - SWAP; # pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (pair (set %activeOperations nat) (address %administrator))) (pair (pair (nat %closeFactorMantissa) (big_map %collaterals address (set address))) (pair (nat %expScale) (nat %halfExpScale)))) (pair (pair (pair (nat %liquidationIncentiveMantissa) (big_map %loans address (set address))) (pair (map %marketNameToAddress string address) (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter + SWAP; # pair (pair (pair (pair (big_map %account_liquidity address (pair (int %liquidity) (pair (nat %updateLevel) (bool %valid)))) (set %activeOperations nat)) (pair (address %administrator) (nat %closeFactorMantissa))) (pair (pair (big_map %collaterals address (set address)) (nat %expScale)) (pair (nat %halfExpScale) (nat %liquidationIncentiveMantissa)))) (pair (pair (pair (big_map %loans address (set address)) (map %marketNameToAddress string address)) (pair (big_map %markets address (pair (pair (pair (bool %borrowPaused) (nat %collateralFactor)) (pair (bool %isListed) (bool %mintPaused))) (pair (pair (string %name) (nat %price)) (pair (nat %priceExp) (pair (timestamp %priceTimestamp) (nat %updateLevel)))))) (nat %maxAssetsPerUser))) (pair (pair (int %maxPriceTimeDifference) (address %oracleAddress)) (pair (option %pendingAdministrator address) (bool %transferPaused)))) : @parameter DROP; # @parameter PUSH bool True; # bool : @parameter }; # bool : @parameter @@ -1138,7 +1238,7 @@ view VIEW "comptroller" address; # option address : @parameter IF_NONE { - PUSH int 479; # int : @parameter + PUSH int 488; # int : @parameter FAILWITH; # FAILED } {}; # @some : @parameter @@ -1148,7 +1248,7 @@ view VIEW "comptroller" address; # option address : @some IF_NONE { - PUSH int 478; # int : @some + PUSH int 487; # int : @some FAILWITH; # FAILED } {}; # @some : @some diff --git a/compiled_contracts/Comptroller/step_000_cont_0_sizes.csv b/compiled_contracts/Comptroller/step_000_cont_0_sizes.csv index ee756e1c..1eda4105 100644 --- a/compiled_contracts/Comptroller/step_000_cont_0_sizes.csv +++ b/compiled_contracts/Comptroller/step_000_cont_0_sizes.csv @@ -1,2 +1,2 @@ -storage,20540 -contract,6771 \ No newline at end of file +storage,21967 +contract,7159 \ No newline at end of file diff --git a/compiled_contracts/Comptroller/step_000_cont_0_storage.json b/compiled_contracts/Comptroller/step_000_cont_0_storage.json index 9c556592..7519b60f 100644 --- a/compiled_contracts/Comptroller/step_000_cont_0_storage.json +++ b/compiled_contracts/Comptroller/step_000_cont_0_storage.json @@ -7,12 +7,17 @@ { "prim": "Pair", "args": [ - { "prim": "Pair", "args": [ [], { "prim": "Pair", "args": [ [], { "string": "KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2" } ] } ] }, { "prim": "Pair", "args": [ - { "prim": "Pair", "args": [ { "int": "500000000000000000" }, [] ] }, - { "prim": "Pair", "args": [ { "int": "1000000000000000000" }, { "int": "500000000000000000" } ] } + { "prim": "Pair", "args": [ [], [] ] }, { "prim": "Pair", "args": [ { "string": "KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2" }, { "int": "500000000000000000" } ] } + ] + }, + { + "prim": "Pair", + "args": [ + { "prim": "Pair", "args": [ [], { "int": "1000000000000000000" } ] }, + { "prim": "Pair", "args": [ { "int": "500000000000000000" }, { "int": "1050000000000000000" } ] } ] } ] @@ -20,7 +25,7 @@ { "prim": "Pair", "args": [ - { "prim": "Pair", "args": [ { "prim": "Pair", "args": [ { "int": "1050000000000000000" }, [] ] }, { "prim": "Pair", "args": [ [], [] ] } ] }, + { "prim": "Pair", "args": [ { "prim": "Pair", "args": [ [], [] ] }, { "prim": "Pair", "args": [ [], { "int": "15" } ] } ] }, { "prim": "Pair", "args": [ @@ -83,15 +88,14 @@ { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_NOT_PENDING_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "DUP" }, { "prim": "GET", "args": [ { "int": "7" } ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "566" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "594" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, - { "prim": "CAR" }, + { "prim": "CDR" }, { "prim": "DIG", "args": [ { "int": "4" } ] }, - { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, @@ -142,18 +146,18 @@ { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "TEZ_TRANSFERED" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "212" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "217" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "IF", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_BORROW_PAUSED" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "MEM" }, @@ -163,11 +167,11 @@ [ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "742" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "785" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] } ], @@ -175,11 +179,153 @@ ] }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_MARKET_NOT_LISTED" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CDR" }, - { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "827" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "MEM" }, + { "prim": "IF", "args": [ [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] } ], [] ] } + ], + [] + ] + }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "MEM" }, + { "prim": "IF", "args": [ [ { "prim": "DUP" } ], [ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] } ] ] }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "831" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "MEM" }, + { "prim": "IF", "args": [ [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] } ], [] ] } + ], + [] + ] + }, + { "prim": "DUP" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "EMPTY_SET", "args": [ { "prim": "address" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "814" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { + "prim": "ITER", + "args": [ + [ + { "prim": "SWAP" }, + { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "UPDATE" } + ] + ] + } + ], + [] + ] + }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "818" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { + "prim": "ITER", + "args": [ + [ + { "prim": "SWAP" }, + { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "UPDATE" } + ] + ] + } + ], + [] + ] + }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "SWAP" }, + { "prim": "SIZE" }, + { "prim": "COMPARE" }, + { "prim": "LT" }, + { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_TOO_MANY_ASSETS" } ] }, { "prim": "FAILWITH" } ] ] } + ], + [] + ] + }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, { @@ -187,27 +333,27 @@ "args": [ [], [ - { "prim": "DUP" }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_INVALID_BORROW_SENDER" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, { "prim": "MEM" }, { "prim": "IF", "args": [ [ - { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "SENDER" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "742" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "785" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] } ], @@ -215,100 +361,99 @@ ] }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_MARKET_NOT_LISTED" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CDR" }, - { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, { "prim": "IF", "args": [ [ - { "prim": "SWAP" }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, - { "prim": "SWAP" }, { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "230" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "239" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] }, { "prim": "SENDER" }, { "prim": "UPDATE" }, { "prim": "SOME" }, { "prim": "SWAP" }, { "prim": "UPDATE" }, - { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, - { "prim": "SWAP" } + { "prim": "DUG", "args": [ { "int": "2" } ] } ], [ - { "prim": "SWAP" }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, - { "prim": "SWAP" }, { "prim": "EMPTY_SET", "args": [ { "prim": "address" } ] }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] }, { "prim": "SENDER" }, { "prim": "UPDATE" }, { "prim": "SOME" }, - { "prim": "DUP", "args": [ { "int": "7" } ] }, + { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "UPDATE" }, - { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, - { "prim": "SWAP" } + { "prim": "DUG", "args": [ { "int": "2" } ] } ] ] } ] ] }, - { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_LIQUIDITY_ABSENT" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "758" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "801" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_LIQUIDITY_INVALID" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "760" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "803" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "LEVEL" }, { "prim": "SUB" }, @@ -319,28 +464,30 @@ { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_LIQUIDITY_OLD" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "306" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "315" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "8" } ] }, { "prim": "LEVEL" }, { "prim": "DIG", "args": [ { "int": "2" } ] }, { "prim": "DROP" }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "DROP" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_UPDATE_PRICE" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "307" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "316" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "COMPARE" }, @@ -348,16 +495,17 @@ { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_INVALID_PRICE" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "191" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "196" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "MUL" }, @@ -368,10 +516,11 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "190" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "195" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "SUB" }, { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "0" } ] }, @@ -383,6 +532,7 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, @@ -394,13 +544,14 @@ { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, { "prim": "DUP" }, - { "prim": "DIG", "args": [ { "int": "5" } ] }, + { "prim": "DIG", "args": [ { "int": "6" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "765" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "808" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] }, { "prim": "UPDATE", "args": [ { "int": "4" } ] }, { "prim": "SOME" }, @@ -408,6 +559,7 @@ { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "PAIR" }, + { "prim": "PAIR" }, { "prim": "PAIR" } ], [ { "prim": "DROP" } ] @@ -457,14 +609,14 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "MEM" }, { @@ -473,10 +625,10 @@ [ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "742" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "785" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] } ], @@ -491,13 +643,12 @@ { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, - { "prim": "SWAP" }, { "prim": "DUP" }, { "prim": "DIG", "args": [ { "int": "6" } ] }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "733" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "776" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, @@ -510,7 +661,6 @@ { "prim": "SOME" }, { "prim": "SWAP" }, { "prim": "UPDATE" }, - { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, @@ -566,26 +716,162 @@ { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "TEZ_TRANSFERED" } ] }, { "prim": "FAILWITH" } ] ] }, + { "prim": "EMPTY_SET", "args": [ { "prim": "address" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "SENDER" }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "SENDER" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "814" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { + "prim": "ITER", + "args": [ + [ + { "prim": "SWAP" }, + { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "UPDATE" } + ] + ] + } + ], + [] + ] + }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "SENDER" }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "SENDER" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "818" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { + "prim": "ITER", + "args": [ + [ + { "prim": "SWAP" }, + { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] }, + { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "UPDATE" } + ] + ] + } + ], + [] + ] + }, { "prim": "DUP" }, + { "prim": "SIZE" }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "ITER", "args": [ [ - { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, - { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "SENDER" }, { "prim": "MEM" }, { "prim": "IF", "args": [ [ + { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "SENDER" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "827" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "MEM" }, + { "prim": "IF", "args": [ [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] } ], [] ] } + ], + [] + ] + }, + { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "SENDER" }, + { "prim": "MEM" }, + { "prim": "IF", "args": [ [ { "prim": "DUP" } ], [ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] } ] ] }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "SENDER" }, + { "prim": "GET" }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "831" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "MEM" }, + { "prim": "IF", "args": [ [ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] } ], [] ] } + ], + [] + ] + }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "COMPARE" }, + { "prim": "LT" }, + { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_TOO_MANY_ASSETS" } ] }, { "prim": "FAILWITH" } ] ] }, + { "prim": "SWAP" }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "1" } ] }, + { "prim": "ADD" }, + { "prim": "SWAP" } + ], + [] + ] + }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "MEM" }, + { + "prim": "IF", + "args": [ + [ + { "prim": "DUP", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "742" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "785" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] } ], @@ -593,51 +879,48 @@ ] }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_MARKET_NOT_LISTED" } ] }, { "prim": "FAILWITH" } ] ] }, - { "prim": "DUP", "args": [ { "int": "3" } ] }, + { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "SENDER" }, { "prim": "MEM" }, { "prim": "IF", "args": [ [ - { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "DIG", "args": [ { "int": "4" } ] }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, - { "prim": "SWAP" }, { "prim": "DUP" }, { "prim": "SENDER" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "89" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "94" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] }, { "prim": "DIG", "args": [ { "int": "8" } ] }, { "prim": "UPDATE" }, { "prim": "SOME" }, { "prim": "SWAP" }, { "prim": "UPDATE" }, - { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, - { "prim": "SWAP" } + { "prim": "DUG", "args": [ { "int": "3" } ] } ], [ - { "prim": "DIG", "args": [ { "int": "2" } ] }, + { "prim": "DIG", "args": [ { "int": "4" } ] }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, - { "prim": "SWAP" }, { "prim": "EMPTY_SET", "args": [ { "prim": "address" } ] }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] }, { "prim": "DIG", "args": [ { "int": "7" } ] }, @@ -645,24 +928,24 @@ { "prim": "SOME" }, { "prim": "SENDER" }, { "prim": "UPDATE" }, - { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, - { "prim": "SWAP" } + { "prim": "DUG", "args": [ { "int": "3" } ] } ] ] } ] ] }, - { "prim": "DROP" }, + { "prim": "DROP", "args": [ { "int": "3" } ] }, { "prim": "DUP" }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, + { "prim": "CAR" }, { "prim": "SENDER" }, { "prim": "MEM" }, { @@ -672,12 +955,13 @@ { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, { "prim": "DUP" }, { "prim": "SENDER" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "765" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "808" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] }, { "prim": "UPDATE", "args": [ { "int": "4" } ] }, { "prim": "SOME" }, @@ -685,6 +969,7 @@ { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "PAIR" }, + { "prim": "PAIR" }, { "prim": "PAIR" } ], [] @@ -740,7 +1025,7 @@ { "prim": "DUP" }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, { "prim": "COMPARE" }, { "prim": "EQ" }, @@ -748,14 +1033,13 @@ { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, - { "prim": "SWAP" }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "EMPTY_SET", "args": [ { "prim": "nat" } ] }, - { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "PAIR" }, + { "prim": "PAIR" }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "PAIR" } ] @@ -799,7 +1083,7 @@ { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "TEZ_TRANSFERED" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, @@ -810,12 +1094,12 @@ [ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "742" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "785" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] } ], @@ -825,7 +1109,7 @@ { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_MARKET_NOT_LISTED" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, @@ -835,11 +1119,11 @@ [ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "742" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "785" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] } ], @@ -852,7 +1136,7 @@ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, @@ -864,12 +1148,12 @@ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "491" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "500" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "ITER", "args": [ @@ -903,7 +1187,8 @@ { "prim": "IF_NONE", "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_OUTDATED_ACCOUNT_SNAPHOT" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "DROP" } ] + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_OUTDATED_ACCOUNT_SNAPSHOT" } ] }, { "prim": "FAILWITH" } ], + [ { "prim": "DROP" } ] ] }, { "prim": "DUP" }, @@ -932,15 +1217,15 @@ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID ACCOUNT SNAPSHOT VIEW" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "521" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "530" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "306" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "315" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "8" } ] }, { "prim": "LEVEL" }, { "prim": "COMPARE" }, @@ -949,10 +1234,10 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "307" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "316" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "COMPARE" }, @@ -960,26 +1245,28 @@ { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_INVALID_PRICE" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CDR" }, { "prim": "SWAP" }, { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "9" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "525" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "534" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "10" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "525" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "534" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "MUL" }, @@ -995,7 +1282,7 @@ { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, @@ -1007,12 +1294,12 @@ { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "530" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "539" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "MEM" } ], @@ -1027,7 +1314,8 @@ { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "9" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DIG", "args": [ { "int": "4" } ] }, @@ -1047,16 +1335,17 @@ { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CDR" }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "9" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DIG", "args": [ { "int": "5" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "534" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "543" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "MUL" }, @@ -1088,7 +1377,7 @@ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, @@ -1100,12 +1389,12 @@ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "499" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "508" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "ITER", "args": [ @@ -1113,7 +1402,7 @@ { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, @@ -1125,12 +1414,12 @@ { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "502" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "511" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "MEM" }, { @@ -1172,7 +1461,7 @@ { "prim": "IF_NONE", "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_OUTDATED_ACCOUNT_SNAPHOT" } ] }, { "prim": "FAILWITH" } ], + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_OUTDATED_ACCOUNT_SNAPSHOT" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "DROP" } ] ] }, @@ -1207,15 +1496,15 @@ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID ACCOUNT SNAPSHOT VIEW" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "521" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "530" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "306" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "315" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "8" } ] }, { "prim": "LEVEL" }, { "prim": "COMPARE" }, @@ -1227,10 +1516,10 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "307" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "316" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "COMPARE" }, @@ -1241,26 +1530,28 @@ }, { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CDR" }, { "prim": "SWAP" }, { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "9" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "525" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "534" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "10" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "525" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "534" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "MUL" }, @@ -1284,7 +1575,7 @@ { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, @@ -1296,12 +1587,12 @@ { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "530" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "539" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "MEM" } ], @@ -1316,7 +1607,8 @@ { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "9" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DIG", "args": [ { "int": "4" } ] }, @@ -1336,16 +1628,17 @@ { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CDR" }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "9" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DIG", "args": [ { "int": "5" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "534" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "543" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "MUL" }, @@ -1407,7 +1700,7 @@ { "prim": "IF_NONE", "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_OUTDATED_ACCOUNT_SNAPHOT" } ] }, { "prim": "FAILWITH" } ], + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_OUTDATED_ACCOUNT_SNAPSHOT" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "DROP" } ] ] }, @@ -1440,15 +1733,15 @@ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID ACCOUNT SNAPSHOT VIEW" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "521" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "530" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "306" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "315" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "8" } ] }, { "prim": "LEVEL" }, { "prim": "COMPARE" }, @@ -1457,10 +1750,10 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "307" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "316" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "COMPARE" }, @@ -1471,26 +1764,28 @@ }, { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CDR" }, { "prim": "SWAP" }, { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "9" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "525" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "534" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "10" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "525" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "534" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "MUL" }, @@ -1512,7 +1807,7 @@ { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, @@ -1524,12 +1819,12 @@ { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "530" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "539" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "MEM" } ], @@ -1544,7 +1839,8 @@ { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "9" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DIG", "args": [ { "int": "4" } ] }, @@ -1564,16 +1860,17 @@ { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CDR" }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "9" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DIG", "args": [ { "int": "5" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "534" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "543" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "MUL" }, @@ -1618,7 +1915,8 @@ { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_INSUFFICIENT_SHORTFALL" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, @@ -1633,8 +1931,8 @@ { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "MUL" }, { "prim": "EDIV" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "61" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] }, @@ -1649,6 +1947,7 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, @@ -1661,14 +1960,15 @@ { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "765" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "808" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] }, { "prim": "UPDATE", "args": [ { "int": "4" } ] }, { "prim": "SOME" }, @@ -1677,6 +1977,7 @@ { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "PAIR" }, + { "prim": "PAIR" }, { "prim": "SWAP" } ], [] @@ -1686,6 +1987,7 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "MEM" }, @@ -1697,13 +1999,14 @@ { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, { "prim": "DUP" }, - { "prim": "DIG", "args": [ { "int": "5" } ] }, + { "prim": "DIG", "args": [ { "int": "6" } ] }, { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "765" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "808" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] }, { "prim": "UPDATE", "args": [ { "int": "4" } ] }, { "prim": "SOME" }, @@ -1711,6 +2014,7 @@ { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "PAIR" }, + { "prim": "PAIR" }, { "prim": "PAIR" } ], [ { "prim": "DROP" } ] @@ -1767,17 +2071,17 @@ { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "TEZ_TRANSFERED" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "153" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "158" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "IF", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_MINT_PAUSED" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "MEM" }, @@ -1787,11 +2091,11 @@ [ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "742" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "785" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] } ], @@ -1803,6 +2107,7 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, @@ -1814,13 +2119,14 @@ { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, { "prim": "DUP" }, - { "prim": "DIG", "args": [ { "int": "5" } ] }, + { "prim": "DIG", "args": [ { "int": "6" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "765" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "808" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] }, { "prim": "UPDATE", "args": [ { "int": "4" } ] }, { "prim": "SOME" }, @@ -1828,6 +2134,7 @@ { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "PAIR" }, + { "prim": "PAIR" }, { "prim": "PAIR" } ], [ { "prim": "DROP" } ] @@ -1884,7 +2191,7 @@ { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "TEZ_TRANSFERED" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "MEM" }, @@ -1894,11 +2201,11 @@ [ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "742" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "785" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] } ], @@ -1909,7 +2216,7 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, @@ -1920,11 +2227,11 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "180" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "185" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "MEM" } @@ -1939,7 +2246,7 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, @@ -1951,11 +2258,11 @@ { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "182" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "187" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "SIZE" }, { "prim": "COMPARE" }, { "prim": "NEQ" } @@ -1971,6 +2278,7 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, @@ -1979,20 +2287,22 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "758" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "801" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_LIQUIDITY_INVALID" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "760" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "803" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "LEVEL" }, { "prim": "SUB" }, @@ -2008,11 +2318,11 @@ { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_LIQUIDITY_OLD" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "306" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "315" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "8" } ] }, { "prim": "LEVEL" }, { "prim": "DIG", "args": [ { "int": "2" } ] }, @@ -2023,11 +2333,11 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "307" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "316" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "COMPARE" }, @@ -2035,16 +2345,17 @@ { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_INVALID_PRICE" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "191" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "196" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "MUL" }, @@ -2055,10 +2366,11 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "190" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "195" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "SUB" }, { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "0" } ] }, @@ -2078,6 +2390,7 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, @@ -2089,13 +2402,14 @@ { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, { "prim": "DUP" }, - { "prim": "DIG", "args": [ { "int": "5" } ] }, + { "prim": "DIG", "args": [ { "int": "6" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "765" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "808" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] }, { "prim": "UPDATE", "args": [ { "int": "4" } ] }, { "prim": "SOME" }, @@ -2103,6 +2417,7 @@ { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "PAIR" }, + { "prim": "PAIR" }, { "prim": "PAIR" } ], [ { "prim": "DROP" } ] @@ -2151,7 +2466,7 @@ { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "TEZ_TRANSFERED" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, { "prim": "MEM" }, { @@ -2160,10 +2475,10 @@ [ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "742" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "785" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] } ], @@ -2174,7 +2489,7 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "MEM" }, { @@ -2184,10 +2499,10 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "239" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "248" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "SENDER" }, { "prim": "MEM" } ], @@ -2204,20 +2519,18 @@ { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, - { "prim": "SWAP" }, { "prim": "DUP" }, { "prim": "DIG", "args": [ { "int": "6" } ] }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "240" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "249" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] }, { "prim": "SENDER" }, { "prim": "UPDATE" }, { "prim": "SOME" }, { "prim": "SWAP" }, { "prim": "UPDATE" }, - { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "PAIR" }, @@ -2278,7 +2591,7 @@ { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "TEZ_TRANSFERED" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "MEM" }, @@ -2288,11 +2601,11 @@ [ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "742" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "785" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] } ], @@ -2304,6 +2617,7 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "MEM" }, @@ -2315,13 +2629,14 @@ { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "GET", "args": [ { "int": "5" } ] }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "765" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "808" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] }, { "prim": "UPDATE", "args": [ { "int": "4" } ] }, { "prim": "SOME" }, @@ -2330,6 +2645,7 @@ { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "PAIR" }, + { "prim": "PAIR" }, { "prim": "SWAP" } ], [] @@ -2339,6 +2655,7 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "MEM" }, @@ -2350,13 +2667,14 @@ { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, { "prim": "DUP" }, - { "prim": "DIG", "args": [ { "int": "5" } ] }, + { "prim": "DIG", "args": [ { "int": "6" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "765" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "808" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] }, { "prim": "UPDATE", "args": [ { "int": "4" } ] }, { "prim": "SOME" }, @@ -2364,6 +2682,7 @@ { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "PAIR" }, + { "prim": "PAIR" }, { "prim": "PAIR" } ], [ { "prim": "DROP" } ] @@ -2423,7 +2742,7 @@ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "MEM" }, { @@ -2433,10 +2752,10 @@ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "491" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "500" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "ITER", "args": [ @@ -2468,7 +2787,8 @@ { "prim": "IF_NONE", "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_OUTDATED_ACCOUNT_SNAPHOT" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "DROP" } ] + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_OUTDATED_ACCOUNT_SNAPSHOT" } ] }, { "prim": "FAILWITH" } ], + [ { "prim": "DROP" } ] ] }, { "prim": "DUP" }, @@ -2495,15 +2815,15 @@ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID ACCOUNT SNAPSHOT VIEW" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "521" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "530" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "306" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "315" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "8" } ] }, { "prim": "LEVEL" }, { "prim": "COMPARE" }, @@ -2512,10 +2832,10 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "307" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "316" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "COMPARE" }, @@ -2523,26 +2843,28 @@ { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_INVALID_PRICE" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CDR" }, { "prim": "SWAP" }, { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "9" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "525" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "534" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "10" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "525" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "534" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "MUL" }, @@ -2558,7 +2880,7 @@ { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, @@ -2570,12 +2892,12 @@ { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "530" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "539" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "MEM" } ], @@ -2590,7 +2912,8 @@ { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "9" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DIG", "args": [ { "int": "4" } ] }, @@ -2610,16 +2933,17 @@ { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CDR" }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "9" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DIG", "args": [ { "int": "5" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "534" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "543" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "MUL" }, @@ -2651,7 +2975,7 @@ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "MEM" }, { @@ -2661,10 +2985,10 @@ { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "499" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "508" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "ITER", "args": [ @@ -2672,7 +2996,7 @@ { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "MEM" }, { @@ -2682,10 +3006,10 @@ { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "502" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "511" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "MEM" }, { @@ -2725,7 +3049,7 @@ { "prim": "IF_NONE", "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_OUTDATED_ACCOUNT_SNAPHOT" } ] }, { "prim": "FAILWITH" } ], + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_OUTDATED_ACCOUNT_SNAPSHOT" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "DROP" } ] ] }, @@ -2758,15 +3082,15 @@ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID ACCOUNT SNAPSHOT VIEW" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "521" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "530" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "306" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "315" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "8" } ] }, { "prim": "LEVEL" }, { "prim": "COMPARE" }, @@ -2778,10 +3102,10 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "307" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "316" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "COMPARE" }, @@ -2792,26 +3116,28 @@ }, { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CDR" }, { "prim": "SWAP" }, { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "9" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "525" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "534" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "10" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "525" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "534" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "MUL" }, @@ -2835,7 +3161,7 @@ { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, @@ -2847,12 +3173,12 @@ { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "530" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "539" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "MEM" } ], @@ -2867,7 +3193,8 @@ { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "9" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DIG", "args": [ { "int": "4" } ] }, @@ -2887,16 +3214,17 @@ { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CDR" }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "9" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DIG", "args": [ { "int": "5" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "534" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "543" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "MUL" }, @@ -2956,7 +3284,7 @@ { "prim": "IF_NONE", "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_OUTDATED_ACCOUNT_SNAPHOT" } ] }, { "prim": "FAILWITH" } ], + [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_OUTDATED_ACCOUNT_SNAPSHOT" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "DROP" } ] ] }, @@ -2987,15 +3315,15 @@ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "INVALID ACCOUNT SNAPSHOT VIEW" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "521" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "530" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP" }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "306" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "315" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "8" } ] }, { "prim": "LEVEL" }, { "prim": "COMPARE" }, @@ -3004,10 +3332,10 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "307" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "316" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "COMPARE" }, @@ -3018,26 +3346,28 @@ }, { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CDR" }, { "prim": "SWAP" }, { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "9" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "525" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "534" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "10" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "525" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "534" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "MUL" }, @@ -3059,7 +3389,7 @@ { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, @@ -3071,12 +3401,12 @@ { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "530" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "539" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "MEM" } ], @@ -3091,7 +3421,8 @@ { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "9" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DIG", "args": [ { "int": "4" } ] }, @@ -3111,16 +3442,17 @@ { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "8" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CDR" }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "9" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DIG", "args": [ { "int": "5" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "534" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "543" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "MUL" }, @@ -3159,7 +3491,8 @@ { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CDR" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "4" } ] }, { "prim": "MEM" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_NOT_ACTIVE" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -3167,30 +3500,30 @@ { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, - { "prim": "SWAP" }, { "prim": "UNPAIR" }, + { "prim": "SWAP" }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "4" } ] }, { "prim": "UPDATE" }, - { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] }, { "prim": "LEVEL" }, - { "prim": "DIG", "args": [ { "int": "7" } ] }, + { "prim": "DIG", "args": [ { "int": "8" } ] }, { "prim": "DROP" }, - { "prim": "DIG", "args": [ { "int": "7" } ] }, + { "prim": "DIG", "args": [ { "int": "8" } ] }, { "prim": "DROP" }, - { "prim": "DIG", "args": [ { "int": "6" } ] }, + { "prim": "DIG", "args": [ { "int": "7" } ] }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "SUB" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "SOME" }, - { "prim": "DIG", "args": [ { "int": "5" } ] }, + { "prim": "DIG", "args": [ { "int": "6" } ] }, { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "PAIR" }, + { "prim": "PAIR" }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "PAIR" } ] @@ -3235,7 +3568,8 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "CDR" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "1" } ] }, { "prim": "MEM" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_NOT_ACTIVE" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -3243,16 +3577,16 @@ { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, - { "prim": "SWAP" }, { "prim": "UNPAIR" }, + { "prim": "SWAP" }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "1" } ] }, { "prim": "UPDATE" }, - { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "PAIR" }, + { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, @@ -3263,7 +3597,7 @@ { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_BORROW_IN_MARKET" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, { "prim": "MEM" }, { @@ -3272,10 +3606,10 @@ [ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "742" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "785" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] } ], @@ -3286,7 +3620,7 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, @@ -3298,12 +3632,12 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "180" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "185" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "SENDER" }, { "prim": "MEM" } ], @@ -3317,7 +3651,7 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, @@ -3330,12 +3664,12 @@ { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "182" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "187" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "SIZE" }, { "prim": "COMPARE" }, { "prim": "NEQ" } @@ -3351,6 +3685,7 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, @@ -3360,22 +3695,24 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "758" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "801" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_LIQUIDITY_INVALID" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "760" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "803" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "LEVEL" }, { "prim": "SUB" }, @@ -3391,10 +3728,10 @@ { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_LIQUIDITY_OLD" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "306" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "315" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "8" } ] }, { "prim": "LEVEL" }, { "prim": "DIG", "args": [ { "int": "2" } ] }, @@ -3405,10 +3742,10 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "307" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "316" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "COMPARE" }, @@ -3416,15 +3753,16 @@ { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_INVALID_PRICE" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "191" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "196" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "MUL" }, @@ -3435,11 +3773,12 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "190" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "195" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "SUB" }, { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "0" } ] }, @@ -3459,6 +3798,7 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, @@ -3471,14 +3811,15 @@ { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, { "prim": "DUP" }, - { "prim": "DUP", "args": [ { "int": "6" } ] }, + { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "765" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "808" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] }, { "prim": "UPDATE", "args": [ { "int": "4" } ] }, { "prim": "SOME" }, @@ -3487,6 +3828,7 @@ { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "PAIR" }, + { "prim": "PAIR" }, { "prim": "SWAP" } ], [] @@ -3495,7 +3837,7 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, @@ -3507,12 +3849,12 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "133" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "138" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "SENDER" }, { "prim": "MEM" } ], @@ -3529,7 +3871,6 @@ { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, - { "prim": "SWAP" }, { "prim": "DUP" }, { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "CAR" }, @@ -3537,14 +3878,13 @@ { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "135" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "140" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] }, { "prim": "SENDER" }, { "prim": "UPDATE" }, { "prim": "SOME" }, { "prim": "SWAP" }, { "prim": "UPDATE" }, - { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "SWAP" }, @@ -3559,6 +3899,7 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, @@ -3571,14 +3912,15 @@ { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, { "prim": "DUP" }, - { "prim": "DIG", "args": [ { "int": "5" } ] }, + { "prim": "DIG", "args": [ { "int": "6" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "765" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "808" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] }, { "prim": "UPDATE", "args": [ { "int": "4" } ] }, { "prim": "SOME" }, @@ -3586,6 +3928,7 @@ { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "PAIR" }, + { "prim": "PAIR" }, { "prim": "PAIR" } ], [ { "prim": "DROP" } ] @@ -3614,7 +3957,15 @@ { "prim": "IF_LEFT", "args": [ - [ { "prim": "IF_LEFT", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], [] ] } ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], + [ { "prim": "IF_LEFT", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] } ] + ] + } + ], [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] } @@ -3634,7 +3985,7 @@ { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "TEZ_TRANSFERED" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "MEM" }, @@ -3644,11 +3995,11 @@ [ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "742" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "785" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] } ], @@ -3659,7 +4010,7 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, { "prim": "COMPARE" }, { "prim": "EQ" }, @@ -3671,14 +4022,13 @@ { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, - { "prim": "SWAP" }, { "prim": "DUP" }, { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "CAR" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "603" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "631" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "CDR" }, @@ -3690,7 +4040,6 @@ { "prim": "SOME" }, { "prim": "SWAP" }, { "prim": "UPDATE" }, - { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, @@ -3720,8 +4069,16 @@ { "prim": "IF_LEFT", "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], - [ { "prim": "IF_LEFT", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] } ] + [ + { + "prim": "IF_LEFT", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], + [ { "prim": "IF_LEFT", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], [] ] } ] + ] + } + ], + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] } ], @@ -3741,7 +4098,7 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, { "prim": "COMPARE" }, { "prim": "EQ" }, @@ -3749,15 +4106,16 @@ { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, - { "prim": "SWAP" }, { "prim": "UNPAIR" }, - { "prim": "CDR" }, + { "prim": "SWAP" }, + { "prim": "CAR" }, { "prim": "DIG", "args": [ { "int": "4" } ] }, - { "prim": "PAIR" }, + { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, + { "prim": "PAIR" }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "PAIR" } ] @@ -3782,15 +4140,7 @@ "prim": "IF_LEFT", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], - [ - { - "prim": "IF_LEFT", - "args": [ - [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], - [ { "prim": "IF_LEFT", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] } ] - ] - } - ] + [ { "prim": "IF_LEFT", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] } ] ] } ], @@ -3810,14 +4160,14 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "MEM" }, @@ -3827,11 +4177,11 @@ [ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "742" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "785" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] } ], @@ -3846,14 +4196,13 @@ { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, - { "prim": "SWAP" }, { "prim": "DUP" }, { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "CAR" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "670" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "713" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "CAR" }, @@ -3866,7 +4215,6 @@ { "prim": "SOME" }, { "prim": "SWAP" }, { "prim": "UPDATE" }, - { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, @@ -3882,6 +4230,78 @@ "prim": "Elt", "args": [ { "int": "15" }, + [ + { "prim": "UNPAIR" }, + { + "prim": "IF_LEFT", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ + { + "prim": "IF_LEFT", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], + [ + { + "prim": "IF_LEFT", + "args": [ + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], + [ { "prim": "IF_LEFT", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] } ] + ] + } + ] + ] + } + ], + [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] + ] + } + ] + ] + }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] }, + { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, + { "prim": "MUL" }, + { "prim": "AMOUNT" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "TEZ_TRANSFERED" } ] }, { "prim": "FAILWITH" } ] ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "CAR" }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "SENDER" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, + { "prim": "SWAP" }, + { "prim": "CAR" }, + { "prim": "DIG", "args": [ { "int": "4" } ] }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "PAIR" }, + { "prim": "PAIR" }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "PAIR" } + ] + ] + }, + { + "prim": "Elt", + "args": [ + { "int": "16" }, [ { "prim": "UNPAIR" }, { @@ -3925,7 +4345,7 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, { "prim": "COMPARE" }, { "prim": "EQ" }, @@ -3935,9 +4355,12 @@ { "prim": "SWAP" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, - { "prim": "CDR" }, + { "prim": "SWAP" }, + { "prim": "CAR" }, { "prim": "DIG", "args": [ { "int": "4" } ] }, + { "prim": "SWAP" }, { "prim": "PAIR" }, + { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, { "prim": "SWAP" }, @@ -3950,7 +4373,7 @@ { "prim": "Elt", "args": [ - { "int": "16" }, + { "int": "17" }, [ { "prim": "UNPAIR" }, { @@ -3985,7 +4408,7 @@ { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "TEZ_TRANSFERED" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "MEM" }, @@ -3995,11 +4418,11 @@ [ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "742" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "785" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] } ], @@ -4010,7 +4433,7 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, { "prim": "COMPARE" }, { "prim": "EQ" }, @@ -4022,14 +4445,13 @@ { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, - { "prim": "SWAP" }, { "prim": "DUP" }, { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "CAR" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "585" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "613" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "SWAP" }, @@ -4044,7 +4466,6 @@ { "prim": "SOME" }, { "prim": "SWAP" }, { "prim": "UPDATE" }, - { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, @@ -4059,7 +4480,7 @@ { "prim": "Elt", "args": [ - { "int": "17" }, + { "int": "18" }, [ { "prim": "UNPAIR" }, { @@ -4103,7 +4524,7 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, { "prim": "COMPARE" }, { "prim": "EQ" }, @@ -4118,7 +4539,7 @@ { "prim": "Elt", "args": [ - { "int": "18" }, + { "int": "19" }, [ { "prim": "UNPAIR" }, { @@ -4162,7 +4583,7 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, { "prim": "COMPARE" }, { "prim": "EQ" }, @@ -4190,7 +4611,7 @@ { "prim": "Elt", "args": [ - { "int": "19" }, + { "int": "20" }, [ { "prim": "UNPAIR" }, { @@ -4226,7 +4647,7 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, { "prim": "COMPARE" }, { "prim": "EQ" }, @@ -4240,7 +4661,7 @@ { "prim": "Elt", "args": [ - { "int": "20" }, + { "int": "21" }, [ { "prim": "UNPAIR" }, { @@ -4284,14 +4705,14 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "SENDER" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "MEM" }, @@ -4301,11 +4722,11 @@ [ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "746" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "789" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] } ], @@ -4320,7 +4741,6 @@ { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "UNPAIR" }, - { "prim": "SWAP" }, { "prim": "PUSH", "args": [ @@ -4355,6 +4775,9 @@ { "prim": "DUP", "args": [ { "int": "7" } ] }, { "prim": "CAR" }, { "prim": "UPDATE" }, + { "prim": "PAIR" }, + { "prim": "SWAP" }, + { "prim": "UNPAIR" }, { "prim": "SWAP" }, { "prim": "DUP", "args": [ { "int": "6" } ] }, { "prim": "CAR" }, @@ -4364,10 +4787,10 @@ { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CONCAT" }, { "prim": "UPDATE" }, - { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "PAIR" }, + { "prim": "PAIR" }, { "prim": "SWAP" }, { "prim": "PAIR" }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, @@ -4378,7 +4801,7 @@ { "prim": "Elt", "args": [ - { "int": "21" }, + { "int": "22" }, [ { "prim": "UNPAIR" }, { @@ -4424,7 +4847,7 @@ { "prim": "IF", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_TRANSFER_PAUSED" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, @@ -4435,12 +4858,12 @@ [ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "742" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "785" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] } ], @@ -4451,7 +4874,7 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, @@ -4463,12 +4886,12 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "180" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "185" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, @@ -4484,7 +4907,7 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, @@ -4497,12 +4920,12 @@ { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "182" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "187" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "SIZE" }, { "prim": "COMPARE" }, { "prim": "NEQ" } @@ -4518,6 +4941,7 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, @@ -4527,22 +4951,24 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "758" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "801" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_LIQUIDITY_INVALID" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "760" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "803" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "LEVEL" }, { "prim": "SUB" }, @@ -4558,12 +4984,12 @@ { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_LIQUIDITY_OLD" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "306" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "315" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "8" } ] }, { "prim": "LEVEL" }, { "prim": "DIG", "args": [ { "int": "2" } ] }, @@ -4574,12 +5000,12 @@ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "307" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "316" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "COMPARE" }, @@ -4587,17 +5013,18 @@ { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CMPT_INVALID_PRICE" } ] }, { "prim": "FAILWITH" } ] ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, - { "prim": "GET", "args": [ { "int": "5" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, + { "prim": "CDR" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "GET", "args": [ { "int": "4" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, - { "prim": "GET", "args": [ { "int": "4" } ] }, + { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "DUP", "args": [ { "int": "4" } ] }, { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "191" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "196" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "GET", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, { "prim": "MUL" }, @@ -4608,11 +5035,12 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "3" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "190" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "195" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "CAR" }, { "prim": "SUB" }, { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "0" } ] }, @@ -4632,6 +5060,7 @@ { "prim": "CAR" }, { "prim": "CAR" }, { "prim": "CAR" }, + { "prim": "CAR" }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, @@ -4644,14 +5073,15 @@ { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, { "prim": "UNPAIR" }, + { "prim": "UNPAIR" }, { "prim": "DUP" }, - { "prim": "DIG", "args": [ { "int": "5" } ] }, + { "prim": "DIG", "args": [ { "int": "6" } ] }, { "prim": "CAR" }, { "prim": "CDR" }, { "prim": "DUP" }, { "prim": "DUG", "args": [ { "int": "2" } ] }, { "prim": "GET" }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "765" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "808" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] }, { "prim": "UPDATE", "args": [ { "int": "4" } ] }, { "prim": "SOME" }, @@ -4659,6 +5089,7 @@ { "prim": "UPDATE" }, { "prim": "PAIR" }, { "prim": "PAIR" }, + { "prim": "PAIR" }, { "prim": "PAIR" } ], [ { "prim": "DROP" } ] diff --git a/compiled_contracts/Comptroller/step_000_cont_0_storage.py b/compiled_contracts/Comptroller/step_000_cont_0_storage.py index f7edbb25..2a2178ad 100644 --- a/compiled_contracts/Comptroller/step_000_cont_0_storage.py +++ b/compiled_contracts/Comptroller/step_000_cont_0_storage.py @@ -1 +1 @@ -sp.record(account_liquidity = {}, activeOperations = sp.set([]), administrator = sp.address('KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2'), closeFactorMantissa = 500000000000000000, collaterals = {}, expScale = 1000000000000000000, halfExpScale = 500000000000000000, liquidationIncentiveMantissa = 1050000000000000000, loans = {}, marketNameToAddress = {}, markets = {}, maxPriceTimeDifference = 86400, oracleAddress = sp.address('KT1LDtNKDnpziwSrmSfx3xCbs7nBMg7VFp4m'), pendingAdministrator = sp.none, transferPaused = True) \ No newline at end of file +sp.record(account_liquidity = {}, activeOperations = sp.set([]), administrator = sp.address('KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2'), closeFactorMantissa = 500000000000000000, collaterals = {}, expScale = 1000000000000000000, halfExpScale = 500000000000000000, liquidationIncentiveMantissa = 1050000000000000000, loans = {}, marketNameToAddress = {}, markets = {}, maxAssetsPerUser = 15, maxPriceTimeDifference = 86400, oracleAddress = sp.address('KT1LDtNKDnpziwSrmSfx3xCbs7nBMg7VFp4m'), pendingAdministrator = sp.none, transferPaused = True) \ No newline at end of file diff --git a/compiled_contracts/Comptroller/step_000_cont_0_storage.tz b/compiled_contracts/Comptroller/step_000_cont_0_storage.tz index f1d01563..b2fc2a7b 100644 --- a/compiled_contracts/Comptroller/step_000_cont_0_storage.tz +++ b/compiled_contracts/Comptroller/step_000_cont_0_storage.tz @@ -1 +1 @@ -(Pair (Pair (Pair (Pair {} (Pair {} "KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2")) (Pair (Pair 500000000000000000 {}) (Pair 1000000000000000000 500000000000000000))) (Pair (Pair (Pair 1050000000000000000 {}) (Pair {} {})) (Pair (Pair 86400 "KT1LDtNKDnpziwSrmSfx3xCbs7nBMg7VFp4m") (Pair None True)))) {Elt 0 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP; GET 7; IF_NONE { PUSH string "CMPT_NOT_SET_PENDING_ADMIN"; FAILWITH } {}; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_PENDING_ADMIN"; FAILWITH }; DUP; GET 7; IF_NONE { PUSH int 566; FAILWITH } {}; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; CAR; DIG 4; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; NONE address; UPDATE 7; NIL operation; PAIR }; Elt 1 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } {} } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 4; DUP 2; CAR; GET; IF_NONE { PUSH int 212; FAILWITH } {}; CAR; CAR; CAR; IF { PUSH string "CMPT_BORROW_PAUSED"; FAILWITH } {}; DUP 2; GET 3; GET 4; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; CAR; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; GET 3; CAR; CDR; DUP 2; GET 3; MEM; IF {} { DUP; CAR; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_INVALID_BORROW_SENDER"; FAILWITH }; DUP 2; GET 3; GET 4; SENDER; MEM; IF { DUP 2; GET 3; GET 4; SENDER; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; GET 3; CAR; CDR; DUP 2; GET 3; MEM; IF { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; DUP; DUP 7; GET 3; DUP; DUG 2; GET; IF_NONE { PUSH int 230; FAILWITH } {}; PUSH bool True; SENDER; UPDATE; SOME; SWAP; UPDATE; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR; SWAP } { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; EMPTY_SET address; PUSH bool True; SENDER; UPDATE; SOME; DUP 7; GET 3; UPDATE; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR; SWAP } }; DUP 2; CAR; CAR; CAR; DUP 2; GET 3; MEM; IF {} { PUSH string "CMPT_LIQUIDITY_ABSENT"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; GET 3; GET; IF_NONE { PUSH int 758; FAILWITH } {}; GET 4; IF {} { PUSH string "CMPT_LIQUIDITY_INVALID"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; GET 3; GET; IF_NONE { PUSH int 760; FAILWITH } {}; GET 3; LEVEL; SUB; ISNAT; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; PUSH nat 0; DUP 2; COMPARE; EQ; IF {} { PUSH string "CMPT_LIQUIDITY_OLD"; FAILWITH }; DUP 3; GET 3; GET 4; DUP 3; CAR; GET; IF_NONE { PUSH int 306; FAILWITH } {}; GET 8; LEVEL; DIG 2; DROP; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; GET 4; DUP 3; CAR; GET; IF_NONE { PUSH int 307; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 2; CAR; GET 5; DUP 2; GET 4; DUP 4; GET 3; GET 4; DUP 4; CAR; GET; IF_NONE { PUSH int 191; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; INT; DUP 3; CAR; CAR; CAR; DUP 3; GET 3; GET; IF_NONE { PUSH int 190; FAILWITH } {}; CAR; SUB; PUSH int 0; SWAP; COMPARE; GE; IF {} { PUSH string "CMPT_REDEEMER_SHORTFALL"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; GET 3; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 5; GET 3; DUP; DUG 2; GET; IF_NONE { PUSH int 765; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 2 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; DUP 2; GET 3; GET 4; DUP 2; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; DIG 6; DUP; DUG 2; GET; IF_NONE { PUSH int 733; FAILWITH } {}; UNPAIR; UNPAIR; SWAP; CDR; PUSH bool False; PAIR; SWAP; PAIR; PAIR; SOME; SWAP; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 3 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP; ITER { DUP 3; GET 3; GET 4; DUP 2; MEM; IF { DUP 3; GET 3; GET 4; DUP 2; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 3; CAR; GET 3; CDR; SENDER; MEM; IF { DIG 2; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; DUP; SENDER; DUP; DUG 2; GET; IF_NONE { PUSH int 89; FAILWITH } {}; PUSH bool True; DIG 8; UPDATE; SOME; SWAP; UPDATE; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; SWAP } { DIG 2; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; EMPTY_SET address; PUSH bool True; DIG 7; UPDATE; SOME; SENDER; UPDATE; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; SWAP } }; DROP; DUP; CAR; CAR; CAR; SENDER; MEM; IF { UNPAIR; UNPAIR; UNPAIR; DUP; SENDER; DUP; DUG 2; GET; IF_NONE { PUSH int 765; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } {}; NIL operation; PAIR }; Elt 4 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { DROP } } } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; DUP; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; EMPTY_SET nat; PAIR; SWAP; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 5 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT {} { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 4; DUP 2; CAR; CDR; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; CAR; CDR; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; GET 3; GET 4; DUP 2; GET 3; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; GET 3; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; PUSH (pair nat nat) (Pair 0 0); DUP; DUP 4; CAR; GET 3; CDR; DUP 4; CAR; CAR; MEM; IF { DUP 4; CAR; GET 3; CDR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 491; FAILWITH } {}; ITER { DUP; DUP 5; CAR; CAR; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH string "CMPT_OUTDATED_ACCOUNT_SNAPHOT"; FAILWITH } { DROP }; DUP; DUP 5; CAR; CAR; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH int 521; FAILWITH } {}; DUP; GET 4; DUP 7; GET 3; GET 4; DUP 4; GET; IF_NONE { PUSH int 306; FAILWITH } {}; GET 8; LEVEL; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 8; GET 3; GET 4; DUP 5; GET; IF_NONE { PUSH int 307; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 7; CAR; GET 5; SWAP; DUP 8; CAR; GET 5; DUP 9; GET 3; GET 4; DUP 6; GET; IF_NONE { PUSH int 525; FAILWITH } {}; CAR; CAR; CDR; DUP 10; GET 3; GET 4; DUP 7; GET; IF_NONE { PUSH int 525; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; MEM; IF { DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 530; FAILWITH } {}; DUP 5; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 9; CAR; GET 5; DUP 5; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 8; CAR; GET 5; DIG 3; CAR; CDR; DUP 9; GET 3; GET 4; DIG 5; GET; IF_NONE { PUSH int 534; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } } {}; DUP 4; GET 3; CAR; CDR; DUP 4; CAR; CAR; MEM; IF { DUP 4; GET 3; CAR; CDR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 499; FAILWITH } {}; ITER { DUP 5; CAR; GET 3; CDR; DUP 5; CAR; CAR; MEM; IF { DUP 5; CAR; GET 3; CDR; DUP 5; CAR; CAR; GET; IF_NONE { PUSH int 502; FAILWITH } {}; DUP 2; MEM; IF { DROP } { DUP; DUP 5; CAR; CAR; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH string "CMPT_OUTDATED_ACCOUNT_SNAPHOT"; FAILWITH } { DROP }; DUP; DUP 5; CAR; CAR; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH int 521; FAILWITH } {}; DUP; GET 4; DUP 7; GET 3; GET 4; DUP 4; GET; IF_NONE { PUSH int 306; FAILWITH } {}; GET 8; LEVEL; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 8; GET 3; GET 4; DUP 5; GET; IF_NONE { PUSH int 307; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 7; CAR; GET 5; SWAP; DUP 8; CAR; GET 5; DUP 9; GET 3; GET 4; DUP 6; GET; IF_NONE { PUSH int 525; FAILWITH } {}; CAR; CAR; CDR; DUP 10; GET 3; GET 4; DUP 7; GET; IF_NONE { PUSH int 525; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; MEM; IF { DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 530; FAILWITH } {}; DUP 5; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 9; CAR; GET 5; DUP 5; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 8; CAR; GET 5; DIG 3; CAR; CDR; DUP 9; GET 3; GET 4; DIG 5; GET; IF_NONE { PUSH int 534; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } } { DUP; DUP 5; CAR; CAR; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH string "CMPT_OUTDATED_ACCOUNT_SNAPHOT"; FAILWITH } { DROP }; DUP; DUP 5; CAR; CAR; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH int 521; FAILWITH } {}; DUP; GET 4; DUP 7; GET 3; GET 4; DUP 4; GET; IF_NONE { PUSH int 306; FAILWITH } {}; GET 8; LEVEL; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 8; GET 3; GET 4; DUP 5; GET; IF_NONE { PUSH int 307; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 7; CAR; GET 5; SWAP; DUP 8; CAR; GET 5; DUP 9; GET 3; GET 4; DUP 6; GET; IF_NONE { PUSH int 525; FAILWITH } {}; CAR; CAR; CDR; DUP 10; GET 3; GET 4; DUP 7; GET; IF_NONE { PUSH int 525; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; MEM; IF { DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 530; FAILWITH } {}; DUP 5; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 9; CAR; GET 5; DUP 5; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 8; CAR; GET 5; DIG 3; CAR; CDR; DUP 9; GET 3; GET 4; DIG 5; GET; IF_NONE { PUSH int 534; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } }; DROP } { DROP }; UNPAIR; SWAP; SUB; PUSH int 0; COMPARE; GT; IF {} { PUSH string "CMPT_INSUFFICIENT_SHORTFALL"; FAILWITH }; DUP 2; CAR; GET 5; DUP 2; CAR; CDR; DUP 3; CAR; CAR; VIEW "borrowBalanceStoredView" (pair nat nat); IF_NONE { PUSH string "INVALID ACCOUNT BORROW BALANCE VIEW"; FAILWITH } {}; CAR; DUP 4; CAR; GET 3; CAR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; SWAP; DUP; GET 6; DIG 2; COMPARE; GE; IF {} { PUSH string "CMPT_TOO_MUCH_REPAY"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; CAR; CAR; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DUP 6; CAR; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 765; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR; SWAP } {}; DUP 2; CAR; CAR; CAR; DUP 2; GET 5; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 5; GET 5; DUP; DUG 2; GET; IF_NONE { PUSH int 765; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 6 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 4; DUP 2; CAR; GET; IF_NONE { PUSH int 153; FAILWITH } {}; CAR; GET 4; IF { PUSH string "CMPT_MINT_PAUSED"; FAILWITH } {}; DUP 2; GET 3; GET 4; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; CAR; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; GET 3; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 5; GET 3; DUP; DUG 2; GET; IF_NONE { PUSH int 765; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 7 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 4; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; CAR; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; CAR; GET 3; CDR; DUP 2; GET 3; MEM; IF { DUP 2; CAR; GET 3; CDR; DUP 2; GET 3; GET; IF_NONE { PUSH int 180; FAILWITH } {}; DUP 2; CAR; MEM } { PUSH bool False }; IF { DUP 2; GET 3; CAR; CDR; DUP 2; GET 3; MEM; IF { PUSH nat 0; DUP 3; GET 3; CAR; CDR; DUP 3; GET 3; GET; IF_NONE { PUSH int 182; FAILWITH } {}; SIZE; COMPARE; NEQ } { PUSH bool False }; IF { DUP 2; CAR; CAR; CAR; DUP 2; GET 3; MEM; IF {} { PUSH string "CMPT_LIQUIDITY_ABSENT"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; GET 3; GET; IF_NONE { PUSH int 758; FAILWITH } {}; GET 4; IF {} { PUSH string "CMPT_LIQUIDITY_INVALID"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; GET 3; GET; IF_NONE { PUSH int 760; FAILWITH } {}; GET 3; LEVEL; SUB; ISNAT; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; PUSH nat 0; DUP 2; COMPARE; EQ; IF {} { PUSH string "CMPT_LIQUIDITY_OLD"; FAILWITH }; DUP 3; GET 3; GET 4; DUP 3; CAR; GET; IF_NONE { PUSH int 306; FAILWITH } {}; GET 8; LEVEL; DIG 2; DROP; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; GET 4; DUP 3; CAR; GET; IF_NONE { PUSH int 307; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 2; CAR; GET 5; DUP 2; GET 4; DUP 4; GET 3; GET 4; DUP 4; CAR; GET; IF_NONE { PUSH int 191; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; INT; DUP 3; CAR; CAR; CAR; DUP 3; GET 3; GET; IF_NONE { PUSH int 190; FAILWITH } {}; CAR; SUB; PUSH int 0; SWAP; COMPARE; GE; IF {} { PUSH string "CMPT_REDEEMER_SHORTFALL"; FAILWITH } } {} } {}; DUP 2; CAR; CAR; CAR; DUP 2; GET 3; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 5; GET 3; DUP; DUG 2; GET; IF_NONE { PUSH int 765; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 8 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 4; SENDER; MEM; IF { DUP 2; GET 3; GET 4; SENDER; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; GET 3; CAR; CDR; DUP 2; MEM; IF { DUP 2; GET 3; CAR; CDR; DUP 2; GET; IF_NONE { PUSH int 239; FAILWITH } {}; SENDER; MEM } { PUSH bool False }; IF { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; DUP; DIG 6; DUP; DUG 2; GET; IF_NONE { PUSH int 240; FAILWITH } {}; PUSH bool False; SENDER; UPDATE; SOME; SWAP; UPDATE; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR } { DROP }; NIL operation; PAIR }; Elt 9 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 4; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; CAR; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; GET 5; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DUP 6; GET 5; DUP; DUG 2; GET; IF_NONE { PUSH int 765; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR; SWAP } {}; DUP 2; CAR; CAR; CAR; DUP 2; GET 3; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 5; GET 3; DUP; DUG 2; GET; IF_NONE { PUSH int 765; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 10 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; PUSH (pair nat nat) (Pair 0 0); DUP; DUP 4; CAR; GET 3; CDR; DUP 4; MEM; IF { DUP 4; CAR; GET 3; CDR; DUP 4; GET; IF_NONE { PUSH int 491; FAILWITH } {}; ITER { DUP; DUP 5; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH string "CMPT_OUTDATED_ACCOUNT_SNAPHOT"; FAILWITH } { DROP }; DUP; DUP 5; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH int 521; FAILWITH } {}; DUP; GET 4; DUP 7; GET 3; GET 4; DUP 4; GET; IF_NONE { PUSH int 306; FAILWITH } {}; GET 8; LEVEL; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 8; GET 3; GET 4; DUP 5; GET; IF_NONE { PUSH int 307; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 7; CAR; GET 5; SWAP; DUP 8; CAR; GET 5; DUP 9; GET 3; GET 4; DUP 6; GET; IF_NONE { PUSH int 525; FAILWITH } {}; CAR; CAR; CDR; DUP 10; GET 3; GET 4; DUP 7; GET; IF_NONE { PUSH int 525; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; MEM; IF { DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 530; FAILWITH } {}; DUP 5; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 9; CAR; GET 5; DUP 5; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 8; CAR; GET 5; DIG 3; CAR; CDR; DUP 9; GET 3; GET 4; DIG 5; GET; IF_NONE { PUSH int 534; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } } {}; DUP 4; GET 3; CAR; CDR; DUP 4; MEM; IF { DUP 4; GET 3; CAR; CDR; DUP 4; GET; IF_NONE { PUSH int 499; FAILWITH } {}; ITER { DUP 5; CAR; GET 3; CDR; DUP 5; MEM; IF { DUP 5; CAR; GET 3; CDR; DUP 5; GET; IF_NONE { PUSH int 502; FAILWITH } {}; DUP 2; MEM; IF { DROP } { DUP; DUP 5; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH string "CMPT_OUTDATED_ACCOUNT_SNAPHOT"; FAILWITH } { DROP }; DUP; DUP 5; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH int 521; FAILWITH } {}; DUP; GET 4; DUP 7; GET 3; GET 4; DUP 4; GET; IF_NONE { PUSH int 306; FAILWITH } {}; GET 8; LEVEL; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 8; GET 3; GET 4; DUP 5; GET; IF_NONE { PUSH int 307; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 7; CAR; GET 5; SWAP; DUP 8; CAR; GET 5; DUP 9; GET 3; GET 4; DUP 6; GET; IF_NONE { PUSH int 525; FAILWITH } {}; CAR; CAR; CDR; DUP 10; GET 3; GET 4; DUP 7; GET; IF_NONE { PUSH int 525; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; MEM; IF { DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 530; FAILWITH } {}; DUP 5; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 9; CAR; GET 5; DUP 5; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 8; CAR; GET 5; DIG 3; CAR; CDR; DUP 9; GET 3; GET 4; DIG 5; GET; IF_NONE { PUSH int 534; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } } { DUP; DUP 5; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH string "CMPT_OUTDATED_ACCOUNT_SNAPHOT"; FAILWITH } { DROP }; DUP; DUP 5; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH int 521; FAILWITH } {}; DUP; GET 4; DUP 7; GET 3; GET 4; DUP 4; GET; IF_NONE { PUSH int 306; FAILWITH } {}; GET 8; LEVEL; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 8; GET 3; GET 4; DUP 5; GET; IF_NONE { PUSH int 307; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 7; CAR; GET 5; SWAP; DUP 8; CAR; GET 5; DUP 9; GET 3; GET 4; DUP 6; GET; IF_NONE { PUSH int 525; FAILWITH } {}; CAR; CAR; CDR; DUP 10; GET 3; GET 4; DUP 7; GET; IF_NONE { PUSH int 525; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; MEM; IF { DUP 8; CAR; GET 3; CDR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 530; FAILWITH } {}; DUP 5; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 9; CAR; GET 5; DUP 5; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 8; CAR; GET 5; DIG 3; CAR; CDR; DUP 9; GET 3; GET 4; DIG 5; GET; IF_NONE { PUSH int 534; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } } } {}; DUP 2; DUP 5; CAR; CAR; GET 3; PUSH nat 4; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; DIG 4; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 4; UPDATE; PAIR; SWAP; PUSH bool True; LEVEL; DIG 7; DROP; DIG 7; DROP; DIG 6; UNPAIR; SWAP; SUB; PAIR 3; SOME; DIG 5; UPDATE; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 11 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { IF_LEFT {} { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 3; PUSH nat 1; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 1; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; PUSH nat 0; DUP 2; CAR; CDR; COMPARE; EQ; IF {} { PUSH string "CMPT_BORROW_IN_MARKET"; FAILWITH }; DUP 2; GET 3; GET 4; SENDER; MEM; IF { DUP 2; GET 3; GET 4; SENDER; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; CAR; GET 3; CDR; DUP 2; CAR; CAR; MEM; IF { DUP 2; CAR; GET 3; CDR; DUP 2; CAR; CAR; GET; IF_NONE { PUSH int 180; FAILWITH } {}; SENDER; MEM } { PUSH bool False }; IF { DUP 2; GET 3; CAR; CDR; DUP 2; CAR; CAR; MEM; IF { PUSH nat 0; DUP 3; GET 3; CAR; CDR; DUP 3; CAR; CAR; GET; IF_NONE { PUSH int 182; FAILWITH } {}; SIZE; COMPARE; NEQ } { PUSH bool False }; IF { DUP 2; CAR; CAR; CAR; DUP 2; CAR; CAR; MEM; IF {} { PUSH string "CMPT_LIQUIDITY_ABSENT"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; CAR; CAR; GET; IF_NONE { PUSH int 758; FAILWITH } {}; GET 4; IF {} { PUSH string "CMPT_LIQUIDITY_INVALID"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; CAR; CAR; GET; IF_NONE { PUSH int 760; FAILWITH } {}; GET 3; LEVEL; SUB; ISNAT; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; PUSH nat 0; DUP 2; COMPARE; EQ; IF {} { PUSH string "CMPT_LIQUIDITY_OLD"; FAILWITH }; DUP 3; GET 3; GET 4; SENDER; GET; IF_NONE { PUSH int 306; FAILWITH } {}; GET 8; LEVEL; DIG 2; DROP; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; GET 4; SENDER; GET; IF_NONE { PUSH int 307; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 2; CAR; GET 5; DUP 2; GET 3; DUP 4; GET 3; GET 4; SENDER; GET; IF_NONE { PUSH int 191; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; INT; DUP 3; CAR; CAR; CAR; DUP 3; CAR; CAR; GET; IF_NONE { PUSH int 190; FAILWITH } {}; CAR; SUB; PUSH int 0; SWAP; COMPARE; GE; IF {} { PUSH string "CMPT_REDEEMER_SHORTFALL"; FAILWITH } } {} } {}; DUP 2; CAR; CAR; CAR; DUP 2; CAR; CAR; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DUP 6; CAR; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 765; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR; SWAP } {}; DUP 2; CAR; GET 3; CDR; DUP 2; CAR; CAR; MEM; IF { DUP 2; CAR; GET 3; CDR; DUP 2; CAR; CAR; GET; IF_NONE { PUSH int 133; FAILWITH } {}; SENDER; MEM } { PUSH bool False }; IF { SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; DUP; DUP 7; CAR; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 135; FAILWITH } {}; PUSH bool False; SENDER; UPDATE; SOME; SWAP; UPDATE; SWAP; PAIR; PAIR; SWAP; PAIR; PAIR; SWAP } {}; DUP 2; CAR; CAR; CAR; DUP 2; CAR; CAR; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 5; CAR; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 765; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 12 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } {} } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 4; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; CAR; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; DUP 7; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 603; FAILWITH } {}; UNPAIR; UNPAIR; CDR; DIG 9; CDR; PAIR; PAIR; PAIR; SOME; SWAP; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 13 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; CDR; DIG 4; PAIR; PAIR; SWAP; PAIR; PAIR; NIL operation; PAIR }; Elt 14 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } } { PUSH int -1; FAILWITH } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; DUP 2; GET 3; GET 4; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; CAR; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; DUP 7; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 670; FAILWITH } {}; UNPAIR; UNPAIR; CAR; DIG 9; CDR; SWAP; PAIR; PAIR; PAIR; SOME; SWAP; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 15 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } } { PUSH int -1; FAILWITH } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; CDR; DIG 4; PAIR; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 16 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT {} { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 4; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; CAR; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; DUP; DUP 7; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 585; FAILWITH } {}; UNPAIR; UNPAIR; SWAP; CAR; DIG 9; CDR; SWAP; PAIR; SWAP; PAIR; PAIR; SOME; SWAP; UPDATE; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 17 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SOME; UPDATE 7; NIL operation; PAIR }; Elt 18 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; SWAP; CDR; DIG 3; UNPAIR; SWAP; PAIR; PAIR; SWAP; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 19 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; UPDATE 8; NIL operation; PAIR }; Elt 20 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 4; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; DUP 2; GET 3; GET 4; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; CAR; GET; IF_NONE { PUSH int 746; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF { PUSH string "CMPT_MARKET_ALREADY_LISTED"; FAILWITH } {}; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; PUSH (pair timestamp nat) (Pair "1970-01-01T00:00:00Z" 0); DUP 7; GET 4; PAIR; PUSH nat 0; DUP 8; GET 3; PAIR; PAIR; PUSH (pair (pair bool nat) (pair bool bool)) (Pair (Pair True 500000000000000000) (Pair True True)); PAIR; SOME; DUP 7; CAR; UPDATE; SWAP; DUP 6; CAR; SOME; PUSH string "-USD"; DIG 7; GET 3; CONCAT; UPDATE; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 21 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 8; IF { PUSH string "CMPT_TRANSFER_PAUSED"; FAILWITH } {}; DUP 2; GET 3; GET 4; DUP 2; CAR; CAR; MEM; IF { DUP 2; GET 3; GET 4; DUP 2; CAR; CAR; GET; IF_NONE { PUSH int 742; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; CAR; GET 3; CDR; DUP 2; CAR; CDR; MEM; IF { DUP 2; CAR; GET 3; CDR; DUP 2; CAR; CDR; GET; IF_NONE { PUSH int 180; FAILWITH } {}; DUP 2; CAR; CAR; MEM } { PUSH bool False }; IF { DUP 2; GET 3; CAR; CDR; DUP 2; CAR; CDR; MEM; IF { PUSH nat 0; DUP 3; GET 3; CAR; CDR; DUP 3; CAR; CDR; GET; IF_NONE { PUSH int 182; FAILWITH } {}; SIZE; COMPARE; NEQ } { PUSH bool False }; IF { DUP 2; CAR; CAR; CAR; DUP 2; CAR; CDR; MEM; IF {} { PUSH string "CMPT_LIQUIDITY_ABSENT"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; CAR; CDR; GET; IF_NONE { PUSH int 758; FAILWITH } {}; GET 4; IF {} { PUSH string "CMPT_LIQUIDITY_INVALID"; FAILWITH }; DUP 2; CAR; CAR; CAR; DUP 2; CAR; CDR; GET; IF_NONE { PUSH int 760; FAILWITH } {}; GET 3; LEVEL; SUB; ISNAT; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; PUSH nat 0; DUP 2; COMPARE; EQ; IF {} { PUSH string "CMPT_LIQUIDITY_OLD"; FAILWITH }; DUP 3; GET 3; GET 4; DUP 3; CAR; CAR; GET; IF_NONE { PUSH int 306; FAILWITH } {}; GET 8; LEVEL; DIG 2; DROP; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; GET 4; DUP 3; CAR; CAR; GET; IF_NONE { PUSH int 307; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 2; CAR; GET 5; DUP 2; GET 4; DUP 4; GET 3; GET 4; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 191; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; INT; DUP 3; CAR; CAR; CAR; DUP 3; CAR; CDR; GET; IF_NONE { PUSH int 190; FAILWITH } {}; CAR; SUB; PUSH int 0; SWAP; COMPARE; GE; IF {} { PUSH string "CMPT_REDEEMER_SHORTFALL"; FAILWITH } } {} } {}; DUP 2; CAR; CAR; CAR; DUP 2; CAR; CDR; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 5; CAR; CDR; DUP; DUG 2; GET; IF_NONE { PUSH int 765; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }}) \ No newline at end of file +(Pair (Pair (Pair (Pair (Pair {} {}) (Pair "KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2" 500000000000000000)) (Pair (Pair {} 1000000000000000000) (Pair 500000000000000000 1050000000000000000))) (Pair (Pair (Pair {} {}) (Pair {} 15)) (Pair (Pair 86400 "KT1LDtNKDnpziwSrmSfx3xCbs7nBMg7VFp4m") (Pair None True)))) {Elt 0 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP; GET 7; IF_NONE { PUSH string "CMPT_NOT_SET_PENDING_ADMIN"; FAILWITH } {}; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_PENDING_ADMIN"; FAILWITH }; DUP; GET 7; IF_NONE { PUSH int 594; FAILWITH } {}; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; DIG 4; PAIR; SWAP; PAIR; PAIR; PAIR; NONE address; UPDATE 7; NIL operation; PAIR }; Elt 1 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } {} } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 3; DUP 2; CAR; GET; IF_NONE { PUSH int 217; FAILWITH } {}; CAR; CAR; CAR; IF { PUSH string "CMPT_BORROW_PAUSED"; FAILWITH } {}; DUP 2; GET 3; GET 3; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 3; DUP 2; CAR; GET; IF_NONE { PUSH int 785; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; PUSH bool True; DUP 3; CAR; GET 3; CAR; DUP 3; GET 3; MEM; IF { DUP 3; CAR; GET 3; CAR; DUP 3; GET 3; GET; IF_NONE { PUSH int 827; FAILWITH } {}; DUP 3; CAR; MEM; IF { DROP; PUSH bool False } {} } {}; DUP 3; GET 3; CAR; CAR; DUP 3; GET 3; MEM; IF { DUP } { PUSH bool False }; IF { DUP 3; GET 3; CAR; CAR; DUP 3; GET 3; GET; IF_NONE { PUSH int 831; FAILWITH } {}; DUP 3; CAR; MEM; IF { DROP; PUSH bool False } {} } {}; DUP; IF { EMPTY_SET address; DUP 4; CAR; GET 3; CAR; DUP 4; GET 3; MEM; IF { DUP 4; CAR; GET 3; CAR; DUP 4; GET 3; GET; IF_NONE { PUSH int 814; FAILWITH } {}; ITER { SWAP; PUSH bool True; DIG 2; UPDATE } } {}; DUP 4; GET 3; CAR; CAR; DUP 4; GET 3; MEM; IF { DUP 4; GET 3; CAR; CAR; DUP 4; GET 3; GET; IF_NONE { PUSH int 818; FAILWITH } {}; ITER { SWAP; PUSH bool True; DIG 2; UPDATE } } {}; DUP 4; GET 3; GET 4; SWAP; SIZE; COMPARE; LT; IF {} { PUSH string "CMPT_TOO_MANY_ASSETS"; FAILWITH } } {}; DUP 3; GET 3; CAR; CAR; DUP 3; GET 3; MEM; IF {} { DUP 2; CAR; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_INVALID_BORROW_SENDER"; FAILWITH }; DUP 3; GET 3; GET 3; SENDER; MEM; IF { DUP 3; GET 3; GET 3; SENDER; GET; IF_NONE { PUSH int 785; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 3; GET 3; CAR; CAR; DUP 3; GET 3; MEM; IF { DIG 2; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DUP 8; GET 3; DUP; DUG 2; GET; IF_NONE { PUSH int 239; FAILWITH } {}; PUSH bool True; SENDER; UPDATE; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR; SWAP; PAIR; DUG 2 } { DIG 2; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; EMPTY_SET address; PUSH bool True; SENDER; UPDATE; SOME; DUP 8; GET 3; UPDATE; PAIR; PAIR; PAIR; SWAP; PAIR; DUG 2 } }; DUP 3; CAR; CAR; CAR; CAR; DUP 3; GET 3; MEM; IF {} { PUSH string "CMPT_LIQUIDITY_ABSENT"; FAILWITH }; DUP 3; CAR; CAR; CAR; CAR; DUP 3; GET 3; GET; IF_NONE { PUSH int 801; FAILWITH } {}; GET 4; IF {} { PUSH string "CMPT_LIQUIDITY_INVALID"; FAILWITH }; DUP 3; CAR; CAR; CAR; CAR; DUP 3; GET 3; GET; IF_NONE { PUSH int 803; FAILWITH } {}; GET 3; LEVEL; SUB; ISNAT; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; PUSH nat 0; DUP 2; COMPARE; EQ; IF {} { PUSH string "CMPT_LIQUIDITY_OLD"; FAILWITH }; DUP 4; GET 3; GET 3; DUP 4; CAR; GET; IF_NONE { PUSH int 315; FAILWITH } {}; GET 8; LEVEL; DIG 2; DROP; DIG 2; DROP; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; GET 3; DUP 3; CAR; GET; IF_NONE { PUSH int 316; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 2; CAR; GET 3; CDR; DUP 2; GET 4; DUP 4; GET 3; GET 3; DUP 4; CAR; GET; IF_NONE { PUSH int 196; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; INT; DUP 3; CAR; CAR; CAR; CAR; DUP 3; GET 3; GET; IF_NONE { PUSH int 195; FAILWITH } {}; CAR; SUB; PUSH int 0; SWAP; COMPARE; GE; IF {} { PUSH string "CMPT_REDEEMER_SHORTFALL"; FAILWITH }; DUP 2; CAR; CAR; CAR; CAR; DUP 2; GET 3; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 6; GET 3; DUP; DUG 2; GET; IF_NONE { PUSH int 808; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 2 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 3; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; DUP 2; GET 3; GET 3; DUP 2; MEM; IF { DUP 2; GET 3; GET 3; DUP 2; GET; IF_NONE { PUSH int 785; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; DUP; DIG 6; DUP; DUG 2; GET; IF_NONE { PUSH int 776; FAILWITH } {}; UNPAIR; UNPAIR; SWAP; CDR; PUSH bool False; PAIR; SWAP; PAIR; PAIR; SOME; SWAP; UPDATE; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 3 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; EMPTY_SET address; DUP 3; CAR; GET 3; CAR; SENDER; MEM; IF { DUP 3; CAR; GET 3; CAR; SENDER; GET; IF_NONE { PUSH int 814; FAILWITH } {}; ITER { SWAP; PUSH bool True; DIG 2; UPDATE } } {}; DUP 3; GET 3; CAR; CAR; SENDER; MEM; IF { DUP 3; GET 3; CAR; CAR; SENDER; GET; IF_NONE { PUSH int 818; FAILWITH } {}; ITER { SWAP; PUSH bool True; DIG 2; UPDATE } } {}; DUP; SIZE; DUP 3; ITER { PUSH bool True; DUP 6; CAR; GET 3; CAR; SENDER; MEM; IF { DUP 6; CAR; GET 3; CAR; SENDER; GET; IF_NONE { PUSH int 827; FAILWITH } {}; DUP 3; MEM; IF { DROP; PUSH bool False } {} } {}; DUP 6; GET 3; CAR; CAR; SENDER; MEM; IF { DUP } { PUSH bool False }; IF { DUP 6; GET 3; CAR; CAR; SENDER; GET; IF_NONE { PUSH int 831; FAILWITH } {}; DUP 3; MEM; IF { DROP; PUSH bool False } {} } {}; IF { DUP 5; GET 3; GET 4; DUP 3; COMPARE; LT; IF {} { PUSH string "CMPT_TOO_MANY_ASSETS"; FAILWITH }; SWAP; PUSH nat 1; ADD; SWAP } {}; DUP 5; GET 3; GET 3; DUP 2; MEM; IF { DUP 5; GET 3; GET 3; DUP 2; GET; IF_NONE { PUSH int 785; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 5; CAR; GET 3; CAR; SENDER; MEM; IF { DIG 4; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; DUP; SENDER; DUP; DUG 2; GET; IF_NONE { PUSH int 94; FAILWITH } {}; PUSH bool True; DIG 8; UPDATE; SOME; SWAP; UPDATE; PAIR; PAIR; SWAP; PAIR; PAIR; DUG 3 } { DIG 4; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; EMPTY_SET address; PUSH bool True; DIG 7; UPDATE; SOME; SENDER; UPDATE; PAIR; PAIR; SWAP; PAIR; PAIR; DUG 3 } }; DROP 3; DUP; CAR; CAR; CAR; CAR; SENDER; MEM; IF { UNPAIR; UNPAIR; UNPAIR; UNPAIR; DUP; SENDER; DUP; DUG 2; GET; IF_NONE { PUSH int 808; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR; PAIR } {}; NIL operation; PAIR }; Elt 4 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { DROP } } } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; DUP; CAR; CAR; GET 3; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; UNPAIR; UNPAIR; UNPAIR; CAR; EMPTY_SET nat; SWAP; PAIR; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 5 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT {} { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 3; DUP 2; CAR; CDR; MEM; IF { DUP 2; GET 3; GET 3; DUP 2; CAR; CDR; GET; IF_NONE { PUSH int 785; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; GET 3; GET 3; DUP 2; GET 3; MEM; IF { DUP 2; GET 3; GET 3; DUP 2; GET 3; GET; IF_NONE { PUSH int 785; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; PUSH (pair nat nat) (Pair 0 0); DUP; DUP 4; CAR; GET 3; CAR; DUP 4; CAR; CAR; MEM; IF { DUP 4; CAR; GET 3; CAR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 500; FAILWITH } {}; ITER { DUP; DUP 5; CAR; CAR; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH string "CMPT_OUTDATED_ACCOUNT_SNAPSHOT"; FAILWITH } { DROP }; DUP; DUP 5; CAR; CAR; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH int 530; FAILWITH } {}; DUP; GET 4; DUP 7; GET 3; GET 3; DUP 4; GET; IF_NONE { PUSH int 315; FAILWITH } {}; GET 8; LEVEL; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 8; GET 3; GET 3; DUP 5; GET; IF_NONE { PUSH int 316; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 7; CAR; GET 3; CDR; SWAP; DUP 8; CAR; GET 3; CDR; DUP 9; GET 3; GET 3; DUP 6; GET; IF_NONE { PUSH int 534; FAILWITH } {}; CAR; CAR; CDR; DUP 10; GET 3; GET 3; DUP 7; GET; IF_NONE { PUSH int 534; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 8; CAR; GET 3; CAR; DUP 4; CAR; CAR; MEM; IF { DUP 8; CAR; GET 3; CAR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 539; FAILWITH } {}; DUP 5; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 9; CAR; GET 3; CDR; DUP 5; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 8; CAR; GET 3; CDR; DIG 3; CAR; CDR; DUP 9; GET 3; GET 3; DIG 5; GET; IF_NONE { PUSH int 543; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } } {}; DUP 4; GET 3; CAR; CAR; DUP 4; CAR; CAR; MEM; IF { DUP 4; GET 3; CAR; CAR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 508; FAILWITH } {}; ITER { DUP 5; CAR; GET 3; CAR; DUP 5; CAR; CAR; MEM; IF { DUP 5; CAR; GET 3; CAR; DUP 5; CAR; CAR; GET; IF_NONE { PUSH int 511; FAILWITH } {}; DUP 2; MEM; IF { DROP } { DUP; DUP 5; CAR; CAR; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH string "CMPT_OUTDATED_ACCOUNT_SNAPSHOT"; FAILWITH } { DROP }; DUP; DUP 5; CAR; CAR; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH int 530; FAILWITH } {}; DUP; GET 4; DUP 7; GET 3; GET 3; DUP 4; GET; IF_NONE { PUSH int 315; FAILWITH } {}; GET 8; LEVEL; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 8; GET 3; GET 3; DUP 5; GET; IF_NONE { PUSH int 316; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 7; CAR; GET 3; CDR; SWAP; DUP 8; CAR; GET 3; CDR; DUP 9; GET 3; GET 3; DUP 6; GET; IF_NONE { PUSH int 534; FAILWITH } {}; CAR; CAR; CDR; DUP 10; GET 3; GET 3; DUP 7; GET; IF_NONE { PUSH int 534; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 8; CAR; GET 3; CAR; DUP 4; CAR; CAR; MEM; IF { DUP 8; CAR; GET 3; CAR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 539; FAILWITH } {}; DUP 5; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 9; CAR; GET 3; CDR; DUP 5; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 8; CAR; GET 3; CDR; DIG 3; CAR; CDR; DUP 9; GET 3; GET 3; DIG 5; GET; IF_NONE { PUSH int 543; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } } { DUP; DUP 5; CAR; CAR; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH string "CMPT_OUTDATED_ACCOUNT_SNAPSHOT"; FAILWITH } { DROP }; DUP; DUP 5; CAR; CAR; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH int 530; FAILWITH } {}; DUP; GET 4; DUP 7; GET 3; GET 3; DUP 4; GET; IF_NONE { PUSH int 315; FAILWITH } {}; GET 8; LEVEL; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 8; GET 3; GET 3; DUP 5; GET; IF_NONE { PUSH int 316; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 7; CAR; GET 3; CDR; SWAP; DUP 8; CAR; GET 3; CDR; DUP 9; GET 3; GET 3; DUP 6; GET; IF_NONE { PUSH int 534; FAILWITH } {}; CAR; CAR; CDR; DUP 10; GET 3; GET 3; DUP 7; GET; IF_NONE { PUSH int 534; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 8; CAR; GET 3; CAR; DUP 4; CAR; CAR; MEM; IF { DUP 8; CAR; GET 3; CAR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 539; FAILWITH } {}; DUP 5; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 9; CAR; GET 3; CDR; DUP 5; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 8; CAR; GET 3; CDR; DIG 3; CAR; CDR; DUP 9; GET 3; GET 3; DIG 5; GET; IF_NONE { PUSH int 543; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } }; DROP } { DROP }; UNPAIR; SWAP; SUB; PUSH int 0; COMPARE; GT; IF {} { PUSH string "CMPT_INSUFFICIENT_SHORTFALL"; FAILWITH }; DUP 2; CAR; GET 3; CDR; DUP 2; CAR; CDR; DUP 3; CAR; CAR; VIEW "borrowBalanceStoredView" (pair nat nat); IF_NONE { PUSH string "INVALID ACCOUNT BORROW BALANCE VIEW"; FAILWITH } {}; CAR; DUP 4; CAR; CAR; GET 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; SWAP; DUP; GET 6; DIG 2; COMPARE; GE; IF {} { PUSH string "CMPT_TOO_MUCH_REPAY"; FAILWITH }; DUP 2; CAR; CAR; CAR; CAR; DUP 2; CAR; CAR; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; DUP; DUP 7; CAR; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 808; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR; PAIR; SWAP } {}; DUP 2; CAR; CAR; CAR; CAR; DUP 2; GET 5; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 6; GET 5; DUP; DUG 2; GET; IF_NONE { PUSH int 808; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 6 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 3; DUP 2; CAR; GET; IF_NONE { PUSH int 158; FAILWITH } {}; CAR; GET 4; IF { PUSH string "CMPT_MINT_PAUSED"; FAILWITH } {}; DUP 2; GET 3; GET 3; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 3; DUP 2; CAR; GET; IF_NONE { PUSH int 785; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; CAR; CAR; CAR; CAR; DUP 2; GET 3; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 6; GET 3; DUP; DUG 2; GET; IF_NONE { PUSH int 808; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 7 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 3; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 3; DUP 2; CAR; GET; IF_NONE { PUSH int 785; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; CAR; GET 3; CAR; DUP 2; GET 3; MEM; IF { DUP 2; CAR; GET 3; CAR; DUP 2; GET 3; GET; IF_NONE { PUSH int 185; FAILWITH } {}; DUP 2; CAR; MEM } { PUSH bool False }; IF { DUP 2; GET 3; CAR; CAR; DUP 2; GET 3; MEM; IF { PUSH nat 0; DUP 3; GET 3; CAR; CAR; DUP 3; GET 3; GET; IF_NONE { PUSH int 187; FAILWITH } {}; SIZE; COMPARE; NEQ } { PUSH bool False }; IF { DUP 2; CAR; CAR; CAR; CAR; DUP 2; GET 3; MEM; IF {} { PUSH string "CMPT_LIQUIDITY_ABSENT"; FAILWITH }; DUP 2; CAR; CAR; CAR; CAR; DUP 2; GET 3; GET; IF_NONE { PUSH int 801; FAILWITH } {}; GET 4; IF {} { PUSH string "CMPT_LIQUIDITY_INVALID"; FAILWITH }; DUP 2; CAR; CAR; CAR; CAR; DUP 2; GET 3; GET; IF_NONE { PUSH int 803; FAILWITH } {}; GET 3; LEVEL; SUB; ISNAT; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; PUSH nat 0; DUP 2; COMPARE; EQ; IF {} { PUSH string "CMPT_LIQUIDITY_OLD"; FAILWITH }; DUP 3; GET 3; GET 3; DUP 3; CAR; GET; IF_NONE { PUSH int 315; FAILWITH } {}; GET 8; LEVEL; DIG 2; DROP; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; GET 3; DUP 3; CAR; GET; IF_NONE { PUSH int 316; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 2; CAR; GET 3; CDR; DUP 2; GET 4; DUP 4; GET 3; GET 3; DUP 4; CAR; GET; IF_NONE { PUSH int 196; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; INT; DUP 3; CAR; CAR; CAR; CAR; DUP 3; GET 3; GET; IF_NONE { PUSH int 195; FAILWITH } {}; CAR; SUB; PUSH int 0; SWAP; COMPARE; GE; IF {} { PUSH string "CMPT_REDEEMER_SHORTFALL"; FAILWITH } } {} } {}; DUP 2; CAR; CAR; CAR; CAR; DUP 2; GET 3; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 6; GET 3; DUP; DUG 2; GET; IF_NONE { PUSH int 808; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 8 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 3; SENDER; MEM; IF { DUP 2; GET 3; GET 3; SENDER; GET; IF_NONE { PUSH int 785; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; GET 3; CAR; CAR; DUP 2; MEM; IF { DUP 2; GET 3; CAR; CAR; DUP 2; GET; IF_NONE { PUSH int 248; FAILWITH } {}; SENDER; MEM } { PUSH bool False }; IF { SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 6; DUP; DUG 2; GET; IF_NONE { PUSH int 249; FAILWITH } {}; PUSH bool False; SENDER; UPDATE; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR; SWAP; PAIR } { DROP }; NIL operation; PAIR }; Elt 9 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 3; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 3; DUP 2; CAR; GET; IF_NONE { PUSH int 785; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; CAR; CAR; CAR; CAR; DUP 2; GET 5; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; DUP; DUP 7; GET 5; DUP; DUG 2; GET; IF_NONE { PUSH int 808; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR; PAIR; SWAP } {}; DUP 2; CAR; CAR; CAR; CAR; DUP 2; GET 3; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 6; GET 3; DUP; DUG 2; GET; IF_NONE { PUSH int 808; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 10 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } } } { PUSH int -1; FAILWITH }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; PUSH (pair nat nat) (Pair 0 0); DUP; DUP 4; CAR; GET 3; CAR; DUP 4; MEM; IF { DUP 4; CAR; GET 3; CAR; DUP 4; GET; IF_NONE { PUSH int 500; FAILWITH } {}; ITER { DUP; DUP 5; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH string "CMPT_OUTDATED_ACCOUNT_SNAPSHOT"; FAILWITH } { DROP }; DUP; DUP 5; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH int 530; FAILWITH } {}; DUP; GET 4; DUP 7; GET 3; GET 3; DUP 4; GET; IF_NONE { PUSH int 315; FAILWITH } {}; GET 8; LEVEL; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 8; GET 3; GET 3; DUP 5; GET; IF_NONE { PUSH int 316; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 7; CAR; GET 3; CDR; SWAP; DUP 8; CAR; GET 3; CDR; DUP 9; GET 3; GET 3; DUP 6; GET; IF_NONE { PUSH int 534; FAILWITH } {}; CAR; CAR; CDR; DUP 10; GET 3; GET 3; DUP 7; GET; IF_NONE { PUSH int 534; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 8; CAR; GET 3; CAR; DUP 4; CAR; CAR; MEM; IF { DUP 8; CAR; GET 3; CAR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 539; FAILWITH } {}; DUP 5; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 9; CAR; GET 3; CDR; DUP 5; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 8; CAR; GET 3; CDR; DIG 3; CAR; CDR; DUP 9; GET 3; GET 3; DIG 5; GET; IF_NONE { PUSH int 543; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } } {}; DUP 4; GET 3; CAR; CAR; DUP 4; MEM; IF { DUP 4; GET 3; CAR; CAR; DUP 4; GET; IF_NONE { PUSH int 508; FAILWITH } {}; ITER { DUP 5; CAR; GET 3; CAR; DUP 5; MEM; IF { DUP 5; CAR; GET 3; CAR; DUP 5; GET; IF_NONE { PUSH int 511; FAILWITH } {}; DUP 2; MEM; IF { DROP } { DUP; DUP 5; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH string "CMPT_OUTDATED_ACCOUNT_SNAPSHOT"; FAILWITH } { DROP }; DUP; DUP 5; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH int 530; FAILWITH } {}; DUP; GET 4; DUP 7; GET 3; GET 3; DUP 4; GET; IF_NONE { PUSH int 315; FAILWITH } {}; GET 8; LEVEL; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 8; GET 3; GET 3; DUP 5; GET; IF_NONE { PUSH int 316; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 7; CAR; GET 3; CDR; SWAP; DUP 8; CAR; GET 3; CDR; DUP 9; GET 3; GET 3; DUP 6; GET; IF_NONE { PUSH int 534; FAILWITH } {}; CAR; CAR; CDR; DUP 10; GET 3; GET 3; DUP 7; GET; IF_NONE { PUSH int 534; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 8; CAR; GET 3; CAR; DUP 4; CAR; CAR; MEM; IF { DUP 8; CAR; GET 3; CAR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 539; FAILWITH } {}; DUP 5; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 9; CAR; GET 3; CDR; DUP 5; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 8; CAR; GET 3; CDR; DIG 3; CAR; CDR; DUP 9; GET 3; GET 3; DIG 5; GET; IF_NONE { PUSH int 543; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } } { DUP; DUP 5; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH string "CMPT_OUTDATED_ACCOUNT_SNAPSHOT"; FAILWITH } { DROP }; DUP; DUP 5; VIEW "getAccountSnapshotView" (option (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))); IF_NONE { PUSH string "INVALID ACCOUNT SNAPSHOT VIEW"; FAILWITH } {}; IF_NONE { PUSH int 530; FAILWITH } {}; DUP; GET 4; DUP 7; GET 3; GET 3; DUP 4; GET; IF_NONE { PUSH int 315; FAILWITH } {}; GET 8; LEVEL; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 8; GET 3; GET 3; DUP 5; GET; IF_NONE { PUSH int 316; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 7; CAR; GET 3; CDR; SWAP; DUP 8; CAR; GET 3; CDR; DUP 9; GET 3; GET 3; DUP 6; GET; IF_NONE { PUSH int 534; FAILWITH } {}; CAR; CAR; CDR; DUP 10; GET 3; GET 3; DUP 7; GET; IF_NONE { PUSH int 534; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; MUL; EDIV; IF_NONE { PUSH int 207; FAILWITH } { CAR }; PUSH (pair nat nat) (Pair 0 0); DUP 8; CAR; GET 3; CAR; DUP 4; CAR; CAR; MEM; IF { DUP 8; CAR; GET 3; CAR; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 539; FAILWITH } {}; DUP 5; MEM } { PUSH bool False }; IF { DUP; CDR; DUP 9; CAR; GET 3; CDR; DUP 5; GET 3; DIG 4; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 2 } { SWAP; DROP }; DUP; CAR; DUP 8; CAR; GET 3; CDR; DIG 3; CAR; CDR; DUP 9; GET 3; GET 3; DIG 5; GET; IF_NONE { PUSH int 543; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; ADD; UPDATE 1; DIG 2; DUP; CDR; DUP 3; CDR; ADD; UPDATE 2; DUP; CAR; DIG 2; CAR; ADD; UPDATE 1; SWAP } } } {}; DUP 2; DUP 5; CAR; CAR; CAR; CDR; PUSH nat 4; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; DIG 4; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; PUSH bool False; PUSH nat 4; UPDATE; SWAP; PUSH bool True; LEVEL; DIG 8; DROP; DIG 8; DROP; DIG 7; UNPAIR; SWAP; SUB; PAIR 3; SOME; DIG 6; UPDATE; PAIR; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 11 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { IF_LEFT {} { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; CAR; CDR; PUSH nat 1; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; SWAP; PUSH bool False; PUSH nat 1; UPDATE; SWAP; PAIR; PAIR; PAIR; PAIR; SWAP; PUSH nat 0; DUP 2; CAR; CDR; COMPARE; EQ; IF {} { PUSH string "CMPT_BORROW_IN_MARKET"; FAILWITH }; DUP 2; GET 3; GET 3; SENDER; MEM; IF { DUP 2; GET 3; GET 3; SENDER; GET; IF_NONE { PUSH int 785; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; CAR; GET 3; CAR; DUP 2; CAR; CAR; MEM; IF { DUP 2; CAR; GET 3; CAR; DUP 2; CAR; CAR; GET; IF_NONE { PUSH int 185; FAILWITH } {}; SENDER; MEM } { PUSH bool False }; IF { DUP 2; GET 3; CAR; CAR; DUP 2; CAR; CAR; MEM; IF { PUSH nat 0; DUP 3; GET 3; CAR; CAR; DUP 3; CAR; CAR; GET; IF_NONE { PUSH int 187; FAILWITH } {}; SIZE; COMPARE; NEQ } { PUSH bool False }; IF { DUP 2; CAR; CAR; CAR; CAR; DUP 2; CAR; CAR; MEM; IF {} { PUSH string "CMPT_LIQUIDITY_ABSENT"; FAILWITH }; DUP 2; CAR; CAR; CAR; CAR; DUP 2; CAR; CAR; GET; IF_NONE { PUSH int 801; FAILWITH } {}; GET 4; IF {} { PUSH string "CMPT_LIQUIDITY_INVALID"; FAILWITH }; DUP 2; CAR; CAR; CAR; CAR; DUP 2; CAR; CAR; GET; IF_NONE { PUSH int 803; FAILWITH } {}; GET 3; LEVEL; SUB; ISNAT; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; PUSH nat 0; DUP 2; COMPARE; EQ; IF {} { PUSH string "CMPT_LIQUIDITY_OLD"; FAILWITH }; DUP 3; GET 3; GET 3; SENDER; GET; IF_NONE { PUSH int 315; FAILWITH } {}; GET 8; LEVEL; DIG 2; DROP; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; GET 3; SENDER; GET; IF_NONE { PUSH int 316; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 2; CAR; GET 3; CDR; DUP 2; GET 3; DUP 4; GET 3; GET 3; SENDER; GET; IF_NONE { PUSH int 196; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; INT; DUP 3; CAR; CAR; CAR; CAR; DUP 3; CAR; CAR; GET; IF_NONE { PUSH int 195; FAILWITH } {}; CAR; SUB; PUSH int 0; SWAP; COMPARE; GE; IF {} { PUSH string "CMPT_REDEEMER_SHORTFALL"; FAILWITH } } {} } {}; DUP 2; CAR; CAR; CAR; CAR; DUP 2; CAR; CAR; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; DUP; DUP 7; CAR; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 808; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR; PAIR; SWAP } {}; DUP 2; CAR; GET 3; CAR; DUP 2; CAR; CAR; MEM; IF { DUP 2; CAR; GET 3; CAR; DUP 2; CAR; CAR; GET; IF_NONE { PUSH int 138; FAILWITH } {}; SENDER; MEM } { PUSH bool False }; IF { SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; UNPAIR; DUP; DUP 7; CAR; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 140; FAILWITH } {}; PUSH bool False; SENDER; UPDATE; SOME; SWAP; UPDATE; PAIR; PAIR; SWAP; PAIR; PAIR; SWAP } {}; DUP 2; CAR; CAR; CAR; CAR; DUP 2; CAR; CAR; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 6; CAR; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 808; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }; Elt 12 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 3; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 3; DUP 2; CAR; GET; IF_NONE { PUSH int 785; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; CAR; CAR; GET 3; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; DUP; DUP 7; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 631; FAILWITH } {}; UNPAIR; UNPAIR; CDR; DIG 9; CDR; PAIR; PAIR; PAIR; SOME; SWAP; UPDATE; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 13 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 3; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; CAR; DIG 4; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 14 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 3; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; DUP 2; GET 3; GET 3; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 3; DUP 2; CAR; GET; IF_NONE { PUSH int 785; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; DUP; DUP 7; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 713; FAILWITH } {}; UNPAIR; UNPAIR; CAR; DIG 9; CDR; SWAP; PAIR; PAIR; PAIR; SOME; SWAP; UPDATE; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 15 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } } { PUSH int -1; FAILWITH } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 3; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CAR; DIG 4; SWAP; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; NIL operation; PAIR }; Elt 16 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } } { PUSH int -1; FAILWITH } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 3; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CAR; DIG 4; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 17 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT {} { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 3; GET 3; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 3; DUP 2; CAR; GET; IF_NONE { PUSH int 785; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; CAR; CAR; GET 3; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; DUP; DUP 7; CAR; DUP; DUG 2; GET; IF_NONE { PUSH int 613; FAILWITH } {}; UNPAIR; UNPAIR; SWAP; CAR; DIG 9; CDR; SWAP; PAIR; SWAP; PAIR; PAIR; SOME; SWAP; UPDATE; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 18 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 3; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SOME; UPDATE 7; NIL operation; PAIR }; Elt 19 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 3; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; SWAP; CDR; DIG 3; UNPAIR; SWAP; PAIR; PAIR; SWAP; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 20 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 3; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; UPDATE 8; NIL operation; PAIR }; Elt 21 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; CAR; CAR; GET 3; SENDER; COMPARE; EQ; IF {} { PUSH string "CMPT_NOT_ADMIN"; FAILWITH }; DUP 2; GET 3; GET 3; DUP 2; CAR; MEM; IF { DUP 2; GET 3; GET 3; DUP 2; CAR; GET; IF_NONE { PUSH int 789; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF { PUSH string "CMPT_MARKET_ALREADY_LISTED"; FAILWITH } {}; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH (pair timestamp nat) (Pair "1970-01-01T00:00:00Z" 0); DUP 7; GET 4; PAIR; PUSH nat 0; DUP 8; GET 3; PAIR; PAIR; PUSH (pair (pair bool nat) (pair bool bool)) (Pair (Pair True 500000000000000000) (Pair True True)); PAIR; SOME; DUP 7; CAR; UPDATE; PAIR; SWAP; UNPAIR; SWAP; DUP 6; CAR; SOME; PUSH string "-USD"; DIG 7; GET 3; CONCAT; UPDATE; SWAP; PAIR; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 22 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } } }; PUSH mutez 1; PUSH nat 0; MUL; AMOUNT; COMPARE; EQ; IF {} { PUSH string "TEZ_TRANSFERED"; FAILWITH }; DUP 2; GET 8; IF { PUSH string "CMPT_TRANSFER_PAUSED"; FAILWITH } {}; DUP 2; GET 3; GET 3; DUP 2; CAR; CAR; MEM; IF { DUP 2; GET 3; GET 3; DUP 2; CAR; CAR; GET; IF_NONE { PUSH int 785; FAILWITH } {}; CAR; GET 3 } { PUSH bool False }; IF {} { PUSH string "CMPT_MARKET_NOT_LISTED"; FAILWITH }; DUP 2; CAR; GET 3; CAR; DUP 2; CAR; CDR; MEM; IF { DUP 2; CAR; GET 3; CAR; DUP 2; CAR; CDR; GET; IF_NONE { PUSH int 185; FAILWITH } {}; DUP 2; CAR; CAR; MEM } { PUSH bool False }; IF { DUP 2; GET 3; CAR; CAR; DUP 2; CAR; CDR; MEM; IF { PUSH nat 0; DUP 3; GET 3; CAR; CAR; DUP 3; CAR; CDR; GET; IF_NONE { PUSH int 187; FAILWITH } {}; SIZE; COMPARE; NEQ } { PUSH bool False }; IF { DUP 2; CAR; CAR; CAR; CAR; DUP 2; CAR; CDR; MEM; IF {} { PUSH string "CMPT_LIQUIDITY_ABSENT"; FAILWITH }; DUP 2; CAR; CAR; CAR; CAR; DUP 2; CAR; CDR; GET; IF_NONE { PUSH int 801; FAILWITH } {}; GET 4; IF {} { PUSH string "CMPT_LIQUIDITY_INVALID"; FAILWITH }; DUP 2; CAR; CAR; CAR; CAR; DUP 2; CAR; CDR; GET; IF_NONE { PUSH int 803; FAILWITH } {}; GET 3; LEVEL; SUB; ISNAT; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; PUSH nat 0; DUP 2; COMPARE; EQ; IF {} { PUSH string "CMPT_LIQUIDITY_OLD"; FAILWITH }; DUP 3; GET 3; GET 3; DUP 3; CAR; CAR; GET; IF_NONE { PUSH int 315; FAILWITH } {}; GET 8; LEVEL; DIG 2; DROP; COMPARE; EQ; IF {} { PUSH string "CMPT_UPDATE_PRICE"; FAILWITH }; PUSH nat 0; DUP 3; GET 3; GET 3; DUP 3; CAR; CAR; GET; IF_NONE { PUSH int 316; FAILWITH } {}; GET 3; CDR; COMPARE; GT; IF {} { PUSH string "CMPT_INVALID_PRICE"; FAILWITH }; DUP 2; CAR; GET 3; CDR; DUP 2; GET 4; DUP 4; GET 3; GET 3; DUP 4; CAR; CAR; GET; IF_NONE { PUSH int 196; FAILWITH } {}; GET 3; CDR; MUL; EDIV; IF_NONE { PUSH int 61; FAILWITH } { CAR }; INT; DUP 3; CAR; CAR; CAR; CAR; DUP 3; CAR; CDR; GET; IF_NONE { PUSH int 195; FAILWITH } {}; CAR; SUB; PUSH int 0; SWAP; COMPARE; GE; IF {} { PUSH string "CMPT_REDEEMER_SHORTFALL"; FAILWITH } } {} } {}; DUP 2; CAR; CAR; CAR; CAR; DUP 2; CAR; CDR; MEM; IF { SWAP; UNPAIR; UNPAIR; UNPAIR; UNPAIR; DUP; DIG 6; CAR; CDR; DUP; DUG 2; GET; IF_NONE { PUSH int 808; FAILWITH } {}; PUSH bool False; UPDATE 4; SOME; SWAP; UPDATE; PAIR; PAIR; PAIR; PAIR } { DROP }; NIL operation; PAIR }}) \ No newline at end of file diff --git a/compiled_contracts/Comptroller/step_000_cont_0_types.py b/compiled_contracts/Comptroller/step_000_cont_0_types.py index 62145139..6e3ca796 100644 --- a/compiled_contracts/Comptroller/step_000_cont_0_types.py +++ b/compiled_contracts/Comptroller/step_000_cont_0_types.py @@ -1,6 +1,6 @@ import smartpy as sp -tstorage = sp.TRecord(account_liquidity = sp.TBigMap(sp.TAddress, sp.TRecord(liquidity = sp.TInt, updateLevel = sp.TNat, valid = sp.TBool).layout(("liquidity", ("updateLevel", "valid")))), activeOperations = sp.TSet(sp.TNat), administrator = sp.TAddress, closeFactorMantissa = sp.TNat, collaterals = sp.TBigMap(sp.TAddress, sp.TSet(sp.TAddress)), expScale = sp.TNat, halfExpScale = sp.TNat, liquidationIncentiveMantissa = sp.TNat, loans = sp.TBigMap(sp.TAddress, sp.TSet(sp.TAddress)), marketNameToAddress = sp.TMap(sp.TString, sp.TAddress), markets = sp.TBigMap(sp.TAddress, sp.TRecord(borrowPaused = sp.TBool, collateralFactor = sp.TRecord(mantissa = sp.TNat).layout("mantissa"), isListed = sp.TBool, mintPaused = sp.TBool, name = sp.TString, price = sp.TRecord(mantissa = sp.TNat).layout("mantissa"), priceExp = sp.TNat, priceTimestamp = sp.TTimestamp, updateLevel = sp.TNat).layout(((("borrowPaused", "collateralFactor"), ("isListed", "mintPaused")), (("name", "price"), ("priceExp", ("priceTimestamp", "updateLevel")))))), maxPriceTimeDifference = sp.TInt, oracleAddress = sp.TAddress, pendingAdministrator = sp.TOption(sp.TAddress), transferPaused = sp.TBool).layout(((("account_liquidity", ("activeOperations", "administrator")), (("closeFactorMantissa", "collaterals"), ("expScale", "halfExpScale"))), ((("liquidationIncentiveMantissa", "loans"), ("marketNameToAddress", "markets")), (("maxPriceTimeDifference", "oracleAddress"), ("pendingAdministrator", "transferPaused"))))) -tparameter = sp.TVariant(acceptGovernance = sp.TUnit, borrowAllowed = sp.TRecord(borrowAmount = sp.TNat, borrower = sp.TAddress, cToken = sp.TAddress).layout(("cToken", ("borrower", "borrowAmount"))), disableMarket = sp.TAddress, enterMarkets = sp.TList(sp.TAddress), exitMarket = sp.TAddress, hardResetOp = sp.TUnit, liquidateBorrowAllowed = sp.TRecord(borrower = sp.TAddress, cTokenBorrowed = sp.TAddress, cTokenCollateral = sp.TAddress, liquidator = sp.TAddress, repayAmount = sp.TNat).layout((("borrower", "cTokenBorrowed"), ("cTokenCollateral", ("liquidator", "repayAmount")))), mintAllowed = sp.TRecord(cToken = sp.TAddress, mintAmount = sp.TNat, minter = sp.TAddress).layout(("cToken", ("minter", "mintAmount"))), redeemAllowed = sp.TRecord(cToken = sp.TAddress, redeemAmount = sp.TNat, redeemer = sp.TAddress).layout(("cToken", ("redeemer", "redeemAmount"))), removeFromLoans = sp.TAddress, repayBorrowAllowed = sp.TRecord(borrower = sp.TAddress, cToken = sp.TAddress, payer = sp.TAddress, repayAmount = sp.TNat).layout(("cToken", ("payer", ("borrower", "repayAmount")))), setAccountLiquidityWithView = sp.TAddress, setAccountSnapAndExitMarket = sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))), setBorrowPaused = sp.TRecord(cToken = sp.TAddress, state = sp.TBool).layout(("cToken", "state")), setCloseFactor = sp.TNat, setCollateralFactor = sp.TRecord(cToken = sp.TAddress, newCollateralFactor = sp.TNat).layout(("cToken", "newCollateralFactor")), setLiquidationIncentive = sp.TNat, setMintPaused = sp.TRecord(cToken = sp.TAddress, state = sp.TBool).layout(("cToken", "state")), setPendingGovernance = sp.TAddress, setPriceOracleAndTimeDiff = sp.TRecord(priceOracle = sp.TAddress, timeDiff = sp.TInt).layout(("priceOracle", "timeDiff")), setTransferPaused = sp.TBool, supportMarket = sp.TRecord(cToken = sp.TAddress, name = sp.TString, priceExp = sp.TNat).layout(("cToken", ("name", "priceExp"))), sweepFA12 = sp.TRecord(amount = sp.TNat, tokenAddress = sp.TAddress).layout(("amount", "tokenAddress")), sweepFA2 = sp.TRecord(amount = sp.TNat, id = sp.TNat, tokenAddress = sp.TAddress).layout(("amount", ("id", "tokenAddress"))), sweepMutez = sp.TBool, transferAllowed = sp.TRecord(cToken = sp.TAddress, dst = sp.TAddress, src = sp.TAddress, transferTokens = sp.TNat).layout((("cToken", "src"), ("dst", "transferTokens"))), updateAccountLiquidityWithView = sp.TAddress, updateAllAssetPricesWithView = sp.TUnit).layout((((("acceptGovernance", ("borrowAllowed", "disableMarket")), (("enterMarkets", "exitMarket"), ("hardResetOp", "liquidateBorrowAllowed"))), (("mintAllowed", ("redeemAllowed", "removeFromLoans")), (("repayBorrowAllowed", "setAccountLiquidityWithView"), ("setAccountSnapAndExitMarket", "setBorrowPaused")))), ((("setCloseFactor", ("setCollateralFactor", "setLiquidationIncentive")), (("setMintPaused", "setPendingGovernance"), ("setPriceOracleAndTimeDiff", "setTransferPaused"))), (("supportMarket", ("sweepFA12", "sweepFA2")), (("sweepMutez", "transferAllowed"), ("updateAccountLiquidityWithView", "updateAllAssetPricesWithView")))))) +tstorage = sp.TRecord(account_liquidity = sp.TBigMap(sp.TAddress, sp.TRecord(liquidity = sp.TInt, updateLevel = sp.TNat, valid = sp.TBool).layout(("liquidity", ("updateLevel", "valid")))), activeOperations = sp.TSet(sp.TNat), administrator = sp.TAddress, closeFactorMantissa = sp.TNat, collaterals = sp.TBigMap(sp.TAddress, sp.TSet(sp.TAddress)), expScale = sp.TNat, halfExpScale = sp.TNat, liquidationIncentiveMantissa = sp.TNat, loans = sp.TBigMap(sp.TAddress, sp.TSet(sp.TAddress)), marketNameToAddress = sp.TMap(sp.TString, sp.TAddress), markets = sp.TBigMap(sp.TAddress, sp.TRecord(borrowPaused = sp.TBool, collateralFactor = sp.TRecord(mantissa = sp.TNat).layout("mantissa"), isListed = sp.TBool, mintPaused = sp.TBool, name = sp.TString, price = sp.TRecord(mantissa = sp.TNat).layout("mantissa"), priceExp = sp.TNat, priceTimestamp = sp.TTimestamp, updateLevel = sp.TNat).layout(((("borrowPaused", "collateralFactor"), ("isListed", "mintPaused")), (("name", "price"), ("priceExp", ("priceTimestamp", "updateLevel")))))), maxAssetsPerUser = sp.TNat, maxPriceTimeDifference = sp.TInt, oracleAddress = sp.TAddress, pendingAdministrator = sp.TOption(sp.TAddress), transferPaused = sp.TBool).layout((((("account_liquidity", "activeOperations"), ("administrator", "closeFactorMantissa")), (("collaterals", "expScale"), ("halfExpScale", "liquidationIncentiveMantissa"))), ((("loans", "marketNameToAddress"), ("markets", "maxAssetsPerUser")), (("maxPriceTimeDifference", "oracleAddress"), ("pendingAdministrator", "transferPaused"))))) +tparameter = sp.TVariant(acceptGovernance = sp.TUnit, borrowAllowed = sp.TRecord(borrowAmount = sp.TNat, borrower = sp.TAddress, cToken = sp.TAddress).layout(("cToken", ("borrower", "borrowAmount"))), disableMarket = sp.TAddress, enterMarkets = sp.TList(sp.TAddress), exitMarket = sp.TAddress, hardResetOp = sp.TUnit, liquidateBorrowAllowed = sp.TRecord(borrower = sp.TAddress, cTokenBorrowed = sp.TAddress, cTokenCollateral = sp.TAddress, liquidator = sp.TAddress, repayAmount = sp.TNat).layout((("borrower", "cTokenBorrowed"), ("cTokenCollateral", ("liquidator", "repayAmount")))), mintAllowed = sp.TRecord(cToken = sp.TAddress, mintAmount = sp.TNat, minter = sp.TAddress).layout(("cToken", ("minter", "mintAmount"))), redeemAllowed = sp.TRecord(cToken = sp.TAddress, redeemAmount = sp.TNat, redeemer = sp.TAddress).layout(("cToken", ("redeemer", "redeemAmount"))), removeFromLoans = sp.TAddress, repayBorrowAllowed = sp.TRecord(borrower = sp.TAddress, cToken = sp.TAddress, payer = sp.TAddress, repayAmount = sp.TNat).layout(("cToken", ("payer", ("borrower", "repayAmount")))), setAccountLiquidityWithView = sp.TAddress, setAccountSnapAndExitMarket = sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa"))), setBorrowPaused = sp.TRecord(cToken = sp.TAddress, state = sp.TBool).layout(("cToken", "state")), setCloseFactor = sp.TNat, setCollateralFactor = sp.TRecord(cToken = sp.TAddress, newCollateralFactor = sp.TNat).layout(("cToken", "newCollateralFactor")), setLiquidationIncentive = sp.TNat, setMaxAssetsPerUser = sp.TNat, setMintPaused = sp.TRecord(cToken = sp.TAddress, state = sp.TBool).layout(("cToken", "state")), setPendingGovernance = sp.TAddress, setPriceOracleAndTimeDiff = sp.TRecord(priceOracle = sp.TAddress, timeDiff = sp.TInt).layout(("priceOracle", "timeDiff")), setTransferPaused = sp.TBool, supportMarket = sp.TRecord(cToken = sp.TAddress, name = sp.TString, priceExp = sp.TNat).layout(("cToken", ("name", "priceExp"))), sweepFA12 = sp.TRecord(amount = sp.TNat, tokenAddress = sp.TAddress).layout(("amount", "tokenAddress")), sweepFA2 = sp.TRecord(amount = sp.TNat, id = sp.TNat, tokenAddress = sp.TAddress).layout(("amount", ("id", "tokenAddress"))), sweepMutez = sp.TBool, transferAllowed = sp.TRecord(cToken = sp.TAddress, dst = sp.TAddress, src = sp.TAddress, transferTokens = sp.TNat).layout((("cToken", "src"), ("dst", "transferTokens"))), updateAccountLiquidityWithView = sp.TAddress, updateAllAssetPricesWithView = sp.TUnit).layout((((("acceptGovernance", ("borrowAllowed", "disableMarket")), (("enterMarkets", "exitMarket"), ("hardResetOp", "liquidateBorrowAllowed"))), (("mintAllowed", ("redeemAllowed", "removeFromLoans")), (("repayBorrowAllowed", "setAccountLiquidityWithView"), ("setAccountSnapAndExitMarket", "setBorrowPaused")))), ((("setCloseFactor", ("setCollateralFactor", "setLiquidationIncentive")), (("setMaxAssetsPerUser", "setMintPaused"), ("setPendingGovernance", "setPriceOracleAndTimeDiff"))), ((("setTransferPaused", "supportMarket"), ("sweepFA12", "sweepFA2")), (("sweepMutez", "transferAllowed"), ("updateAccountLiquidityWithView", "updateAllAssetPricesWithView")))))) tprivates = { } -tviews = { "liquidateCalculateSeizeTokens": (sp.TRecord(actualRepayAmount = sp.TNat, cTokenBorrowed = sp.TAddress, cTokenCollateral = sp.TAddress).layout(("actualRepayAmount", ("cTokenBorrowed", "cTokenCollateral"))), sp.TPair(sp.TNat, sp.TNat)), "seizeAllowed": (sp.TRecord(cTokenBorrowed = sp.TAddress, cTokenCollateral = sp.TAddress).layout(("cTokenBorrowed", "cTokenCollateral")), sp.TBool) } +tviews = { "getMaxAssetsPerUser": ((), sp.TNat), "getUserAssetsCount": (sp.TAddress, sp.TNat), "liquidateCalculateSeizeTokens": (sp.TRecord(actualRepayAmount = sp.TNat, cTokenBorrowed = sp.TAddress, cTokenCollateral = sp.TAddress).layout(("actualRepayAmount", ("cTokenBorrowed", "cTokenCollateral"))), sp.TPair(sp.TNat, sp.TNat)), "seizeAllowed": (sp.TRecord(cTokenBorrowed = sp.TAddress, cTokenCollateral = sp.TAddress).layout(("cTokenBorrowed", "cTokenCollateral")), sp.TBool) } diff --git a/compiled_contracts/Governance/log.txt b/compiled_contracts/Governance/log.txt index 8d130a81..c86a3006 100644 --- a/compiled_contracts/Governance/log.txt +++ b/compiled_contracts/Governance/log.txt @@ -1,10 +1,10 @@ Creating contract KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 - -> (Pair (Pair "tz1RESHvJAfmQCXCAD3ubNmVtac788pnN1oL" None) {Elt 0 { UNPAIR; IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; DUP; CDR; IF_NONE { PUSH string "GOV_NOT_SET_PENDING_ADMIN"; FAILWITH } {}; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "GOV_NOT_PENDING_ADMIN"; FAILWITH }; DUP; CDR; IF_NONE { PUSH int 45; FAILWITH } {}; UPDATE 1; NONE address; UPDATE 2; NIL operation; PAIR }; Elt 1 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { DROP } } { PUSH int -1; FAILWITH }; NIL operation; PAIR }; Elt 2 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } }; DUP 2; CAR; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "GOV_NOT_ADMIN"; FAILWITH }; SOME; UPDATE 2; NIL operation; PAIR }; Elt 3 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} }; DUP 2; CAR; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "GOV_NOT_ADMIN"; FAILWITH }; NIL operation; DUP 2; CAR; CONTRACT %setPriceOracleAndTimeDiff (pair (address %priceOracle) (int %timeDiff)); IF_NONE { PUSH int 220; FAILWITH } {}; PUSH mutez 0; DIG 3; DUP; GET 4; SWAP; GET 3; PAIR; TRANSFER_TOKENS; CONS; PAIR }}) + -> (Pair (Pair "tz1RESHvJAfmQCXCAD3ubNmVtac788pnN1oL" None) {Elt 0 { UNPAIR; IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; DUP; CDR; IF_NONE { PUSH string "GOV_NOT_SET_PENDING_ADMIN"; FAILWITH } {}; SENDER; COMPARE; EQ; IF {} { PUSH string "GOV_NOT_PENDING_ADMIN"; FAILWITH }; DUP; CDR; IF_NONE { PUSH int 45; FAILWITH } {}; UPDATE 1; NONE address; UPDATE 2; NIL operation; PAIR }; Elt 1 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { DROP } } { PUSH int -1; FAILWITH }; NIL operation; PAIR }; Elt 2 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } }; DUP 2; CAR; SENDER; COMPARE; EQ; IF {} { PUSH string "GOV_NOT_ADMIN"; FAILWITH }; SOME; UPDATE 2; NIL operation; PAIR }; Elt 3 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} }; DUP 2; CAR; SENDER; COMPARE; EQ; IF {} { PUSH string "GOV_NOT_ADMIN"; FAILWITH }; NIL operation; DUP 2; CAR; CONTRACT %setPriceOracleAndTimeDiff (pair (address %priceOracle) (int %timeDiff)); IF_NONE { PUSH int 220; FAILWITH } {}; PUSH mutez 0; DIG 3; DUP; GET 4; SWAP; GET 3; PAIR; TRANSFER_TOKENS; CONS; PAIR }}) => ./compiled_contracts/Governance/step_000_cont_0_storage.tz 1 - => ./compiled_contracts/Governance/step_000_cont_0_storage.json 127 + => ./compiled_contracts/Governance/step_000_cont_0_storage.json 124 => ./compiled_contracts/Governance/step_000_cont_0_sizes.csv 2 => ./compiled_contracts/Governance/step_000_cont_0_storage.py 1 => ./compiled_contracts/Governance/step_000_cont_0_types.py 7 - => ./compiled_contracts/Governance/step_000_cont_0_contract.tz 729 - => ./compiled_contracts/Governance/step_000_cont_0_contract.json 1080 - => ./compiled_contracts/Governance/step_000_cont_0_contract.py 158 + => ./compiled_contracts/Governance/step_000_cont_0_contract.tz 809 + => ./compiled_contracts/Governance/step_000_cont_0_contract.json 1099 + => ./compiled_contracts/Governance/step_000_cont_0_contract.py 164 diff --git a/compiled_contracts/Governance/step_000_cont_0_contract.json b/compiled_contracts/Governance/step_000_cont_0_contract.json index c416a4b4..ffafd8a0 100644 --- a/compiled_contracts/Governance/step_000_cont_0_contract.json +++ b/compiled_contracts/Governance/step_000_cont_0_contract.json @@ -142,16 +142,26 @@ "annots": [ "%setCloseFactor" ] }, { - "prim": "pair", + "prim": "or", "args": [ { "prim": "pair", - "args": [ { "prim": "address", "annots": [ "%cToken" ] }, { "prim": "nat", "annots": [ "%newCollateralFactor" ] } ], - "annots": [ "%collateralFactor" ] + "args": [ + { + "prim": "pair", + "args": [ { "prim": "address", "annots": [ "%cToken" ] }, { "prim": "nat", "annots": [ "%newCollateralFactor" ] } ], + "annots": [ "%collateralFactor" ] + }, + { "prim": "address", "annots": [ "%comptroller" ] } + ], + "annots": [ "%setCollateralFactor" ] }, - { "prim": "address", "annots": [ "%comptroller" ] } - ], - "annots": [ "%setCollateralFactor" ] + { + "prim": "pair", + "args": [ { "prim": "address", "annots": [ "%cToken" ] }, { "prim": "address", "annots": [ "%comptroller" ] } ], + "annots": [ "%setComptroller" ] + } + ] } ] }, @@ -160,21 +170,21 @@ "args": [ { "prim": "pair", - "args": [ { "prim": "address", "annots": [ "%cToken" ] }, { "prim": "address", "annots": [ "%comptroller" ] } ], - "annots": [ "%setComptroller" ] + "args": [ { "prim": "address", "annots": [ "%contractAddress" ] }, { "prim": "address", "annots": [ "%governance" ] } ], + "annots": [ "%setContractGovernance" ] }, { "prim": "or", "args": [ { "prim": "pair", - "args": [ { "prim": "address", "annots": [ "%contractAddress" ] }, { "prim": "address", "annots": [ "%governance" ] } ], - "annots": [ "%setContractGovernance" ] + "args": [ { "prim": "address", "annots": [ "%cToken" ] }, { "prim": "address", "annots": [ "%interestRateModel" ] } ], + "annots": [ "%setInterestRateModel" ] }, { "prim": "pair", - "args": [ { "prim": "address", "annots": [ "%cToken" ] }, { "prim": "address", "annots": [ "%interestRateModel" ] } ], - "annots": [ "%setInterestRateModel" ] + "args": [ { "prim": "address", "annots": [ "%comptroller" ] }, { "prim": "nat", "annots": [ "%liquidationIncentive" ] } ], + "annots": [ "%setLiquidationIncentive" ] } ] } @@ -195,13 +205,13 @@ "args": [ { "prim": "pair", - "args": [ { "prim": "address", "annots": [ "%comptroller" ] }, { "prim": "nat", "annots": [ "%liquidationIncentive" ] } ], - "annots": [ "%setLiquidationIncentive" ] + "args": [ { "prim": "nat", "annots": [ "%blockNumber" ] }, { "prim": "address", "annots": [ "%comptroller" ] } ], + "annots": [ "%setLiquidityPeriodRelevance" ] }, { "prim": "pair", - "args": [ { "prim": "nat", "annots": [ "%blockNumber" ] }, { "prim": "address", "annots": [ "%comptroller" ] } ], - "annots": [ "%setLiquidityPeriodRelevance" ] + "args": [ { "prim": "address", "annots": [ "%comptroller" ] }, { "prim": "nat", "annots": [ "%maxAssets" ] } ], + "annots": [ "%setMaxAssetsPerUser" ] } ] }, @@ -376,7 +386,6 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -396,7 +405,6 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -425,7 +433,6 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -451,7 +458,6 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -473,7 +479,6 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -490,7 +495,7 @@ ], "annots": [ "%setBorrowPaused" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "343" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "358" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, @@ -518,7 +523,6 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -537,32 +541,62 @@ { "prim": "CONS" } ], [ - { "prim": "DUP", "args": [ { "int": "2" } ] }, - { "prim": "CAR" }, - { "prim": "SENDER" }, - { "prim": "RENAME" }, - { "prim": "COMPARE" }, - { "prim": "EQ" }, { - "prim": "IF", - "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "GOV_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] - }, - { "prim": "NIL", "args": [ { "prim": "operation" } ] }, - { "prim": "DUP", "args": [ { "int": "2" } ] }, - { "prim": "CDR" }, - { - "prim": "CONTRACT", + "prim": "IF_LEFT", "args": [ - { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%cToken" ] }, { "prim": "nat", "annots": [ "%newCollateralFactor" ] } ] } - ], - "annots": [ "%setCollateralFactor" ] - }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "254" } ] }, { "prim": "FAILWITH" } ], [] ] }, - { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, - { "prim": "DIG", "args": [ { "int": "3" } ] }, - { "prim": "CAR" }, - { "prim": "TRANSFER_TOKENS" }, - { "prim": "CONS" } + [ + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "SENDER" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { + "prim": "IF", + "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "GOV_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] + }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CDR" }, + { + "prim": "CONTRACT", + "args": [ + { + "prim": "pair", + "args": [ { "prim": "address", "annots": [ "%cToken" ] }, { "prim": "nat", "annots": [ "%newCollateralFactor" ] } ] + } + ], + "annots": [ "%setCollateralFactor" ] + }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "254" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "CAR" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ], + [ + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "SENDER" }, + { "prim": "COMPARE" }, + { "prim": "EQ" }, + { + "prim": "IF", + "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "GOV_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] + }, + { "prim": "NIL", "args": [ { "prim": "operation" } ] }, + { "prim": "DUP", "args": [ { "int": "2" } ] }, + { "prim": "CAR" }, + { "prim": "CONTRACT", "args": [ { "prim": "address" } ], "annots": [ "%setComptroller" ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "140" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, + { "prim": "DIG", "args": [ { "int": "3" } ] }, + { "prim": "CDR" }, + { "prim": "TRANSFER_TOKENS" }, + { "prim": "CONS" } + ] + ] + } ] ] } @@ -575,7 +609,6 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -585,8 +618,8 @@ { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, - { "prim": "CONTRACT", "args": [ { "prim": "address" } ], "annots": [ "%setComptroller" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "140" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CONTRACT", "args": [ { "prim": "address" } ], "annots": [ "%setPendingGovernance" ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "61" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, @@ -601,7 +634,6 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -611,8 +643,8 @@ { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, - { "prim": "CONTRACT", "args": [ { "prim": "address" } ], "annots": [ "%setPendingGovernance" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "61" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CONTRACT", "args": [ { "prim": "address" } ], "annots": [ "%setInterestRateModel" ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "156" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, @@ -623,7 +655,6 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -633,8 +664,8 @@ { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, - { "prim": "CONTRACT", "args": [ { "prim": "address" } ], "annots": [ "%setInterestRateModel" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "156" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CONTRACT", "args": [ { "prim": "nat" } ], "annots": [ "%setLiquidationIncentive" ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "270" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, @@ -669,7 +700,6 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -678,12 +708,12 @@ }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, - { "prim": "CAR" }, - { "prim": "CONTRACT", "args": [ { "prim": "nat" } ], "annots": [ "%setLiquidationIncentive" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "270" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CDR" }, + { "prim": "CONTRACT", "args": [ { "prim": "nat" } ], "annots": [ "%setLiquidityPeriodRelevance" ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "122" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, - { "prim": "CDR" }, + { "prim": "CAR" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" } ], @@ -691,7 +721,6 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -700,12 +729,12 @@ }, { "prim": "NIL", "args": [ { "prim": "operation" } ] }, { "prim": "DUP", "args": [ { "int": "2" } ] }, - { "prim": "CDR" }, - { "prim": "CONTRACT", "args": [ { "prim": "nat" } ], "annots": [ "%setLiquidityPeriodRelevance" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "122" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "CAR" }, + { "prim": "CONTRACT", "args": [ { "prim": "nat" } ], "annots": [ "%setMaxAssetsPerUser" ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "321" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, - { "prim": "CAR" }, + { "prim": "CDR" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" } ] @@ -720,7 +749,6 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -735,7 +763,7 @@ "args": [ { "prim": "pair", "args": [ { "prim": "address", "annots": [ "%cToken" ] }, { "prim": "bool", "annots": [ "%state" ] } ] } ], "annots": [ "%setMintPaused" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "325" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "340" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, @@ -750,7 +778,6 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -772,7 +799,6 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -811,7 +837,6 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -822,7 +847,7 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "CONTRACT", "args": [ { "prim": "bool" } ], "annots": [ "%setTransferPaused" ] }, - { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "359" } ] }, { "prim": "FAILWITH" } ], [] ] }, + { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "374" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] }, { "prim": "DIG", "args": [ { "int": "3" } ] }, { "prim": "CDR" }, @@ -837,7 +862,6 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { @@ -891,7 +915,6 @@ { "prim": "DUP", "args": [ { "int": "5" } ] }, { "prim": "CAR" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" } @@ -973,7 +996,6 @@ { "prim": "PAIR", "args": [ { "int": "3" } ] }, { "prim": "CONS" }, { "prim": "SELF_ADDRESS" }, - { "prim": "RENAME" }, { "prim": "PAIR" }, { "prim": "CONS" }, { "prim": "TRANSFER_TOKENS" }, @@ -997,7 +1019,6 @@ "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "21" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "BALANCE" }, - { "prim": "RENAME" }, { "prim": "UNIT" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" } @@ -1012,7 +1033,6 @@ "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "24" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "BALANCE" }, - { "prim": "RENAME" }, { "prim": "UNIT" }, { "prim": "TRANSFER_TOKENS" }, { "prim": "CONS" } @@ -1024,7 +1044,6 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { diff --git a/compiled_contracts/Governance/step_000_cont_0_contract.py b/compiled_contracts/Governance/step_000_cont_0_contract.py index 3fffea2a..5565dce4 100644 --- a/compiled_contracts/Governance/step_000_cont_0_contract.py +++ b/compiled_contracts/Governance/step_000_cont_0_contract.py @@ -89,6 +89,12 @@ def setLiquidityPeriodRelevance(self, params): sp.set_type(params, sp.TRecord(blockNumber = sp.TNat, comptroller = sp.TAddress).layout(("blockNumber", "comptroller"))) sp.transfer(params.blockNumber, sp.tez(0), sp.contract(sp.TNat, params.comptroller, entrypoint='setLiquidityPeriodRelevance').open_some()) + @sp.entrypoint + def setMaxAssetsPerUser(self, params): + sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') + sp.set_type(params, sp.TRecord(comptroller = sp.TAddress, maxAssets = sp.TNat).layout(("comptroller", "maxAssets"))) + sp.transfer(params.maxAssets, sp.tez(0), sp.contract(sp.TNat, params.comptroller, entrypoint='setMaxAssetsPerUser').open_some()) + @sp.entrypoint def setMintPaused(self, params): sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') diff --git a/compiled_contracts/Governance/step_000_cont_0_contract.tz b/compiled_contracts/Governance/step_000_cont_0_contract.tz index d13831d2..cd5a9d3e 100644 --- a/compiled_contracts/Governance/step_000_cont_0_contract.tz +++ b/compiled_contracts/Governance/step_000_cont_0_contract.tz @@ -1,4 +1,4 @@ -parameter (or (or (or (unit %acceptGovernance) (unit %receive)) (or (address %setPendingGovernance) (pair %setPriceOracleAndTimeDiff (address %comptroller) (pair (address %priceOracle) (int %timeDiff))))) (or (or (or (or (address %acceptContractGovernance) (pair %disableMarket (address %cToken) (address %comptroller))) (or (pair %reduceReserves (nat %amount) (address %cToken)) (or (pair %setAccrualIntPeriodRelevance (nat %blockNumber) (address %cToken)) (pair %setBorrowPaused (address %comptroller) (pair %tokenState (address %cToken) (bool %state)))))) (or (or (pair %setCloseFactor (nat %closeFactor) (address %comptroller)) (pair %setCollateralFactor (pair %collateralFactor (address %cToken) (nat %newCollateralFactor)) (address %comptroller))) (or (pair %setComptroller (address %cToken) (address %comptroller)) (or (pair %setContractGovernance (address %contractAddress) (address %governance)) (pair %setInterestRateModel (address %cToken) (address %interestRateModel)))))) (or (or (or (pair %setLiquidationIncentive (address %comptroller) (nat %liquidationIncentive)) (pair %setLiquidityPeriodRelevance (nat %blockNumber) (address %comptroller))) (or (pair %setMintPaused (address %comptroller) (pair %tokenState (address %cToken) (bool %state))) (or (pair %setPricePeriodRelevance (nat %blockNumber) (address %comptroller)) (pair %setReserveFactor (address %cToken) (nat %newReserveFactor))))) (or (or (pair %setTransferPaused (address %comptroller) (bool %state)) (or (pair %supportMarket (address %comptroller) (pair %market (address %cToken) (pair (string %name) (nat %priceExp)))) (pair %sweepFA12 (nat %amount) (address %tokenAddress)))) (or (pair %sweepFA2 (nat %amount) (pair (nat %id) (address %tokenAddress))) (or (bool %sweepMutez) (pair %updateMetadata (address %cToken) (pair (string %key) (bytes %value))))))))); +parameter (or (or (or (unit %acceptGovernance) (unit %receive)) (or (address %setPendingGovernance) (pair %setPriceOracleAndTimeDiff (address %comptroller) (pair (address %priceOracle) (int %timeDiff))))) (or (or (or (or (address %acceptContractGovernance) (pair %disableMarket (address %cToken) (address %comptroller))) (or (pair %reduceReserves (nat %amount) (address %cToken)) (or (pair %setAccrualIntPeriodRelevance (nat %blockNumber) (address %cToken)) (pair %setBorrowPaused (address %comptroller) (pair %tokenState (address %cToken) (bool %state)))))) (or (or (pair %setCloseFactor (nat %closeFactor) (address %comptroller)) (or (pair %setCollateralFactor (pair %collateralFactor (address %cToken) (nat %newCollateralFactor)) (address %comptroller)) (pair %setComptroller (address %cToken) (address %comptroller)))) (or (pair %setContractGovernance (address %contractAddress) (address %governance)) (or (pair %setInterestRateModel (address %cToken) (address %interestRateModel)) (pair %setLiquidationIncentive (address %comptroller) (nat %liquidationIncentive)))))) (or (or (or (pair %setLiquidityPeriodRelevance (nat %blockNumber) (address %comptroller)) (pair %setMaxAssetsPerUser (address %comptroller) (nat %maxAssets))) (or (pair %setMintPaused (address %comptroller) (pair %tokenState (address %cToken) (bool %state))) (or (pair %setPricePeriodRelevance (nat %blockNumber) (address %comptroller)) (pair %setReserveFactor (address %cToken) (nat %newReserveFactor))))) (or (or (pair %setTransferPaused (address %comptroller) (bool %state)) (or (pair %supportMarket (address %comptroller) (pair %market (address %cToken) (pair (string %name) (nat %priceExp)))) (pair %sweepFA12 (nat %amount) (address %tokenAddress)))) (or (pair %sweepFA2 (nat %amount) (pair (nat %id) (address %tokenAddress))) (or (bool %sweepMutez) (pair %updateMetadata (address %cToken) (pair (string %key) (bytes %value))))))))); storage (pair (pair (address %administrator) (option %pendingAdministrator address)) (big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))))); code { @@ -11,10 +11,12 @@ code IF_LEFT { DROP; # @parameter.left : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + # == acceptGovernance == # @parameter.left : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) PUSH nat 0; # nat : @parameter.left : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) } { DROP; # @parameter.left : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + # == receive == # @parameter.left : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) PUSH nat 1; # nat : @parameter.left : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) }; # nat : @parameter.left : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) } @@ -22,10 +24,12 @@ code IF_LEFT { DROP; # @parameter.left : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + # == setPendingGovernance == # @parameter.left : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) PUSH nat 2; # nat : @parameter.left : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) } { DROP; # @parameter.left : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + # == setPriceOracleAndTimeDiff == # @parameter.left : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) PUSH nat 3; # nat : @parameter.left : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) }; # nat : @parameter.left : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) }; # nat : @parameter.left : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) @@ -37,7 +41,9 @@ code PUSH int -1; # int : @parameter.left : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED } - {}; # @some : @parameter.left : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + { + # missing entrypoint # @some : @parameter.left : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + }; # @some : @parameter.left : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DUG 2; # @parameter.left : pair (address %administrator) (option %pendingAdministrator address) : @some : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) PAIR; # pair @parameter.left (pair (address %administrator) (option %pendingAdministrator address)) : @some : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) EXEC; # pair (list operation) (pair address (option address)) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) @@ -52,10 +58,11 @@ code { IF_LEFT { + # == acceptContractGovernance == + # sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') # @parameter%acceptContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DUP 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%acceptContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CAR; # address : @parameter%acceptContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) SENDER; # @sender : address : @parameter%acceptContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - RENAME; # address : address : @parameter%acceptContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) COMPARE; # int : @parameter%acceptContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) EQ; # bool : @parameter%acceptContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF @@ -64,6 +71,7 @@ code PUSH string "GOV_NOT_ADMIN"; # string : @parameter%acceptContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED }; # @parameter%acceptContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + # sp.send(params, sp.tez(0)) # @parameter%acceptContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CONTRACT %acceptGovernance unit; # option (contract unit) : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF_NONE { @@ -79,10 +87,11 @@ code CONS; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) } { + # == disableMarket == + # sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') # @parameter%disableMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DUP 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%disableMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CAR; # address : @parameter%disableMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) SENDER; # @sender : address : @parameter%disableMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - RENAME; # address : address : @parameter%disableMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) COMPARE; # int : @parameter%disableMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) EQ; # bool : @parameter%disableMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF @@ -91,6 +100,7 @@ code PUSH string "GOV_NOT_ADMIN"; # string : @parameter%disableMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED }; # @parameter%disableMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + # sp.transfer(params.cToken, sp.tez(0), sp.contract(sp.TAddress, params.comptroller, entrypoint='disableMarket').open_some()) # @parameter%disableMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) NIL operation; # list operation : @parameter%disableMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DUP 2; # @parameter%disableMarket : list operation : @parameter%disableMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CDR; # address : list operation : @parameter%disableMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) @@ -111,10 +121,11 @@ code { IF_LEFT { + # == reduceReserves == + # sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') # @parameter%reduceReserves : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DUP 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%reduceReserves : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CAR; # address : @parameter%reduceReserves : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) SENDER; # @sender : address : @parameter%reduceReserves : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - RENAME; # address : address : @parameter%reduceReserves : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) COMPARE; # int : @parameter%reduceReserves : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) EQ; # bool : @parameter%reduceReserves : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF @@ -123,6 +134,7 @@ code PUSH string "GOV_NOT_ADMIN"; # string : @parameter%reduceReserves : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED }; # @parameter%reduceReserves : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + # sp.transfer(params.amount, sp.tez(0), sp.contract(sp.TNat, params.cToken, entrypoint='reduceReserves').open_some()) # @parameter%reduceReserves : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) NIL operation; # list operation : @parameter%reduceReserves : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DUP 2; # @parameter%reduceReserves : list operation : @parameter%reduceReserves : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CDR; # address : list operation : @parameter%reduceReserves : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) @@ -142,10 +154,11 @@ code { IF_LEFT { + # == setAccrualIntPeriodRelevance == + # sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') # @parameter%setAccrualIntPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DUP 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setAccrualIntPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CAR; # address : @parameter%setAccrualIntPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) SENDER; # @sender : address : @parameter%setAccrualIntPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - RENAME; # address : address : @parameter%setAccrualIntPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) COMPARE; # int : @parameter%setAccrualIntPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) EQ; # bool : @parameter%setAccrualIntPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF @@ -154,6 +167,7 @@ code PUSH string "GOV_NOT_ADMIN"; # string : @parameter%setAccrualIntPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED }; # @parameter%setAccrualIntPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + # sp.transfer(params.blockNumber, sp.tez(0), sp.contract(sp.TNat, params.cToken, entrypoint='setAccrualIntPeriodRelevance').open_some()) # @parameter%setAccrualIntPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) NIL operation; # list operation : @parameter%setAccrualIntPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DUP 2; # @parameter%setAccrualIntPeriodRelevance : list operation : @parameter%setAccrualIntPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CDR; # address : list operation : @parameter%setAccrualIntPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) @@ -171,10 +185,11 @@ code CONS; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) } { + # == setBorrowPaused == + # sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') # @parameter%setBorrowPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DUP 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setBorrowPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CAR; # address : @parameter%setBorrowPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) SENDER; # @sender : address : @parameter%setBorrowPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - RENAME; # address : address : @parameter%setBorrowPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) COMPARE; # int : @parameter%setBorrowPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) EQ; # bool : @parameter%setBorrowPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF @@ -183,13 +198,14 @@ code PUSH string "GOV_NOT_ADMIN"; # string : @parameter%setBorrowPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED }; # @parameter%setBorrowPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + # sp.transfer(params.tokenState, sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, state = sp.TBool).layout(("cToken", "state")), params.comptroller, entrypoint='setBorrowPaused').open_some()) # @parameter%setBorrowPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) NIL operation; # list operation : @parameter%setBorrowPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DUP 2; # @parameter%setBorrowPaused : list operation : @parameter%setBorrowPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CAR; # address : list operation : @parameter%setBorrowPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CONTRACT %setBorrowPaused (pair (address %cToken) (bool %state)); # option (contract (pair (address %cToken) (bool %state))) : list operation : @parameter%setBorrowPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF_NONE { - PUSH int 343; # int : list operation : @parameter%setBorrowPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + PUSH int 358; # int : list operation : @parameter%setBorrowPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED } {}; # @some : list operation : @parameter%setBorrowPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) @@ -207,10 +223,11 @@ code { IF_LEFT { + # == setCloseFactor == + # sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') # @parameter%setCloseFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DUP 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setCloseFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CAR; # address : @parameter%setCloseFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) SENDER; # @sender : address : @parameter%setCloseFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - RENAME; # address : address : @parameter%setCloseFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) COMPARE; # int : @parameter%setCloseFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) EQ; # bool : @parameter%setCloseFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF @@ -219,6 +236,7 @@ code PUSH string "GOV_NOT_ADMIN"; # string : @parameter%setCloseFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED }; # @parameter%setCloseFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + # sp.transfer(params.closeFactor, sp.tez(0), sp.contract(sp.TNat, params.comptroller, entrypoint='setCloseFactor').open_some()) # @parameter%setCloseFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) NIL operation; # list operation : @parameter%setCloseFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DUP 2; # @parameter%setCloseFactor : list operation : @parameter%setCloseFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CDR; # address : list operation : @parameter%setCloseFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) @@ -236,62 +254,100 @@ code CONS; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) } { - DUP 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CAR; # address : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - SENDER; # @sender : address : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - RENAME; # address : address : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - COMPARE; # int : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - EQ; # bool : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - IF - {} - { - PUSH string "GOV_NOT_ADMIN"; # string : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - FAILWITH; # FAILED - }; # @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - NIL operation; # list operation : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUP 2; # @parameter%setCollateralFactor : list operation : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CDR; # address : list operation : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CONTRACT %setCollateralFactor (pair (address %cToken) (nat %newCollateralFactor)); # option (contract (pair (address %cToken) (nat %newCollateralFactor))) : list operation : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - IF_NONE + IF_LEFT { - PUSH int 254; # int : list operation : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - FAILWITH; # FAILED + # == setCollateralFactor == + # sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') # @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CAR; # address : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + SENDER; # @sender : address : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + COMPARE; # int : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + EQ; # bool : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + IF + {} + { + PUSH string "GOV_NOT_ADMIN"; # string : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + FAILWITH; # FAILED + }; # @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + # sp.transfer(params.collateralFactor, sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, newCollateralFactor = sp.TNat).layout(("cToken", "newCollateralFactor")), params.comptroller, entrypoint='setCollateralFactor').open_some()) # @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + NIL operation; # list operation : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 2; # @parameter%setCollateralFactor : list operation : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CDR; # address : list operation : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CONTRACT %setCollateralFactor (pair (address %cToken) (nat %newCollateralFactor)); # option (contract (pair (address %cToken) (nat %newCollateralFactor))) : list operation : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + IF_NONE + { + PUSH int 254; # int : list operation : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + FAILWITH; # FAILED + } + {}; # @some : list operation : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + PUSH mutez 0; # mutez : @some : list operation : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DIG 3; # @parameter%setCollateralFactor : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CAR; # pair (address %cToken) (nat %newCollateralFactor) : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + TRANSFER_TOKENS; # operation : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CONS; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) } - {}; # @some : list operation : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - PUSH mutez 0; # mutez : @some : list operation : @parameter%setCollateralFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DIG 3; # @parameter%setCollateralFactor : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CAR; # pair (address %cToken) (nat %newCollateralFactor) : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - TRANSFER_TOKENS; # operation : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CONS; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + { + # == setComptroller == + # sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') # @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CAR; # address : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + SENDER; # @sender : address : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + COMPARE; # int : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + EQ; # bool : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + IF + {} + { + PUSH string "GOV_NOT_ADMIN"; # string : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + FAILWITH; # FAILED + }; # @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + # sp.transfer(params.comptroller, sp.tez(0), sp.contract(sp.TAddress, params.cToken, entrypoint='setComptroller').open_some()) # @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + NIL operation; # list operation : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 2; # @parameter%setComptroller : list operation : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CAR; # address : list operation : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CONTRACT %setComptroller address; # option (contract address) : list operation : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + IF_NONE + { + PUSH int 140; # int : list operation : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + FAILWITH; # FAILED + } + {}; # @some : list operation : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + PUSH mutez 0; # mutez : @some : list operation : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DIG 3; # @parameter%setComptroller : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CDR; # address : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + TRANSFER_TOKENS; # operation : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CONS; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + }; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) }; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) } { IF_LEFT { - DUP 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CAR; # address : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - SENDER; # @sender : address : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - RENAME; # address : address : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - COMPARE; # int : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - EQ; # bool : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + # == setContractGovernance == + # sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') # @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CAR; # address : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + SENDER; # @sender : address : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + COMPARE; # int : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + EQ; # bool : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF {} { - PUSH string "GOV_NOT_ADMIN"; # string : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + PUSH string "GOV_NOT_ADMIN"; # string : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED - }; # @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - NIL operation; # list operation : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUP 2; # @parameter%setComptroller : list operation : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CAR; # address : list operation : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CONTRACT %setComptroller address; # option (contract address) : list operation : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + }; # @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + # sp.transfer(params.governance, sp.tez(0), sp.contract(sp.TAddress, params.contractAddress, entrypoint='setPendingGovernance').open_some()) # @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + NIL operation; # list operation : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 2; # @parameter%setContractGovernance : list operation : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CAR; # address : list operation : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CONTRACT %setPendingGovernance address; # option (contract address) : list operation : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF_NONE { - PUSH int 140; # int : list operation : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + PUSH int 61; # int : list operation : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED } - {}; # @some : list operation : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - PUSH mutez 0; # mutez : @some : list operation : @parameter%setComptroller : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DIG 3; # @parameter%setComptroller : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + {}; # @some : list operation : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + PUSH mutez 0; # mutez : @some : list operation : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DIG 3; # @parameter%setContractGovernance : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CDR; # address : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) TRANSFER_TOKENS; # operation : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CONS; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) @@ -299,39 +355,11 @@ code { IF_LEFT { - DUP 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CAR; # address : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - SENDER; # @sender : address : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - RENAME; # address : address : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - COMPARE; # int : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - EQ; # bool : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - IF - {} - { - PUSH string "GOV_NOT_ADMIN"; # string : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - FAILWITH; # FAILED - }; # @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - NIL operation; # list operation : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUP 2; # @parameter%setContractGovernance : list operation : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CAR; # address : list operation : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CONTRACT %setPendingGovernance address; # option (contract address) : list operation : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - IF_NONE - { - PUSH int 61; # int : list operation : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - FAILWITH; # FAILED - } - {}; # @some : list operation : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - PUSH mutez 0; # mutez : @some : list operation : @parameter%setContractGovernance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DIG 3; # @parameter%setContractGovernance : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CDR; # address : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - TRANSFER_TOKENS; # operation : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CONS; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - } - { + # == setInterestRateModel == + # sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') # @parameter%setInterestRateModel : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DUP 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setInterestRateModel : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CAR; # address : @parameter%setInterestRateModel : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) SENDER; # @sender : address : @parameter%setInterestRateModel : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - RENAME; # address : address : @parameter%setInterestRateModel : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) COMPARE; # int : @parameter%setInterestRateModel : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) EQ; # bool : @parameter%setInterestRateModel : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF @@ -340,6 +368,7 @@ code PUSH string "GOV_NOT_ADMIN"; # string : @parameter%setInterestRateModel : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED }; # @parameter%setInterestRateModel : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + # sp.transfer(params.interestRateModel, sp.tez(0), sp.contract(sp.TAddress, params.cToken, entrypoint='setInterestRateModel').open_some()) # @parameter%setInterestRateModel : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) NIL operation; # list operation : @parameter%setInterestRateModel : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DUP 2; # @parameter%setInterestRateModel : list operation : @parameter%setInterestRateModel : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CAR; # address : list operation : @parameter%setInterestRateModel : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) @@ -355,6 +384,37 @@ code CDR; # address : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) TRANSFER_TOKENS; # operation : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CONS; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + } + { + # == setLiquidationIncentive == + # sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') # @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CAR; # address : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + SENDER; # @sender : address : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + COMPARE; # int : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + EQ; # bool : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + IF + {} + { + PUSH string "GOV_NOT_ADMIN"; # string : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + FAILWITH; # FAILED + }; # @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + # sp.transfer(params.liquidationIncentive, sp.tez(0), sp.contract(sp.TNat, params.comptroller, entrypoint='setLiquidationIncentive').open_some()) # @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + NIL operation; # list operation : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 2; # @parameter%setLiquidationIncentive : list operation : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CAR; # address : list operation : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CONTRACT %setLiquidationIncentive nat; # option (contract nat) : list operation : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + IF_NONE + { + PUSH int 270; # int : list operation : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + FAILWITH; # FAILED + } + {}; # @some : list operation : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + PUSH mutez 0; # mutez : @some : list operation : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DIG 3; # @parameter%setLiquidationIncentive : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CDR; # nat : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + TRANSFER_TOKENS; # operation : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CONS; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) }; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) }; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) }; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) @@ -367,39 +427,11 @@ code { IF_LEFT { - DUP 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CAR; # address : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - SENDER; # @sender : address : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - RENAME; # address : address : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - COMPARE; # int : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - EQ; # bool : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - IF - {} - { - PUSH string "GOV_NOT_ADMIN"; # string : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - FAILWITH; # FAILED - }; # @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - NIL operation; # list operation : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DUP 2; # @parameter%setLiquidationIncentive : list operation : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CAR; # address : list operation : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CONTRACT %setLiquidationIncentive nat; # option (contract nat) : list operation : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - IF_NONE - { - PUSH int 270; # int : list operation : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - FAILWITH; # FAILED - } - {}; # @some : list operation : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - PUSH mutez 0; # mutez : @some : list operation : @parameter%setLiquidationIncentive : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - DIG 3; # @parameter%setLiquidationIncentive : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CDR; # nat : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - TRANSFER_TOKENS; # operation : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - CONS; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - } - { + # == setLiquidityPeriodRelevance == + # sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') # @parameter%setLiquidityPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DUP 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setLiquidityPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CAR; # address : @parameter%setLiquidityPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) SENDER; # @sender : address : @parameter%setLiquidityPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - RENAME; # address : address : @parameter%setLiquidityPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) COMPARE; # int : @parameter%setLiquidityPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) EQ; # bool : @parameter%setLiquidityPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF @@ -408,6 +440,7 @@ code PUSH string "GOV_NOT_ADMIN"; # string : @parameter%setLiquidityPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED }; # @parameter%setLiquidityPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + # sp.transfer(params.blockNumber, sp.tez(0), sp.contract(sp.TNat, params.comptroller, entrypoint='setLiquidityPeriodRelevance').open_some()) # @parameter%setLiquidityPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) NIL operation; # list operation : @parameter%setLiquidityPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DUP 2; # @parameter%setLiquidityPeriodRelevance : list operation : @parameter%setLiquidityPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CDR; # address : list operation : @parameter%setLiquidityPeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) @@ -423,15 +456,47 @@ code CAR; # nat : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) TRANSFER_TOKENS; # operation : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CONS; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + } + { + # == setMaxAssetsPerUser == + # sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') # @parameter%setMaxAssetsPerUser : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setMaxAssetsPerUser : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CAR; # address : @parameter%setMaxAssetsPerUser : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + SENDER; # @sender : address : @parameter%setMaxAssetsPerUser : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + COMPARE; # int : @parameter%setMaxAssetsPerUser : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + EQ; # bool : @parameter%setMaxAssetsPerUser : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + IF + {} + { + PUSH string "GOV_NOT_ADMIN"; # string : @parameter%setMaxAssetsPerUser : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + FAILWITH; # FAILED + }; # @parameter%setMaxAssetsPerUser : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + # sp.transfer(params.maxAssets, sp.tez(0), sp.contract(sp.TNat, params.comptroller, entrypoint='setMaxAssetsPerUser').open_some()) # @parameter%setMaxAssetsPerUser : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + NIL operation; # list operation : @parameter%setMaxAssetsPerUser : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DUP 2; # @parameter%setMaxAssetsPerUser : list operation : @parameter%setMaxAssetsPerUser : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CAR; # address : list operation : @parameter%setMaxAssetsPerUser : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CONTRACT %setMaxAssetsPerUser nat; # option (contract nat) : list operation : @parameter%setMaxAssetsPerUser : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + IF_NONE + { + PUSH int 321; # int : list operation : @parameter%setMaxAssetsPerUser : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + FAILWITH; # FAILED + } + {}; # @some : list operation : @parameter%setMaxAssetsPerUser : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + PUSH mutez 0; # mutez : @some : list operation : @parameter%setMaxAssetsPerUser : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + DIG 3; # @parameter%setMaxAssetsPerUser : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CDR; # nat : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + TRANSFER_TOKENS; # operation : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + CONS; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) }; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) } { IF_LEFT { + # == setMintPaused == + # sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') # @parameter%setMintPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DUP 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setMintPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CAR; # address : @parameter%setMintPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) SENDER; # @sender : address : @parameter%setMintPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - RENAME; # address : address : @parameter%setMintPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) COMPARE; # int : @parameter%setMintPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) EQ; # bool : @parameter%setMintPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF @@ -440,13 +505,14 @@ code PUSH string "GOV_NOT_ADMIN"; # string : @parameter%setMintPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED }; # @parameter%setMintPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + # sp.transfer(params.tokenState, sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, state = sp.TBool).layout(("cToken", "state")), params.comptroller, entrypoint='setMintPaused').open_some()) # @parameter%setMintPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) NIL operation; # list operation : @parameter%setMintPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DUP 2; # @parameter%setMintPaused : list operation : @parameter%setMintPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CAR; # address : list operation : @parameter%setMintPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CONTRACT %setMintPaused (pair (address %cToken) (bool %state)); # option (contract (pair (address %cToken) (bool %state))) : list operation : @parameter%setMintPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF_NONE { - PUSH int 325; # int : list operation : @parameter%setMintPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + PUSH int 340; # int : list operation : @parameter%setMintPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED } {}; # @some : list operation : @parameter%setMintPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) @@ -459,10 +525,11 @@ code { IF_LEFT { + # == setPricePeriodRelevance == + # sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') # @parameter%setPricePeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DUP 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setPricePeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CAR; # address : @parameter%setPricePeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) SENDER; # @sender : address : @parameter%setPricePeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - RENAME; # address : address : @parameter%setPricePeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) COMPARE; # int : @parameter%setPricePeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) EQ; # bool : @parameter%setPricePeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF @@ -471,6 +538,7 @@ code PUSH string "GOV_NOT_ADMIN"; # string : @parameter%setPricePeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED }; # @parameter%setPricePeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + # sp.transfer(params.blockNumber, sp.tez(0), sp.contract(sp.TNat, params.comptroller, entrypoint='setPricePeriodRelevance').open_some()) # @parameter%setPricePeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) NIL operation; # list operation : @parameter%setPricePeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DUP 2; # @parameter%setPricePeriodRelevance : list operation : @parameter%setPricePeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CDR; # address : list operation : @parameter%setPricePeriodRelevance : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) @@ -488,10 +556,11 @@ code CONS; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) } { + # == setReserveFactor == + # sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') # @parameter%setReserveFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DUP 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setReserveFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CAR; # address : @parameter%setReserveFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) SENDER; # @sender : address : @parameter%setReserveFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - RENAME; # address : address : @parameter%setReserveFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) COMPARE; # int : @parameter%setReserveFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) EQ; # bool : @parameter%setReserveFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF @@ -500,6 +569,7 @@ code PUSH string "GOV_NOT_ADMIN"; # string : @parameter%setReserveFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED }; # @parameter%setReserveFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + # sp.transfer(params.newReserveFactor, sp.tez(0), sp.contract(sp.TNat, params.cToken, entrypoint='setReserveFactor').open_some()) # @parameter%setReserveFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) NIL operation; # list operation : @parameter%setReserveFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DUP 2; # @parameter%setReserveFactor : list operation : @parameter%setReserveFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CAR; # address : list operation : @parameter%setReserveFactor : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) @@ -524,10 +594,11 @@ code { IF_LEFT { + # == setTransferPaused == + # sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') # @parameter%setTransferPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DUP 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%setTransferPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CAR; # address : @parameter%setTransferPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) SENDER; # @sender : address : @parameter%setTransferPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - RENAME; # address : address : @parameter%setTransferPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) COMPARE; # int : @parameter%setTransferPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) EQ; # bool : @parameter%setTransferPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF @@ -536,13 +607,14 @@ code PUSH string "GOV_NOT_ADMIN"; # string : @parameter%setTransferPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED }; # @parameter%setTransferPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + # sp.transfer(params.state, sp.tez(0), sp.contract(sp.TBool, params.comptroller, entrypoint='setTransferPaused').open_some()) # @parameter%setTransferPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) NIL operation; # list operation : @parameter%setTransferPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DUP 2; # @parameter%setTransferPaused : list operation : @parameter%setTransferPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CAR; # address : list operation : @parameter%setTransferPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CONTRACT %setTransferPaused bool; # option (contract bool) : list operation : @parameter%setTransferPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF_NONE { - PUSH int 359; # int : list operation : @parameter%setTransferPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + PUSH int 374; # int : list operation : @parameter%setTransferPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED } {}; # @some : list operation : @parameter%setTransferPaused : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) @@ -555,10 +627,11 @@ code { IF_LEFT { + # == supportMarket == + # sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') # @parameter%supportMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DUP 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%supportMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CAR; # address : @parameter%supportMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) SENDER; # @sender : address : @parameter%supportMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - RENAME; # address : address : @parameter%supportMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) COMPARE; # int : @parameter%supportMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) EQ; # bool : @parameter%supportMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF @@ -567,6 +640,7 @@ code PUSH string "GOV_NOT_ADMIN"; # string : @parameter%supportMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED }; # @parameter%supportMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + # sp.transfer(params.market, sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, name = sp.TString, priceExp = sp.TNat).layout(("cToken", ("name", "priceExp"))), params.comptroller, entrypoint='supportMarket').open_some()) # @parameter%supportMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) NIL operation; # list operation : @parameter%supportMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DUP 2; # @parameter%supportMarket : list operation : @parameter%supportMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CAR; # address : list operation : @parameter%supportMarket : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) @@ -584,6 +658,8 @@ code CONS; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) } { + # == sweepFA12 == + # sp.transfer(sp.record(from_ = sp.self_address, to_ = self.data.administrator, value = params.amount), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), params.tokenAddress, entrypoint='transfer').open_some()) # @parameter%sweepFA12 : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) NIL operation; # list operation : @parameter%sweepFA12 : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DUP 2; # @parameter%sweepFA12 : list operation : @parameter%sweepFA12 : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CDR; # address : list operation : @parameter%sweepFA12 : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) @@ -600,8 +676,7 @@ code DUP 5; # pair (address %administrator) (option %pendingAdministrator address) : nat : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CAR; # address : nat : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) SELF_ADDRESS; # @self : address : nat : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - RENAME; # address : address : nat : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - PAIR 3; # pair address (pair address nat) : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + PAIR 3; # pair @self (pair address nat) : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) TRANSFER_TOKENS; # operation : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CONS; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) }; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) @@ -610,6 +685,8 @@ code { IF_LEFT { + # == sweepFA2 == + # sp.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(amount = params.amount, to_ = self.data.administrator, token_id = params.id)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), params.tokenAddress, entrypoint='transfer').open_some()) # @parameter%sweepFA2 : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) NIL operation; # list operation : @parameter%sweepFA2 : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DUP 2; # @parameter%sweepFA2 : list operation : @parameter%sweepFA2 : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) GET 4; # address : list operation : @parameter%sweepFA2 : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) @@ -633,8 +710,7 @@ code PAIR 3; # pair address (pair nat nat) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) SELF_ADDRESS; # @self : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - RENAME; # address : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - PAIR; # pair address (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + PAIR; # pair @self (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) TRANSFER_TOKENS; # operation : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CONS; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) @@ -642,8 +718,11 @@ code { IF_LEFT { + # == sweepMutez == + # if params: # @parameter%sweepMutez : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF { + # sp.send(self.data.administrator, sp.balance) # pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) NIL operation; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DUP 2; # pair (address %administrator) (option %pendingAdministrator address) : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CAR; # address : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) @@ -655,12 +734,12 @@ code } {}; # @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) BALANCE; # @balance : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - RENAME; # mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - UNIT; # unit : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + UNIT; # unit : @balance : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) TRANSFER_TOKENS; # operation : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CONS; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) } { + # sp.send(self.data.administrator, sp.balance) # pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) NIL operation; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DUP 2; # pair (address %administrator) (option %pendingAdministrator address) : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CAR; # address : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) @@ -672,17 +751,17 @@ code } {}; # @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) BALANCE; # @balance : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - RENAME; # mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - UNIT; # unit : mutez : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + UNIT; # unit : @balance : @some : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) TRANSFER_TOKENS; # operation : list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CONS; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) }; # list operation : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) } { + # == updateMetadata == + # sp.verify(sp.sender == self.data.administrator, 'GOV_NOT_ADMIN') # @parameter%updateMetadata : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DUP 2; # pair (address %administrator) (option %pendingAdministrator address) : @parameter%updateMetadata : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CAR; # address : @parameter%updateMetadata : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) SENDER; # @sender : address : @parameter%updateMetadata : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) - RENAME; # address : address : @parameter%updateMetadata : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) COMPARE; # int : @parameter%updateMetadata : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) EQ; # bool : @parameter%updateMetadata : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) IF @@ -691,6 +770,7 @@ code PUSH string "GOV_NOT_ADMIN"; # string : @parameter%updateMetadata : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) FAILWITH; # FAILED }; # @parameter%updateMetadata : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) + # sp.transfer(sp.record(key = params.key, value = params.value), sp.tez(0), sp.contract(sp.TRecord(key = sp.TString, value = sp.TBytes).layout(("key", "value")), params.cToken, entrypoint='updateMetadata').open_some()) # @parameter%updateMetadata : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) NIL operation; # list operation : @parameter%updateMetadata : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) DUP 2; # @parameter%updateMetadata : list operation : @parameter%updateMetadata : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) CAR; # address : list operation : @parameter%updateMetadata : pair (address %administrator) (option %pendingAdministrator address) : big_map nat (lambda (pair (or (or unit unit) (or address (pair address (pair address int)))) (pair address (option address))) (pair (list operation) (pair address (option address)))) diff --git a/compiled_contracts/Governance/step_000_cont_0_sizes.csv b/compiled_contracts/Governance/step_000_cont_0_sizes.csv index 3f79a316..fe6c3f24 100644 --- a/compiled_contracts/Governance/step_000_cont_0_sizes.csv +++ b/compiled_contracts/Governance/step_000_cont_0_sizes.csv @@ -1,2 +1,2 @@ -storage,652 -contract,4801 \ No newline at end of file +storage,646 +contract,4954 \ No newline at end of file diff --git a/compiled_contracts/Governance/step_000_cont_0_storage.json b/compiled_contracts/Governance/step_000_cont_0_storage.json index 7360014d..3f5334b6 100644 --- a/compiled_contracts/Governance/step_000_cont_0_storage.json +++ b/compiled_contracts/Governance/step_000_cont_0_storage.json @@ -20,7 +20,6 @@ { "prim": "CDR" }, { "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "GOV_NOT_SET_PENDING_ADMIN" } ] }, { "prim": "FAILWITH" } ], [] ] }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "GOV_NOT_PENDING_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -69,7 +68,6 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "GOV_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, @@ -96,7 +94,6 @@ { "prim": "DUP", "args": [ { "int": "2" } ] }, { "prim": "CAR" }, { "prim": "SENDER" }, - { "prim": "RENAME" }, { "prim": "COMPARE" }, { "prim": "EQ" }, { "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "GOV_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] }, diff --git a/compiled_contracts/Governance/step_000_cont_0_storage.tz b/compiled_contracts/Governance/step_000_cont_0_storage.tz index 32b9c292..43470547 100644 --- a/compiled_contracts/Governance/step_000_cont_0_storage.tz +++ b/compiled_contracts/Governance/step_000_cont_0_storage.tz @@ -1 +1 @@ -(Pair (Pair "tz1RESHvJAfmQCXCAD3ubNmVtac788pnN1oL" None) {Elt 0 { UNPAIR; IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; DUP; CDR; IF_NONE { PUSH string "GOV_NOT_SET_PENDING_ADMIN"; FAILWITH } {}; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "GOV_NOT_PENDING_ADMIN"; FAILWITH }; DUP; CDR; IF_NONE { PUSH int 45; FAILWITH } {}; UPDATE 1; NONE address; UPDATE 2; NIL operation; PAIR }; Elt 1 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { DROP } } { PUSH int -1; FAILWITH }; NIL operation; PAIR }; Elt 2 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } }; DUP 2; CAR; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "GOV_NOT_ADMIN"; FAILWITH }; SOME; UPDATE 2; NIL operation; PAIR }; Elt 3 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} }; DUP 2; CAR; SENDER; RENAME; COMPARE; EQ; IF {} { PUSH string "GOV_NOT_ADMIN"; FAILWITH }; NIL operation; DUP 2; CAR; CONTRACT %setPriceOracleAndTimeDiff (pair (address %priceOracle) (int %timeDiff)); IF_NONE { PUSH int 220; FAILWITH } {}; PUSH mutez 0; DIG 3; DUP; GET 4; SWAP; GET 3; PAIR; TRANSFER_TOKENS; CONS; PAIR }}) \ No newline at end of file +(Pair (Pair "tz1RESHvJAfmQCXCAD3ubNmVtac788pnN1oL" None) {Elt 0 { UNPAIR; IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; DUP; CDR; IF_NONE { PUSH string "GOV_NOT_SET_PENDING_ADMIN"; FAILWITH } {}; SENDER; COMPARE; EQ; IF {} { PUSH string "GOV_NOT_PENDING_ADMIN"; FAILWITH }; DUP; CDR; IF_NONE { PUSH int 45; FAILWITH } {}; UPDATE 1; NONE address; UPDATE 2; NIL operation; PAIR }; Elt 1 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { DROP } } { PUSH int -1; FAILWITH }; NIL operation; PAIR }; Elt 2 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } }; DUP 2; CAR; SENDER; COMPARE; EQ; IF {} { PUSH string "GOV_NOT_ADMIN"; FAILWITH }; SOME; UPDATE 2; NIL operation; PAIR }; Elt 3 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} }; DUP 2; CAR; SENDER; COMPARE; EQ; IF {} { PUSH string "GOV_NOT_ADMIN"; FAILWITH }; NIL operation; DUP 2; CAR; CONTRACT %setPriceOracleAndTimeDiff (pair (address %priceOracle) (int %timeDiff)); IF_NONE { PUSH int 220; FAILWITH } {}; PUSH mutez 0; DIG 3; DUP; GET 4; SWAP; GET 3; PAIR; TRANSFER_TOKENS; CONS; PAIR }}) \ No newline at end of file diff --git a/compiled_contracts/Governance/step_000_cont_0_types.py b/compiled_contracts/Governance/step_000_cont_0_types.py index c4ac9124..676c332f 100644 --- a/compiled_contracts/Governance/step_000_cont_0_types.py +++ b/compiled_contracts/Governance/step_000_cont_0_types.py @@ -1,6 +1,6 @@ import smartpy as sp tstorage = sp.TRecord(administrator = sp.TAddress, pendingAdministrator = sp.TOption(sp.TAddress)).layout(("administrator", "pendingAdministrator")) -tparameter = sp.TVariant(acceptContractGovernance = sp.TAddress, acceptGovernance = sp.TUnit, disableMarket = sp.TRecord(cToken = sp.TAddress, comptroller = sp.TAddress).layout(("cToken", "comptroller")), receive = sp.TUnit, reduceReserves = sp.TRecord(amount = sp.TNat, cToken = sp.TAddress).layout(("amount", "cToken")), setAccrualIntPeriodRelevance = sp.TRecord(blockNumber = sp.TNat, cToken = sp.TAddress).layout(("blockNumber", "cToken")), setBorrowPaused = sp.TRecord(comptroller = sp.TAddress, tokenState = sp.TRecord(cToken = sp.TAddress, state = sp.TBool).layout(("cToken", "state"))).layout(("comptroller", "tokenState")), setCloseFactor = sp.TRecord(closeFactor = sp.TNat, comptroller = sp.TAddress).layout(("closeFactor", "comptroller")), setCollateralFactor = sp.TRecord(collateralFactor = sp.TRecord(cToken = sp.TAddress, newCollateralFactor = sp.TNat).layout(("cToken", "newCollateralFactor")), comptroller = sp.TAddress).layout(("collateralFactor", "comptroller")), setComptroller = sp.TRecord(cToken = sp.TAddress, comptroller = sp.TAddress).layout(("cToken", "comptroller")), setContractGovernance = sp.TRecord(contractAddress = sp.TAddress, governance = sp.TAddress).layout(("contractAddress", "governance")), setInterestRateModel = sp.TRecord(cToken = sp.TAddress, interestRateModel = sp.TAddress).layout(("cToken", "interestRateModel")), setLiquidationIncentive = sp.TRecord(comptroller = sp.TAddress, liquidationIncentive = sp.TNat).layout(("comptroller", "liquidationIncentive")), setLiquidityPeriodRelevance = sp.TRecord(blockNumber = sp.TNat, comptroller = sp.TAddress).layout(("blockNumber", "comptroller")), setMintPaused = sp.TRecord(comptroller = sp.TAddress, tokenState = sp.TRecord(cToken = sp.TAddress, state = sp.TBool).layout(("cToken", "state"))).layout(("comptroller", "tokenState")), setPendingGovernance = sp.TAddress, setPriceOracleAndTimeDiff = sp.TRecord(comptroller = sp.TAddress, priceOracle = sp.TAddress, timeDiff = sp.TInt).layout(("comptroller", ("priceOracle", "timeDiff"))), setPricePeriodRelevance = sp.TRecord(blockNumber = sp.TNat, comptroller = sp.TAddress).layout(("blockNumber", "comptroller")), setReserveFactor = sp.TRecord(cToken = sp.TAddress, newReserveFactor = sp.TNat).layout(("cToken", "newReserveFactor")), setTransferPaused = sp.TRecord(comptroller = sp.TAddress, state = sp.TBool).layout(("comptroller", "state")), supportMarket = sp.TRecord(comptroller = sp.TAddress, market = sp.TRecord(cToken = sp.TAddress, name = sp.TString, priceExp = sp.TNat).layout(("cToken", ("name", "priceExp")))).layout(("comptroller", "market")), sweepFA12 = sp.TRecord(amount = sp.TNat, tokenAddress = sp.TAddress).layout(("amount", "tokenAddress")), sweepFA2 = sp.TRecord(amount = sp.TNat, id = sp.TNat, tokenAddress = sp.TAddress).layout(("amount", ("id", "tokenAddress"))), sweepMutez = sp.TBool, updateMetadata = sp.TRecord(cToken = sp.TAddress, key = sp.TString, value = sp.TBytes).layout(("cToken", ("key", "value")))).layout((((("acceptContractGovernance", ("acceptGovernance", "disableMarket")), ("receive", ("reduceReserves", "setAccrualIntPeriodRelevance"))), (("setBorrowPaused", ("setCloseFactor", "setCollateralFactor")), ("setComptroller", ("setContractGovernance", "setInterestRateModel")))), ((("setLiquidationIncentive", ("setLiquidityPeriodRelevance", "setMintPaused")), ("setPendingGovernance", ("setPriceOracleAndTimeDiff", "setPricePeriodRelevance"))), (("setReserveFactor", ("setTransferPaused", "supportMarket")), (("sweepFA12", "sweepFA2"), ("sweepMutez", "updateMetadata")))))) +tparameter = sp.TVariant(acceptContractGovernance = sp.TAddress, acceptGovernance = sp.TUnit, disableMarket = sp.TRecord(cToken = sp.TAddress, comptroller = sp.TAddress).layout(("cToken", "comptroller")), receive = sp.TUnit, reduceReserves = sp.TRecord(amount = sp.TNat, cToken = sp.TAddress).layout(("amount", "cToken")), setAccrualIntPeriodRelevance = sp.TRecord(blockNumber = sp.TNat, cToken = sp.TAddress).layout(("blockNumber", "cToken")), setBorrowPaused = sp.TRecord(comptroller = sp.TAddress, tokenState = sp.TRecord(cToken = sp.TAddress, state = sp.TBool).layout(("cToken", "state"))).layout(("comptroller", "tokenState")), setCloseFactor = sp.TRecord(closeFactor = sp.TNat, comptroller = sp.TAddress).layout(("closeFactor", "comptroller")), setCollateralFactor = sp.TRecord(collateralFactor = sp.TRecord(cToken = sp.TAddress, newCollateralFactor = sp.TNat).layout(("cToken", "newCollateralFactor")), comptroller = sp.TAddress).layout(("collateralFactor", "comptroller")), setComptroller = sp.TRecord(cToken = sp.TAddress, comptroller = sp.TAddress).layout(("cToken", "comptroller")), setContractGovernance = sp.TRecord(contractAddress = sp.TAddress, governance = sp.TAddress).layout(("contractAddress", "governance")), setInterestRateModel = sp.TRecord(cToken = sp.TAddress, interestRateModel = sp.TAddress).layout(("cToken", "interestRateModel")), setLiquidationIncentive = sp.TRecord(comptroller = sp.TAddress, liquidationIncentive = sp.TNat).layout(("comptroller", "liquidationIncentive")), setLiquidityPeriodRelevance = sp.TRecord(blockNumber = sp.TNat, comptroller = sp.TAddress).layout(("blockNumber", "comptroller")), setMaxAssetsPerUser = sp.TRecord(comptroller = sp.TAddress, maxAssets = sp.TNat).layout(("comptroller", "maxAssets")), setMintPaused = sp.TRecord(comptroller = sp.TAddress, tokenState = sp.TRecord(cToken = sp.TAddress, state = sp.TBool).layout(("cToken", "state"))).layout(("comptroller", "tokenState")), setPendingGovernance = sp.TAddress, setPriceOracleAndTimeDiff = sp.TRecord(comptroller = sp.TAddress, priceOracle = sp.TAddress, timeDiff = sp.TInt).layout(("comptroller", ("priceOracle", "timeDiff"))), setPricePeriodRelevance = sp.TRecord(blockNumber = sp.TNat, comptroller = sp.TAddress).layout(("blockNumber", "comptroller")), setReserveFactor = sp.TRecord(cToken = sp.TAddress, newReserveFactor = sp.TNat).layout(("cToken", "newReserveFactor")), setTransferPaused = sp.TRecord(comptroller = sp.TAddress, state = sp.TBool).layout(("comptroller", "state")), supportMarket = sp.TRecord(comptroller = sp.TAddress, market = sp.TRecord(cToken = sp.TAddress, name = sp.TString, priceExp = sp.TNat).layout(("cToken", ("name", "priceExp")))).layout(("comptroller", "market")), sweepFA12 = sp.TRecord(amount = sp.TNat, tokenAddress = sp.TAddress).layout(("amount", "tokenAddress")), sweepFA2 = sp.TRecord(amount = sp.TNat, id = sp.TNat, tokenAddress = sp.TAddress).layout(("amount", ("id", "tokenAddress"))), sweepMutez = sp.TBool, updateMetadata = sp.TRecord(cToken = sp.TAddress, key = sp.TString, value = sp.TBytes).layout(("cToken", ("key", "value")))).layout((((("acceptContractGovernance", ("acceptGovernance", "disableMarket")), ("receive", ("reduceReserves", "setAccrualIntPeriodRelevance"))), (("setBorrowPaused", ("setCloseFactor", "setCollateralFactor")), (("setComptroller", "setContractGovernance"), ("setInterestRateModel", "setLiquidationIncentive")))), ((("setLiquidityPeriodRelevance", ("setMaxAssetsPerUser", "setMintPaused")), ("setPendingGovernance", ("setPriceOracleAndTimeDiff", "setPricePeriodRelevance"))), (("setReserveFactor", ("setTransferPaused", "supportMarket")), (("sweepFA12", "sweepFA2"), ("sweepMutez", "updateMetadata")))))) tprivates = { } tviews = { } diff --git a/compiled_contracts/scenario.json b/compiled_contracts/scenario.json index e718ddfd..f31ab7a0 100644 --- a/compiled_contracts/scenario.json +++ b/compiled_contracts/scenario.json @@ -6,7 +6,7 @@ { "action": "newContract", "accept_unknown_types": false, - "export": "(template_id (None static_id 0) \nstorage ((Some (\"contracts/utils/Exponential.py\" 21)) record (account_liquidity ((Some (\"contracts/Comptroller.py\" 61)) type_annotation ((Some (\"contracts/Comptroller.py\" 61)) big_map ) (big_map \"address\" (record ((liquidity \"int\") (updateLevel \"nat\") (valid \"bool\")) Variable (Some (\"contracts/Comptroller.py\" 34)))))) (activeOperations ((Some (\"contracts/Comptroller.py\" 65)) type_annotation ((Some (\"contracts/Comptroller.py\" 65)) set ) (set \"nat\"))) (administrator ((Some (\"./deploy/compile_targets/CompileComptroller.py\" 10)) literal (address \"KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2\"))) (closeFactorMantissa ((Some (\"./deploy/compile_targets/CompileComptroller.py\" 12)) literal (nat 500000000000000000))) (collaterals ((Some (\"contracts/Comptroller.py\" 55)) type_annotation ((Some (\"contracts/Comptroller.py\" 55)) big_map ) (big_map \"address\" (set \"address\")))) (expScale ((Some (\"contracts/utils/Exponential.py\" 21)) literal (nat 1000000000000000000))) (halfExpScale ((Some (\"contracts/utils/Exponential.py\" 21)) literal (nat 500000000000000000))) (liquidationIncentiveMantissa ((Some (\"./deploy/compile_targets/CompileComptroller.py\" 13)) literal (nat 1050000000000000000))) (loans ((Some (\"contracts/Comptroller.py\" 58)) type_annotation ((Some (\"contracts/Comptroller.py\" 58)) big_map ) (big_map \"address\" (set \"address\")))) (marketNameToAddress ((Some (\"contracts/Comptroller.py\" 52)) type_annotation ((Some (\"contracts/Comptroller.py\" 52)) map ) (map \"string\" \"address\"))) (markets ((Some (\"contracts/Comptroller.py\" 50)) type_annotation ((Some (\"contracts/Comptroller.py\" 50)) big_map ) (big_map \"address\" (record ((borrowPaused \"bool\") (collateralFactor (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) (isListed \"bool\") (mintPaused \"bool\") (name \"string\") (price (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) (priceExp \"nat\") (priceTimestamp \"timestamp\") (updateLevel \"nat\")) Variable (Some (\"contracts/Comptroller.py\" 20)))))) (maxPriceTimeDifference ((Some (\"contracts/Comptroller.py\" 68)) literal (int 86400))) (oracleAddress ((Some (\"./deploy/compile_targets/CompileComptroller.py\" 11)) literal (address \"KT1LDtNKDnpziwSrmSfx3xCbs7nBMg7VFp4m\"))) (pendingAdministrator (None variant \"None\" (None literal (unit)))) (transferPaused ((Some (\"contracts/Comptroller.py\" 53)) literal (bool True))))\nstorage_type (())\nentrypoints ((acceptGovernance True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 560)) (((Some (\"contracts/Comptroller.py\" 561)) verify ((Some (\"contracts/Comptroller.py\" 561)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 561)) MUL ((Some (\"contracts/Comptroller.py\" 561)) type_annotation ((Some (\"contracts/Comptroller.py\" 561)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 561)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 561)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 563)) set_type (None parameter) \"unit\") ((Some (\"contracts/Comptroller.py\" 564)) verify ((Some (\"contracts/Comptroller.py\" 564)) eq (None sender) ((Some (\"contracts/Comptroller.py\" 564)) open_variant ((Some (\"contracts/Comptroller.py\" 564)) attr ((Some (\"contracts/Comptroller.py\" 564)) storage) \"pendingAdministrator\") \"Some\" ((Some (\"contracts/Comptroller.py\" 564)) literal (string \"CMPT_NOT_SET_PENDING_ADMIN\")))) ((Some (\"contracts/Comptroller.py\" 564)) literal (string \"CMPT_NOT_PENDING_ADMIN\"))) ((Some (\"contracts/Comptroller.py\" 566)) set ((Some (\"contracts/Comptroller.py\" 566)) attr ((Some (\"contracts/Comptroller.py\" 566)) storage) \"administrator\") ((Some (\"contracts/Comptroller.py\" 566)) open_variant ((Some (\"contracts/Comptroller.py\" 566)) attr ((Some (\"contracts/Comptroller.py\" 566)) storage) \"pendingAdministrator\") \"Some\" \"None\")) ((Some (\"contracts/Comptroller.py\" 567)) set ((Some (\"contracts/Comptroller.py\" 567)) attr ((Some (\"contracts/Comptroller.py\" 567)) storage) \"pendingAdministrator\") (None variant \"None\" (None literal (unit)))))) (borrowAllowed True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 207)) (((Some (\"contracts/Comptroller.py\" 208)) verify ((Some (\"contracts/Comptroller.py\" 208)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 208)) MUL ((Some (\"contracts/Comptroller.py\" 208)) type_annotation ((Some (\"contracts/Comptroller.py\" 208)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 208)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 208)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 210)) set_type (None parameter) (record ((borrowAmount \"nat\") (borrower \"address\") (cToken \"address\")) (Value ((\"cToken\") ((\"borrower\") (\"borrowAmount\")))) (Some (\"contracts/interfaces/ComptrollerInterface.py\" 9)))) ((Some (\"contracts/Comptroller.py\" 211)) verify ((Some (\"contracts/Comptroller.py\" 212)) not ((Some (\"contracts/Comptroller.py\" 212)) attr ((Some (\"contracts/Comptroller.py\" 212)) get_item ((Some (\"contracts/Comptroller.py\" 212)) attr ((Some (\"contracts/Comptroller.py\" 212)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 212)) attr (None parameter) \"cToken\")) \"borrowPaused\")) ((Some (\"contracts/Comptroller.py\" 211)) literal (string \"CMPT_BORROW_PAUSED\"))) ((Some (\"contracts/Comptroller.py\" 741)) verify ((Some (\"contracts/Comptroller.py\" 741)) and ((Some (\"contracts/Comptroller.py\" 741)) contains ((Some (\"contracts/Comptroller.py\" 741)) attr ((Some (\"contracts/Comptroller.py\" 741)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 212)) attr (None parameter) \"cToken\")) ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) get_item ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 212)) attr (None parameter) \"cToken\")) \"isListed\")) ((Some (\"contracts/Comptroller.py\" 741)) literal (string \"CMPT_MARKET_NOT_LISTED\"))) ((Some (\"contracts/Comptroller.py\" 214)) if_block ((Some (\"contracts/Comptroller.py\" 214)) not ((Some (\"contracts/Comptroller.py\" 214)) contains ((Some (\"contracts/Comptroller.py\" 214)) attr ((Some (\"contracts/Comptroller.py\" 214)) storage) \"loans\") ((Some (\"contracts/Comptroller.py\" 214)) attr (None parameter) \"borrower\"))) (((Some (\"contracts/Comptroller.py\" 216)) verify ((Some (\"contracts/Comptroller.py\" 216)) eq (None sender) ((Some (\"contracts/Comptroller.py\" 212)) attr (None parameter) \"cToken\")) ((Some (\"contracts/Comptroller.py\" 216)) literal (string \"CMPT_INVALID_BORROW_SENDER\"))) ((Some (\"contracts/Comptroller.py\" 741)) verify ((Some (\"contracts/Comptroller.py\" 741)) and ((Some (\"contracts/Comptroller.py\" 741)) contains ((Some (\"contracts/Comptroller.py\" 741)) attr ((Some (\"contracts/Comptroller.py\" 741)) storage) \"markets\") (None sender)) ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) get_item ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) storage) \"markets\") (None sender)) \"isListed\")) ((Some (\"contracts/Comptroller.py\" 741)) literal (string \"CMPT_MARKET_NOT_LISTED\"))) ((Some (\"contracts/Comptroller.py\" 229)) if_block ((Some (\"contracts/Comptroller.py\" 229)) contains ((Some (\"contracts/Comptroller.py\" 229)) attr ((Some (\"contracts/Comptroller.py\" 229)) storage) \"loans\") ((Some (\"contracts/Comptroller.py\" 214)) attr (None parameter) \"borrower\")) (((Some (\"contracts/Comptroller.py\" 230)) update_set ((Some (\"contracts/Comptroller.py\" 230)) get_item ((Some (\"contracts/Comptroller.py\" 230)) attr ((Some (\"contracts/Comptroller.py\" 230)) storage) \"loans\") ((Some (\"contracts/Comptroller.py\" 214)) attr (None parameter) \"borrower\")) (None sender) True))) (else_block (((Some (\"contracts/Comptroller.py\" 232)) set ((Some (\"contracts/Comptroller.py\" 232)) get_item ((Some (\"contracts/Comptroller.py\" 232)) attr ((Some (\"contracts/Comptroller.py\" 232)) storage) \"loans\") ((Some (\"contracts/Comptroller.py\" 214)) attr (None parameter) \"borrower\")) ((Some (\"contracts/Comptroller.py\" 232)) set (None sender))))))) ((Some (\"contracts/Comptroller.py\" 755)) verify ((Some (\"contracts/Comptroller.py\" 755)) contains ((Some (\"contracts/Comptroller.py\" 755)) attr ((Some (\"contracts/Comptroller.py\" 755)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 214)) attr (None parameter) \"borrower\")) ((Some (\"contracts/Comptroller.py\" 755)) literal (string \"CMPT_LIQUIDITY_ABSENT\"))) ((Some (\"contracts/Comptroller.py\" 757)) verify ((Some (\"contracts/Comptroller.py\" 758)) attr ((Some (\"contracts/Comptroller.py\" 758)) get_item ((Some (\"contracts/Comptroller.py\" 758)) attr ((Some (\"contracts/Comptroller.py\" 758)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 214)) attr (None parameter) \"borrower\")) \"valid\") ((Some (\"contracts/Comptroller.py\" 757)) literal (string \"CMPT_LIQUIDITY_INVALID\"))) ((Some (\"contracts/utils/Exponential.py\" 193)) set_type (None level) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/Comptroller.py\" 760)) attr ((Some (\"contracts/Comptroller.py\" 760)) get_item ((Some (\"contracts/Comptroller.py\" 760)) attr ((Some (\"contracts/Comptroller.py\" 760)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 214)) attr (None parameter) \"borrower\")) \"updateLevel\") \"nat\") ((Some (\"contracts/Comptroller.py\" 759)) define_local \"compute_Comptroller_759\" ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub (None level) ((Some (\"contracts/Comptroller.py\" 760)) attr ((Some (\"contracts/Comptroller.py\" 760)) get_item ((Some (\"contracts/Comptroller.py\" 760)) attr ((Some (\"contracts/Comptroller.py\" 760)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 214)) attr (None parameter) \"borrower\")) \"updateLevel\"))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) True) ((Some (\"contracts/Comptroller.py\" 761)) verify ((Some (\"contracts/Comptroller.py\" 761)) eq ((Some (\"contracts/Comptroller.py\" 759)) var \"compute_Comptroller_759\") ((Some (\"contracts/Comptroller.py\" 761)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 761)) literal (string \"CMPT_LIQUIDITY_OLD\"))) ((Some (\"contracts/Comptroller.py\" 306)) verify ((Some (\"contracts/Comptroller.py\" 306)) eq (None level) ((Some (\"contracts/Comptroller.py\" 306)) attr ((Some (\"contracts/Comptroller.py\" 306)) get_item ((Some (\"contracts/Comptroller.py\" 306)) attr ((Some (\"contracts/Comptroller.py\" 306)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 212)) attr (None parameter) \"cToken\")) \"updateLevel\")) ((Some (\"contracts/Comptroller.py\" 306)) literal (string \"CMPT_UPDATE_PRICE\"))) ((Some (\"contracts/Comptroller.py\" 225)) verify ((Some (\"contracts/Comptroller.py\" 225)) gt ((Some (\"contracts/Comptroller.py\" 225)) attr ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) get_item ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 212)) attr (None parameter) \"cToken\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 225)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 225)) literal (string \"CMPT_INVALID_PRICE\"))) ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) get_item ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 212)) attr (None parameter) \"cToken\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) get_item ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 212)) attr (None parameter) \"cToken\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 220)) attr (None parameter) \"borrowAmount\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) get_item ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 212)) attr (None parameter) \"cToken\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 220)) attr (None parameter) \"borrowAmount\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) get_item ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 212)) attr (None parameter) \"cToken\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 220)) attr (None parameter) \"borrowAmount\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 190)) define_local \"compute_Comptroller_190\" ((Some (\"contracts/Comptroller.py\" 190)) sub ((Some (\"contracts/Comptroller.py\" 190)) attr ((Some (\"contracts/Comptroller.py\" 190)) get_item ((Some (\"contracts/Comptroller.py\" 190)) attr ((Some (\"contracts/Comptroller.py\" 190)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 214)) attr (None parameter) \"borrower\")) \"liquidity\") ((Some (\"contracts/Comptroller.py\" 190)) to_int ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) get_item ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 212)) attr (None parameter) \"cToken\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 220)) attr (None parameter) \"borrowAmount\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))) True) ((Some (\"contracts/Comptroller.py\" 192)) verify ((Some (\"contracts/Comptroller.py\" 192)) ge ((Some (\"contracts/Comptroller.py\" 190)) var \"compute_Comptroller_190\") ((Some (\"contracts/Comptroller.py\" 192)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 192)) literal (string \"CMPT_REDEEMER_SHORTFALL\"))) ((Some (\"contracts/Comptroller.py\" 764)) if_block ((Some (\"contracts/Comptroller.py\" 764)) contains ((Some (\"contracts/Comptroller.py\" 764)) attr ((Some (\"contracts/Comptroller.py\" 764)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 214)) attr (None parameter) \"borrower\")) (((Some (\"contracts/Comptroller.py\" 765)) set ((Some (\"contracts/Comptroller.py\" 765)) attr ((Some (\"contracts/Comptroller.py\" 765)) get_item ((Some (\"contracts/Comptroller.py\" 765)) attr ((Some (\"contracts/Comptroller.py\" 765)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 214)) attr (None parameter) \"borrower\")) \"valid\") ((Some (\"contracts/Comptroller.py\" 765)) literal (bool False))))))) (disableMarket True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 727)) (((Some (\"contracts/Comptroller.py\" 728)) verify ((Some (\"contracts/Comptroller.py\" 728)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 728)) MUL ((Some (\"contracts/Comptroller.py\" 728)) type_annotation ((Some (\"contracts/Comptroller.py\" 728)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 728)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 728)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 730)) set_type (None parameter) \"address\") ((Some (\"contracts/Comptroller.py\" 749)) verify ((Some (\"contracts/Comptroller.py\" 749)) eq (None sender) ((Some (\"contracts/Comptroller.py\" 749)) attr ((Some (\"contracts/Comptroller.py\" 749)) storage) \"administrator\")) ((Some (\"contracts/Comptroller.py\" 749)) literal (string \"CMPT_NOT_ADMIN\"))) ((Some (\"contracts/Comptroller.py\" 741)) verify ((Some (\"contracts/Comptroller.py\" 741)) and ((Some (\"contracts/Comptroller.py\" 741)) contains ((Some (\"contracts/Comptroller.py\" 741)) attr ((Some (\"contracts/Comptroller.py\" 741)) storage) \"markets\") (None parameter)) ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) get_item ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) storage) \"markets\") (None parameter)) \"isListed\")) ((Some (\"contracts/Comptroller.py\" 741)) literal (string \"CMPT_MARKET_NOT_LISTED\"))) ((Some (\"contracts/Comptroller.py\" 733)) set ((Some (\"contracts/Comptroller.py\" 733)) attr ((Some (\"contracts/Comptroller.py\" 733)) get_item ((Some (\"contracts/Comptroller.py\" 733)) attr ((Some (\"contracts/Comptroller.py\" 733)) storage) \"markets\") (None parameter)) \"isListed\") ((Some (\"contracts/Comptroller.py\" 733)) literal (bool False))))) (enterMarkets True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 78)) (((Some (\"contracts/Comptroller.py\" 79)) verify ((Some (\"contracts/Comptroller.py\" 79)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 79)) MUL ((Some (\"contracts/Comptroller.py\" 79)) type_annotation ((Some (\"contracts/Comptroller.py\" 79)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 79)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 79)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 81)) set_type (None parameter) (list \"address\")) ((Some (\"contracts/Comptroller.py\" 82)) for_group \"token\" (None parameter) (((Some (\"contracts/Comptroller.py\" 741)) verify ((Some (\"contracts/Comptroller.py\" 741)) and ((Some (\"contracts/Comptroller.py\" 741)) contains ((Some (\"contracts/Comptroller.py\" 741)) attr ((Some (\"contracts/Comptroller.py\" 741)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 82)) var \"token\")) ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) get_item ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 82)) var \"token\")) \"isListed\")) ((Some (\"contracts/Comptroller.py\" 741)) literal (string \"CMPT_MARKET_NOT_LISTED\"))) ((Some (\"contracts/Comptroller.py\" 88)) if_block ((Some (\"contracts/Comptroller.py\" 88)) contains ((Some (\"contracts/Comptroller.py\" 88)) attr ((Some (\"contracts/Comptroller.py\" 88)) storage) \"collaterals\") (None sender)) (((Some (\"contracts/Comptroller.py\" 89)) update_set ((Some (\"contracts/Comptroller.py\" 89)) get_item ((Some (\"contracts/Comptroller.py\" 89)) attr ((Some (\"contracts/Comptroller.py\" 89)) storage) \"collaterals\") (None sender)) ((Some (\"contracts/Comptroller.py\" 82)) var \"token\") True))) (else_block (((Some (\"contracts/Comptroller.py\" 91)) set ((Some (\"contracts/Comptroller.py\" 91)) get_item ((Some (\"contracts/Comptroller.py\" 91)) attr ((Some (\"contracts/Comptroller.py\" 91)) storage) \"collaterals\") (None sender)) ((Some (\"contracts/Comptroller.py\" 91)) set ((Some (\"contracts/Comptroller.py\" 82)) var \"token\"))))))) ((Some (\"contracts/Comptroller.py\" 764)) if_block ((Some (\"contracts/Comptroller.py\" 764)) contains ((Some (\"contracts/Comptroller.py\" 764)) attr ((Some (\"contracts/Comptroller.py\" 764)) storage) \"account_liquidity\") (None sender)) (((Some (\"contracts/Comptroller.py\" 765)) set ((Some (\"contracts/Comptroller.py\" 765)) attr ((Some (\"contracts/Comptroller.py\" 765)) get_item ((Some (\"contracts/Comptroller.py\" 765)) attr ((Some (\"contracts/Comptroller.py\" 765)) storage) \"account_liquidity\") (None sender)) \"valid\") ((Some (\"contracts/Comptroller.py\" 765)) literal (bool False))))))) (exitMarket True None None None True None (Some (\"contracts/Comptroller.py\" 106)) (((Some (\"contracts/Comptroller.py\" 107)) verify ((Some (\"contracts/Comptroller.py\" 107)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 107)) MUL ((Some (\"contracts/Comptroller.py\" 107)) type_annotation ((Some (\"contracts/Comptroller.py\" 107)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 107)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 107)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 109)) set_type (None parameter) \"address\") ((Some (\"contracts/utils/OperationProtector.py\" 46)) update_set ((Some (\"contracts/utils/OperationProtector.py\" 46)) attr ((Some (\"contracts/utils/OperationProtector.py\" 46)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 28)) literal (nat 1)) True) ((Some (\"contracts/Comptroller.py\" 114)) set ((Some (\"contracts/Comptroller.py\" 114)) operations) ((Some (\"contracts/Comptroller.py\" 114)) cons ((Some (\"contracts/Comptroller.py\" 114)) transfer ((Some (\"contracts/Comptroller.py\" 114)) tuple (None sender) ((Some (\"contracts/Comptroller.py\" 114)) self \"setAccountSnapAndExitMarket\")) ((Some (\"contracts/Comptroller.py\" 115)) literal (mutez 0)) ((Some (\"contracts/Comptroller.py\" 113)) open_variant ((Some (\"contracts/Comptroller.py\" 112)) contract \"getAccountSnapshot\" (tuple \"address\" (contract (record ((account \"address\") (borrowBalance \"nat\") (cTokenBalance \"nat\") (exchangeRateMantissa \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 21))))) (None parameter)) \"Some\" \"None\")) ((Some (\"contracts/Comptroller.py\" 114)) operations))))) (hardResetOp True (Some True) None None True None (Some (\"contracts/utils/OperationProtector.py\" 56)) (((Some (\"contracts/utils/OperationProtector.py\" 57)) set_type (None parameter) \"unit\") ((Some (\"contracts/Comptroller.py\" 749)) verify ((Some (\"contracts/Comptroller.py\" 749)) eq (None sender) ((Some (\"contracts/Comptroller.py\" 749)) attr ((Some (\"contracts/Comptroller.py\" 749)) storage) \"administrator\")) ((Some (\"contracts/Comptroller.py\" 749)) literal (string \"CMPT_NOT_ADMIN\"))) ((Some (\"contracts/utils/OperationProtector.py\" 59)) set ((Some (\"contracts/utils/OperationProtector.py\" 59)) attr ((Some (\"contracts/utils/OperationProtector.py\" 59)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 59)) set )))) (liquidateBorrowAllowed True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 429)) (((Some (\"contracts/Comptroller.py\" 430)) verify ((Some (\"contracts/Comptroller.py\" 430)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 430)) MUL ((Some (\"contracts/Comptroller.py\" 430)) type_annotation ((Some (\"contracts/Comptroller.py\" 430)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 430)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 430)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 432)) set_type (None parameter) (record ((borrower \"address\") (cTokenBorrowed \"address\") (cTokenCollateral \"address\") (liquidator \"address\") (repayAmount \"nat\")) Variable (Some (\"contracts/interfaces/ComptrollerInterface.py\" 28)))) ((Some (\"contracts/Comptroller.py\" 741)) verify ((Some (\"contracts/Comptroller.py\" 741)) and ((Some (\"contracts/Comptroller.py\" 741)) contains ((Some (\"contracts/Comptroller.py\" 741)) attr ((Some (\"contracts/Comptroller.py\" 741)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 434)) attr (None parameter) \"cTokenBorrowed\")) ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) get_item ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 434)) attr (None parameter) \"cTokenBorrowed\")) \"isListed\")) ((Some (\"contracts/Comptroller.py\" 741)) literal (string \"CMPT_MARKET_NOT_LISTED\"))) ((Some (\"contracts/Comptroller.py\" 741)) verify ((Some (\"contracts/Comptroller.py\" 741)) and ((Some (\"contracts/Comptroller.py\" 741)) contains ((Some (\"contracts/Comptroller.py\" 741)) attr ((Some (\"contracts/Comptroller.py\" 741)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 435)) attr (None parameter) \"cTokenCollateral\")) ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) get_item ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 435)) attr (None parameter) \"cTokenCollateral\")) \"isListed\")) ((Some (\"contracts/Comptroller.py\" 741)) literal (string \"CMPT_MARKET_NOT_LISTED\"))) ((Some (\"contracts/Comptroller.py\" 486)) define_local \"calculation\" ((Some (\"contracts/Comptroller.py\" 486)) record (sumBorrowPlusEffects ((Some (\"contracts/Comptroller.py\" 487)) literal (nat 0))) (sumCollateral ((Some (\"contracts/Comptroller.py\" 487)) literal (nat 0)))) True) ((Some (\"contracts/Comptroller.py\" 488)) define_local \"temp\" ((Some (\"contracts/Comptroller.py\" 488)) record (sumBorrowPlusEffects ((Some (\"contracts/Comptroller.py\" 489)) literal (nat 0))) (sumCollateral ((Some (\"contracts/Comptroller.py\" 488)) literal (nat 0)))) True) ((Some (\"contracts/Comptroller.py\" 490)) if_block ((Some (\"contracts/Comptroller.py\" 490)) contains ((Some (\"contracts/Comptroller.py\" 490)) attr ((Some (\"contracts/Comptroller.py\" 490)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 438)) attr (None parameter) \"borrower\")) (((Some (\"contracts/Comptroller.py\" 491)) for_group \"asset\" ((Some (\"contracts/Comptroller.py\" 491)) elements ((Some (\"contracts/Comptroller.py\" 491)) get_item ((Some (\"contracts/Comptroller.py\" 491)) attr ((Some (\"contracts/Comptroller.py\" 491)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 438)) attr (None parameter) \"borrower\"))) (((Some (\"contracts/Comptroller.py\" 520)) verify ((Some (\"contracts/Comptroller.py\" 520)) is_variant ((Some (\"contracts/Comptroller.py\" 519)) open_variant ((Some (\"contracts/Comptroller.py\" 518)) view \"getAccountSnapshotView\" ((Some (\"contracts/Comptroller.py\" 438)) attr (None parameter) \"borrower\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\") (option (record ((account \"address\") (borrowBalance \"nat\") (cTokenBalance \"nat\") (exchangeRateMantissa \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 21))))) \"Some\" ((Some (\"contracts/Comptroller.py\" 519)) literal (string \"INVALID ACCOUNT SNAPSHOT VIEW\"))) \"Some\") ((Some (\"contracts/Comptroller.py\" 520)) literal (string \"CMPT_OUTDATED_ACCOUNT_SNAPHOT\"))) ((Some (\"contracts/Comptroller.py\" 521)) define_local \"params\" ((Some (\"contracts/Comptroller.py\" 521)) open_variant ((Some (\"contracts/Comptroller.py\" 519)) open_variant ((Some (\"contracts/Comptroller.py\" 518)) view \"getAccountSnapshotView\" ((Some (\"contracts/Comptroller.py\" 438)) attr (None parameter) \"borrower\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\") (option (record ((account \"address\") (borrowBalance \"nat\") (cTokenBalance \"nat\") (exchangeRateMantissa \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 21))))) \"Some\" ((Some (\"contracts/Comptroller.py\" 519)) literal (string \"INVALID ACCOUNT SNAPSHOT VIEW\"))) \"Some\" \"None\") True) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/Comptroller.py\" 522)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"params\") \"exchangeRateMantissa\") \"nat\") ((Some (\"contracts/Comptroller.py\" 522)) define_local \"compute_Comptroller_522\" ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/Comptroller.py\" 522)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"params\") \"exchangeRateMantissa\"))) True) ((Some (\"contracts/Comptroller.py\" 306)) verify ((Some (\"contracts/Comptroller.py\" 306)) eq (None level) ((Some (\"contracts/Comptroller.py\" 306)) attr ((Some (\"contracts/Comptroller.py\" 306)) get_item ((Some (\"contracts/Comptroller.py\" 306)) attr ((Some (\"contracts/Comptroller.py\" 306)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"updateLevel\")) ((Some (\"contracts/Comptroller.py\" 306)) literal (string \"CMPT_UPDATE_PRICE\"))) ((Some (\"contracts/Comptroller.py\" 225)) verify ((Some (\"contracts/Comptroller.py\" 225)) gt ((Some (\"contracts/Comptroller.py\" 225)) attr ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) get_item ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 225)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 225)) literal (string \"CMPT_INVALID_PRICE\"))) ((Some (\"contracts/utils/Exponential.py\" 205)) set_type ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 206)) set_type ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"collateralFactor\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 205)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 206)) set_type ((Some (\"contracts/Comptroller.py\" 522)) var \"compute_Comptroller_522\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"compute_Comptroller_522\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/Comptroller.py\" 526)) define_local \"compute_Comptroller_526\" ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"compute_Comptroller_522\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")))) True) ((Some (\"contracts/Comptroller.py\" 527)) define_local \"calc\" ((Some (\"contracts/Comptroller.py\" 527)) record (sumBorrowPlusEffects ((Some (\"contracts/Comptroller.py\" 528)) literal (nat 0))) (sumCollateral ((Some (\"contracts/Comptroller.py\" 527)) literal (nat 0)))) True) ((Some (\"contracts/Comptroller.py\" 530)) if_block ((Some (\"contracts/Comptroller.py\" 530)) and ((Some (\"contracts/Comptroller.py\" 530)) contains ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) var \"params\") \"account\")) ((Some (\"contracts/Comptroller.py\" 530)) contains ((Some (\"contracts/Comptroller.py\" 530)) get_item ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) var \"params\") \"account\")) ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\"))) (((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 531)) set ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 531)) add ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumCollateral\") ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))))) ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 533)) set ((Some (\"contracts/Comptroller.py\" 533)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 533)) add ((Some (\"contracts/Comptroller.py\" 533)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumBorrowPlusEffects\") ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))) ((Some (\"contracts/Comptroller.py\" 496)) set ((Some (\"contracts/Comptroller.py\" 496)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 496)) add ((Some (\"contracts/Comptroller.py\" 496)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumCollateral\"))) ((Some (\"contracts/Comptroller.py\" 497)) set ((Some (\"contracts/Comptroller.py\" 497)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 497)) add ((Some (\"contracts/Comptroller.py\" 497)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 533)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumBorrowPlusEffects\"))))))) ((Some (\"contracts/Comptroller.py\" 498)) if_block ((Some (\"contracts/Comptroller.py\" 498)) contains ((Some (\"contracts/Comptroller.py\" 498)) attr ((Some (\"contracts/Comptroller.py\" 498)) storage) \"loans\") ((Some (\"contracts/Comptroller.py\" 438)) attr (None parameter) \"borrower\")) (((Some (\"contracts/Comptroller.py\" 499)) for_group \"asset\" ((Some (\"contracts/Comptroller.py\" 499)) elements ((Some (\"contracts/Comptroller.py\" 499)) get_item ((Some (\"contracts/Comptroller.py\" 499)) attr ((Some (\"contracts/Comptroller.py\" 499)) storage) \"loans\") ((Some (\"contracts/Comptroller.py\" 438)) attr (None parameter) \"borrower\"))) (((Some (\"contracts/Comptroller.py\" 501)) if_block ((Some (\"contracts/Comptroller.py\" 501)) contains ((Some (\"contracts/Comptroller.py\" 501)) attr ((Some (\"contracts/Comptroller.py\" 501)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 438)) attr (None parameter) \"borrower\")) (((Some (\"contracts/Comptroller.py\" 502)) if_block ((Some (\"contracts/Comptroller.py\" 502)) not ((Some (\"contracts/Comptroller.py\" 502)) contains ((Some (\"contracts/Comptroller.py\" 502)) get_item ((Some (\"contracts/Comptroller.py\" 502)) attr ((Some (\"contracts/Comptroller.py\" 502)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 438)) attr (None parameter) \"borrower\")) ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\"))) (((Some (\"contracts/Comptroller.py\" 520)) verify ((Some (\"contracts/Comptroller.py\" 520)) is_variant ((Some (\"contracts/Comptroller.py\" 519)) open_variant ((Some (\"contracts/Comptroller.py\" 518)) view \"getAccountSnapshotView\" ((Some (\"contracts/Comptroller.py\" 438)) attr (None parameter) \"borrower\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\") (option (record ((account \"address\") (borrowBalance \"nat\") (cTokenBalance \"nat\") (exchangeRateMantissa \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 21))))) \"Some\" ((Some (\"contracts/Comptroller.py\" 519)) literal (string \"INVALID ACCOUNT SNAPSHOT VIEW\"))) \"Some\") ((Some (\"contracts/Comptroller.py\" 520)) literal (string \"CMPT_OUTDATED_ACCOUNT_SNAPHOT\"))) ((Some (\"contracts/Comptroller.py\" 521)) define_local \"params\" ((Some (\"contracts/Comptroller.py\" 521)) open_variant ((Some (\"contracts/Comptroller.py\" 519)) open_variant ((Some (\"contracts/Comptroller.py\" 518)) view \"getAccountSnapshotView\" ((Some (\"contracts/Comptroller.py\" 438)) attr (None parameter) \"borrower\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\") (option (record ((account \"address\") (borrowBalance \"nat\") (cTokenBalance \"nat\") (exchangeRateMantissa \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 21))))) \"Some\" ((Some (\"contracts/Comptroller.py\" 519)) literal (string \"INVALID ACCOUNT SNAPSHOT VIEW\"))) \"Some\" \"None\") True) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/Comptroller.py\" 522)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"params\") \"exchangeRateMantissa\") \"nat\") ((Some (\"contracts/Comptroller.py\" 522)) define_local \"compute_Comptroller_522\" ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/Comptroller.py\" 522)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"params\") \"exchangeRateMantissa\"))) True) ((Some (\"contracts/Comptroller.py\" 306)) verify ((Some (\"contracts/Comptroller.py\" 306)) eq (None level) ((Some (\"contracts/Comptroller.py\" 306)) attr ((Some (\"contracts/Comptroller.py\" 306)) get_item ((Some (\"contracts/Comptroller.py\" 306)) attr ((Some (\"contracts/Comptroller.py\" 306)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"updateLevel\")) ((Some (\"contracts/Comptroller.py\" 306)) literal (string \"CMPT_UPDATE_PRICE\"))) ((Some (\"contracts/Comptroller.py\" 225)) verify ((Some (\"contracts/Comptroller.py\" 225)) gt ((Some (\"contracts/Comptroller.py\" 225)) attr ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) get_item ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 225)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 225)) literal (string \"CMPT_INVALID_PRICE\"))) ((Some (\"contracts/utils/Exponential.py\" 205)) set_type ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 206)) set_type ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"collateralFactor\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 205)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 206)) set_type ((Some (\"contracts/Comptroller.py\" 522)) var \"compute_Comptroller_522\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"compute_Comptroller_522\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/Comptroller.py\" 526)) define_local \"compute_Comptroller_526\" ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"compute_Comptroller_522\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")))) True) ((Some (\"contracts/Comptroller.py\" 527)) define_local \"calc\" ((Some (\"contracts/Comptroller.py\" 527)) record (sumBorrowPlusEffects ((Some (\"contracts/Comptroller.py\" 528)) literal (nat 0))) (sumCollateral ((Some (\"contracts/Comptroller.py\" 527)) literal (nat 0)))) True) ((Some (\"contracts/Comptroller.py\" 530)) if_block ((Some (\"contracts/Comptroller.py\" 530)) and ((Some (\"contracts/Comptroller.py\" 530)) contains ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) var \"params\") \"account\")) ((Some (\"contracts/Comptroller.py\" 530)) contains ((Some (\"contracts/Comptroller.py\" 530)) get_item ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) var \"params\") \"account\")) ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\"))) (((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 531)) set ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 531)) add ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumCollateral\") ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))))) ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 533)) set ((Some (\"contracts/Comptroller.py\" 533)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 533)) add ((Some (\"contracts/Comptroller.py\" 533)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumBorrowPlusEffects\") ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))) ((Some (\"contracts/Comptroller.py\" 507)) set ((Some (\"contracts/Comptroller.py\" 496)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 507)) add ((Some (\"contracts/Comptroller.py\" 496)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumCollateral\"))) ((Some (\"contracts/Comptroller.py\" 508)) set ((Some (\"contracts/Comptroller.py\" 497)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 508)) add ((Some (\"contracts/Comptroller.py\" 497)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 533)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumBorrowPlusEffects\"))))))) (else_block (((Some (\"contracts/Comptroller.py\" 520)) verify ((Some (\"contracts/Comptroller.py\" 520)) is_variant ((Some (\"contracts/Comptroller.py\" 519)) open_variant ((Some (\"contracts/Comptroller.py\" 518)) view \"getAccountSnapshotView\" ((Some (\"contracts/Comptroller.py\" 438)) attr (None parameter) \"borrower\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\") (option (record ((account \"address\") (borrowBalance \"nat\") (cTokenBalance \"nat\") (exchangeRateMantissa \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 21))))) \"Some\" ((Some (\"contracts/Comptroller.py\" 519)) literal (string \"INVALID ACCOUNT SNAPSHOT VIEW\"))) \"Some\") ((Some (\"contracts/Comptroller.py\" 520)) literal (string \"CMPT_OUTDATED_ACCOUNT_SNAPHOT\"))) ((Some (\"contracts/Comptroller.py\" 521)) define_local \"params\" ((Some (\"contracts/Comptroller.py\" 521)) open_variant ((Some (\"contracts/Comptroller.py\" 519)) open_variant ((Some (\"contracts/Comptroller.py\" 518)) view \"getAccountSnapshotView\" ((Some (\"contracts/Comptroller.py\" 438)) attr (None parameter) \"borrower\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\") (option (record ((account \"address\") (borrowBalance \"nat\") (cTokenBalance \"nat\") (exchangeRateMantissa \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 21))))) \"Some\" ((Some (\"contracts/Comptroller.py\" 519)) literal (string \"INVALID ACCOUNT SNAPSHOT VIEW\"))) \"Some\" \"None\") True) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/Comptroller.py\" 522)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"params\") \"exchangeRateMantissa\") \"nat\") ((Some (\"contracts/Comptroller.py\" 522)) define_local \"compute_Comptroller_522\" ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/Comptroller.py\" 522)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"params\") \"exchangeRateMantissa\"))) True) ((Some (\"contracts/Comptroller.py\" 306)) verify ((Some (\"contracts/Comptroller.py\" 306)) eq (None level) ((Some (\"contracts/Comptroller.py\" 306)) attr ((Some (\"contracts/Comptroller.py\" 306)) get_item ((Some (\"contracts/Comptroller.py\" 306)) attr ((Some (\"contracts/Comptroller.py\" 306)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"updateLevel\")) ((Some (\"contracts/Comptroller.py\" 306)) literal (string \"CMPT_UPDATE_PRICE\"))) ((Some (\"contracts/Comptroller.py\" 225)) verify ((Some (\"contracts/Comptroller.py\" 225)) gt ((Some (\"contracts/Comptroller.py\" 225)) attr ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) get_item ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 225)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 225)) literal (string \"CMPT_INVALID_PRICE\"))) ((Some (\"contracts/utils/Exponential.py\" 205)) set_type ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 206)) set_type ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"collateralFactor\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 205)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 206)) set_type ((Some (\"contracts/Comptroller.py\" 522)) var \"compute_Comptroller_522\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"compute_Comptroller_522\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/Comptroller.py\" 526)) define_local \"compute_Comptroller_526\" ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"compute_Comptroller_522\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")))) True) ((Some (\"contracts/Comptroller.py\" 527)) define_local \"calc\" ((Some (\"contracts/Comptroller.py\" 527)) record (sumBorrowPlusEffects ((Some (\"contracts/Comptroller.py\" 528)) literal (nat 0))) (sumCollateral ((Some (\"contracts/Comptroller.py\" 527)) literal (nat 0)))) True) ((Some (\"contracts/Comptroller.py\" 530)) if_block ((Some (\"contracts/Comptroller.py\" 530)) and ((Some (\"contracts/Comptroller.py\" 530)) contains ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) var \"params\") \"account\")) ((Some (\"contracts/Comptroller.py\" 530)) contains ((Some (\"contracts/Comptroller.py\" 530)) get_item ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) var \"params\") \"account\")) ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\"))) (((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 531)) set ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 531)) add ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumCollateral\") ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))))) ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 533)) set ((Some (\"contracts/Comptroller.py\" 533)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 533)) add ((Some (\"contracts/Comptroller.py\" 533)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumBorrowPlusEffects\") ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))) ((Some (\"contracts/Comptroller.py\" 512)) set ((Some (\"contracts/Comptroller.py\" 496)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 512)) add ((Some (\"contracts/Comptroller.py\" 496)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumCollateral\"))) ((Some (\"contracts/Comptroller.py\" 513)) set ((Some (\"contracts/Comptroller.py\" 497)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 513)) add ((Some (\"contracts/Comptroller.py\" 497)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 533)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumBorrowPlusEffects\"))))))))) ((Some (\"contracts/Comptroller.py\" 378)) define_local \"calcLiquidity\" ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") True) ((Some (\"contracts/Comptroller.py\" 380)) define_local \"compute_Comptroller_380\" ((Some (\"contracts/Comptroller.py\" 381)) sub ((Some (\"contracts/Comptroller.py\" 381)) attr ((Some (\"contracts/Comptroller.py\" 379)) var \"calcLiquidity\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 381)) attr ((Some (\"contracts/Comptroller.py\" 379)) var \"calcLiquidity\") \"sumBorrowPlusEffects\")) True) ((Some (\"contracts/Comptroller.py\" 437)) define_local \"liquidtiy\" ((Some (\"contracts/Comptroller.py\" 380)) var \"compute_Comptroller_380\") True) ((Some (\"contracts/Comptroller.py\" 440)) verify ((Some (\"contracts/Comptroller.py\" 440)) lt ((Some (\"contracts/Comptroller.py\" 440)) var \"liquidtiy\") ((Some (\"contracts/Comptroller.py\" 440)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 440)) literal (string \"CMPT_INSUFFICIENT_SHORTFALL\"))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/Comptroller.py\" 446)) attr ((Some (\"contracts/Comptroller.py\" 446)) storage) \"closeFactorMantissa\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/Comptroller.py\" 446)) attr ((Some (\"contracts/Comptroller.py\" 446)) storage) \"closeFactorMantissa\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/Comptroller.py\" 446)) attr ((Some (\"contracts/Comptroller.py\" 446)) storage) \"closeFactorMantissa\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 442)) first ((Some (\"contracts/Comptroller.py\" 443)) open_variant ((Some (\"contracts/Comptroller.py\" 442)) view \"borrowBalanceStoredView\" ((Some (\"contracts/Comptroller.py\" 438)) attr (None parameter) \"borrower\") ((Some (\"contracts/Comptroller.py\" 434)) attr (None parameter) \"cTokenBorrowed\") (tuple \"nat\" \"nat\")) \"Some\" ((Some (\"contracts/Comptroller.py\" 443)) literal (string \"INVALID ACCOUNT BORROW BALANCE VIEW\")))) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/Comptroller.py\" 446)) attr ((Some (\"contracts/Comptroller.py\" 446)) storage) \"closeFactorMantissa\") ((Some (\"contracts/Comptroller.py\" 442)) first ((Some (\"contracts/Comptroller.py\" 443)) open_variant ((Some (\"contracts/Comptroller.py\" 442)) view \"borrowBalanceStoredView\" ((Some (\"contracts/Comptroller.py\" 438)) attr (None parameter) \"borrower\") ((Some (\"contracts/Comptroller.py\" 434)) attr (None parameter) \"cTokenBorrowed\") (tuple \"nat\" \"nat\")) \"Some\" ((Some (\"contracts/Comptroller.py\" 443)) literal (string \"INVALID ACCOUNT BORROW BALANCE VIEW\"))))) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/Comptroller.py\" 446)) attr ((Some (\"contracts/Comptroller.py\" 446)) storage) \"closeFactorMantissa\") ((Some (\"contracts/Comptroller.py\" 442)) first ((Some (\"contracts/Comptroller.py\" 443)) open_variant ((Some (\"contracts/Comptroller.py\" 442)) view \"borrowBalanceStoredView\" ((Some (\"contracts/Comptroller.py\" 438)) attr (None parameter) \"borrower\") ((Some (\"contracts/Comptroller.py\" 434)) attr (None parameter) \"cTokenBorrowed\") (tuple \"nat\" \"nat\")) \"Some\" ((Some (\"contracts/Comptroller.py\" 443)) literal (string \"INVALID ACCOUNT BORROW BALANCE VIEW\"))))))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 445)) define_local \"maxClose\" ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/Comptroller.py\" 446)) attr ((Some (\"contracts/Comptroller.py\" 446)) storage) \"closeFactorMantissa\") ((Some (\"contracts/Comptroller.py\" 442)) first ((Some (\"contracts/Comptroller.py\" 443)) open_variant ((Some (\"contracts/Comptroller.py\" 442)) view \"borrowBalanceStoredView\" ((Some (\"contracts/Comptroller.py\" 438)) attr (None parameter) \"borrower\") ((Some (\"contracts/Comptroller.py\" 434)) attr (None parameter) \"cTokenBorrowed\") (tuple \"nat\" \"nat\")) \"Some\" ((Some (\"contracts/Comptroller.py\" 443)) literal (string \"INVALID ACCOUNT BORROW BALANCE VIEW\"))))) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")) True) ((Some (\"contracts/Comptroller.py\" 448)) verify ((Some (\"contracts/Comptroller.py\" 448)) ge ((Some (\"contracts/Comptroller.py\" 448)) var \"maxClose\") ((Some (\"contracts/Comptroller.py\" 448)) attr (None parameter) \"repayAmount\")) ((Some (\"contracts/Comptroller.py\" 448)) literal (string \"CMPT_TOO_MUCH_REPAY\"))) ((Some (\"contracts/Comptroller.py\" 764)) if_block ((Some (\"contracts/Comptroller.py\" 764)) contains ((Some (\"contracts/Comptroller.py\" 764)) attr ((Some (\"contracts/Comptroller.py\" 764)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 438)) attr (None parameter) \"borrower\")) (((Some (\"contracts/Comptroller.py\" 765)) set ((Some (\"contracts/Comptroller.py\" 765)) attr ((Some (\"contracts/Comptroller.py\" 765)) get_item ((Some (\"contracts/Comptroller.py\" 765)) attr ((Some (\"contracts/Comptroller.py\" 765)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 438)) attr (None parameter) \"borrower\")) \"valid\") ((Some (\"contracts/Comptroller.py\" 765)) literal (bool False))))) ((Some (\"contracts/Comptroller.py\" 764)) if_block ((Some (\"contracts/Comptroller.py\" 764)) contains ((Some (\"contracts/Comptroller.py\" 764)) attr ((Some (\"contracts/Comptroller.py\" 764)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 451)) attr (None parameter) \"liquidator\")) (((Some (\"contracts/Comptroller.py\" 765)) set ((Some (\"contracts/Comptroller.py\" 765)) attr ((Some (\"contracts/Comptroller.py\" 765)) get_item ((Some (\"contracts/Comptroller.py\" 765)) attr ((Some (\"contracts/Comptroller.py\" 765)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 451)) attr (None parameter) \"liquidator\")) \"valid\") ((Some (\"contracts/Comptroller.py\" 765)) literal (bool False))))))) (mintAllowed True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 148)) (((Some (\"contracts/Comptroller.py\" 149)) verify ((Some (\"contracts/Comptroller.py\" 149)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 149)) MUL ((Some (\"contracts/Comptroller.py\" 149)) type_annotation ((Some (\"contracts/Comptroller.py\" 149)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 149)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 149)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 151)) set_type (None parameter) (record ((cToken \"address\") (mintAmount \"nat\") (minter \"address\")) (Value ((\"cToken\") ((\"minter\") (\"mintAmount\")))) (Some (\"contracts/interfaces/ComptrollerInterface.py\" 7)))) ((Some (\"contracts/Comptroller.py\" 152)) verify ((Some (\"contracts/Comptroller.py\" 153)) not ((Some (\"contracts/Comptroller.py\" 153)) attr ((Some (\"contracts/Comptroller.py\" 153)) get_item ((Some (\"contracts/Comptroller.py\" 153)) attr ((Some (\"contracts/Comptroller.py\" 153)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 153)) attr (None parameter) \"cToken\")) \"mintPaused\")) ((Some (\"contracts/Comptroller.py\" 152)) literal (string \"CMPT_MINT_PAUSED\"))) ((Some (\"contracts/Comptroller.py\" 741)) verify ((Some (\"contracts/Comptroller.py\" 741)) and ((Some (\"contracts/Comptroller.py\" 741)) contains ((Some (\"contracts/Comptroller.py\" 741)) attr ((Some (\"contracts/Comptroller.py\" 741)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 153)) attr (None parameter) \"cToken\")) ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) get_item ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 153)) attr (None parameter) \"cToken\")) \"isListed\")) ((Some (\"contracts/Comptroller.py\" 741)) literal (string \"CMPT_MARKET_NOT_LISTED\"))) ((Some (\"contracts/Comptroller.py\" 764)) if_block ((Some (\"contracts/Comptroller.py\" 764)) contains ((Some (\"contracts/Comptroller.py\" 764)) attr ((Some (\"contracts/Comptroller.py\" 764)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 155)) attr (None parameter) \"minter\")) (((Some (\"contracts/Comptroller.py\" 765)) set ((Some (\"contracts/Comptroller.py\" 765)) attr ((Some (\"contracts/Comptroller.py\" 765)) get_item ((Some (\"contracts/Comptroller.py\" 765)) attr ((Some (\"contracts/Comptroller.py\" 765)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 155)) attr (None parameter) \"minter\")) \"valid\") ((Some (\"contracts/Comptroller.py\" 765)) literal (bool False))))))) (redeemAllowed True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 170)) (((Some (\"contracts/Comptroller.py\" 171)) verify ((Some (\"contracts/Comptroller.py\" 171)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 171)) MUL ((Some (\"contracts/Comptroller.py\" 171)) type_annotation ((Some (\"contracts/Comptroller.py\" 171)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 171)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 171)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 173)) set_type (None parameter) (record ((cToken \"address\") (redeemAmount \"nat\") (redeemer \"address\")) (Value ((\"cToken\") ((\"redeemer\") (\"redeemAmount\")))) (Some (\"contracts/interfaces/ComptrollerInterface.py\" 11)))) ((Some (\"contracts/Comptroller.py\" 741)) verify ((Some (\"contracts/Comptroller.py\" 741)) and ((Some (\"contracts/Comptroller.py\" 741)) contains ((Some (\"contracts/Comptroller.py\" 741)) attr ((Some (\"contracts/Comptroller.py\" 741)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"cToken\")) ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) get_item ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"cToken\")) \"isListed\")) ((Some (\"contracts/Comptroller.py\" 741)) literal (string \"CMPT_MARKET_NOT_LISTED\"))) ((Some (\"contracts/Comptroller.py\" 180)) if_block ((Some (\"contracts/Comptroller.py\" 180)) and ((Some (\"contracts/Comptroller.py\" 180)) contains ((Some (\"contracts/Comptroller.py\" 180)) attr ((Some (\"contracts/Comptroller.py\" 180)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"redeemer\")) ((Some (\"contracts/Comptroller.py\" 180)) contains ((Some (\"contracts/Comptroller.py\" 180)) get_item ((Some (\"contracts/Comptroller.py\" 180)) attr ((Some (\"contracts/Comptroller.py\" 180)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"redeemer\")) ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"cToken\"))) (((Some (\"contracts/Comptroller.py\" 182)) if_block ((Some (\"contracts/Comptroller.py\" 182)) and ((Some (\"contracts/Comptroller.py\" 182)) contains ((Some (\"contracts/Comptroller.py\" 182)) attr ((Some (\"contracts/Comptroller.py\" 182)) storage) \"loans\") ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"redeemer\")) ((Some (\"contracts/Comptroller.py\" 182)) neq ((Some (\"contracts/Comptroller.py\" 182)) size ((Some (\"contracts/Comptroller.py\" 182)) get_item ((Some (\"contracts/Comptroller.py\" 182)) attr ((Some (\"contracts/Comptroller.py\" 182)) storage) \"loans\") ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"redeemer\"))) ((Some (\"contracts/Comptroller.py\" 182)) literal (intOrNat 0)))) (((Some (\"contracts/Comptroller.py\" 755)) verify ((Some (\"contracts/Comptroller.py\" 755)) contains ((Some (\"contracts/Comptroller.py\" 755)) attr ((Some (\"contracts/Comptroller.py\" 755)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"redeemer\")) ((Some (\"contracts/Comptroller.py\" 755)) literal (string \"CMPT_LIQUIDITY_ABSENT\"))) ((Some (\"contracts/Comptroller.py\" 757)) verify ((Some (\"contracts/Comptroller.py\" 758)) attr ((Some (\"contracts/Comptroller.py\" 758)) get_item ((Some (\"contracts/Comptroller.py\" 758)) attr ((Some (\"contracts/Comptroller.py\" 758)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"redeemer\")) \"valid\") ((Some (\"contracts/Comptroller.py\" 757)) literal (string \"CMPT_LIQUIDITY_INVALID\"))) ((Some (\"contracts/utils/Exponential.py\" 193)) set_type (None level) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/Comptroller.py\" 760)) attr ((Some (\"contracts/Comptroller.py\" 760)) get_item ((Some (\"contracts/Comptroller.py\" 760)) attr ((Some (\"contracts/Comptroller.py\" 760)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"redeemer\")) \"updateLevel\") \"nat\") ((Some (\"contracts/Comptroller.py\" 759)) define_local \"compute_Comptroller_759\" ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub (None level) ((Some (\"contracts/Comptroller.py\" 760)) attr ((Some (\"contracts/Comptroller.py\" 760)) get_item ((Some (\"contracts/Comptroller.py\" 760)) attr ((Some (\"contracts/Comptroller.py\" 760)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"redeemer\")) \"updateLevel\"))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) True) ((Some (\"contracts/Comptroller.py\" 761)) verify ((Some (\"contracts/Comptroller.py\" 761)) eq ((Some (\"contracts/Comptroller.py\" 759)) var \"compute_Comptroller_759\") ((Some (\"contracts/Comptroller.py\" 761)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 761)) literal (string \"CMPT_LIQUIDITY_OLD\"))) ((Some (\"contracts/Comptroller.py\" 306)) verify ((Some (\"contracts/Comptroller.py\" 306)) eq (None level) ((Some (\"contracts/Comptroller.py\" 306)) attr ((Some (\"contracts/Comptroller.py\" 306)) get_item ((Some (\"contracts/Comptroller.py\" 306)) attr ((Some (\"contracts/Comptroller.py\" 306)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"cToken\")) \"updateLevel\")) ((Some (\"contracts/Comptroller.py\" 306)) literal (string \"CMPT_UPDATE_PRICE\"))) ((Some (\"contracts/Comptroller.py\" 225)) verify ((Some (\"contracts/Comptroller.py\" 225)) gt ((Some (\"contracts/Comptroller.py\" 225)) attr ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) get_item ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"cToken\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 225)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 225)) literal (string \"CMPT_INVALID_PRICE\"))) ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) get_item ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"cToken\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) get_item ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"cToken\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"redeemAmount\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) get_item ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"cToken\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"redeemAmount\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) get_item ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"cToken\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"redeemAmount\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 190)) define_local \"compute_Comptroller_190\" ((Some (\"contracts/Comptroller.py\" 190)) sub ((Some (\"contracts/Comptroller.py\" 190)) attr ((Some (\"contracts/Comptroller.py\" 190)) get_item ((Some (\"contracts/Comptroller.py\" 190)) attr ((Some (\"contracts/Comptroller.py\" 190)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"redeemer\")) \"liquidity\") ((Some (\"contracts/Comptroller.py\" 190)) to_int ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) get_item ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"cToken\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"redeemAmount\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))) True) ((Some (\"contracts/Comptroller.py\" 192)) verify ((Some (\"contracts/Comptroller.py\" 192)) ge ((Some (\"contracts/Comptroller.py\" 190)) var \"compute_Comptroller_190\") ((Some (\"contracts/Comptroller.py\" 192)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 192)) literal (string \"CMPT_REDEEMER_SHORTFALL\"))))))) ((Some (\"contracts/Comptroller.py\" 764)) if_block ((Some (\"contracts/Comptroller.py\" 764)) contains ((Some (\"contracts/Comptroller.py\" 764)) attr ((Some (\"contracts/Comptroller.py\" 764)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"redeemer\")) (((Some (\"contracts/Comptroller.py\" 765)) set ((Some (\"contracts/Comptroller.py\" 765)) attr ((Some (\"contracts/Comptroller.py\" 765)) get_item ((Some (\"contracts/Comptroller.py\" 765)) attr ((Some (\"contracts/Comptroller.py\" 765)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 175)) attr (None parameter) \"redeemer\")) \"valid\") ((Some (\"contracts/Comptroller.py\" 765)) literal (bool False))))))) (removeFromLoans True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 235)) (((Some (\"contracts/Comptroller.py\" 236)) verify ((Some (\"contracts/Comptroller.py\" 236)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 236)) MUL ((Some (\"contracts/Comptroller.py\" 236)) type_annotation ((Some (\"contracts/Comptroller.py\" 236)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 236)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 236)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 741)) verify ((Some (\"contracts/Comptroller.py\" 741)) and ((Some (\"contracts/Comptroller.py\" 741)) contains ((Some (\"contracts/Comptroller.py\" 741)) attr ((Some (\"contracts/Comptroller.py\" 741)) storage) \"markets\") (None sender)) ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) get_item ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) storage) \"markets\") (None sender)) \"isListed\")) ((Some (\"contracts/Comptroller.py\" 741)) literal (string \"CMPT_MARKET_NOT_LISTED\"))) ((Some (\"contracts/Comptroller.py\" 239)) if_block ((Some (\"contracts/Comptroller.py\" 239)) and ((Some (\"contracts/Comptroller.py\" 239)) contains ((Some (\"contracts/Comptroller.py\" 239)) attr ((Some (\"contracts/Comptroller.py\" 239)) storage) \"loans\") (None parameter)) ((Some (\"contracts/Comptroller.py\" 239)) contains ((Some (\"contracts/Comptroller.py\" 239)) get_item ((Some (\"contracts/Comptroller.py\" 239)) attr ((Some (\"contracts/Comptroller.py\" 239)) storage) \"loans\") (None parameter)) (None sender))) (((Some (\"contracts/Comptroller.py\" 240)) update_set ((Some (\"contracts/Comptroller.py\" 240)) get_item ((Some (\"contracts/Comptroller.py\" 240)) attr ((Some (\"contracts/Comptroller.py\" 240)) storage) \"loans\") (None parameter)) (None sender) False))))) (repayBorrowAllowed True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 252)) (((Some (\"contracts/Comptroller.py\" 253)) verify ((Some (\"contracts/Comptroller.py\" 253)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 253)) MUL ((Some (\"contracts/Comptroller.py\" 253)) type_annotation ((Some (\"contracts/Comptroller.py\" 253)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 253)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 253)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 255)) set_type (None parameter) (record ((borrower \"address\") (cToken \"address\") (payer \"address\") (repayAmount \"nat\")) (Value ((\"cToken\") ((\"payer\") ((\"borrower\") (\"repayAmount\"))))) (Some (\"contracts/interfaces/ComptrollerInterface.py\" 13)))) ((Some (\"contracts/Comptroller.py\" 741)) verify ((Some (\"contracts/Comptroller.py\" 741)) and ((Some (\"contracts/Comptroller.py\" 741)) contains ((Some (\"contracts/Comptroller.py\" 741)) attr ((Some (\"contracts/Comptroller.py\" 741)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 256)) attr (None parameter) \"cToken\")) ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) get_item ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 256)) attr (None parameter) \"cToken\")) \"isListed\")) ((Some (\"contracts/Comptroller.py\" 741)) literal (string \"CMPT_MARKET_NOT_LISTED\"))) ((Some (\"contracts/Comptroller.py\" 764)) if_block ((Some (\"contracts/Comptroller.py\" 764)) contains ((Some (\"contracts/Comptroller.py\" 764)) attr ((Some (\"contracts/Comptroller.py\" 764)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 257)) attr (None parameter) \"borrower\")) (((Some (\"contracts/Comptroller.py\" 765)) set ((Some (\"contracts/Comptroller.py\" 765)) attr ((Some (\"contracts/Comptroller.py\" 765)) get_item ((Some (\"contracts/Comptroller.py\" 765)) attr ((Some (\"contracts/Comptroller.py\" 765)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 257)) attr (None parameter) \"borrower\")) \"valid\") ((Some (\"contracts/Comptroller.py\" 765)) literal (bool False))))) ((Some (\"contracts/Comptroller.py\" 764)) if_block ((Some (\"contracts/Comptroller.py\" 764)) contains ((Some (\"contracts/Comptroller.py\" 764)) attr ((Some (\"contracts/Comptroller.py\" 764)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 258)) attr (None parameter) \"payer\")) (((Some (\"contracts/Comptroller.py\" 765)) set ((Some (\"contracts/Comptroller.py\" 765)) attr ((Some (\"contracts/Comptroller.py\" 765)) get_item ((Some (\"contracts/Comptroller.py\" 765)) attr ((Some (\"contracts/Comptroller.py\" 765)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 258)) attr (None parameter) \"payer\")) \"valid\") ((Some (\"contracts/Comptroller.py\" 765)) literal (bool False))))))) (setAccountLiquidityWithView True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 331)) (((Some (\"contracts/Comptroller.py\" 332)) verify ((Some (\"contracts/Comptroller.py\" 332)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 332)) MUL ((Some (\"contracts/Comptroller.py\" 332)) type_annotation ((Some (\"contracts/Comptroller.py\" 332)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 332)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 332)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 334)) set_type (None parameter) \"address\") ((Some (\"contracts/Comptroller.py\" 486)) define_local \"calculation\" ((Some (\"contracts/Comptroller.py\" 486)) record (sumBorrowPlusEffects ((Some (\"contracts/Comptroller.py\" 487)) literal (nat 0))) (sumCollateral ((Some (\"contracts/Comptroller.py\" 487)) literal (nat 0)))) True) ((Some (\"contracts/Comptroller.py\" 488)) define_local \"temp\" ((Some (\"contracts/Comptroller.py\" 488)) record (sumBorrowPlusEffects ((Some (\"contracts/Comptroller.py\" 489)) literal (nat 0))) (sumCollateral ((Some (\"contracts/Comptroller.py\" 488)) literal (nat 0)))) True) ((Some (\"contracts/Comptroller.py\" 490)) if_block ((Some (\"contracts/Comptroller.py\" 490)) contains ((Some (\"contracts/Comptroller.py\" 490)) attr ((Some (\"contracts/Comptroller.py\" 490)) storage) \"collaterals\") (None parameter)) (((Some (\"contracts/Comptroller.py\" 491)) for_group \"asset\" ((Some (\"contracts/Comptroller.py\" 491)) elements ((Some (\"contracts/Comptroller.py\" 491)) get_item ((Some (\"contracts/Comptroller.py\" 491)) attr ((Some (\"contracts/Comptroller.py\" 491)) storage) \"collaterals\") (None parameter))) (((Some (\"contracts/Comptroller.py\" 520)) verify ((Some (\"contracts/Comptroller.py\" 520)) is_variant ((Some (\"contracts/Comptroller.py\" 519)) open_variant ((Some (\"contracts/Comptroller.py\" 518)) view \"getAccountSnapshotView\" (None parameter) ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\") (option (record ((account \"address\") (borrowBalance \"nat\") (cTokenBalance \"nat\") (exchangeRateMantissa \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 21))))) \"Some\" ((Some (\"contracts/Comptroller.py\" 519)) literal (string \"INVALID ACCOUNT SNAPSHOT VIEW\"))) \"Some\") ((Some (\"contracts/Comptroller.py\" 520)) literal (string \"CMPT_OUTDATED_ACCOUNT_SNAPHOT\"))) ((Some (\"contracts/Comptroller.py\" 521)) define_local \"params\" ((Some (\"contracts/Comptroller.py\" 521)) open_variant ((Some (\"contracts/Comptroller.py\" 519)) open_variant ((Some (\"contracts/Comptroller.py\" 518)) view \"getAccountSnapshotView\" (None parameter) ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\") (option (record ((account \"address\") (borrowBalance \"nat\") (cTokenBalance \"nat\") (exchangeRateMantissa \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 21))))) \"Some\" ((Some (\"contracts/Comptroller.py\" 519)) literal (string \"INVALID ACCOUNT SNAPSHOT VIEW\"))) \"Some\" \"None\") True) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/Comptroller.py\" 522)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"params\") \"exchangeRateMantissa\") \"nat\") ((Some (\"contracts/Comptroller.py\" 522)) define_local \"compute_Comptroller_522\" ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/Comptroller.py\" 522)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"params\") \"exchangeRateMantissa\"))) True) ((Some (\"contracts/Comptroller.py\" 306)) verify ((Some (\"contracts/Comptroller.py\" 306)) eq (None level) ((Some (\"contracts/Comptroller.py\" 306)) attr ((Some (\"contracts/Comptroller.py\" 306)) get_item ((Some (\"contracts/Comptroller.py\" 306)) attr ((Some (\"contracts/Comptroller.py\" 306)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"updateLevel\")) ((Some (\"contracts/Comptroller.py\" 306)) literal (string \"CMPT_UPDATE_PRICE\"))) ((Some (\"contracts/Comptroller.py\" 225)) verify ((Some (\"contracts/Comptroller.py\" 225)) gt ((Some (\"contracts/Comptroller.py\" 225)) attr ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) get_item ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 225)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 225)) literal (string \"CMPT_INVALID_PRICE\"))) ((Some (\"contracts/utils/Exponential.py\" 205)) set_type ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 206)) set_type ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"collateralFactor\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 205)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 206)) set_type ((Some (\"contracts/Comptroller.py\" 522)) var \"compute_Comptroller_522\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"compute_Comptroller_522\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/Comptroller.py\" 526)) define_local \"compute_Comptroller_526\" ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"compute_Comptroller_522\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")))) True) ((Some (\"contracts/Comptroller.py\" 527)) define_local \"calc\" ((Some (\"contracts/Comptroller.py\" 527)) record (sumBorrowPlusEffects ((Some (\"contracts/Comptroller.py\" 528)) literal (nat 0))) (sumCollateral ((Some (\"contracts/Comptroller.py\" 527)) literal (nat 0)))) True) ((Some (\"contracts/Comptroller.py\" 530)) if_block ((Some (\"contracts/Comptroller.py\" 530)) and ((Some (\"contracts/Comptroller.py\" 530)) contains ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) var \"params\") \"account\")) ((Some (\"contracts/Comptroller.py\" 530)) contains ((Some (\"contracts/Comptroller.py\" 530)) get_item ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) var \"params\") \"account\")) ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\"))) (((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 531)) set ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 531)) add ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumCollateral\") ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))))) ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 533)) set ((Some (\"contracts/Comptroller.py\" 533)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 533)) add ((Some (\"contracts/Comptroller.py\" 533)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumBorrowPlusEffects\") ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 491)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))) ((Some (\"contracts/Comptroller.py\" 496)) set ((Some (\"contracts/Comptroller.py\" 496)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 496)) add ((Some (\"contracts/Comptroller.py\" 496)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumCollateral\"))) ((Some (\"contracts/Comptroller.py\" 497)) set ((Some (\"contracts/Comptroller.py\" 497)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 497)) add ((Some (\"contracts/Comptroller.py\" 497)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 533)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumBorrowPlusEffects\"))))))) ((Some (\"contracts/Comptroller.py\" 498)) if_block ((Some (\"contracts/Comptroller.py\" 498)) contains ((Some (\"contracts/Comptroller.py\" 498)) attr ((Some (\"contracts/Comptroller.py\" 498)) storage) \"loans\") (None parameter)) (((Some (\"contracts/Comptroller.py\" 499)) for_group \"asset\" ((Some (\"contracts/Comptroller.py\" 499)) elements ((Some (\"contracts/Comptroller.py\" 499)) get_item ((Some (\"contracts/Comptroller.py\" 499)) attr ((Some (\"contracts/Comptroller.py\" 499)) storage) \"loans\") (None parameter))) (((Some (\"contracts/Comptroller.py\" 501)) if_block ((Some (\"contracts/Comptroller.py\" 501)) contains ((Some (\"contracts/Comptroller.py\" 501)) attr ((Some (\"contracts/Comptroller.py\" 501)) storage) \"collaterals\") (None parameter)) (((Some (\"contracts/Comptroller.py\" 502)) if_block ((Some (\"contracts/Comptroller.py\" 502)) not ((Some (\"contracts/Comptroller.py\" 502)) contains ((Some (\"contracts/Comptroller.py\" 502)) get_item ((Some (\"contracts/Comptroller.py\" 502)) attr ((Some (\"contracts/Comptroller.py\" 502)) storage) \"collaterals\") (None parameter)) ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\"))) (((Some (\"contracts/Comptroller.py\" 520)) verify ((Some (\"contracts/Comptroller.py\" 520)) is_variant ((Some (\"contracts/Comptroller.py\" 519)) open_variant ((Some (\"contracts/Comptroller.py\" 518)) view \"getAccountSnapshotView\" (None parameter) ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\") (option (record ((account \"address\") (borrowBalance \"nat\") (cTokenBalance \"nat\") (exchangeRateMantissa \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 21))))) \"Some\" ((Some (\"contracts/Comptroller.py\" 519)) literal (string \"INVALID ACCOUNT SNAPSHOT VIEW\"))) \"Some\") ((Some (\"contracts/Comptroller.py\" 520)) literal (string \"CMPT_OUTDATED_ACCOUNT_SNAPHOT\"))) ((Some (\"contracts/Comptroller.py\" 521)) define_local \"params\" ((Some (\"contracts/Comptroller.py\" 521)) open_variant ((Some (\"contracts/Comptroller.py\" 519)) open_variant ((Some (\"contracts/Comptroller.py\" 518)) view \"getAccountSnapshotView\" (None parameter) ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\") (option (record ((account \"address\") (borrowBalance \"nat\") (cTokenBalance \"nat\") (exchangeRateMantissa \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 21))))) \"Some\" ((Some (\"contracts/Comptroller.py\" 519)) literal (string \"INVALID ACCOUNT SNAPSHOT VIEW\"))) \"Some\" \"None\") True) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/Comptroller.py\" 522)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"params\") \"exchangeRateMantissa\") \"nat\") ((Some (\"contracts/Comptroller.py\" 522)) define_local \"compute_Comptroller_522\" ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/Comptroller.py\" 522)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"params\") \"exchangeRateMantissa\"))) True) ((Some (\"contracts/Comptroller.py\" 306)) verify ((Some (\"contracts/Comptroller.py\" 306)) eq (None level) ((Some (\"contracts/Comptroller.py\" 306)) attr ((Some (\"contracts/Comptroller.py\" 306)) get_item ((Some (\"contracts/Comptroller.py\" 306)) attr ((Some (\"contracts/Comptroller.py\" 306)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"updateLevel\")) ((Some (\"contracts/Comptroller.py\" 306)) literal (string \"CMPT_UPDATE_PRICE\"))) ((Some (\"contracts/Comptroller.py\" 225)) verify ((Some (\"contracts/Comptroller.py\" 225)) gt ((Some (\"contracts/Comptroller.py\" 225)) attr ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) get_item ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 225)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 225)) literal (string \"CMPT_INVALID_PRICE\"))) ((Some (\"contracts/utils/Exponential.py\" 205)) set_type ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 206)) set_type ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"collateralFactor\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 205)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 206)) set_type ((Some (\"contracts/Comptroller.py\" 522)) var \"compute_Comptroller_522\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"compute_Comptroller_522\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/Comptroller.py\" 526)) define_local \"compute_Comptroller_526\" ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"compute_Comptroller_522\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")))) True) ((Some (\"contracts/Comptroller.py\" 527)) define_local \"calc\" ((Some (\"contracts/Comptroller.py\" 527)) record (sumBorrowPlusEffects ((Some (\"contracts/Comptroller.py\" 528)) literal (nat 0))) (sumCollateral ((Some (\"contracts/Comptroller.py\" 527)) literal (nat 0)))) True) ((Some (\"contracts/Comptroller.py\" 530)) if_block ((Some (\"contracts/Comptroller.py\" 530)) and ((Some (\"contracts/Comptroller.py\" 530)) contains ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) var \"params\") \"account\")) ((Some (\"contracts/Comptroller.py\" 530)) contains ((Some (\"contracts/Comptroller.py\" 530)) get_item ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) var \"params\") \"account\")) ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\"))) (((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 531)) set ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 531)) add ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumCollateral\") ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))))) ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 533)) set ((Some (\"contracts/Comptroller.py\" 533)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 533)) add ((Some (\"contracts/Comptroller.py\" 533)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumBorrowPlusEffects\") ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))) ((Some (\"contracts/Comptroller.py\" 507)) set ((Some (\"contracts/Comptroller.py\" 496)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 507)) add ((Some (\"contracts/Comptroller.py\" 496)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumCollateral\"))) ((Some (\"contracts/Comptroller.py\" 508)) set ((Some (\"contracts/Comptroller.py\" 497)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 508)) add ((Some (\"contracts/Comptroller.py\" 497)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 533)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumBorrowPlusEffects\"))))))) (else_block (((Some (\"contracts/Comptroller.py\" 520)) verify ((Some (\"contracts/Comptroller.py\" 520)) is_variant ((Some (\"contracts/Comptroller.py\" 519)) open_variant ((Some (\"contracts/Comptroller.py\" 518)) view \"getAccountSnapshotView\" (None parameter) ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\") (option (record ((account \"address\") (borrowBalance \"nat\") (cTokenBalance \"nat\") (exchangeRateMantissa \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 21))))) \"Some\" ((Some (\"contracts/Comptroller.py\" 519)) literal (string \"INVALID ACCOUNT SNAPSHOT VIEW\"))) \"Some\") ((Some (\"contracts/Comptroller.py\" 520)) literal (string \"CMPT_OUTDATED_ACCOUNT_SNAPHOT\"))) ((Some (\"contracts/Comptroller.py\" 521)) define_local \"params\" ((Some (\"contracts/Comptroller.py\" 521)) open_variant ((Some (\"contracts/Comptroller.py\" 519)) open_variant ((Some (\"contracts/Comptroller.py\" 518)) view \"getAccountSnapshotView\" (None parameter) ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\") (option (record ((account \"address\") (borrowBalance \"nat\") (cTokenBalance \"nat\") (exchangeRateMantissa \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 21))))) \"Some\" ((Some (\"contracts/Comptroller.py\" 519)) literal (string \"INVALID ACCOUNT SNAPSHOT VIEW\"))) \"Some\" \"None\") True) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/Comptroller.py\" 522)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"params\") \"exchangeRateMantissa\") \"nat\") ((Some (\"contracts/Comptroller.py\" 522)) define_local \"compute_Comptroller_522\" ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/Comptroller.py\" 522)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"params\") \"exchangeRateMantissa\"))) True) ((Some (\"contracts/Comptroller.py\" 306)) verify ((Some (\"contracts/Comptroller.py\" 306)) eq (None level) ((Some (\"contracts/Comptroller.py\" 306)) attr ((Some (\"contracts/Comptroller.py\" 306)) get_item ((Some (\"contracts/Comptroller.py\" 306)) attr ((Some (\"contracts/Comptroller.py\" 306)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"updateLevel\")) ((Some (\"contracts/Comptroller.py\" 306)) literal (string \"CMPT_UPDATE_PRICE\"))) ((Some (\"contracts/Comptroller.py\" 225)) verify ((Some (\"contracts/Comptroller.py\" 225)) gt ((Some (\"contracts/Comptroller.py\" 225)) attr ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) get_item ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 225)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 225)) literal (string \"CMPT_INVALID_PRICE\"))) ((Some (\"contracts/utils/Exponential.py\" 205)) set_type ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 206)) set_type ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"collateralFactor\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 205)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 206)) set_type ((Some (\"contracts/Comptroller.py\" 522)) var \"compute_Comptroller_522\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"compute_Comptroller_522\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/Comptroller.py\" 526)) define_local \"compute_Comptroller_526\" ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) get_item ((Some (\"contracts/Comptroller.py\" 525)) attr ((Some (\"contracts/Comptroller.py\" 525)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 522)) var \"compute_Comptroller_522\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")))) True) ((Some (\"contracts/Comptroller.py\" 527)) define_local \"calc\" ((Some (\"contracts/Comptroller.py\" 527)) record (sumBorrowPlusEffects ((Some (\"contracts/Comptroller.py\" 528)) literal (nat 0))) (sumCollateral ((Some (\"contracts/Comptroller.py\" 527)) literal (nat 0)))) True) ((Some (\"contracts/Comptroller.py\" 530)) if_block ((Some (\"contracts/Comptroller.py\" 530)) and ((Some (\"contracts/Comptroller.py\" 530)) contains ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) var \"params\") \"account\")) ((Some (\"contracts/Comptroller.py\" 530)) contains ((Some (\"contracts/Comptroller.py\" 530)) get_item ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 530)) attr ((Some (\"contracts/Comptroller.py\" 530)) var \"params\") \"account\")) ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\"))) (((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 531)) set ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 531)) add ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumCollateral\") ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 526)) var \"compute_Comptroller_526\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 532)) attr ((Some (\"contracts/Comptroller.py\" 532)) var \"params\") \"cTokenBalance\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))))) ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 533)) set ((Some (\"contracts/Comptroller.py\" 533)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 533)) add ((Some (\"contracts/Comptroller.py\" 533)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumBorrowPlusEffects\") ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 499)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) var \"params\") \"borrowBalance\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))) ((Some (\"contracts/Comptroller.py\" 512)) set ((Some (\"contracts/Comptroller.py\" 496)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 512)) add ((Some (\"contracts/Comptroller.py\" 496)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumCollateral\"))) ((Some (\"contracts/Comptroller.py\" 513)) set ((Some (\"contracts/Comptroller.py\" 497)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 513)) add ((Some (\"contracts/Comptroller.py\" 497)) attr ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 533)) attr ((Some (\"contracts/Comptroller.py\" 528)) var \"calc\") \"sumBorrowPlusEffects\"))))))))) ((Some (\"contracts/Comptroller.py\" 335)) define_local \"liquidity\" ((Some (\"contracts/Comptroller.py\" 487)) var \"calculation\") True) ((Some (\"contracts/utils/OperationProtector.py\" 43)) verify ((Some (\"contracts/utils/OperationProtector.py\" 43)) contains ((Some (\"contracts/utils/OperationProtector.py\" 43)) attr ((Some (\"contracts/utils/OperationProtector.py\" 43)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 31)) literal (nat 4))) ((Some (\"contracts/utils/OperationProtector.py\" 43)) literal (string \"OP_NOT_ACTIVE\"))) ((Some (\"contracts/utils/OperationProtector.py\" 49)) update_set ((Some (\"contracts/utils/OperationProtector.py\" 49)) attr ((Some (\"contracts/utils/OperationProtector.py\" 49)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 31)) literal (nat 4)) False) ((Some (\"contracts/Comptroller.py\" 338)) set ((Some (\"contracts/Comptroller.py\" 338)) get_item ((Some (\"contracts/Comptroller.py\" 338)) attr ((Some (\"contracts/Comptroller.py\" 338)) storage) \"account_liquidity\") (None parameter)) ((Some (\"contracts/Comptroller.py\" 338)) record (liquidity ((Some (\"contracts/Comptroller.py\" 339)) sub ((Some (\"contracts/Comptroller.py\" 339)) attr ((Some (\"contracts/Comptroller.py\" 336)) var \"liquidity\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 339)) attr ((Some (\"contracts/Comptroller.py\" 336)) var \"liquidity\") \"sumBorrowPlusEffects\"))) (updateLevel (None level)) (valid ((Some (\"contracts/Comptroller.py\" 338)) literal (bool True))))))) (setAccountSnapAndExitMarket True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 123)) (((Some (\"contracts/Comptroller.py\" 124)) verify ((Some (\"contracts/Comptroller.py\" 124)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 124)) MUL ((Some (\"contracts/Comptroller.py\" 124)) type_annotation ((Some (\"contracts/Comptroller.py\" 124)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 124)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 124)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 126)) set_type (None parameter) (record ((account \"address\") (borrowBalance \"nat\") (cTokenBalance \"nat\") (exchangeRateMantissa \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 21)))) ((Some (\"contracts/utils/OperationProtector.py\" 43)) verify ((Some (\"contracts/utils/OperationProtector.py\" 43)) contains ((Some (\"contracts/utils/OperationProtector.py\" 43)) attr ((Some (\"contracts/utils/OperationProtector.py\" 43)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 28)) literal (nat 1))) ((Some (\"contracts/utils/OperationProtector.py\" 43)) literal (string \"OP_NOT_ACTIVE\"))) ((Some (\"contracts/utils/OperationProtector.py\" 49)) update_set ((Some (\"contracts/utils/OperationProtector.py\" 49)) attr ((Some (\"contracts/utils/OperationProtector.py\" 49)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 28)) literal (nat 1)) False) ((Some (\"contracts/Comptroller.py\" 128)) verify ((Some (\"contracts/Comptroller.py\" 128)) eq ((Some (\"contracts/Comptroller.py\" 128)) attr (None parameter) \"borrowBalance\") ((Some (\"contracts/Comptroller.py\" 129)) literal (nat 0))) ((Some (\"contracts/Comptroller.py\" 128)) literal (string \"CMPT_BORROW_IN_MARKET\"))) ((Some (\"contracts/Comptroller.py\" 741)) verify ((Some (\"contracts/Comptroller.py\" 741)) and ((Some (\"contracts/Comptroller.py\" 741)) contains ((Some (\"contracts/Comptroller.py\" 741)) attr ((Some (\"contracts/Comptroller.py\" 741)) storage) \"markets\") (None sender)) ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) get_item ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) storage) \"markets\") (None sender)) \"isListed\")) ((Some (\"contracts/Comptroller.py\" 741)) literal (string \"CMPT_MARKET_NOT_LISTED\"))) ((Some (\"contracts/Comptroller.py\" 180)) if_block ((Some (\"contracts/Comptroller.py\" 180)) and ((Some (\"contracts/Comptroller.py\" 180)) contains ((Some (\"contracts/Comptroller.py\" 180)) attr ((Some (\"contracts/Comptroller.py\" 180)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 132)) attr (None parameter) \"account\")) ((Some (\"contracts/Comptroller.py\" 180)) contains ((Some (\"contracts/Comptroller.py\" 180)) get_item ((Some (\"contracts/Comptroller.py\" 180)) attr ((Some (\"contracts/Comptroller.py\" 180)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 132)) attr (None parameter) \"account\")) (None sender))) (((Some (\"contracts/Comptroller.py\" 182)) if_block ((Some (\"contracts/Comptroller.py\" 182)) and ((Some (\"contracts/Comptroller.py\" 182)) contains ((Some (\"contracts/Comptroller.py\" 182)) attr ((Some (\"contracts/Comptroller.py\" 182)) storage) \"loans\") ((Some (\"contracts/Comptroller.py\" 132)) attr (None parameter) \"account\")) ((Some (\"contracts/Comptroller.py\" 182)) neq ((Some (\"contracts/Comptroller.py\" 182)) size ((Some (\"contracts/Comptroller.py\" 182)) get_item ((Some (\"contracts/Comptroller.py\" 182)) attr ((Some (\"contracts/Comptroller.py\" 182)) storage) \"loans\") ((Some (\"contracts/Comptroller.py\" 132)) attr (None parameter) \"account\"))) ((Some (\"contracts/Comptroller.py\" 182)) literal (intOrNat 0)))) (((Some (\"contracts/Comptroller.py\" 755)) verify ((Some (\"contracts/Comptroller.py\" 755)) contains ((Some (\"contracts/Comptroller.py\" 755)) attr ((Some (\"contracts/Comptroller.py\" 755)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 132)) attr (None parameter) \"account\")) ((Some (\"contracts/Comptroller.py\" 755)) literal (string \"CMPT_LIQUIDITY_ABSENT\"))) ((Some (\"contracts/Comptroller.py\" 757)) verify ((Some (\"contracts/Comptroller.py\" 758)) attr ((Some (\"contracts/Comptroller.py\" 758)) get_item ((Some (\"contracts/Comptroller.py\" 758)) attr ((Some (\"contracts/Comptroller.py\" 758)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 132)) attr (None parameter) \"account\")) \"valid\") ((Some (\"contracts/Comptroller.py\" 757)) literal (string \"CMPT_LIQUIDITY_INVALID\"))) ((Some (\"contracts/utils/Exponential.py\" 193)) set_type (None level) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/Comptroller.py\" 760)) attr ((Some (\"contracts/Comptroller.py\" 760)) get_item ((Some (\"contracts/Comptroller.py\" 760)) attr ((Some (\"contracts/Comptroller.py\" 760)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 132)) attr (None parameter) \"account\")) \"updateLevel\") \"nat\") ((Some (\"contracts/Comptroller.py\" 759)) define_local \"compute_Comptroller_759\" ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub (None level) ((Some (\"contracts/Comptroller.py\" 760)) attr ((Some (\"contracts/Comptroller.py\" 760)) get_item ((Some (\"contracts/Comptroller.py\" 760)) attr ((Some (\"contracts/Comptroller.py\" 760)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 132)) attr (None parameter) \"account\")) \"updateLevel\"))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) True) ((Some (\"contracts/Comptroller.py\" 761)) verify ((Some (\"contracts/Comptroller.py\" 761)) eq ((Some (\"contracts/Comptroller.py\" 759)) var \"compute_Comptroller_759\") ((Some (\"contracts/Comptroller.py\" 761)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 761)) literal (string \"CMPT_LIQUIDITY_OLD\"))) ((Some (\"contracts/Comptroller.py\" 306)) verify ((Some (\"contracts/Comptroller.py\" 306)) eq (None level) ((Some (\"contracts/Comptroller.py\" 306)) attr ((Some (\"contracts/Comptroller.py\" 306)) get_item ((Some (\"contracts/Comptroller.py\" 306)) attr ((Some (\"contracts/Comptroller.py\" 306)) storage) \"markets\") (None sender)) \"updateLevel\")) ((Some (\"contracts/Comptroller.py\" 306)) literal (string \"CMPT_UPDATE_PRICE\"))) ((Some (\"contracts/Comptroller.py\" 225)) verify ((Some (\"contracts/Comptroller.py\" 225)) gt ((Some (\"contracts/Comptroller.py\" 225)) attr ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) get_item ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) storage) \"markets\") (None sender)) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 225)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 225)) literal (string \"CMPT_INVALID_PRICE\"))) ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) get_item ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) storage) \"markets\") (None sender)) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) get_item ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) storage) \"markets\") (None sender)) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 132)) attr (None parameter) \"cTokenBalance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) get_item ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) storage) \"markets\") (None sender)) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 132)) attr (None parameter) \"cTokenBalance\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) get_item ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) storage) \"markets\") (None sender)) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 132)) attr (None parameter) \"cTokenBalance\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 190)) define_local \"compute_Comptroller_190\" ((Some (\"contracts/Comptroller.py\" 190)) sub ((Some (\"contracts/Comptroller.py\" 190)) attr ((Some (\"contracts/Comptroller.py\" 190)) get_item ((Some (\"contracts/Comptroller.py\" 190)) attr ((Some (\"contracts/Comptroller.py\" 190)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 132)) attr (None parameter) \"account\")) \"liquidity\") ((Some (\"contracts/Comptroller.py\" 190)) to_int ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) get_item ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) storage) \"markets\") (None sender)) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 132)) attr (None parameter) \"cTokenBalance\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))) True) ((Some (\"contracts/Comptroller.py\" 192)) verify ((Some (\"contracts/Comptroller.py\" 192)) ge ((Some (\"contracts/Comptroller.py\" 190)) var \"compute_Comptroller_190\") ((Some (\"contracts/Comptroller.py\" 192)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 192)) literal (string \"CMPT_REDEEMER_SHORTFALL\"))))))) ((Some (\"contracts/Comptroller.py\" 764)) if_block ((Some (\"contracts/Comptroller.py\" 764)) contains ((Some (\"contracts/Comptroller.py\" 764)) attr ((Some (\"contracts/Comptroller.py\" 764)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 132)) attr (None parameter) \"account\")) (((Some (\"contracts/Comptroller.py\" 765)) set ((Some (\"contracts/Comptroller.py\" 765)) attr ((Some (\"contracts/Comptroller.py\" 765)) get_item ((Some (\"contracts/Comptroller.py\" 765)) attr ((Some (\"contracts/Comptroller.py\" 765)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 132)) attr (None parameter) \"account\")) \"valid\") ((Some (\"contracts/Comptroller.py\" 765)) literal (bool False))))) ((Some (\"contracts/Comptroller.py\" 133)) if_block ((Some (\"contracts/Comptroller.py\" 133)) and ((Some (\"contracts/Comptroller.py\" 133)) contains ((Some (\"contracts/Comptroller.py\" 133)) attr ((Some (\"contracts/Comptroller.py\" 133)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 132)) attr (None parameter) \"account\")) ((Some (\"contracts/Comptroller.py\" 133)) contains ((Some (\"contracts/Comptroller.py\" 133)) get_item ((Some (\"contracts/Comptroller.py\" 133)) attr ((Some (\"contracts/Comptroller.py\" 133)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 132)) attr (None parameter) \"account\")) (None sender))) (((Some (\"contracts/Comptroller.py\" 135)) update_set ((Some (\"contracts/Comptroller.py\" 135)) get_item ((Some (\"contracts/Comptroller.py\" 135)) attr ((Some (\"contracts/Comptroller.py\" 135)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 132)) attr (None parameter) \"account\")) (None sender) False))) ((Some (\"contracts/Comptroller.py\" 764)) if_block ((Some (\"contracts/Comptroller.py\" 764)) contains ((Some (\"contracts/Comptroller.py\" 764)) attr ((Some (\"contracts/Comptroller.py\" 764)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 132)) attr (None parameter) \"account\")) (((Some (\"contracts/Comptroller.py\" 765)) set ((Some (\"contracts/Comptroller.py\" 765)) attr ((Some (\"contracts/Comptroller.py\" 765)) get_item ((Some (\"contracts/Comptroller.py\" 765)) attr ((Some (\"contracts/Comptroller.py\" 765)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 132)) attr (None parameter) \"account\")) \"valid\") ((Some (\"contracts/Comptroller.py\" 765)) literal (bool False))))))) (setBorrowPaused True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 597)) (((Some (\"contracts/Comptroller.py\" 598)) verify ((Some (\"contracts/Comptroller.py\" 598)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 598)) MUL ((Some (\"contracts/Comptroller.py\" 598)) type_annotation ((Some (\"contracts/Comptroller.py\" 598)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 598)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 598)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 600)) set_type (None parameter) (record ((cToken \"address\") (state \"bool\")) Variable (Some (\"contracts/Comptroller.py\" 600)))) ((Some (\"contracts/Comptroller.py\" 741)) verify ((Some (\"contracts/Comptroller.py\" 741)) and ((Some (\"contracts/Comptroller.py\" 741)) contains ((Some (\"contracts/Comptroller.py\" 741)) attr ((Some (\"contracts/Comptroller.py\" 741)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 601)) attr (None parameter) \"cToken\")) ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) get_item ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 601)) attr (None parameter) \"cToken\")) \"isListed\")) ((Some (\"contracts/Comptroller.py\" 741)) literal (string \"CMPT_MARKET_NOT_LISTED\"))) ((Some (\"contracts/Comptroller.py\" 749)) verify ((Some (\"contracts/Comptroller.py\" 749)) eq (None sender) ((Some (\"contracts/Comptroller.py\" 749)) attr ((Some (\"contracts/Comptroller.py\" 749)) storage) \"administrator\")) ((Some (\"contracts/Comptroller.py\" 749)) literal (string \"CMPT_NOT_ADMIN\"))) ((Some (\"contracts/Comptroller.py\" 603)) set ((Some (\"contracts/Comptroller.py\" 603)) attr ((Some (\"contracts/Comptroller.py\" 603)) get_item ((Some (\"contracts/Comptroller.py\" 603)) attr ((Some (\"contracts/Comptroller.py\" 603)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 601)) attr (None parameter) \"cToken\")) \"borrowPaused\") ((Some (\"contracts/Comptroller.py\" 603)) attr (None parameter) \"state\")))) (setCloseFactor True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 646)) (((Some (\"contracts/Comptroller.py\" 647)) verify ((Some (\"contracts/Comptroller.py\" 647)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 647)) MUL ((Some (\"contracts/Comptroller.py\" 647)) type_annotation ((Some (\"contracts/Comptroller.py\" 647)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 647)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 647)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 649)) set_type (None parameter) \"nat\") ((Some (\"contracts/Comptroller.py\" 749)) verify ((Some (\"contracts/Comptroller.py\" 749)) eq (None sender) ((Some (\"contracts/Comptroller.py\" 749)) attr ((Some (\"contracts/Comptroller.py\" 749)) storage) \"administrator\")) ((Some (\"contracts/Comptroller.py\" 749)) literal (string \"CMPT_NOT_ADMIN\"))) ((Some (\"contracts/Comptroller.py\" 651)) set ((Some (\"contracts/Comptroller.py\" 651)) attr ((Some (\"contracts/Comptroller.py\" 651)) storage) \"closeFactorMantissa\") (None parameter)))) (setCollateralFactor True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 663)) (((Some (\"contracts/Comptroller.py\" 664)) verify ((Some (\"contracts/Comptroller.py\" 664)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 664)) MUL ((Some (\"contracts/Comptroller.py\" 664)) type_annotation ((Some (\"contracts/Comptroller.py\" 664)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 664)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 664)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 666)) set_type (None parameter) (record ((cToken \"address\") (newCollateralFactor \"nat\")) Variable (Some (\"contracts/Comptroller.py\" 666)))) ((Some (\"contracts/Comptroller.py\" 749)) verify ((Some (\"contracts/Comptroller.py\" 749)) eq (None sender) ((Some (\"contracts/Comptroller.py\" 749)) attr ((Some (\"contracts/Comptroller.py\" 749)) storage) \"administrator\")) ((Some (\"contracts/Comptroller.py\" 749)) literal (string \"CMPT_NOT_ADMIN\"))) ((Some (\"contracts/Comptroller.py\" 741)) verify ((Some (\"contracts/Comptroller.py\" 741)) and ((Some (\"contracts/Comptroller.py\" 741)) contains ((Some (\"contracts/Comptroller.py\" 741)) attr ((Some (\"contracts/Comptroller.py\" 741)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 669)) attr (None parameter) \"cToken\")) ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) get_item ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 669)) attr (None parameter) \"cToken\")) \"isListed\")) ((Some (\"contracts/Comptroller.py\" 741)) literal (string \"CMPT_MARKET_NOT_LISTED\"))) ((Some (\"contracts/Comptroller.py\" 670)) set ((Some (\"contracts/Comptroller.py\" 670)) attr ((Some (\"contracts/Comptroller.py\" 670)) attr ((Some (\"contracts/Comptroller.py\" 670)) get_item ((Some (\"contracts/Comptroller.py\" 670)) attr ((Some (\"contracts/Comptroller.py\" 670)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 669)) attr (None parameter) \"cToken\")) \"collateralFactor\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 670)) attr (None parameter) \"newCollateralFactor\")))) (setLiquidationIncentive True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 680)) (((Some (\"contracts/Comptroller.py\" 681)) verify ((Some (\"contracts/Comptroller.py\" 681)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 681)) MUL ((Some (\"contracts/Comptroller.py\" 681)) type_annotation ((Some (\"contracts/Comptroller.py\" 681)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 681)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 681)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 683)) set_type (None parameter) \"nat\") ((Some (\"contracts/Comptroller.py\" 749)) verify ((Some (\"contracts/Comptroller.py\" 749)) eq (None sender) ((Some (\"contracts/Comptroller.py\" 749)) attr ((Some (\"contracts/Comptroller.py\" 749)) storage) \"administrator\")) ((Some (\"contracts/Comptroller.py\" 749)) literal (string \"CMPT_NOT_ADMIN\"))) ((Some (\"contracts/Comptroller.py\" 685)) set ((Some (\"contracts/Comptroller.py\" 685)) attr ((Some (\"contracts/Comptroller.py\" 685)) storage) \"liquidationIncentiveMantissa\") (None parameter)))) (setMintPaused True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 579)) (((Some (\"contracts/Comptroller.py\" 580)) verify ((Some (\"contracts/Comptroller.py\" 580)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 580)) MUL ((Some (\"contracts/Comptroller.py\" 580)) type_annotation ((Some (\"contracts/Comptroller.py\" 580)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 580)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 580)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 582)) set_type (None parameter) (record ((cToken \"address\") (state \"bool\")) Variable (Some (\"contracts/Comptroller.py\" 582)))) ((Some (\"contracts/Comptroller.py\" 741)) verify ((Some (\"contracts/Comptroller.py\" 741)) and ((Some (\"contracts/Comptroller.py\" 741)) contains ((Some (\"contracts/Comptroller.py\" 741)) attr ((Some (\"contracts/Comptroller.py\" 741)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 583)) attr (None parameter) \"cToken\")) ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) get_item ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 583)) attr (None parameter) \"cToken\")) \"isListed\")) ((Some (\"contracts/Comptroller.py\" 741)) literal (string \"CMPT_MARKET_NOT_LISTED\"))) ((Some (\"contracts/Comptroller.py\" 749)) verify ((Some (\"contracts/Comptroller.py\" 749)) eq (None sender) ((Some (\"contracts/Comptroller.py\" 749)) attr ((Some (\"contracts/Comptroller.py\" 749)) storage) \"administrator\")) ((Some (\"contracts/Comptroller.py\" 749)) literal (string \"CMPT_NOT_ADMIN\"))) ((Some (\"contracts/Comptroller.py\" 585)) set ((Some (\"contracts/Comptroller.py\" 585)) attr ((Some (\"contracts/Comptroller.py\" 585)) get_item ((Some (\"contracts/Comptroller.py\" 585)) attr ((Some (\"contracts/Comptroller.py\" 585)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 583)) attr (None parameter) \"cToken\")) \"mintPaused\") ((Some (\"contracts/Comptroller.py\" 585)) attr (None parameter) \"state\")))) (setPendingGovernance True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 545)) (((Some (\"contracts/Comptroller.py\" 546)) verify ((Some (\"contracts/Comptroller.py\" 546)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 546)) MUL ((Some (\"contracts/Comptroller.py\" 546)) type_annotation ((Some (\"contracts/Comptroller.py\" 546)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 546)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 546)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 548)) set_type (None parameter) \"address\") ((Some (\"contracts/Comptroller.py\" 749)) verify ((Some (\"contracts/Comptroller.py\" 749)) eq (None sender) ((Some (\"contracts/Comptroller.py\" 749)) attr ((Some (\"contracts/Comptroller.py\" 749)) storage) \"administrator\")) ((Some (\"contracts/Comptroller.py\" 749)) literal (string \"CMPT_NOT_ADMIN\"))) ((Some (\"contracts/Comptroller.py\" 550)) set ((Some (\"contracts/Comptroller.py\" 550)) attr ((Some (\"contracts/Comptroller.py\" 550)) storage) \"pendingAdministrator\") ((Some (\"contracts/Comptroller.py\" 550)) variant \"Some\" (None parameter))))) (setPriceOracleAndTimeDiff True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 630)) (((Some (\"contracts/Comptroller.py\" 631)) verify ((Some (\"contracts/Comptroller.py\" 631)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 631)) MUL ((Some (\"contracts/Comptroller.py\" 631)) type_annotation ((Some (\"contracts/Comptroller.py\" 631)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 631)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 631)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 633)) set_type (None parameter) (record ((priceOracle \"address\") (timeDiff \"int\")) Variable (Some (\"contracts/Comptroller.py\" 633)))) ((Some (\"contracts/Comptroller.py\" 749)) verify ((Some (\"contracts/Comptroller.py\" 749)) eq (None sender) ((Some (\"contracts/Comptroller.py\" 749)) attr ((Some (\"contracts/Comptroller.py\" 749)) storage) \"administrator\")) ((Some (\"contracts/Comptroller.py\" 749)) literal (string \"CMPT_NOT_ADMIN\"))) ((Some (\"contracts/Comptroller.py\" 635)) set ((Some (\"contracts/Comptroller.py\" 635)) attr ((Some (\"contracts/Comptroller.py\" 635)) storage) \"maxPriceTimeDifference\") ((Some (\"contracts/Comptroller.py\" 635)) attr (None parameter) \"timeDiff\")) ((Some (\"contracts/Comptroller.py\" 636)) set ((Some (\"contracts/Comptroller.py\" 636)) attr ((Some (\"contracts/Comptroller.py\" 636)) storage) \"oracleAddress\") ((Some (\"contracts/Comptroller.py\" 636)) attr (None parameter) \"priceOracle\")))) (setTransferPaused True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 613)) (((Some (\"contracts/Comptroller.py\" 614)) verify ((Some (\"contracts/Comptroller.py\" 614)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 614)) MUL ((Some (\"contracts/Comptroller.py\" 614)) type_annotation ((Some (\"contracts/Comptroller.py\" 614)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 614)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 614)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 616)) set_type (None parameter) \"bool\") ((Some (\"contracts/Comptroller.py\" 749)) verify ((Some (\"contracts/Comptroller.py\" 749)) eq (None sender) ((Some (\"contracts/Comptroller.py\" 749)) attr ((Some (\"contracts/Comptroller.py\" 749)) storage) \"administrator\")) ((Some (\"contracts/Comptroller.py\" 749)) literal (string \"CMPT_NOT_ADMIN\"))) ((Some (\"contracts/Comptroller.py\" 618)) set ((Some (\"contracts/Comptroller.py\" 618)) attr ((Some (\"contracts/Comptroller.py\" 618)) storage) \"transferPaused\") (None parameter)))) (supportMarket True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 698)) (((Some (\"contracts/Comptroller.py\" 699)) verify ((Some (\"contracts/Comptroller.py\" 699)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 699)) MUL ((Some (\"contracts/Comptroller.py\" 699)) type_annotation ((Some (\"contracts/Comptroller.py\" 699)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 699)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 699)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 701)) set_type (None parameter) (record ((cToken \"address\") (name \"string\") (priceExp \"nat\")) Variable (Some (\"contracts/Comptroller.py\" 701)))) ((Some (\"contracts/Comptroller.py\" 749)) verify ((Some (\"contracts/Comptroller.py\" 749)) eq (None sender) ((Some (\"contracts/Comptroller.py\" 749)) attr ((Some (\"contracts/Comptroller.py\" 749)) storage) \"administrator\")) ((Some (\"contracts/Comptroller.py\" 749)) literal (string \"CMPT_NOT_ADMIN\"))) ((Some (\"contracts/Comptroller.py\" 745)) verify ((Some (\"contracts/Comptroller.py\" 745)) not ((Some (\"contracts/Comptroller.py\" 745)) and ((Some (\"contracts/Comptroller.py\" 745)) contains ((Some (\"contracts/Comptroller.py\" 745)) attr ((Some (\"contracts/Comptroller.py\" 745)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 704)) attr (None parameter) \"cToken\")) ((Some (\"contracts/Comptroller.py\" 746)) attr ((Some (\"contracts/Comptroller.py\" 746)) get_item ((Some (\"contracts/Comptroller.py\" 746)) attr ((Some (\"contracts/Comptroller.py\" 746)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 704)) attr (None parameter) \"cToken\")) \"isListed\"))) ((Some (\"contracts/Comptroller.py\" 745)) literal (string \"CMPT_MARKET_ALREADY_LISTED\"))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/Comptroller.py\" 707)) literal (nat 500000000000000000)) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/Comptroller.py\" 713)) literal (nat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 705)) set ((Some (\"contracts/Comptroller.py\" 705)) get_item ((Some (\"contracts/Comptroller.py\" 705)) attr ((Some (\"contracts/Comptroller.py\" 705)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 704)) attr (None parameter) \"cToken\")) ((Some (\"contracts/Comptroller.py\" 705)) record (borrowPaused ((Some (\"contracts/Comptroller.py\" 709)) literal (bool True))) (collateralFactor ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/Comptroller.py\" 707)) literal (nat 500000000000000000))))) (isListed ((Some (\"contracts/Comptroller.py\" 705)) literal (bool True))) (mintPaused ((Some (\"contracts/Comptroller.py\" 708)) literal (bool True))) (name ((Some (\"contracts/Comptroller.py\" 711)) attr (None parameter) \"name\")) (price ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/Comptroller.py\" 713)) literal (nat 0))))) (priceExp ((Some (\"contracts/Comptroller.py\" 714)) attr (None parameter) \"priceExp\")) (priceTimestamp ((Some (\"contracts/Comptroller.py\" 716)) literal (timestamp 0))) (updateLevel ((Some (\"contracts/Comptroller.py\" 715)) literal (nat 0))))) ((Some (\"contracts/Comptroller.py\" 717)) set ((Some (\"contracts/Comptroller.py\" 717)) get_item ((Some (\"contracts/Comptroller.py\" 717)) attr ((Some (\"contracts/Comptroller.py\" 717)) storage) \"marketNameToAddress\") ((Some (\"contracts/Comptroller.py\" 717)) add ((Some (\"contracts/Comptroller.py\" 711)) attr (None parameter) \"name\") ((Some (\"contracts/Comptroller.py\" 717)) literal (string \"-USD\")))) ((Some (\"contracts/Comptroller.py\" 704)) attr (None parameter) \"cToken\")))) (sweepFA12 True None None None True None (Some (\"contracts/utils/SweepTokens.py\" 35)) (((Some (\"contracts/utils/SweepTokens.py\" 36)) set_type (None parameter) (record ((amount \"nat\") (tokenAddress \"address\")) Variable (Some (\"contracts/utils/SweepTokens.py\" 36)))) ((Some (\"contracts/utils/TransferTokens.py\" 19)) set ((Some (\"contracts/utils/TransferTokens.py\" 19)) operations) ((Some (\"contracts/utils/TransferTokens.py\" 19)) cons ((Some (\"contracts/utils/TransferTokens.py\" 19)) transfer ((Some (\"contracts/utils/TransferTokens.py\" 6)) record (from_ (None self_address)) (to_ ((Some (\"contracts/utils/SweepTokens.py\" 39)) attr ((Some (\"contracts/utils/SweepTokens.py\" 39)) storage) \"administrator\")) (value ((Some (\"contracts/utils/SweepTokens.py\" 40)) attr (None parameter) \"amount\"))) ((Some (\"contracts/utils/TransferTokens.py\" 19)) literal (mutez 0)) ((Some (\"contracts/utils/TransferTokens.py\" 17)) open_variant ((Some (\"contracts/utils/TransferTokens.py\" 12)) contract \"transfer\" (record ((from_ \"address\") (to_ \"address\") (value \"nat\")) (Value ((\"from_ as from\") ((\"to_ as to\") (\"value\")))) (Some (\"contracts/utils/TransferTokens.py\" 13))) ((Some (\"contracts/utils/SweepTokens.py\" 38)) attr (None parameter) \"tokenAddress\")) \"Some\" \"None\")) ((Some (\"contracts/utils/TransferTokens.py\" 19)) operations))))) (sweepFA2 True None None None True None (Some (\"contracts/utils/SweepTokens.py\" 51)) (((Some (\"contracts/utils/SweepTokens.py\" 52)) set_type (None parameter) (record ((amount \"nat\") (id \"nat\") (tokenAddress \"address\")) Variable (Some (\"contracts/utils/SweepTokens.py\" 52)))) ((Some (\"contracts/utils/TransferTokens.py\" 45)) set ((Some (\"contracts/utils/TransferTokens.py\" 45)) operations) ((Some (\"contracts/utils/TransferTokens.py\" 45)) cons ((Some (\"contracts/utils/TransferTokens.py\" 45)) transfer ((Some (\"contracts/utils/TransferTokens.py\" 45)) list ((Some (\"contracts/utils/TransferTokens.py\" 26)) record (from_ (None self_address)) (txs ((Some (\"contracts/utils/TransferTokens.py\" 26)) list ((Some (\"contracts/utils/TransferTokens.py\" 29)) record (amount ((Some (\"contracts/utils/SweepTokens.py\" 56)) attr (None parameter) \"amount\")) (to_ ((Some (\"contracts/utils/SweepTokens.py\" 55)) attr ((Some (\"contracts/utils/SweepTokens.py\" 55)) storage) \"administrator\")) (token_id ((Some (\"contracts/utils/SweepTokens.py\" 54)) attr (None parameter) \"id\"))))))) ((Some (\"contracts/utils/TransferTokens.py\" 45)) literal (mutez 0)) ((Some (\"contracts/utils/TransferTokens.py\" 43)) open_variant ((Some (\"contracts/utils/TransferTokens.py\" 38)) contract \"transfer\" (list (record ((from_ \"address\") (txs (list (record ((amount \"nat\") (to_ \"address\") (token_id \"nat\")) (Value ((\"to_\") ((\"token_id\") (\"amount\")))) (Some (\"contracts/utils/TransferTokens.py\" 22)))))) (Value ((\"from_\") (\"txs\"))) (Some (\"contracts/utils/TransferTokens.py\" 40)))) ((Some (\"contracts/utils/SweepTokens.py\" 54)) attr (None parameter) \"tokenAddress\")) \"Some\" \"None\")) ((Some (\"contracts/utils/TransferTokens.py\" 45)) operations))))) (sweepMutez True None None None True None (Some (\"contracts/utils/SweepTokens.py\" 16)) (((Some (\"contracts/utils/SweepTokens.py\" 17)) set_type (None parameter) \"bool\") ((Some (\"contracts/utils/SweepTokens.py\" 19)) if_block (None parameter) (((Some (\"contracts/utils/SweepTokens.py\" 22)) set ((Some (\"contracts/utils/SweepTokens.py\" 22)) operations) ((Some (\"contracts/utils/SweepTokens.py\" 22)) cons ((Some (\"contracts/utils/SweepTokens.py\" 22)) transfer (None literal (unit)) (None balance) ((Some (\"contracts/utils/SweepTokens.py\" 21)) open_variant ((Some (\"contracts/utils/SweepTokens.py\" 20)) contract \"receive\" \"unit\" ((Some (\"contracts/utils/SweepTokens.py\" 21)) attr ((Some (\"contracts/utils/SweepTokens.py\" 21)) storage) \"administrator\")) \"Some\" \"None\")) ((Some (\"contracts/utils/SweepTokens.py\" 22)) operations))))) (else_block (((Some (\"contracts/utils/SweepTokens.py\" 24)) set ((Some (\"contracts/utils/SweepTokens.py\" 24)) operations) ((Some (\"contracts/utils/SweepTokens.py\" 24)) cons ((Some (\"contracts/utils/SweepTokens.py\" 24)) transfer (None literal (unit)) (None balance) ((Some (\"contracts/utils/SweepTokens.py\" 24)) open_variant ((Some (\"contracts/utils/SweepTokens.py\" 24)) contract \"\" \"unit\" ((Some (\"contracts/utils/SweepTokens.py\" 24)) attr ((Some (\"contracts/utils/SweepTokens.py\" 24)) storage) \"administrator\")) \"Some\" \"None\")) ((Some (\"contracts/utils/SweepTokens.py\" 24)) operations))))))) (transferAllowed True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 274)) (((Some (\"contracts/Comptroller.py\" 275)) verify ((Some (\"contracts/Comptroller.py\" 275)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 275)) MUL ((Some (\"contracts/Comptroller.py\" 275)) type_annotation ((Some (\"contracts/Comptroller.py\" 275)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 275)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 275)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 277)) set_type (None parameter) (record ((cToken \"address\") (dst \"address\") (src \"address\") (transferTokens \"nat\")) (Value (((\"cToken\") (\"src\")) ((\"dst\") (\"transferTokens\")))) (Some (\"contracts/interfaces/ComptrollerInterface.py\" 16)))) ((Some (\"contracts/Comptroller.py\" 278)) verify ((Some (\"contracts/Comptroller.py\" 278)) not ((Some (\"contracts/Comptroller.py\" 278)) attr ((Some (\"contracts/Comptroller.py\" 278)) storage) \"transferPaused\")) ((Some (\"contracts/Comptroller.py\" 278)) literal (string \"CMPT_TRANSFER_PAUSED\"))) ((Some (\"contracts/Comptroller.py\" 741)) verify ((Some (\"contracts/Comptroller.py\" 741)) and ((Some (\"contracts/Comptroller.py\" 741)) contains ((Some (\"contracts/Comptroller.py\" 741)) attr ((Some (\"contracts/Comptroller.py\" 741)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"cToken\")) ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) get_item ((Some (\"contracts/Comptroller.py\" 742)) attr ((Some (\"contracts/Comptroller.py\" 742)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"cToken\")) \"isListed\")) ((Some (\"contracts/Comptroller.py\" 741)) literal (string \"CMPT_MARKET_NOT_LISTED\"))) ((Some (\"contracts/Comptroller.py\" 180)) if_block ((Some (\"contracts/Comptroller.py\" 180)) and ((Some (\"contracts/Comptroller.py\" 180)) contains ((Some (\"contracts/Comptroller.py\" 180)) attr ((Some (\"contracts/Comptroller.py\" 180)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"src\")) ((Some (\"contracts/Comptroller.py\" 180)) contains ((Some (\"contracts/Comptroller.py\" 180)) get_item ((Some (\"contracts/Comptroller.py\" 180)) attr ((Some (\"contracts/Comptroller.py\" 180)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"src\")) ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"cToken\"))) (((Some (\"contracts/Comptroller.py\" 182)) if_block ((Some (\"contracts/Comptroller.py\" 182)) and ((Some (\"contracts/Comptroller.py\" 182)) contains ((Some (\"contracts/Comptroller.py\" 182)) attr ((Some (\"contracts/Comptroller.py\" 182)) storage) \"loans\") ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"src\")) ((Some (\"contracts/Comptroller.py\" 182)) neq ((Some (\"contracts/Comptroller.py\" 182)) size ((Some (\"contracts/Comptroller.py\" 182)) get_item ((Some (\"contracts/Comptroller.py\" 182)) attr ((Some (\"contracts/Comptroller.py\" 182)) storage) \"loans\") ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"src\"))) ((Some (\"contracts/Comptroller.py\" 182)) literal (intOrNat 0)))) (((Some (\"contracts/Comptroller.py\" 755)) verify ((Some (\"contracts/Comptroller.py\" 755)) contains ((Some (\"contracts/Comptroller.py\" 755)) attr ((Some (\"contracts/Comptroller.py\" 755)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"src\")) ((Some (\"contracts/Comptroller.py\" 755)) literal (string \"CMPT_LIQUIDITY_ABSENT\"))) ((Some (\"contracts/Comptroller.py\" 757)) verify ((Some (\"contracts/Comptroller.py\" 758)) attr ((Some (\"contracts/Comptroller.py\" 758)) get_item ((Some (\"contracts/Comptroller.py\" 758)) attr ((Some (\"contracts/Comptroller.py\" 758)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"src\")) \"valid\") ((Some (\"contracts/Comptroller.py\" 757)) literal (string \"CMPT_LIQUIDITY_INVALID\"))) ((Some (\"contracts/utils/Exponential.py\" 193)) set_type (None level) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/Comptroller.py\" 760)) attr ((Some (\"contracts/Comptroller.py\" 760)) get_item ((Some (\"contracts/Comptroller.py\" 760)) attr ((Some (\"contracts/Comptroller.py\" 760)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"src\")) \"updateLevel\") \"nat\") ((Some (\"contracts/Comptroller.py\" 759)) define_local \"compute_Comptroller_759\" ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub (None level) ((Some (\"contracts/Comptroller.py\" 760)) attr ((Some (\"contracts/Comptroller.py\" 760)) get_item ((Some (\"contracts/Comptroller.py\" 760)) attr ((Some (\"contracts/Comptroller.py\" 760)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"src\")) \"updateLevel\"))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) True) ((Some (\"contracts/Comptroller.py\" 761)) verify ((Some (\"contracts/Comptroller.py\" 761)) eq ((Some (\"contracts/Comptroller.py\" 759)) var \"compute_Comptroller_759\") ((Some (\"contracts/Comptroller.py\" 761)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 761)) literal (string \"CMPT_LIQUIDITY_OLD\"))) ((Some (\"contracts/Comptroller.py\" 306)) verify ((Some (\"contracts/Comptroller.py\" 306)) eq (None level) ((Some (\"contracts/Comptroller.py\" 306)) attr ((Some (\"contracts/Comptroller.py\" 306)) get_item ((Some (\"contracts/Comptroller.py\" 306)) attr ((Some (\"contracts/Comptroller.py\" 306)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"cToken\")) \"updateLevel\")) ((Some (\"contracts/Comptroller.py\" 306)) literal (string \"CMPT_UPDATE_PRICE\"))) ((Some (\"contracts/Comptroller.py\" 225)) verify ((Some (\"contracts/Comptroller.py\" 225)) gt ((Some (\"contracts/Comptroller.py\" 225)) attr ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) get_item ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"cToken\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 225)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 225)) literal (string \"CMPT_INVALID_PRICE\"))) ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) get_item ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"cToken\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) get_item ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"cToken\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"transferTokens\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) get_item ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"cToken\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"transferTokens\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) get_item ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"cToken\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"transferTokens\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 190)) define_local \"compute_Comptroller_190\" ((Some (\"contracts/Comptroller.py\" 190)) sub ((Some (\"contracts/Comptroller.py\" 190)) attr ((Some (\"contracts/Comptroller.py\" 190)) get_item ((Some (\"contracts/Comptroller.py\" 190)) attr ((Some (\"contracts/Comptroller.py\" 190)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"src\")) \"liquidity\") ((Some (\"contracts/Comptroller.py\" 190)) to_int ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) get_item ((Some (\"contracts/Comptroller.py\" 191)) attr ((Some (\"contracts/Comptroller.py\" 191)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"cToken\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"transferTokens\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))) True) ((Some (\"contracts/Comptroller.py\" 192)) verify ((Some (\"contracts/Comptroller.py\" 192)) ge ((Some (\"contracts/Comptroller.py\" 190)) var \"compute_Comptroller_190\") ((Some (\"contracts/Comptroller.py\" 192)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 192)) literal (string \"CMPT_REDEEMER_SHORTFALL\"))))))) ((Some (\"contracts/Comptroller.py\" 764)) if_block ((Some (\"contracts/Comptroller.py\" 764)) contains ((Some (\"contracts/Comptroller.py\" 764)) attr ((Some (\"contracts/Comptroller.py\" 764)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"src\")) (((Some (\"contracts/Comptroller.py\" 765)) set ((Some (\"contracts/Comptroller.py\" 765)) attr ((Some (\"contracts/Comptroller.py\" 765)) get_item ((Some (\"contracts/Comptroller.py\" 765)) attr ((Some (\"contracts/Comptroller.py\" 765)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 280)) attr (None parameter) \"src\")) \"valid\") ((Some (\"contracts/Comptroller.py\" 765)) literal (bool False))))))) (updateAccountLiquidityWithView True None None None True None (Some (\"contracts/Comptroller.py\" 315)) (((Some (\"contracts/Comptroller.py\" 316)) verify ((Some (\"contracts/Comptroller.py\" 316)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 316)) MUL ((Some (\"contracts/Comptroller.py\" 316)) type_annotation ((Some (\"contracts/Comptroller.py\" 316)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 316)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 316)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 318)) set_type (None parameter) \"address\") ((Some (\"contracts/Comptroller.py\" 292)) for_group \"asset\" ((Some (\"contracts/Comptroller.py\" 292)) values ((Some (\"contracts/Comptroller.py\" 292)) attr ((Some (\"contracts/Comptroller.py\" 292)) storage) \"marketNameToAddress\")) (((Some (\"contracts/Comptroller.py\" 293)) if_block ((Some (\"contracts/Comptroller.py\" 293)) lt ((Some (\"contracts/Comptroller.py\" 293)) attr ((Some (\"contracts/Comptroller.py\" 293)) get_item ((Some (\"contracts/Comptroller.py\" 293)) attr ((Some (\"contracts/Comptroller.py\" 293)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 292)) var \"asset\")) \"updateLevel\") (None level)) (((Some (\"contracts/Comptroller.py\" 294)) define_local \"pricePair\" ((Some (\"contracts/Comptroller.py\" 296)) open_variant ((Some (\"contracts/Comptroller.py\" 295)) view \"getPrice\" ((Some (\"contracts/Comptroller.py\" 295)) add ((Some (\"contracts/Comptroller.py\" 295)) attr ((Some (\"contracts/Comptroller.py\" 295)) get_item ((Some (\"contracts/Comptroller.py\" 295)) attr ((Some (\"contracts/Comptroller.py\" 295)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 292)) var \"asset\")) \"name\") ((Some (\"contracts/Comptroller.py\" 295)) literal (string \"-USD\"))) ((Some (\"contracts/Comptroller.py\" 295)) attr ((Some (\"contracts/Comptroller.py\" 295)) storage) \"oracleAddress\") (tuple \"timestamp\" \"nat\")) \"Some\" ((Some (\"contracts/Comptroller.py\" 296)) literal (string \"invalid oracle view call\"))) True) ((Some (\"contracts/Comptroller.py\" 298)) if_block ((Some (\"contracts/Comptroller.py\" 298)) neq ((Some (\"contracts/Comptroller.py\" 298)) attr ((Some (\"contracts/Comptroller.py\" 298)) get_item ((Some (\"contracts/Comptroller.py\" 298)) attr ((Some (\"contracts/Comptroller.py\" 298)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 292)) var \"asset\")) \"priceTimestamp\") ((Some (\"contracts/Comptroller.py\" 298)) literal (timestamp 0))) (((Some (\"contracts/Comptroller.py\" 299)) verify ((Some (\"contracts/Comptroller.py\" 299)) le ((Some (\"contracts/Comptroller.py\" 299)) sub (None now) ((Some (\"contracts/Comptroller.py\" 299)) first ((Some (\"contracts/Comptroller.py\" 299)) var \"pricePair\"))) ((Some (\"contracts/Comptroller.py\" 299)) attr ((Some (\"contracts/Comptroller.py\" 299)) storage) \"maxPriceTimeDifference\")) ((Some (\"contracts/Comptroller.py\" 299)) literal (string \"STALE_ASSET_PRICE\"))))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/Comptroller.py\" 301)) mul_homo ((Some (\"contracts/Comptroller.py\" 301)) second ((Some (\"contracts/Comptroller.py\" 301)) var \"pricePair\")) ((Some (\"contracts/Comptroller.py\" 301)) attr ((Some (\"contracts/Comptroller.py\" 301)) get_item ((Some (\"contracts/Comptroller.py\" 301)) attr ((Some (\"contracts/Comptroller.py\" 301)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 292)) var \"asset\")) \"priceExp\")) \"nat\") ((Some (\"contracts/Comptroller.py\" 300)) set ((Some (\"contracts/Comptroller.py\" 300)) attr ((Some (\"contracts/Comptroller.py\" 300)) get_item ((Some (\"contracts/Comptroller.py\" 300)) attr ((Some (\"contracts/Comptroller.py\" 300)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 292)) var \"asset\")) \"price\") ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/Comptroller.py\" 301)) mul_homo ((Some (\"contracts/Comptroller.py\" 301)) second ((Some (\"contracts/Comptroller.py\" 301)) var \"pricePair\")) ((Some (\"contracts/Comptroller.py\" 301)) attr ((Some (\"contracts/Comptroller.py\" 301)) get_item ((Some (\"contracts/Comptroller.py\" 301)) attr ((Some (\"contracts/Comptroller.py\" 301)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 292)) var \"asset\")) \"priceExp\"))))) ((Some (\"contracts/Comptroller.py\" 302)) set ((Some (\"contracts/Comptroller.py\" 302)) attr ((Some (\"contracts/Comptroller.py\" 302)) get_item ((Some (\"contracts/Comptroller.py\" 302)) attr ((Some (\"contracts/Comptroller.py\" 302)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 292)) var \"asset\")) \"priceTimestamp\") ((Some (\"contracts/Comptroller.py\" 302)) first ((Some (\"contracts/Comptroller.py\" 302)) var \"pricePair\"))) ((Some (\"contracts/Comptroller.py\" 303)) set ((Some (\"contracts/Comptroller.py\" 303)) attr ((Some (\"contracts/Comptroller.py\" 303)) get_item ((Some (\"contracts/Comptroller.py\" 303)) attr ((Some (\"contracts/Comptroller.py\" 303)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 292)) var \"asset\")) \"updateLevel\") (None level)))))) ((Some (\"contracts/Comptroller.py\" 345)) for_group \"asset\" ((Some (\"contracts/Comptroller.py\" 345)) values ((Some (\"contracts/Comptroller.py\" 345)) attr ((Some (\"contracts/Comptroller.py\" 345)) storage) \"marketNameToAddress\")) (((Some (\"contracts/Comptroller.py\" 346)) set ((Some (\"contracts/Comptroller.py\" 346)) operations) ((Some (\"contracts/Comptroller.py\" 346)) cons ((Some (\"contracts/Comptroller.py\" 346)) transfer (None literal (unit)) ((Some (\"contracts/Comptroller.py\" 346)) literal (mutez 0)) ((Some (\"contracts/Comptroller.py\" 347)) open_variant ((Some (\"contracts/Comptroller.py\" 346)) contract \"accrueInterest\" \"unit\" ((Some (\"contracts/Comptroller.py\" 345)) var \"asset\")) \"Some\" \"None\")) ((Some (\"contracts/Comptroller.py\" 346)) operations))))) ((Some (\"contracts/utils/OperationProtector.py\" 46)) update_set ((Some (\"contracts/utils/OperationProtector.py\" 46)) attr ((Some (\"contracts/utils/OperationProtector.py\" 46)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 31)) literal (nat 4)) True) ((Some (\"contracts/Comptroller.py\" 322)) set ((Some (\"contracts/Comptroller.py\" 322)) operations) ((Some (\"contracts/Comptroller.py\" 322)) cons ((Some (\"contracts/Comptroller.py\" 322)) transfer (None parameter) ((Some (\"contracts/Comptroller.py\" 322)) literal (mutez 0)) ((Some (\"contracts/Comptroller.py\" 322)) self \"setAccountLiquidityWithView\")) ((Some (\"contracts/Comptroller.py\" 322)) operations))))) (updateAllAssetPricesWithView True None None None False None (Some (\"contracts/Comptroller.py\" 286)) (((Some (\"contracts/Comptroller.py\" 287)) verify ((Some (\"contracts/Comptroller.py\" 287)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 287)) MUL ((Some (\"contracts/Comptroller.py\" 287)) type_annotation ((Some (\"contracts/Comptroller.py\" 287)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 287)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 287)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 292)) for_group \"asset\" ((Some (\"contracts/Comptroller.py\" 292)) values ((Some (\"contracts/Comptroller.py\" 292)) attr ((Some (\"contracts/Comptroller.py\" 292)) storage) \"marketNameToAddress\")) (((Some (\"contracts/Comptroller.py\" 293)) if_block ((Some (\"contracts/Comptroller.py\" 293)) lt ((Some (\"contracts/Comptroller.py\" 293)) attr ((Some (\"contracts/Comptroller.py\" 293)) get_item ((Some (\"contracts/Comptroller.py\" 293)) attr ((Some (\"contracts/Comptroller.py\" 293)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 292)) var \"asset\")) \"updateLevel\") (None level)) (((Some (\"contracts/Comptroller.py\" 294)) define_local \"pricePair\" ((Some (\"contracts/Comptroller.py\" 296)) open_variant ((Some (\"contracts/Comptroller.py\" 295)) view \"getPrice\" ((Some (\"contracts/Comptroller.py\" 295)) add ((Some (\"contracts/Comptroller.py\" 295)) attr ((Some (\"contracts/Comptroller.py\" 295)) get_item ((Some (\"contracts/Comptroller.py\" 295)) attr ((Some (\"contracts/Comptroller.py\" 295)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 292)) var \"asset\")) \"name\") ((Some (\"contracts/Comptroller.py\" 295)) literal (string \"-USD\"))) ((Some (\"contracts/Comptroller.py\" 295)) attr ((Some (\"contracts/Comptroller.py\" 295)) storage) \"oracleAddress\") (tuple \"timestamp\" \"nat\")) \"Some\" ((Some (\"contracts/Comptroller.py\" 296)) literal (string \"invalid oracle view call\"))) True) ((Some (\"contracts/Comptroller.py\" 298)) if_block ((Some (\"contracts/Comptroller.py\" 298)) neq ((Some (\"contracts/Comptroller.py\" 298)) attr ((Some (\"contracts/Comptroller.py\" 298)) get_item ((Some (\"contracts/Comptroller.py\" 298)) attr ((Some (\"contracts/Comptroller.py\" 298)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 292)) var \"asset\")) \"priceTimestamp\") ((Some (\"contracts/Comptroller.py\" 298)) literal (timestamp 0))) (((Some (\"contracts/Comptroller.py\" 299)) verify ((Some (\"contracts/Comptroller.py\" 299)) le ((Some (\"contracts/Comptroller.py\" 299)) sub (None now) ((Some (\"contracts/Comptroller.py\" 299)) first ((Some (\"contracts/Comptroller.py\" 299)) var \"pricePair\"))) ((Some (\"contracts/Comptroller.py\" 299)) attr ((Some (\"contracts/Comptroller.py\" 299)) storage) \"maxPriceTimeDifference\")) ((Some (\"contracts/Comptroller.py\" 299)) literal (string \"STALE_ASSET_PRICE\"))))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/Comptroller.py\" 301)) mul_homo ((Some (\"contracts/Comptroller.py\" 301)) second ((Some (\"contracts/Comptroller.py\" 301)) var \"pricePair\")) ((Some (\"contracts/Comptroller.py\" 301)) attr ((Some (\"contracts/Comptroller.py\" 301)) get_item ((Some (\"contracts/Comptroller.py\" 301)) attr ((Some (\"contracts/Comptroller.py\" 301)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 292)) var \"asset\")) \"priceExp\")) \"nat\") ((Some (\"contracts/Comptroller.py\" 300)) set ((Some (\"contracts/Comptroller.py\" 300)) attr ((Some (\"contracts/Comptroller.py\" 300)) get_item ((Some (\"contracts/Comptroller.py\" 300)) attr ((Some (\"contracts/Comptroller.py\" 300)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 292)) var \"asset\")) \"price\") ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/Comptroller.py\" 301)) mul_homo ((Some (\"contracts/Comptroller.py\" 301)) second ((Some (\"contracts/Comptroller.py\" 301)) var \"pricePair\")) ((Some (\"contracts/Comptroller.py\" 301)) attr ((Some (\"contracts/Comptroller.py\" 301)) get_item ((Some (\"contracts/Comptroller.py\" 301)) attr ((Some (\"contracts/Comptroller.py\" 301)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 292)) var \"asset\")) \"priceExp\"))))) ((Some (\"contracts/Comptroller.py\" 302)) set ((Some (\"contracts/Comptroller.py\" 302)) attr ((Some (\"contracts/Comptroller.py\" 302)) get_item ((Some (\"contracts/Comptroller.py\" 302)) attr ((Some (\"contracts/Comptroller.py\" 302)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 292)) var \"asset\")) \"priceTimestamp\") ((Some (\"contracts/Comptroller.py\" 302)) first ((Some (\"contracts/Comptroller.py\" 302)) var \"pricePair\"))) ((Some (\"contracts/Comptroller.py\" 303)) set ((Some (\"contracts/Comptroller.py\" 303)) attr ((Some (\"contracts/Comptroller.py\" 303)) get_item ((Some (\"contracts/Comptroller.py\" 303)) attr ((Some (\"contracts/Comptroller.py\" 303)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 292)) var \"asset\")) \"updateLevel\") (None level)))))))))\nflags ()\nprivates ()\nviews ((onchain liquidateCalculateSeizeTokens True (Some (\"contracts/Comptroller.py\" 394)) False \"\" (((Some (\"contracts/Comptroller.py\" 395)) set_type ((Some (\"contracts/Comptroller.py\" 394)) parameter) (record ((actualRepayAmount \"nat\") (cTokenBorrowed \"address\") (cTokenCollateral \"address\")) Variable (Some (\"contracts/interfaces/ComptrollerInterface.py\" 25)))) ((Some (\"contracts/Comptroller.py\" 306)) verify ((Some (\"contracts/Comptroller.py\" 306)) eq (None level) ((Some (\"contracts/Comptroller.py\" 306)) attr ((Some (\"contracts/Comptroller.py\" 306)) get_item ((Some (\"contracts/Comptroller.py\" 306)) attr (None storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 398)) attr ((Some (\"contracts/Comptroller.py\" 394)) parameter) \"cTokenBorrowed\")) \"updateLevel\")) ((Some (\"contracts/Comptroller.py\" 306)) literal (string \"CMPT_UPDATE_PRICE\"))) ((Some (\"contracts/Comptroller.py\" 397)) define_local \"priceBorrowedMantissa\" ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) get_item ((Some (\"contracts/Comptroller.py\" 306)) attr (None storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 398)) attr ((Some (\"contracts/Comptroller.py\" 394)) parameter) \"cTokenBorrowed\")) \"price\") True) ((Some (\"contracts/Comptroller.py\" 306)) verify ((Some (\"contracts/Comptroller.py\" 306)) eq (None level) ((Some (\"contracts/Comptroller.py\" 306)) attr ((Some (\"contracts/Comptroller.py\" 306)) get_item ((Some (\"contracts/Comptroller.py\" 306)) attr (None storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 400)) attr ((Some (\"contracts/Comptroller.py\" 394)) parameter) \"cTokenCollateral\")) \"updateLevel\")) ((Some (\"contracts/Comptroller.py\" 306)) literal (string \"CMPT_UPDATE_PRICE\"))) ((Some (\"contracts/Comptroller.py\" 399)) define_local \"priceCollateralMantissa\" ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) get_item ((Some (\"contracts/Comptroller.py\" 306)) attr (None storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 400)) attr ((Some (\"contracts/Comptroller.py\" 394)) parameter) \"cTokenCollateral\")) \"price\") True) ((Some (\"contracts/Comptroller.py\" 402)) verify ((Some (\"contracts/Comptroller.py\" 402)) and ((Some (\"contracts/Comptroller.py\" 402)) neq ((Some (\"contracts/Comptroller.py\" 402)) attr ((Some (\"contracts/Comptroller.py\" 402)) var \"priceBorrowedMantissa\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 402)) literal (nat 0))) ((Some (\"contracts/Comptroller.py\" 403)) neq ((Some (\"contracts/Comptroller.py\" 403)) attr ((Some (\"contracts/Comptroller.py\" 403)) var \"priceCollateralMantissa\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 403)) literal (nat 0)))) ((Some (\"contracts/Comptroller.py\" 402)) literal (string \"CMPT_PRICE_ERROR\"))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/Comptroller.py\" 412)) attr (None storage) \"liquidationIncentiveMantissa\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 205)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/Comptroller.py\" 412)) attr (None storage) \"liquidationIncentiveMantissa\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 206)) set_type ((Some (\"contracts/Comptroller.py\" 412)) var \"priceBorrowedMantissa\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/Comptroller.py\" 412)) attr (None storage) \"liquidationIncentiveMantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 412)) var \"priceBorrowedMantissa\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr (None storage) \"expScale\")) \"nat\") ((Some (\"contracts/Comptroller.py\" 411)) define_local \"numerator\" ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/Comptroller.py\" 412)) attr (None storage) \"liquidationIncentiveMantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 412)) var \"priceBorrowedMantissa\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr (None storage) \"expScale\")))) True) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/Comptroller.py\" 408)) first ((Some (\"contracts/Comptroller.py\" 406)) open_variant ((Some (\"contracts/Comptroller.py\" 405)) view \"exchangeRateStoredView\" (None literal (unit)) ((Some (\"contracts/Comptroller.py\" 400)) attr ((Some (\"contracts/Comptroller.py\" 394)) parameter) \"cTokenCollateral\") (tuple \"nat\" \"nat\")) \"Some\" ((Some (\"contracts/Comptroller.py\" 406)) literal (string \"INVALID EXCHANGE RATE VIEW\")))) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 205)) set_type ((Some (\"contracts/Comptroller.py\" 414)) var \"priceCollateralMantissa\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 206)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/Comptroller.py\" 408)) first ((Some (\"contracts/Comptroller.py\" 406)) open_variant ((Some (\"contracts/Comptroller.py\" 405)) view \"exchangeRateStoredView\" (None literal (unit)) ((Some (\"contracts/Comptroller.py\" 400)) attr ((Some (\"contracts/Comptroller.py\" 394)) parameter) \"cTokenCollateral\") (tuple \"nat\" \"nat\")) \"Some\" ((Some (\"contracts/Comptroller.py\" 406)) literal (string \"INVALID EXCHANGE RATE VIEW\")))))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 414)) var \"priceCollateralMantissa\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 408)) first ((Some (\"contracts/Comptroller.py\" 406)) open_variant ((Some (\"contracts/Comptroller.py\" 405)) view \"exchangeRateStoredView\" (None literal (unit)) ((Some (\"contracts/Comptroller.py\" 400)) attr ((Some (\"contracts/Comptroller.py\" 394)) parameter) \"cTokenCollateral\") (tuple \"nat\" \"nat\")) \"Some\" ((Some (\"contracts/Comptroller.py\" 406)) literal (string \"INVALID EXCHANGE RATE VIEW\"))))) ((Some (\"contracts/utils/Exponential.py\" 207)) attr (None storage) \"expScale\")) \"nat\") ((Some (\"contracts/Comptroller.py\" 413)) define_local \"denominator\" ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 414)) var \"priceCollateralMantissa\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 408)) first ((Some (\"contracts/Comptroller.py\" 406)) open_variant ((Some (\"contracts/Comptroller.py\" 405)) view \"exchangeRateStoredView\" (None literal (unit)) ((Some (\"contracts/Comptroller.py\" 400)) attr ((Some (\"contracts/Comptroller.py\" 394)) parameter) \"cTokenCollateral\") (tuple \"nat\" \"nat\")) \"Some\" ((Some (\"contracts/Comptroller.py\" 406)) literal (string \"INVALID EXCHANGE RATE VIEW\"))))) ((Some (\"contracts/utils/Exponential.py\" 207)) attr (None storage) \"expScale\")))) True) ((Some (\"contracts/utils/Exponential.py\" 241)) set_type ((Some (\"contracts/Comptroller.py\" 417)) var \"numerator\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 242)) set_type ((Some (\"contracts/Comptroller.py\" 417)) var \"denominator\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 243)) verify ((Some (\"contracts/utils/Exponential.py\" 243)) gt ((Some (\"contracts/utils/Exponential.py\" 243)) attr ((Some (\"contracts/Comptroller.py\" 417)) var \"denominator\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 243)) literal (intOrNat 0))) ((Some (\"contracts/utils/Exponential.py\" 243)) literal (string \"DIVISION_BY_ZERO\"))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 244)) div ((Some (\"contracts/utils/Exponential.py\" 244)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 244)) attr ((Some (\"contracts/Comptroller.py\" 417)) var \"numerator\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr (None storage) \"expScale\")) ((Some (\"contracts/utils/Exponential.py\" 243)) attr ((Some (\"contracts/Comptroller.py\" 417)) var \"denominator\") \"mantissa\")) \"nat\") ((Some (\"contracts/Comptroller.py\" 416)) define_local \"ratio\" ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 244)) div ((Some (\"contracts/utils/Exponential.py\" 244)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 244)) attr ((Some (\"contracts/Comptroller.py\" 417)) var \"numerator\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr (None storage) \"expScale\")) ((Some (\"contracts/utils/Exponential.py\" 243)) attr ((Some (\"contracts/Comptroller.py\" 417)) var \"denominator\") \"mantissa\")))) True) ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 420)) var \"ratio\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 420)) var \"ratio\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 420)) attr ((Some (\"contracts/Comptroller.py\" 394)) parameter) \"actualRepayAmount\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 420)) var \"ratio\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 420)) attr ((Some (\"contracts/Comptroller.py\" 394)) parameter) \"actualRepayAmount\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 420)) var \"ratio\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 420)) attr ((Some (\"contracts/Comptroller.py\" 394)) parameter) \"actualRepayAmount\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 419)) result ((Some (\"contracts/Comptroller.py\" 419)) tuple ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 420)) var \"ratio\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 420)) attr ((Some (\"contracts/Comptroller.py\" 394)) parameter) \"actualRepayAmount\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr (None storage) \"expScale\")) ((Some (\"contracts/Comptroller.py\" 409)) second ((Some (\"contracts/Comptroller.py\" 406)) open_variant ((Some (\"contracts/Comptroller.py\" 405)) view \"exchangeRateStoredView\" (None literal (unit)) ((Some (\"contracts/Comptroller.py\" 400)) attr ((Some (\"contracts/Comptroller.py\" 394)) parameter) \"cTokenCollateral\") (tuple \"nat\" \"nat\")) \"Some\" ((Some (\"contracts/Comptroller.py\" 406)) literal (string \"INVALID EXCHANGE RATE VIEW\")))))))) (onchain seizeAllowed True (Some (\"contracts/Comptroller.py\" 459)) False \"\" (((Some (\"contracts/Comptroller.py\" 460)) set_type ((Some (\"contracts/Comptroller.py\" 459)) parameter) (record ((cTokenBorrowed \"address\") (cTokenCollateral \"address\")) Variable (Some (\"contracts/Comptroller.py\" 460)))) ((Some (\"contracts/Comptroller.py\" 469)) if_block ((Some (\"contracts/Comptroller.py\" 469)) or ((Some (\"contracts/Comptroller.py\" 469)) not ((Some (\"contracts/Comptroller.py\" 463)) and ((Some (\"contracts/Comptroller.py\" 463)) contains ((Some (\"contracts/Comptroller.py\" 463)) attr (None storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 463)) attr ((Some (\"contracts/Comptroller.py\" 459)) parameter) \"cTokenBorrowed\")) ((Some (\"contracts/Comptroller.py\" 464)) attr ((Some (\"contracts/Comptroller.py\" 464)) get_item ((Some (\"contracts/Comptroller.py\" 463)) attr (None storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 463)) attr ((Some (\"contracts/Comptroller.py\" 459)) parameter) \"cTokenBorrowed\")) \"isListed\"))) ((Some (\"contracts/Comptroller.py\" 469)) not ((Some (\"contracts/Comptroller.py\" 466)) and ((Some (\"contracts/Comptroller.py\" 466)) contains ((Some (\"contracts/Comptroller.py\" 463)) attr (None storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 466)) attr ((Some (\"contracts/Comptroller.py\" 459)) parameter) \"cTokenCollateral\")) ((Some (\"contracts/Comptroller.py\" 467)) attr ((Some (\"contracts/Comptroller.py\" 467)) get_item ((Some (\"contracts/Comptroller.py\" 463)) attr (None storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 466)) attr ((Some (\"contracts/Comptroller.py\" 459)) parameter) \"cTokenCollateral\")) \"isListed\")))) (((Some (\"contracts/Comptroller.py\" 470)) result ((Some (\"contracts/Comptroller.py\" 470)) literal (bool False))))) (else_block (((Some (\"contracts/Comptroller.py\" 475)) if_block ((Some (\"contracts/Comptroller.py\" 475)) or ((Some (\"contracts/Comptroller.py\" 475)) is_variant ((Some (\"contracts/Comptroller.py\" 472)) view \"comptroller\" (None literal (unit)) ((Some (\"contracts/Comptroller.py\" 463)) attr ((Some (\"contracts/Comptroller.py\" 459)) parameter) \"cTokenBorrowed\") \"address\") \"None\") ((Some (\"contracts/Comptroller.py\" 475)) is_variant ((Some (\"contracts/Comptroller.py\" 473)) view \"comptroller\" (None literal (unit)) ((Some (\"contracts/Comptroller.py\" 466)) attr ((Some (\"contracts/Comptroller.py\" 459)) parameter) \"cTokenCollateral\") \"address\") \"None\")) (((Some (\"contracts/Comptroller.py\" 476)) result ((Some (\"contracts/Comptroller.py\" 476)) literal (bool False))))) (else_block (((Some (\"contracts/Comptroller.py\" 480)) result ((Some (\"contracts/Comptroller.py\" 480)) eq ((Some (\"contracts/Comptroller.py\" 478)) open_variant ((Some (\"contracts/Comptroller.py\" 472)) view \"comptroller\" (None literal (unit)) ((Some (\"contracts/Comptroller.py\" 463)) attr ((Some (\"contracts/Comptroller.py\" 459)) parameter) \"cTokenBorrowed\") \"address\") \"Some\" \"None\") ((Some (\"contracts/Comptroller.py\" 479)) open_variant ((Some (\"contracts/Comptroller.py\" 473)) view \"comptroller\" (None literal (unit)) ((Some (\"contracts/Comptroller.py\" 466)) attr ((Some (\"contracts/Comptroller.py\" 459)) parameter) \"cTokenCollateral\") \"address\") \"Some\" \"None\"))))))))))\nentrypoints_layout ()\ninitial_metadata ()\nbalance ())", + "export": "(template_id (None static_id 0) \nstorage ((Some (\"contracts/utils/Exponential.py\" 21)) record (account_liquidity ((Some (\"contracts/Comptroller.py\" 61)) type_annotation ((Some (\"contracts/Comptroller.py\" 61)) big_map ) (big_map \"address\" (record ((liquidity \"int\") (updateLevel \"nat\") (valid \"bool\")) Variable (Some (\"contracts/Comptroller.py\" 34)))))) (activeOperations ((Some (\"contracts/Comptroller.py\" 65)) type_annotation ((Some (\"contracts/Comptroller.py\" 65)) set ) (set \"nat\"))) (administrator ((Some (\"./deploy/compile_targets/CompileComptroller.py\" 10)) literal (address \"KT1NF6DKX5giazRTzPtEuNX1npkVcaoQkvK2\"))) (closeFactorMantissa ((Some (\"./deploy/compile_targets/CompileComptroller.py\" 12)) literal (nat 500000000000000000))) (collaterals ((Some (\"contracts/Comptroller.py\" 55)) type_annotation ((Some (\"contracts/Comptroller.py\" 55)) big_map ) (big_map \"address\" (set \"address\")))) (expScale ((Some (\"contracts/utils/Exponential.py\" 21)) literal (nat 1000000000000000000))) (halfExpScale ((Some (\"contracts/utils/Exponential.py\" 21)) literal (nat 500000000000000000))) (liquidationIncentiveMantissa ((Some (\"./deploy/compile_targets/CompileComptroller.py\" 13)) literal (nat 1050000000000000000))) (loans ((Some (\"contracts/Comptroller.py\" 58)) type_annotation ((Some (\"contracts/Comptroller.py\" 58)) big_map ) (big_map \"address\" (set \"address\")))) (marketNameToAddress ((Some (\"contracts/Comptroller.py\" 52)) type_annotation ((Some (\"contracts/Comptroller.py\" 52)) map ) (map \"string\" \"address\"))) (markets ((Some (\"contracts/Comptroller.py\" 50)) type_annotation ((Some (\"contracts/Comptroller.py\" 50)) big_map ) (big_map \"address\" (record ((borrowPaused \"bool\") (collateralFactor (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) (isListed \"bool\") (mintPaused \"bool\") (name \"string\") (price (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) (priceExp \"nat\") (priceTimestamp \"timestamp\") (updateLevel \"nat\")) Variable (Some (\"contracts/Comptroller.py\" 20)))))) (maxAssetsPerUser ((Some (\"contracts/utils/Exponential.py\" 21)) literal (intOrNat 15))) (maxPriceTimeDifference ((Some (\"contracts/Comptroller.py\" 68)) literal (int 86400))) (oracleAddress ((Some (\"./deploy/compile_targets/CompileComptroller.py\" 11)) literal (address \"KT1LDtNKDnpziwSrmSfx3xCbs7nBMg7VFp4m\"))) (pendingAdministrator (None variant \"None\" (None literal (unit)))) (transferPaused ((Some (\"contracts/Comptroller.py\" 53)) literal (bool True))))\nstorage_type (())\nentrypoints ((acceptGovernance True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 588)) (((Some (\"contracts/Comptroller.py\" 589)) verify ((Some (\"contracts/Comptroller.py\" 589)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 589)) MUL ((Some (\"contracts/Comptroller.py\" 589)) type_annotation ((Some (\"contracts/Comptroller.py\" 589)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 589)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 589)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 591)) set_type (None parameter) \"unit\") ((Some (\"contracts/Comptroller.py\" 592)) verify ((Some (\"contracts/Comptroller.py\" 592)) eq (None sender) ((Some (\"contracts/Comptroller.py\" 592)) open_variant ((Some (\"contracts/Comptroller.py\" 592)) attr ((Some (\"contracts/Comptroller.py\" 592)) storage) \"pendingAdministrator\") \"Some\" ((Some (\"contracts/Comptroller.py\" 592)) literal (string \"CMPT_NOT_SET_PENDING_ADMIN\")))) ((Some (\"contracts/Comptroller.py\" 592)) literal (string \"CMPT_NOT_PENDING_ADMIN\"))) ((Some (\"contracts/Comptroller.py\" 594)) set ((Some (\"contracts/Comptroller.py\" 594)) attr ((Some (\"contracts/Comptroller.py\" 594)) storage) \"administrator\") ((Some (\"contracts/Comptroller.py\" 594)) open_variant ((Some (\"contracts/Comptroller.py\" 594)) attr ((Some (\"contracts/Comptroller.py\" 594)) storage) \"pendingAdministrator\") \"Some\" \"None\")) ((Some (\"contracts/Comptroller.py\" 595)) set ((Some (\"contracts/Comptroller.py\" 595)) attr ((Some (\"contracts/Comptroller.py\" 595)) storage) \"pendingAdministrator\") (None variant \"None\" (None literal (unit)))))) (borrowAllowed True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 212)) (((Some (\"contracts/Comptroller.py\" 213)) verify ((Some (\"contracts/Comptroller.py\" 213)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 213)) MUL ((Some (\"contracts/Comptroller.py\" 213)) type_annotation ((Some (\"contracts/Comptroller.py\" 213)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 213)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 213)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 215)) set_type (None parameter) (record ((borrowAmount \"nat\") (borrower \"address\") (cToken \"address\")) (Value ((\"cToken\") ((\"borrower\") (\"borrowAmount\")))) (Some (\"contracts/interfaces/ComptrollerInterface.py\" 9)))) ((Some (\"contracts/Comptroller.py\" 216)) verify ((Some (\"contracts/Comptroller.py\" 217)) not ((Some (\"contracts/Comptroller.py\" 217)) attr ((Some (\"contracts/Comptroller.py\" 217)) get_item ((Some (\"contracts/Comptroller.py\" 217)) attr ((Some (\"contracts/Comptroller.py\" 217)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 217)) attr (None parameter) \"cToken\")) \"borrowPaused\")) ((Some (\"contracts/Comptroller.py\" 216)) literal (string \"CMPT_BORROW_PAUSED\"))) ((Some (\"contracts/Comptroller.py\" 784)) verify ((Some (\"contracts/Comptroller.py\" 784)) and ((Some (\"contracts/Comptroller.py\" 784)) contains ((Some (\"contracts/Comptroller.py\" 784)) attr ((Some (\"contracts/Comptroller.py\" 784)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 217)) attr (None parameter) \"cToken\")) ((Some (\"contracts/Comptroller.py\" 785)) attr ((Some (\"contracts/Comptroller.py\" 785)) get_item ((Some (\"contracts/Comptroller.py\" 785)) attr ((Some (\"contracts/Comptroller.py\" 785)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 217)) attr (None parameter) \"cToken\")) \"isListed\")) ((Some (\"contracts/Comptroller.py\" 784)) literal (string \"CMPT_MARKET_NOT_LISTED\"))) ((Some (\"contracts/Comptroller.py\" 824)) define_local \"is_new\" ((Some (\"contracts/Comptroller.py\" 824)) literal (bool True)) True) ((Some (\"contracts/Comptroller.py\" 826)) if_block ((Some (\"contracts/Comptroller.py\" 826)) contains ((Some (\"contracts/Comptroller.py\" 826)) attr ((Some (\"contracts/Comptroller.py\" 826)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 219)) attr (None parameter) \"borrower\")) (((Some (\"contracts/Comptroller.py\" 827)) if_block ((Some (\"contracts/Comptroller.py\" 827)) contains ((Some (\"contracts/Comptroller.py\" 827)) get_item ((Some (\"contracts/Comptroller.py\" 827)) attr ((Some (\"contracts/Comptroller.py\" 827)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 219)) attr (None parameter) \"borrower\")) ((Some (\"contracts/Comptroller.py\" 217)) attr (None parameter) \"cToken\")) (((Some (\"contracts/Comptroller.py\" 828)) set ((Some (\"contracts/Comptroller.py\" 828)) var \"is_new\") ((Some (\"contracts/Comptroller.py\" 828)) literal (bool False))))))) ((Some (\"contracts/Comptroller.py\" 830)) if_block ((Some (\"contracts/Comptroller.py\" 830)) and ((Some (\"contracts/Comptroller.py\" 830)) contains ((Some (\"contracts/Comptroller.py\" 830)) attr ((Some (\"contracts/Comptroller.py\" 830)) storage) \"loans\") ((Some (\"contracts/Comptroller.py\" 219)) attr (None parameter) \"borrower\")) ((Some (\"contracts/Comptroller.py\" 830)) var \"is_new\")) (((Some (\"contracts/Comptroller.py\" 831)) if_block ((Some (\"contracts/Comptroller.py\" 831)) contains ((Some (\"contracts/Comptroller.py\" 831)) get_item ((Some (\"contracts/Comptroller.py\" 831)) attr ((Some (\"contracts/Comptroller.py\" 831)) storage) \"loans\") ((Some (\"contracts/Comptroller.py\" 219)) attr (None parameter) \"borrower\")) ((Some (\"contracts/Comptroller.py\" 217)) attr (None parameter) \"cToken\")) (((Some (\"contracts/Comptroller.py\" 832)) set ((Some (\"contracts/Comptroller.py\" 832)) var \"is_new\") ((Some (\"contracts/Comptroller.py\" 832)) literal (bool False))))))) ((Some (\"contracts/Comptroller.py\" 219)) if_block ((Some (\"contracts/Comptroller.py\" 834)) var \"is_new\") (((Some (\"contracts/Comptroller.py\" 811)) define_local \"unique_assets\" ((Some (\"contracts/Comptroller.py\" 811)) type_annotation ((Some (\"contracts/Comptroller.py\" 811)) set ) (set \"address\")) True) ((Some (\"contracts/Comptroller.py\" 813)) if_block ((Some (\"contracts/Comptroller.py\" 813)) contains ((Some (\"contracts/Comptroller.py\" 813)) attr ((Some (\"contracts/Comptroller.py\" 813)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 219)) attr (None parameter) \"borrower\")) (((Some (\"contracts/Comptroller.py\" 814)) for_group \"asset\" ((Some (\"contracts/Comptroller.py\" 814)) elements ((Some (\"contracts/Comptroller.py\" 814)) get_item ((Some (\"contracts/Comptroller.py\" 814)) attr ((Some (\"contracts/Comptroller.py\" 814)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 219)) attr (None parameter) \"borrower\"))) (((Some (\"contracts/Comptroller.py\" 815)) update_set ((Some (\"contracts/Comptroller.py\" 815)) var \"unique_assets\") ((Some (\"contracts/Comptroller.py\" 814)) var \"asset\") True))))) ((Some (\"contracts/Comptroller.py\" 817)) if_block ((Some (\"contracts/Comptroller.py\" 817)) contains ((Some (\"contracts/Comptroller.py\" 817)) attr ((Some (\"contracts/Comptroller.py\" 817)) storage) \"loans\") ((Some (\"contracts/Comptroller.py\" 219)) attr (None parameter) \"borrower\")) (((Some (\"contracts/Comptroller.py\" 818)) for_group \"asset\" ((Some (\"contracts/Comptroller.py\" 818)) elements ((Some (\"contracts/Comptroller.py\" 818)) get_item ((Some (\"contracts/Comptroller.py\" 818)) attr ((Some (\"contracts/Comptroller.py\" 818)) storage) \"loans\") ((Some (\"contracts/Comptroller.py\" 219)) attr (None parameter) \"borrower\"))) (((Some (\"contracts/Comptroller.py\" 819)) update_set ((Some (\"contracts/Comptroller.py\" 819)) var \"unique_assets\") ((Some (\"contracts/Comptroller.py\" 818)) var \"asset\") True))))) ((Some (\"contracts/Comptroller.py\" 221)) verify ((Some (\"contracts/Comptroller.py\" 221)) lt ((Some (\"contracts/Comptroller.py\" 821)) size ((Some (\"contracts/Comptroller.py\" 821)) var \"unique_assets\")) ((Some (\"contracts/Comptroller.py\" 221)) attr ((Some (\"contracts/Comptroller.py\" 221)) storage) \"maxAssetsPerUser\")) ((Some (\"contracts/Comptroller.py\" 221)) literal (string \"CMPT_TOO_MANY_ASSETS\"))))) ((Some (\"contracts/Comptroller.py\" 223)) if_block ((Some (\"contracts/Comptroller.py\" 223)) not ((Some (\"contracts/Comptroller.py\" 223)) contains ((Some (\"contracts/Comptroller.py\" 223)) attr ((Some (\"contracts/Comptroller.py\" 223)) storage) \"loans\") ((Some (\"contracts/Comptroller.py\" 219)) attr (None parameter) \"borrower\"))) (((Some (\"contracts/Comptroller.py\" 225)) verify ((Some (\"contracts/Comptroller.py\" 225)) eq (None sender) ((Some (\"contracts/Comptroller.py\" 217)) attr (None parameter) \"cToken\")) ((Some (\"contracts/Comptroller.py\" 225)) literal (string \"CMPT_INVALID_BORROW_SENDER\"))) ((Some (\"contracts/Comptroller.py\" 784)) verify ((Some (\"contracts/Comptroller.py\" 784)) and ((Some (\"contracts/Comptroller.py\" 784)) contains ((Some (\"contracts/Comptroller.py\" 784)) attr ((Some (\"contracts/Comptroller.py\" 784)) storage) \"markets\") (None sender)) ((Some (\"contracts/Comptroller.py\" 785)) attr ((Some (\"contracts/Comptroller.py\" 785)) get_item ((Some (\"contracts/Comptroller.py\" 785)) attr ((Some (\"contracts/Comptroller.py\" 785)) storage) \"markets\") (None sender)) \"isListed\")) ((Some (\"contracts/Comptroller.py\" 784)) literal (string \"CMPT_MARKET_NOT_LISTED\"))) ((Some (\"contracts/Comptroller.py\" 238)) if_block ((Some (\"contracts/Comptroller.py\" 238)) contains ((Some (\"contracts/Comptroller.py\" 238)) attr ((Some (\"contracts/Comptroller.py\" 238)) storage) \"loans\") ((Some (\"contracts/Comptroller.py\" 219)) attr (None parameter) \"borrower\")) (((Some (\"contracts/Comptroller.py\" 239)) update_set ((Some (\"contracts/Comptroller.py\" 239)) get_item ((Some (\"contracts/Comptroller.py\" 239)) attr ((Some (\"contracts/Comptroller.py\" 239)) storage) \"loans\") ((Some (\"contracts/Comptroller.py\" 219)) attr (None parameter) \"borrower\")) (None sender) True))) (else_block (((Some (\"contracts/Comptroller.py\" 241)) set ((Some (\"contracts/Comptroller.py\" 241)) get_item ((Some (\"contracts/Comptroller.py\" 241)) attr ((Some (\"contracts/Comptroller.py\" 241)) storage) \"loans\") ((Some (\"contracts/Comptroller.py\" 219)) attr (None parameter) \"borrower\")) ((Some (\"contracts/Comptroller.py\" 241)) set (None sender))))))) ((Some (\"contracts/Comptroller.py\" 798)) verify ((Some (\"contracts/Comptroller.py\" 798)) contains ((Some (\"contracts/Comptroller.py\" 798)) attr ((Some (\"contracts/Comptroller.py\" 798)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 219)) attr (None parameter) \"borrower\")) ((Some (\"contracts/Comptroller.py\" 798)) literal (string \"CMPT_LIQUIDITY_ABSENT\"))) ((Some (\"contracts/Comptroller.py\" 800)) verify ((Some (\"contracts/Comptroller.py\" 801)) attr ((Some (\"contracts/Comptroller.py\" 801)) get_item ((Some (\"contracts/Comptroller.py\" 801)) attr ((Some (\"contracts/Comptroller.py\" 801)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 219)) attr (None parameter) \"borrower\")) \"valid\") ((Some (\"contracts/Comptroller.py\" 800)) literal (string \"CMPT_LIQUIDITY_INVALID\"))) ((Some (\"contracts/utils/Exponential.py\" 193)) set_type (None level) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/Comptroller.py\" 803)) attr ((Some (\"contracts/Comptroller.py\" 803)) get_item ((Some (\"contracts/Comptroller.py\" 803)) attr ((Some (\"contracts/Comptroller.py\" 803)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 219)) attr (None parameter) \"borrower\")) \"updateLevel\") \"nat\") ((Some (\"contracts/Comptroller.py\" 802)) define_local \"compute_Comptroller_802\" ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub (None level) ((Some (\"contracts/Comptroller.py\" 803)) attr ((Some (\"contracts/Comptroller.py\" 803)) get_item ((Some (\"contracts/Comptroller.py\" 803)) attr ((Some (\"contracts/Comptroller.py\" 803)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 219)) attr (None parameter) \"borrower\")) \"updateLevel\"))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) True) ((Some (\"contracts/Comptroller.py\" 804)) verify ((Some (\"contracts/Comptroller.py\" 804)) eq ((Some (\"contracts/Comptroller.py\" 802)) var \"compute_Comptroller_802\") ((Some (\"contracts/Comptroller.py\" 804)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 804)) literal (string \"CMPT_LIQUIDITY_OLD\"))) ((Some (\"contracts/Comptroller.py\" 315)) verify ((Some (\"contracts/Comptroller.py\" 315)) eq (None level) ((Some (\"contracts/Comptroller.py\" 315)) attr ((Some (\"contracts/Comptroller.py\" 315)) get_item ((Some (\"contracts/Comptroller.py\" 315)) attr ((Some (\"contracts/Comptroller.py\" 315)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 217)) attr (None parameter) \"cToken\")) \"updateLevel\")) ((Some (\"contracts/Comptroller.py\" 315)) literal (string \"CMPT_UPDATE_PRICE\"))) ((Some (\"contracts/Comptroller.py\" 234)) verify ((Some (\"contracts/Comptroller.py\" 234)) gt ((Some (\"contracts/Comptroller.py\" 234)) attr ((Some (\"contracts/Comptroller.py\" 316)) attr ((Some (\"contracts/Comptroller.py\" 316)) get_item ((Some (\"contracts/Comptroller.py\" 316)) attr ((Some (\"contracts/Comptroller.py\" 316)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 217)) attr (None parameter) \"cToken\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 234)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 234)) literal (string \"CMPT_INVALID_PRICE\"))) ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 196)) attr ((Some (\"contracts/Comptroller.py\" 196)) get_item ((Some (\"contracts/Comptroller.py\" 196)) attr ((Some (\"contracts/Comptroller.py\" 196)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 217)) attr (None parameter) \"cToken\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 196)) attr ((Some (\"contracts/Comptroller.py\" 196)) get_item ((Some (\"contracts/Comptroller.py\" 196)) attr ((Some (\"contracts/Comptroller.py\" 196)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 217)) attr (None parameter) \"cToken\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 229)) attr (None parameter) \"borrowAmount\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 196)) attr ((Some (\"contracts/Comptroller.py\" 196)) get_item ((Some (\"contracts/Comptroller.py\" 196)) attr ((Some (\"contracts/Comptroller.py\" 196)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 217)) attr (None parameter) \"cToken\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 229)) attr (None parameter) \"borrowAmount\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 196)) attr ((Some (\"contracts/Comptroller.py\" 196)) get_item ((Some (\"contracts/Comptroller.py\" 196)) attr ((Some (\"contracts/Comptroller.py\" 196)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 217)) attr (None parameter) \"cToken\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 229)) attr (None parameter) \"borrowAmount\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 195)) define_local \"compute_Comptroller_195\" ((Some (\"contracts/Comptroller.py\" 195)) sub ((Some (\"contracts/Comptroller.py\" 195)) attr ((Some (\"contracts/Comptroller.py\" 195)) get_item ((Some (\"contracts/Comptroller.py\" 195)) attr ((Some (\"contracts/Comptroller.py\" 195)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 219)) attr (None parameter) \"borrower\")) \"liquidity\") ((Some (\"contracts/Comptroller.py\" 195)) to_int ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 196)) attr ((Some (\"contracts/Comptroller.py\" 196)) get_item ((Some (\"contracts/Comptroller.py\" 196)) attr ((Some (\"contracts/Comptroller.py\" 196)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 217)) attr (None parameter) \"cToken\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 229)) attr (None parameter) \"borrowAmount\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))) True) ((Some (\"contracts/Comptroller.py\" 197)) verify ((Some (\"contracts/Comptroller.py\" 197)) ge ((Some (\"contracts/Comptroller.py\" 195)) var \"compute_Comptroller_195\") ((Some (\"contracts/Comptroller.py\" 197)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 197)) literal (string \"CMPT_REDEEMER_SHORTFALL\"))) ((Some (\"contracts/Comptroller.py\" 807)) if_block ((Some (\"contracts/Comptroller.py\" 807)) contains ((Some (\"contracts/Comptroller.py\" 807)) attr ((Some (\"contracts/Comptroller.py\" 807)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 219)) attr (None parameter) \"borrower\")) (((Some (\"contracts/Comptroller.py\" 808)) set ((Some (\"contracts/Comptroller.py\" 808)) attr ((Some (\"contracts/Comptroller.py\" 808)) get_item ((Some (\"contracts/Comptroller.py\" 808)) attr ((Some (\"contracts/Comptroller.py\" 808)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 219)) attr (None parameter) \"borrower\")) \"valid\") ((Some (\"contracts/Comptroller.py\" 808)) literal (bool False))))))) (disableMarket True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 770)) (((Some (\"contracts/Comptroller.py\" 771)) verify ((Some (\"contracts/Comptroller.py\" 771)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 771)) MUL ((Some (\"contracts/Comptroller.py\" 771)) type_annotation ((Some (\"contracts/Comptroller.py\" 771)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 771)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 771)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 773)) set_type (None parameter) \"address\") ((Some (\"contracts/Comptroller.py\" 792)) verify ((Some (\"contracts/Comptroller.py\" 792)) eq (None sender) ((Some (\"contracts/Comptroller.py\" 792)) attr ((Some (\"contracts/Comptroller.py\" 792)) storage) \"administrator\")) ((Some (\"contracts/Comptroller.py\" 792)) literal (string \"CMPT_NOT_ADMIN\"))) ((Some (\"contracts/Comptroller.py\" 784)) verify ((Some (\"contracts/Comptroller.py\" 784)) and ((Some (\"contracts/Comptroller.py\" 784)) contains ((Some (\"contracts/Comptroller.py\" 784)) attr ((Some (\"contracts/Comptroller.py\" 784)) storage) \"markets\") (None parameter)) ((Some (\"contracts/Comptroller.py\" 785)) attr ((Some (\"contracts/Comptroller.py\" 785)) get_item ((Some (\"contracts/Comptroller.py\" 785)) attr ((Some (\"contracts/Comptroller.py\" 785)) storage) \"markets\") (None parameter)) \"isListed\")) ((Some (\"contracts/Comptroller.py\" 784)) literal (string \"CMPT_MARKET_NOT_LISTED\"))) ((Some (\"contracts/Comptroller.py\" 776)) set ((Some (\"contracts/Comptroller.py\" 776)) attr ((Some (\"contracts/Comptroller.py\" 776)) get_item ((Some (\"contracts/Comptroller.py\" 776)) attr ((Some (\"contracts/Comptroller.py\" 776)) storage) \"markets\") (None parameter)) \"isListed\") ((Some (\"contracts/Comptroller.py\" 776)) literal (bool False))))) (enterMarkets True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 79)) (((Some (\"contracts/Comptroller.py\" 80)) verify ((Some (\"contracts/Comptroller.py\" 80)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 80)) MUL ((Some (\"contracts/Comptroller.py\" 80)) type_annotation ((Some (\"contracts/Comptroller.py\" 80)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 80)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 80)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 82)) set_type (None parameter) (list \"address\")) ((Some (\"contracts/Comptroller.py\" 811)) define_local \"unique_assets\" ((Some (\"contracts/Comptroller.py\" 811)) type_annotation ((Some (\"contracts/Comptroller.py\" 811)) set ) (set \"address\")) True) ((Some (\"contracts/Comptroller.py\" 813)) if_block ((Some (\"contracts/Comptroller.py\" 813)) contains ((Some (\"contracts/Comptroller.py\" 813)) attr ((Some (\"contracts/Comptroller.py\" 813)) storage) \"collaterals\") (None sender)) (((Some (\"contracts/Comptroller.py\" 814)) for_group \"asset\" ((Some (\"contracts/Comptroller.py\" 814)) elements ((Some (\"contracts/Comptroller.py\" 814)) get_item ((Some (\"contracts/Comptroller.py\" 814)) attr ((Some (\"contracts/Comptroller.py\" 814)) storage) \"collaterals\") (None sender))) (((Some (\"contracts/Comptroller.py\" 815)) update_set ((Some (\"contracts/Comptroller.py\" 815)) var \"unique_assets\") ((Some (\"contracts/Comptroller.py\" 814)) var \"asset\") True))))) ((Some (\"contracts/Comptroller.py\" 817)) if_block ((Some (\"contracts/Comptroller.py\" 817)) contains ((Some (\"contracts/Comptroller.py\" 817)) attr ((Some (\"contracts/Comptroller.py\" 817)) storage) \"loans\") (None sender)) (((Some (\"contracts/Comptroller.py\" 818)) for_group \"asset\" ((Some (\"contracts/Comptroller.py\" 818)) elements ((Some (\"contracts/Comptroller.py\" 818)) get_item ((Some (\"contracts/Comptroller.py\" 818)) attr ((Some (\"contracts/Comptroller.py\" 818)) storage) \"loans\") (None sender))) (((Some (\"contracts/Comptroller.py\" 819)) update_set ((Some (\"contracts/Comptroller.py\" 819)) var \"unique_assets\") ((Some (\"contracts/Comptroller.py\" 818)) var \"asset\") True))))) ((Some (\"contracts/Comptroller.py\" 83)) define_local \"currentAssetCount\" ((Some (\"contracts/Comptroller.py\" 821)) size ((Some (\"contracts/Comptroller.py\" 821)) var \"unique_assets\")) True) ((Some (\"contracts/Comptroller.py\" 84)) for_group \"token\" (None parameter) (((Some (\"contracts/Comptroller.py\" 824)) define_local \"is_new\" ((Some (\"contracts/Comptroller.py\" 824)) literal (bool True)) True) ((Some (\"contracts/Comptroller.py\" 826)) if_block ((Some (\"contracts/Comptroller.py\" 826)) contains ((Some (\"contracts/Comptroller.py\" 826)) attr ((Some (\"contracts/Comptroller.py\" 826)) storage) \"collaterals\") (None sender)) (((Some (\"contracts/Comptroller.py\" 827)) if_block ((Some (\"contracts/Comptroller.py\" 827)) contains ((Some (\"contracts/Comptroller.py\" 827)) get_item ((Some (\"contracts/Comptroller.py\" 827)) attr ((Some (\"contracts/Comptroller.py\" 827)) storage) \"collaterals\") (None sender)) ((Some (\"contracts/Comptroller.py\" 84)) var \"token\")) (((Some (\"contracts/Comptroller.py\" 828)) set ((Some (\"contracts/Comptroller.py\" 828)) var \"is_new\") ((Some (\"contracts/Comptroller.py\" 828)) literal (bool False))))))) ((Some (\"contracts/Comptroller.py\" 830)) if_block ((Some (\"contracts/Comptroller.py\" 830)) and ((Some (\"contracts/Comptroller.py\" 830)) contains ((Some (\"contracts/Comptroller.py\" 830)) attr ((Some (\"contracts/Comptroller.py\" 830)) storage) \"loans\") (None sender)) ((Some (\"contracts/Comptroller.py\" 830)) var \"is_new\")) (((Some (\"contracts/Comptroller.py\" 831)) if_block ((Some (\"contracts/Comptroller.py\" 831)) contains ((Some (\"contracts/Comptroller.py\" 831)) get_item ((Some (\"contracts/Comptroller.py\" 831)) attr ((Some (\"contracts/Comptroller.py\" 831)) storage) \"loans\") (None sender)) ((Some (\"contracts/Comptroller.py\" 84)) var \"token\")) (((Some (\"contracts/Comptroller.py\" 832)) set ((Some (\"contracts/Comptroller.py\" 832)) var \"is_new\") ((Some (\"contracts/Comptroller.py\" 832)) literal (bool False))))))) ((Some (\"contracts/Comptroller.py\" 85)) if_block ((Some (\"contracts/Comptroller.py\" 834)) var \"is_new\") (((Some (\"contracts/Comptroller.py\" 86)) verify ((Some (\"contracts/Comptroller.py\" 86)) lt ((Some (\"contracts/Comptroller.py\" 86)) var \"currentAssetCount\") ((Some (\"contracts/Comptroller.py\" 86)) attr ((Some (\"contracts/Comptroller.py\" 86)) storage) \"maxAssetsPerUser\")) ((Some (\"contracts/Comptroller.py\" 86)) literal (string \"CMPT_TOO_MANY_ASSETS\"))) ((Some (\"contracts/Comptroller.py\" 87)) set ((Some (\"contracts/Comptroller.py\" 87)) var \"currentAssetCount\") ((Some (\"contracts/Comptroller.py\" 87)) add ((Some (\"contracts/Comptroller.py\" 87)) var \"currentAssetCount\") ((Some (\"contracts/Comptroller.py\" 87)) literal (intOrNat 1)))))) ((Some (\"contracts/Comptroller.py\" 784)) verify ((Some (\"contracts/Comptroller.py\" 784)) and ((Some (\"contracts/Comptroller.py\" 784)) contains ((Some (\"contracts/Comptroller.py\" 784)) attr ((Some (\"contracts/Comptroller.py\" 784)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 84)) var \"token\")) ((Some (\"contracts/Comptroller.py\" 785)) attr ((Some (\"contracts/Comptroller.py\" 785)) get_item ((Some (\"contracts/Comptroller.py\" 785)) attr ((Some (\"contracts/Comptroller.py\" 785)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 84)) var \"token\")) \"isListed\")) ((Some (\"contracts/Comptroller.py\" 784)) literal (string \"CMPT_MARKET_NOT_LISTED\"))) ((Some (\"contracts/Comptroller.py\" 93)) if_block ((Some (\"contracts/Comptroller.py\" 93)) contains ((Some (\"contracts/Comptroller.py\" 93)) attr ((Some (\"contracts/Comptroller.py\" 93)) storage) \"collaterals\") (None sender)) (((Some (\"contracts/Comptroller.py\" 94)) update_set ((Some (\"contracts/Comptroller.py\" 94)) get_item ((Some (\"contracts/Comptroller.py\" 94)) attr ((Some (\"contracts/Comptroller.py\" 94)) storage) \"collaterals\") (None sender)) ((Some (\"contracts/Comptroller.py\" 84)) var \"token\") True))) (else_block (((Some (\"contracts/Comptroller.py\" 96)) set ((Some (\"contracts/Comptroller.py\" 96)) get_item ((Some (\"contracts/Comptroller.py\" 96)) attr ((Some (\"contracts/Comptroller.py\" 96)) storage) \"collaterals\") (None sender)) ((Some (\"contracts/Comptroller.py\" 96)) set ((Some (\"contracts/Comptroller.py\" 84)) var \"token\"))))))) ((Some (\"contracts/Comptroller.py\" 807)) if_block ((Some (\"contracts/Comptroller.py\" 807)) contains ((Some (\"contracts/Comptroller.py\" 807)) attr ((Some (\"contracts/Comptroller.py\" 807)) storage) \"account_liquidity\") (None sender)) (((Some (\"contracts/Comptroller.py\" 808)) set ((Some (\"contracts/Comptroller.py\" 808)) attr ((Some (\"contracts/Comptroller.py\" 808)) get_item ((Some (\"contracts/Comptroller.py\" 808)) attr ((Some (\"contracts/Comptroller.py\" 808)) storage) \"account_liquidity\") (None sender)) \"valid\") ((Some (\"contracts/Comptroller.py\" 808)) literal (bool False))))))) (exitMarket True None None None True None (Some (\"contracts/Comptroller.py\" 111)) (((Some (\"contracts/Comptroller.py\" 112)) verify ((Some (\"contracts/Comptroller.py\" 112)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 112)) MUL ((Some (\"contracts/Comptroller.py\" 112)) type_annotation ((Some (\"contracts/Comptroller.py\" 112)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 112)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 112)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 114)) set_type (None parameter) \"address\") ((Some (\"contracts/utils/OperationProtector.py\" 46)) update_set ((Some (\"contracts/utils/OperationProtector.py\" 46)) attr ((Some (\"contracts/utils/OperationProtector.py\" 46)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 28)) literal (nat 1)) True) ((Some (\"contracts/Comptroller.py\" 119)) set ((Some (\"contracts/Comptroller.py\" 119)) operations) ((Some (\"contracts/Comptroller.py\" 119)) cons ((Some (\"contracts/Comptroller.py\" 119)) transfer ((Some (\"contracts/Comptroller.py\" 119)) tuple (None sender) ((Some (\"contracts/Comptroller.py\" 119)) self \"setAccountSnapAndExitMarket\")) ((Some (\"contracts/Comptroller.py\" 120)) literal (mutez 0)) ((Some (\"contracts/Comptroller.py\" 118)) open_variant ((Some (\"contracts/Comptroller.py\" 117)) contract \"getAccountSnapshot\" (tuple \"address\" (contract (record ((account \"address\") (borrowBalance \"nat\") (cTokenBalance \"nat\") (exchangeRateMantissa \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 21))))) (None parameter)) \"Some\" \"None\")) ((Some (\"contracts/Comptroller.py\" 119)) operations))))) (hardResetOp True (Some True) None None True None (Some (\"contracts/utils/OperationProtector.py\" 56)) (((Some (\"contracts/utils/OperationProtector.py\" 57)) set_type (None parameter) \"unit\") ((Some (\"contracts/Comptroller.py\" 792)) verify ((Some (\"contracts/Comptroller.py\" 792)) eq (None sender) ((Some (\"contracts/Comptroller.py\" 792)) attr ((Some (\"contracts/Comptroller.py\" 792)) storage) \"administrator\")) ((Some (\"contracts/Comptroller.py\" 792)) literal (string \"CMPT_NOT_ADMIN\"))) ((Some (\"contracts/utils/OperationProtector.py\" 59)) set ((Some (\"contracts/utils/OperationProtector.py\" 59)) attr ((Some (\"contracts/utils/OperationProtector.py\" 59)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 59)) set )))) (liquidateBorrowAllowed True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 438)) (((Some (\"contracts/Comptroller.py\" 439)) verify ((Some (\"contracts/Comptroller.py\" 439)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 439)) MUL ((Some (\"contracts/Comptroller.py\" 439)) type_annotation ((Some (\"contracts/Comptroller.py\" 439)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 439)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 439)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 441)) set_type (None parameter) (record ((borrower \"address\") (cTokenBorrowed \"address\") (cTokenCollateral \"address\") (liquidator \"address\") (repayAmount \"nat\")) Variable (Some (\"contracts/interfaces/ComptrollerInterface.py\" 28)))) ((Some (\"contracts/Comptroller.py\" 784)) verify ((Some (\"contracts/Comptroller.py\" 784)) and ((Some (\"contracts/Comptroller.py\" 784)) contains ((Some (\"contracts/Comptroller.py\" 784)) attr ((Some (\"contracts/Comptroller.py\" 784)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 443)) attr (None parameter) \"cTokenBorrowed\")) ((Some (\"contracts/Comptroller.py\" 785)) attr ((Some (\"contracts/Comptroller.py\" 785)) get_item ((Some (\"contracts/Comptroller.py\" 785)) attr ((Some (\"contracts/Comptroller.py\" 785)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 443)) attr (None parameter) \"cTokenBorrowed\")) \"isListed\")) ((Some (\"contracts/Comptroller.py\" 784)) literal (string \"CMPT_MARKET_NOT_LISTED\"))) ((Some (\"contracts/Comptroller.py\" 784)) verify ((Some (\"contracts/Comptroller.py\" 784)) and ((Some (\"contracts/Comptroller.py\" 784)) contains ((Some (\"contracts/Comptroller.py\" 784)) attr ((Some (\"contracts/Comptroller.py\" 784)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 444)) attr (None parameter) \"cTokenCollateral\")) ((Some (\"contracts/Comptroller.py\" 785)) attr ((Some (\"contracts/Comptroller.py\" 785)) get_item ((Some (\"contracts/Comptroller.py\" 785)) attr ((Some (\"contracts/Comptroller.py\" 785)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 444)) attr (None parameter) \"cTokenCollateral\")) \"isListed\")) ((Some (\"contracts/Comptroller.py\" 784)) literal (string \"CMPT_MARKET_NOT_LISTED\"))) ((Some (\"contracts/Comptroller.py\" 495)) define_local \"calculation\" ((Some (\"contracts/Comptroller.py\" 495)) record (sumBorrowPlusEffects ((Some (\"contracts/Comptroller.py\" 496)) literal (nat 0))) (sumCollateral ((Some (\"contracts/Comptroller.py\" 496)) literal (nat 0)))) True) ((Some (\"contracts/Comptroller.py\" 497)) define_local \"temp\" ((Some (\"contracts/Comptroller.py\" 497)) record (sumBorrowPlusEffects ((Some (\"contracts/Comptroller.py\" 498)) literal (nat 0))) (sumCollateral ((Some (\"contracts/Comptroller.py\" 497)) literal (nat 0)))) True) ((Some (\"contracts/Comptroller.py\" 499)) if_block ((Some (\"contracts/Comptroller.py\" 499)) contains ((Some (\"contracts/Comptroller.py\" 499)) attr ((Some (\"contracts/Comptroller.py\" 499)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 447)) attr (None parameter) \"borrower\")) (((Some (\"contracts/Comptroller.py\" 500)) for_group \"asset\" ((Some (\"contracts/Comptroller.py\" 500)) elements ((Some (\"contracts/Comptroller.py\" 500)) get_item ((Some (\"contracts/Comptroller.py\" 500)) attr ((Some (\"contracts/Comptroller.py\" 500)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 447)) attr (None parameter) \"borrower\"))) (((Some (\"contracts/Comptroller.py\" 529)) verify ((Some (\"contracts/Comptroller.py\" 529)) is_variant ((Some (\"contracts/Comptroller.py\" 528)) open_variant ((Some (\"contracts/Comptroller.py\" 527)) view \"getAccountSnapshotView\" ((Some (\"contracts/Comptroller.py\" 447)) attr (None parameter) \"borrower\") ((Some (\"contracts/Comptroller.py\" 500)) var \"asset\") (option (record ((account \"address\") (borrowBalance \"nat\") (cTokenBalance \"nat\") (exchangeRateMantissa \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 21))))) \"Some\" ((Some (\"contracts/Comptroller.py\" 528)) literal (string \"INVALID ACCOUNT SNAPSHOT VIEW\"))) \"Some\") ((Some (\"contracts/Comptroller.py\" 529)) literal (string \"CMPT_OUTDATED_ACCOUNT_SNAPSHOT\"))) ((Some (\"contracts/Comptroller.py\" 530)) define_local \"params\" ((Some (\"contracts/Comptroller.py\" 530)) open_variant ((Some (\"contracts/Comptroller.py\" 528)) open_variant ((Some (\"contracts/Comptroller.py\" 527)) view \"getAccountSnapshotView\" ((Some (\"contracts/Comptroller.py\" 447)) attr (None parameter) \"borrower\") ((Some (\"contracts/Comptroller.py\" 500)) var \"asset\") (option (record ((account \"address\") (borrowBalance \"nat\") (cTokenBalance \"nat\") (exchangeRateMantissa \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 21))))) \"Some\" ((Some (\"contracts/Comptroller.py\" 528)) literal (string \"INVALID ACCOUNT SNAPSHOT VIEW\"))) \"Some\" \"None\") True) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 531)) var \"params\") \"exchangeRateMantissa\") \"nat\") ((Some (\"contracts/Comptroller.py\" 531)) define_local \"compute_Comptroller_531\" ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 531)) var \"params\") \"exchangeRateMantissa\"))) True) ((Some (\"contracts/Comptroller.py\" 315)) verify ((Some (\"contracts/Comptroller.py\" 315)) eq (None level) ((Some (\"contracts/Comptroller.py\" 315)) attr ((Some (\"contracts/Comptroller.py\" 315)) get_item ((Some (\"contracts/Comptroller.py\" 315)) attr ((Some (\"contracts/Comptroller.py\" 315)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 500)) var \"asset\")) \"updateLevel\")) ((Some (\"contracts/Comptroller.py\" 315)) literal (string \"CMPT_UPDATE_PRICE\"))) ((Some (\"contracts/Comptroller.py\" 234)) verify ((Some (\"contracts/Comptroller.py\" 234)) gt ((Some (\"contracts/Comptroller.py\" 234)) attr ((Some (\"contracts/Comptroller.py\" 316)) attr ((Some (\"contracts/Comptroller.py\" 316)) get_item ((Some (\"contracts/Comptroller.py\" 316)) attr ((Some (\"contracts/Comptroller.py\" 316)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 500)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 234)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 234)) literal (string \"CMPT_INVALID_PRICE\"))) ((Some (\"contracts/utils/Exponential.py\" 205)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 500)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 206)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 500)) var \"asset\")) \"collateralFactor\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 500)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 500)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 205)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 500)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 500)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 206)) set_type ((Some (\"contracts/Comptroller.py\" 531)) var \"compute_Comptroller_531\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 500)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 500)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 531)) var \"compute_Comptroller_531\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/Comptroller.py\" 535)) define_local \"compute_Comptroller_535\" ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 500)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 500)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 531)) var \"compute_Comptroller_531\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")))) True) ((Some (\"contracts/Comptroller.py\" 536)) define_local \"calc\" ((Some (\"contracts/Comptroller.py\" 536)) record (sumBorrowPlusEffects ((Some (\"contracts/Comptroller.py\" 537)) literal (nat 0))) (sumCollateral ((Some (\"contracts/Comptroller.py\" 536)) literal (nat 0)))) True) ((Some (\"contracts/Comptroller.py\" 539)) if_block ((Some (\"contracts/Comptroller.py\" 539)) and ((Some (\"contracts/Comptroller.py\" 539)) contains ((Some (\"contracts/Comptroller.py\" 539)) attr ((Some (\"contracts/Comptroller.py\" 539)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 539)) attr ((Some (\"contracts/Comptroller.py\" 539)) var \"params\") \"account\")) ((Some (\"contracts/Comptroller.py\" 539)) contains ((Some (\"contracts/Comptroller.py\" 539)) get_item ((Some (\"contracts/Comptroller.py\" 539)) attr ((Some (\"contracts/Comptroller.py\" 539)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 539)) attr ((Some (\"contracts/Comptroller.py\" 539)) var \"params\") \"account\")) ((Some (\"contracts/Comptroller.py\" 500)) var \"asset\"))) (((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 535)) var \"compute_Comptroller_535\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 535)) var \"compute_Comptroller_535\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 541)) attr ((Some (\"contracts/Comptroller.py\" 541)) var \"params\") \"cTokenBalance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 535)) var \"compute_Comptroller_535\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 541)) attr ((Some (\"contracts/Comptroller.py\" 541)) var \"params\") \"cTokenBalance\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 535)) var \"compute_Comptroller_535\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 541)) attr ((Some (\"contracts/Comptroller.py\" 541)) var \"params\") \"cTokenBalance\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 540)) set ((Some (\"contracts/Comptroller.py\" 540)) attr ((Some (\"contracts/Comptroller.py\" 537)) var \"calc\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 540)) add ((Some (\"contracts/Comptroller.py\" 540)) attr ((Some (\"contracts/Comptroller.py\" 537)) var \"calc\") \"sumCollateral\") ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 535)) var \"compute_Comptroller_535\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 541)) attr ((Some (\"contracts/Comptroller.py\" 541)) var \"params\") \"cTokenBalance\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))))) ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) get_item ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 500)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) get_item ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 500)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) var \"params\") \"borrowBalance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) get_item ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 500)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) var \"params\") \"borrowBalance\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) get_item ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 500)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) var \"params\") \"borrowBalance\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 542)) set ((Some (\"contracts/Comptroller.py\" 542)) attr ((Some (\"contracts/Comptroller.py\" 537)) var \"calc\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 542)) add ((Some (\"contracts/Comptroller.py\" 542)) attr ((Some (\"contracts/Comptroller.py\" 537)) var \"calc\") \"sumBorrowPlusEffects\") ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) get_item ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 500)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) var \"params\") \"borrowBalance\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))) ((Some (\"contracts/Comptroller.py\" 505)) set ((Some (\"contracts/Comptroller.py\" 505)) attr ((Some (\"contracts/Comptroller.py\" 496)) var \"calculation\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 505)) add ((Some (\"contracts/Comptroller.py\" 505)) attr ((Some (\"contracts/Comptroller.py\" 496)) var \"calculation\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 540)) attr ((Some (\"contracts/Comptroller.py\" 537)) var \"calc\") \"sumCollateral\"))) ((Some (\"contracts/Comptroller.py\" 506)) set ((Some (\"contracts/Comptroller.py\" 506)) attr ((Some (\"contracts/Comptroller.py\" 496)) var \"calculation\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 506)) add ((Some (\"contracts/Comptroller.py\" 506)) attr ((Some (\"contracts/Comptroller.py\" 496)) var \"calculation\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 542)) attr ((Some (\"contracts/Comptroller.py\" 537)) var \"calc\") \"sumBorrowPlusEffects\"))))))) ((Some (\"contracts/Comptroller.py\" 507)) if_block ((Some (\"contracts/Comptroller.py\" 507)) contains ((Some (\"contracts/Comptroller.py\" 507)) attr ((Some (\"contracts/Comptroller.py\" 507)) storage) \"loans\") ((Some (\"contracts/Comptroller.py\" 447)) attr (None parameter) \"borrower\")) (((Some (\"contracts/Comptroller.py\" 508)) for_group \"asset\" ((Some (\"contracts/Comptroller.py\" 508)) elements ((Some (\"contracts/Comptroller.py\" 508)) get_item ((Some (\"contracts/Comptroller.py\" 508)) attr ((Some (\"contracts/Comptroller.py\" 508)) storage) \"loans\") ((Some (\"contracts/Comptroller.py\" 447)) attr (None parameter) \"borrower\"))) (((Some (\"contracts/Comptroller.py\" 510)) if_block ((Some (\"contracts/Comptroller.py\" 510)) contains ((Some (\"contracts/Comptroller.py\" 510)) attr ((Some (\"contracts/Comptroller.py\" 510)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 447)) attr (None parameter) \"borrower\")) (((Some (\"contracts/Comptroller.py\" 511)) if_block ((Some (\"contracts/Comptroller.py\" 511)) not ((Some (\"contracts/Comptroller.py\" 511)) contains ((Some (\"contracts/Comptroller.py\" 511)) get_item ((Some (\"contracts/Comptroller.py\" 511)) attr ((Some (\"contracts/Comptroller.py\" 511)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 447)) attr (None parameter) \"borrower\")) ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\"))) (((Some (\"contracts/Comptroller.py\" 529)) verify ((Some (\"contracts/Comptroller.py\" 529)) is_variant ((Some (\"contracts/Comptroller.py\" 528)) open_variant ((Some (\"contracts/Comptroller.py\" 527)) view \"getAccountSnapshotView\" ((Some (\"contracts/Comptroller.py\" 447)) attr (None parameter) \"borrower\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\") (option (record ((account \"address\") (borrowBalance \"nat\") (cTokenBalance \"nat\") (exchangeRateMantissa \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 21))))) \"Some\" ((Some (\"contracts/Comptroller.py\" 528)) literal (string \"INVALID ACCOUNT SNAPSHOT VIEW\"))) \"Some\") ((Some (\"contracts/Comptroller.py\" 529)) literal (string \"CMPT_OUTDATED_ACCOUNT_SNAPSHOT\"))) ((Some (\"contracts/Comptroller.py\" 530)) define_local \"params\" ((Some (\"contracts/Comptroller.py\" 530)) open_variant ((Some (\"contracts/Comptroller.py\" 528)) open_variant ((Some (\"contracts/Comptroller.py\" 527)) view \"getAccountSnapshotView\" ((Some (\"contracts/Comptroller.py\" 447)) attr (None parameter) \"borrower\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\") (option (record ((account \"address\") (borrowBalance \"nat\") (cTokenBalance \"nat\") (exchangeRateMantissa \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 21))))) \"Some\" ((Some (\"contracts/Comptroller.py\" 528)) literal (string \"INVALID ACCOUNT SNAPSHOT VIEW\"))) \"Some\" \"None\") True) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 531)) var \"params\") \"exchangeRateMantissa\") \"nat\") ((Some (\"contracts/Comptroller.py\" 531)) define_local \"compute_Comptroller_531\" ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 531)) var \"params\") \"exchangeRateMantissa\"))) True) ((Some (\"contracts/Comptroller.py\" 315)) verify ((Some (\"contracts/Comptroller.py\" 315)) eq (None level) ((Some (\"contracts/Comptroller.py\" 315)) attr ((Some (\"contracts/Comptroller.py\" 315)) get_item ((Some (\"contracts/Comptroller.py\" 315)) attr ((Some (\"contracts/Comptroller.py\" 315)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"updateLevel\")) ((Some (\"contracts/Comptroller.py\" 315)) literal (string \"CMPT_UPDATE_PRICE\"))) ((Some (\"contracts/Comptroller.py\" 234)) verify ((Some (\"contracts/Comptroller.py\" 234)) gt ((Some (\"contracts/Comptroller.py\" 234)) attr ((Some (\"contracts/Comptroller.py\" 316)) attr ((Some (\"contracts/Comptroller.py\" 316)) get_item ((Some (\"contracts/Comptroller.py\" 316)) attr ((Some (\"contracts/Comptroller.py\" 316)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 234)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 234)) literal (string \"CMPT_INVALID_PRICE\"))) ((Some (\"contracts/utils/Exponential.py\" 205)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 206)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"collateralFactor\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 205)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 206)) set_type ((Some (\"contracts/Comptroller.py\" 531)) var \"compute_Comptroller_531\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 531)) var \"compute_Comptroller_531\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/Comptroller.py\" 535)) define_local \"compute_Comptroller_535\" ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 531)) var \"compute_Comptroller_531\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")))) True) ((Some (\"contracts/Comptroller.py\" 536)) define_local \"calc\" ((Some (\"contracts/Comptroller.py\" 536)) record (sumBorrowPlusEffects ((Some (\"contracts/Comptroller.py\" 537)) literal (nat 0))) (sumCollateral ((Some (\"contracts/Comptroller.py\" 536)) literal (nat 0)))) True) ((Some (\"contracts/Comptroller.py\" 539)) if_block ((Some (\"contracts/Comptroller.py\" 539)) and ((Some (\"contracts/Comptroller.py\" 539)) contains ((Some (\"contracts/Comptroller.py\" 539)) attr ((Some (\"contracts/Comptroller.py\" 539)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 539)) attr ((Some (\"contracts/Comptroller.py\" 539)) var \"params\") \"account\")) ((Some (\"contracts/Comptroller.py\" 539)) contains ((Some (\"contracts/Comptroller.py\" 539)) get_item ((Some (\"contracts/Comptroller.py\" 539)) attr ((Some (\"contracts/Comptroller.py\" 539)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 539)) attr ((Some (\"contracts/Comptroller.py\" 539)) var \"params\") \"account\")) ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\"))) (((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 535)) var \"compute_Comptroller_535\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 535)) var \"compute_Comptroller_535\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 541)) attr ((Some (\"contracts/Comptroller.py\" 541)) var \"params\") \"cTokenBalance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 535)) var \"compute_Comptroller_535\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 541)) attr ((Some (\"contracts/Comptroller.py\" 541)) var \"params\") \"cTokenBalance\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 535)) var \"compute_Comptroller_535\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 541)) attr ((Some (\"contracts/Comptroller.py\" 541)) var \"params\") \"cTokenBalance\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 540)) set ((Some (\"contracts/Comptroller.py\" 540)) attr ((Some (\"contracts/Comptroller.py\" 537)) var \"calc\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 540)) add ((Some (\"contracts/Comptroller.py\" 540)) attr ((Some (\"contracts/Comptroller.py\" 537)) var \"calc\") \"sumCollateral\") ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 535)) var \"compute_Comptroller_535\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 541)) attr ((Some (\"contracts/Comptroller.py\" 541)) var \"params\") \"cTokenBalance\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))))) ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) get_item ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) get_item ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) var \"params\") \"borrowBalance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) get_item ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) var \"params\") \"borrowBalance\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) get_item ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) var \"params\") \"borrowBalance\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 542)) set ((Some (\"contracts/Comptroller.py\" 542)) attr ((Some (\"contracts/Comptroller.py\" 537)) var \"calc\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 542)) add ((Some (\"contracts/Comptroller.py\" 542)) attr ((Some (\"contracts/Comptroller.py\" 537)) var \"calc\") \"sumBorrowPlusEffects\") ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) get_item ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) var \"params\") \"borrowBalance\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))) ((Some (\"contracts/Comptroller.py\" 516)) set ((Some (\"contracts/Comptroller.py\" 505)) attr ((Some (\"contracts/Comptroller.py\" 496)) var \"calculation\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 516)) add ((Some (\"contracts/Comptroller.py\" 505)) attr ((Some (\"contracts/Comptroller.py\" 496)) var \"calculation\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 540)) attr ((Some (\"contracts/Comptroller.py\" 537)) var \"calc\") \"sumCollateral\"))) ((Some (\"contracts/Comptroller.py\" 517)) set ((Some (\"contracts/Comptroller.py\" 506)) attr ((Some (\"contracts/Comptroller.py\" 496)) var \"calculation\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 517)) add ((Some (\"contracts/Comptroller.py\" 506)) attr ((Some (\"contracts/Comptroller.py\" 496)) var \"calculation\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 542)) attr ((Some (\"contracts/Comptroller.py\" 537)) var \"calc\") \"sumBorrowPlusEffects\"))))))) (else_block (((Some (\"contracts/Comptroller.py\" 529)) verify ((Some (\"contracts/Comptroller.py\" 529)) is_variant ((Some (\"contracts/Comptroller.py\" 528)) open_variant ((Some (\"contracts/Comptroller.py\" 527)) view \"getAccountSnapshotView\" ((Some (\"contracts/Comptroller.py\" 447)) attr (None parameter) \"borrower\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\") (option (record ((account \"address\") (borrowBalance \"nat\") (cTokenBalance \"nat\") (exchangeRateMantissa \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 21))))) \"Some\" ((Some (\"contracts/Comptroller.py\" 528)) literal (string \"INVALID ACCOUNT SNAPSHOT VIEW\"))) \"Some\") ((Some (\"contracts/Comptroller.py\" 529)) literal (string \"CMPT_OUTDATED_ACCOUNT_SNAPSHOT\"))) ((Some (\"contracts/Comptroller.py\" 530)) define_local \"params\" ((Some (\"contracts/Comptroller.py\" 530)) open_variant ((Some (\"contracts/Comptroller.py\" 528)) open_variant ((Some (\"contracts/Comptroller.py\" 527)) view \"getAccountSnapshotView\" ((Some (\"contracts/Comptroller.py\" 447)) attr (None parameter) \"borrower\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\") (option (record ((account \"address\") (borrowBalance \"nat\") (cTokenBalance \"nat\") (exchangeRateMantissa \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 21))))) \"Some\" ((Some (\"contracts/Comptroller.py\" 528)) literal (string \"INVALID ACCOUNT SNAPSHOT VIEW\"))) \"Some\" \"None\") True) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 531)) var \"params\") \"exchangeRateMantissa\") \"nat\") ((Some (\"contracts/Comptroller.py\" 531)) define_local \"compute_Comptroller_531\" ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 531)) var \"params\") \"exchangeRateMantissa\"))) True) ((Some (\"contracts/Comptroller.py\" 315)) verify ((Some (\"contracts/Comptroller.py\" 315)) eq (None level) ((Some (\"contracts/Comptroller.py\" 315)) attr ((Some (\"contracts/Comptroller.py\" 315)) get_item ((Some (\"contracts/Comptroller.py\" 315)) attr ((Some (\"contracts/Comptroller.py\" 315)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"updateLevel\")) ((Some (\"contracts/Comptroller.py\" 315)) literal (string \"CMPT_UPDATE_PRICE\"))) ((Some (\"contracts/Comptroller.py\" 234)) verify ((Some (\"contracts/Comptroller.py\" 234)) gt ((Some (\"contracts/Comptroller.py\" 234)) attr ((Some (\"contracts/Comptroller.py\" 316)) attr ((Some (\"contracts/Comptroller.py\" 316)) get_item ((Some (\"contracts/Comptroller.py\" 316)) attr ((Some (\"contracts/Comptroller.py\" 316)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 234)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 234)) literal (string \"CMPT_INVALID_PRICE\"))) ((Some (\"contracts/utils/Exponential.py\" 205)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 206)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"collateralFactor\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 205)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 206)) set_type ((Some (\"contracts/Comptroller.py\" 531)) var \"compute_Comptroller_531\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 531)) var \"compute_Comptroller_531\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/Comptroller.py\" 535)) define_local \"compute_Comptroller_535\" ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 531)) var \"compute_Comptroller_531\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")))) True) ((Some (\"contracts/Comptroller.py\" 536)) define_local \"calc\" ((Some (\"contracts/Comptroller.py\" 536)) record (sumBorrowPlusEffects ((Some (\"contracts/Comptroller.py\" 537)) literal (nat 0))) (sumCollateral ((Some (\"contracts/Comptroller.py\" 536)) literal (nat 0)))) True) ((Some (\"contracts/Comptroller.py\" 539)) if_block ((Some (\"contracts/Comptroller.py\" 539)) and ((Some (\"contracts/Comptroller.py\" 539)) contains ((Some (\"contracts/Comptroller.py\" 539)) attr ((Some (\"contracts/Comptroller.py\" 539)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 539)) attr ((Some (\"contracts/Comptroller.py\" 539)) var \"params\") \"account\")) ((Some (\"contracts/Comptroller.py\" 539)) contains ((Some (\"contracts/Comptroller.py\" 539)) get_item ((Some (\"contracts/Comptroller.py\" 539)) attr ((Some (\"contracts/Comptroller.py\" 539)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 539)) attr ((Some (\"contracts/Comptroller.py\" 539)) var \"params\") \"account\")) ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\"))) (((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 535)) var \"compute_Comptroller_535\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 535)) var \"compute_Comptroller_535\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 541)) attr ((Some (\"contracts/Comptroller.py\" 541)) var \"params\") \"cTokenBalance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 535)) var \"compute_Comptroller_535\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 541)) attr ((Some (\"contracts/Comptroller.py\" 541)) var \"params\") \"cTokenBalance\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 535)) var \"compute_Comptroller_535\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 541)) attr ((Some (\"contracts/Comptroller.py\" 541)) var \"params\") \"cTokenBalance\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 540)) set ((Some (\"contracts/Comptroller.py\" 540)) attr ((Some (\"contracts/Comptroller.py\" 537)) var \"calc\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 540)) add ((Some (\"contracts/Comptroller.py\" 540)) attr ((Some (\"contracts/Comptroller.py\" 537)) var \"calc\") \"sumCollateral\") ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 535)) var \"compute_Comptroller_535\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 541)) attr ((Some (\"contracts/Comptroller.py\" 541)) var \"params\") \"cTokenBalance\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))))) ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) get_item ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) get_item ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) var \"params\") \"borrowBalance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) get_item ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) var \"params\") \"borrowBalance\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) get_item ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) var \"params\") \"borrowBalance\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 542)) set ((Some (\"contracts/Comptroller.py\" 542)) attr ((Some (\"contracts/Comptroller.py\" 537)) var \"calc\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 542)) add ((Some (\"contracts/Comptroller.py\" 542)) attr ((Some (\"contracts/Comptroller.py\" 537)) var \"calc\") \"sumBorrowPlusEffects\") ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) get_item ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) var \"params\") \"borrowBalance\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))) ((Some (\"contracts/Comptroller.py\" 521)) set ((Some (\"contracts/Comptroller.py\" 505)) attr ((Some (\"contracts/Comptroller.py\" 496)) var \"calculation\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 521)) add ((Some (\"contracts/Comptroller.py\" 505)) attr ((Some (\"contracts/Comptroller.py\" 496)) var \"calculation\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 540)) attr ((Some (\"contracts/Comptroller.py\" 537)) var \"calc\") \"sumCollateral\"))) ((Some (\"contracts/Comptroller.py\" 522)) set ((Some (\"contracts/Comptroller.py\" 506)) attr ((Some (\"contracts/Comptroller.py\" 496)) var \"calculation\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 522)) add ((Some (\"contracts/Comptroller.py\" 506)) attr ((Some (\"contracts/Comptroller.py\" 496)) var \"calculation\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 542)) attr ((Some (\"contracts/Comptroller.py\" 537)) var \"calc\") \"sumBorrowPlusEffects\"))))))))) ((Some (\"contracts/Comptroller.py\" 387)) define_local \"calcLiquidity\" ((Some (\"contracts/Comptroller.py\" 496)) var \"calculation\") True) ((Some (\"contracts/Comptroller.py\" 389)) define_local \"compute_Comptroller_389\" ((Some (\"contracts/Comptroller.py\" 390)) sub ((Some (\"contracts/Comptroller.py\" 390)) attr ((Some (\"contracts/Comptroller.py\" 388)) var \"calcLiquidity\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 390)) attr ((Some (\"contracts/Comptroller.py\" 388)) var \"calcLiquidity\") \"sumBorrowPlusEffects\")) True) ((Some (\"contracts/Comptroller.py\" 446)) define_local \"liquidtiy\" ((Some (\"contracts/Comptroller.py\" 389)) var \"compute_Comptroller_389\") True) ((Some (\"contracts/Comptroller.py\" 449)) verify ((Some (\"contracts/Comptroller.py\" 449)) lt ((Some (\"contracts/Comptroller.py\" 449)) var \"liquidtiy\") ((Some (\"contracts/Comptroller.py\" 449)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 449)) literal (string \"CMPT_INSUFFICIENT_SHORTFALL\"))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/Comptroller.py\" 455)) attr ((Some (\"contracts/Comptroller.py\" 455)) storage) \"closeFactorMantissa\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/Comptroller.py\" 455)) attr ((Some (\"contracts/Comptroller.py\" 455)) storage) \"closeFactorMantissa\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/Comptroller.py\" 455)) attr ((Some (\"contracts/Comptroller.py\" 455)) storage) \"closeFactorMantissa\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 451)) first ((Some (\"contracts/Comptroller.py\" 452)) open_variant ((Some (\"contracts/Comptroller.py\" 451)) view \"borrowBalanceStoredView\" ((Some (\"contracts/Comptroller.py\" 447)) attr (None parameter) \"borrower\") ((Some (\"contracts/Comptroller.py\" 443)) attr (None parameter) \"cTokenBorrowed\") (tuple \"nat\" \"nat\")) \"Some\" ((Some (\"contracts/Comptroller.py\" 452)) literal (string \"INVALID ACCOUNT BORROW BALANCE VIEW\")))) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/Comptroller.py\" 455)) attr ((Some (\"contracts/Comptroller.py\" 455)) storage) \"closeFactorMantissa\") ((Some (\"contracts/Comptroller.py\" 451)) first ((Some (\"contracts/Comptroller.py\" 452)) open_variant ((Some (\"contracts/Comptroller.py\" 451)) view \"borrowBalanceStoredView\" ((Some (\"contracts/Comptroller.py\" 447)) attr (None parameter) \"borrower\") ((Some (\"contracts/Comptroller.py\" 443)) attr (None parameter) \"cTokenBorrowed\") (tuple \"nat\" \"nat\")) \"Some\" ((Some (\"contracts/Comptroller.py\" 452)) literal (string \"INVALID ACCOUNT BORROW BALANCE VIEW\"))))) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/Comptroller.py\" 455)) attr ((Some (\"contracts/Comptroller.py\" 455)) storage) \"closeFactorMantissa\") ((Some (\"contracts/Comptroller.py\" 451)) first ((Some (\"contracts/Comptroller.py\" 452)) open_variant ((Some (\"contracts/Comptroller.py\" 451)) view \"borrowBalanceStoredView\" ((Some (\"contracts/Comptroller.py\" 447)) attr (None parameter) \"borrower\") ((Some (\"contracts/Comptroller.py\" 443)) attr (None parameter) \"cTokenBorrowed\") (tuple \"nat\" \"nat\")) \"Some\" ((Some (\"contracts/Comptroller.py\" 452)) literal (string \"INVALID ACCOUNT BORROW BALANCE VIEW\"))))))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 454)) define_local \"maxClose\" ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/Comptroller.py\" 455)) attr ((Some (\"contracts/Comptroller.py\" 455)) storage) \"closeFactorMantissa\") ((Some (\"contracts/Comptroller.py\" 451)) first ((Some (\"contracts/Comptroller.py\" 452)) open_variant ((Some (\"contracts/Comptroller.py\" 451)) view \"borrowBalanceStoredView\" ((Some (\"contracts/Comptroller.py\" 447)) attr (None parameter) \"borrower\") ((Some (\"contracts/Comptroller.py\" 443)) attr (None parameter) \"cTokenBorrowed\") (tuple \"nat\" \"nat\")) \"Some\" ((Some (\"contracts/Comptroller.py\" 452)) literal (string \"INVALID ACCOUNT BORROW BALANCE VIEW\"))))) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")) True) ((Some (\"contracts/Comptroller.py\" 457)) verify ((Some (\"contracts/Comptroller.py\" 457)) ge ((Some (\"contracts/Comptroller.py\" 457)) var \"maxClose\") ((Some (\"contracts/Comptroller.py\" 457)) attr (None parameter) \"repayAmount\")) ((Some (\"contracts/Comptroller.py\" 457)) literal (string \"CMPT_TOO_MUCH_REPAY\"))) ((Some (\"contracts/Comptroller.py\" 807)) if_block ((Some (\"contracts/Comptroller.py\" 807)) contains ((Some (\"contracts/Comptroller.py\" 807)) attr ((Some (\"contracts/Comptroller.py\" 807)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 447)) attr (None parameter) \"borrower\")) (((Some (\"contracts/Comptroller.py\" 808)) set ((Some (\"contracts/Comptroller.py\" 808)) attr ((Some (\"contracts/Comptroller.py\" 808)) get_item ((Some (\"contracts/Comptroller.py\" 808)) attr ((Some (\"contracts/Comptroller.py\" 808)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 447)) attr (None parameter) \"borrower\")) \"valid\") ((Some (\"contracts/Comptroller.py\" 808)) literal (bool False))))) ((Some (\"contracts/Comptroller.py\" 807)) if_block ((Some (\"contracts/Comptroller.py\" 807)) contains ((Some (\"contracts/Comptroller.py\" 807)) attr ((Some (\"contracts/Comptroller.py\" 807)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 460)) attr (None parameter) \"liquidator\")) (((Some (\"contracts/Comptroller.py\" 808)) set ((Some (\"contracts/Comptroller.py\" 808)) attr ((Some (\"contracts/Comptroller.py\" 808)) get_item ((Some (\"contracts/Comptroller.py\" 808)) attr ((Some (\"contracts/Comptroller.py\" 808)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 460)) attr (None parameter) \"liquidator\")) \"valid\") ((Some (\"contracts/Comptroller.py\" 808)) literal (bool False))))))) (mintAllowed True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 153)) (((Some (\"contracts/Comptroller.py\" 154)) verify ((Some (\"contracts/Comptroller.py\" 154)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 154)) MUL ((Some (\"contracts/Comptroller.py\" 154)) type_annotation ((Some (\"contracts/Comptroller.py\" 154)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 154)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 154)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 156)) set_type (None parameter) (record ((cToken \"address\") (mintAmount \"nat\") (minter \"address\")) (Value ((\"cToken\") ((\"minter\") (\"mintAmount\")))) (Some (\"contracts/interfaces/ComptrollerInterface.py\" 7)))) ((Some (\"contracts/Comptroller.py\" 157)) verify ((Some (\"contracts/Comptroller.py\" 158)) not ((Some (\"contracts/Comptroller.py\" 158)) attr ((Some (\"contracts/Comptroller.py\" 158)) get_item ((Some (\"contracts/Comptroller.py\" 158)) attr ((Some (\"contracts/Comptroller.py\" 158)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 158)) attr (None parameter) \"cToken\")) \"mintPaused\")) ((Some (\"contracts/Comptroller.py\" 157)) literal (string \"CMPT_MINT_PAUSED\"))) ((Some (\"contracts/Comptroller.py\" 784)) verify ((Some (\"contracts/Comptroller.py\" 784)) and ((Some (\"contracts/Comptroller.py\" 784)) contains ((Some (\"contracts/Comptroller.py\" 784)) attr ((Some (\"contracts/Comptroller.py\" 784)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 158)) attr (None parameter) \"cToken\")) ((Some (\"contracts/Comptroller.py\" 785)) attr ((Some (\"contracts/Comptroller.py\" 785)) get_item ((Some (\"contracts/Comptroller.py\" 785)) attr ((Some (\"contracts/Comptroller.py\" 785)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 158)) attr (None parameter) \"cToken\")) \"isListed\")) ((Some (\"contracts/Comptroller.py\" 784)) literal (string \"CMPT_MARKET_NOT_LISTED\"))) ((Some (\"contracts/Comptroller.py\" 807)) if_block ((Some (\"contracts/Comptroller.py\" 807)) contains ((Some (\"contracts/Comptroller.py\" 807)) attr ((Some (\"contracts/Comptroller.py\" 807)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 160)) attr (None parameter) \"minter\")) (((Some (\"contracts/Comptroller.py\" 808)) set ((Some (\"contracts/Comptroller.py\" 808)) attr ((Some (\"contracts/Comptroller.py\" 808)) get_item ((Some (\"contracts/Comptroller.py\" 808)) attr ((Some (\"contracts/Comptroller.py\" 808)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 160)) attr (None parameter) \"minter\")) \"valid\") ((Some (\"contracts/Comptroller.py\" 808)) literal (bool False))))))) (redeemAllowed True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 175)) (((Some (\"contracts/Comptroller.py\" 176)) verify ((Some (\"contracts/Comptroller.py\" 176)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 176)) MUL ((Some (\"contracts/Comptroller.py\" 176)) type_annotation ((Some (\"contracts/Comptroller.py\" 176)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 176)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 176)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 178)) set_type (None parameter) (record ((cToken \"address\") (redeemAmount \"nat\") (redeemer \"address\")) (Value ((\"cToken\") ((\"redeemer\") (\"redeemAmount\")))) (Some (\"contracts/interfaces/ComptrollerInterface.py\" 11)))) ((Some (\"contracts/Comptroller.py\" 784)) verify ((Some (\"contracts/Comptroller.py\" 784)) and ((Some (\"contracts/Comptroller.py\" 784)) contains ((Some (\"contracts/Comptroller.py\" 784)) attr ((Some (\"contracts/Comptroller.py\" 784)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 180)) attr (None parameter) \"cToken\")) ((Some (\"contracts/Comptroller.py\" 785)) attr ((Some (\"contracts/Comptroller.py\" 785)) get_item ((Some (\"contracts/Comptroller.py\" 785)) attr ((Some (\"contracts/Comptroller.py\" 785)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 180)) attr (None parameter) \"cToken\")) \"isListed\")) ((Some (\"contracts/Comptroller.py\" 784)) literal (string \"CMPT_MARKET_NOT_LISTED\"))) ((Some (\"contracts/Comptroller.py\" 185)) if_block ((Some (\"contracts/Comptroller.py\" 185)) and ((Some (\"contracts/Comptroller.py\" 185)) contains ((Some (\"contracts/Comptroller.py\" 185)) attr ((Some (\"contracts/Comptroller.py\" 185)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 180)) attr (None parameter) \"redeemer\")) ((Some (\"contracts/Comptroller.py\" 185)) contains ((Some (\"contracts/Comptroller.py\" 185)) get_item ((Some (\"contracts/Comptroller.py\" 185)) attr ((Some (\"contracts/Comptroller.py\" 185)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 180)) attr (None parameter) \"redeemer\")) ((Some (\"contracts/Comptroller.py\" 180)) attr (None parameter) \"cToken\"))) (((Some (\"contracts/Comptroller.py\" 187)) if_block ((Some (\"contracts/Comptroller.py\" 187)) and ((Some (\"contracts/Comptroller.py\" 187)) contains ((Some (\"contracts/Comptroller.py\" 187)) attr ((Some (\"contracts/Comptroller.py\" 187)) storage) \"loans\") ((Some (\"contracts/Comptroller.py\" 180)) attr (None parameter) \"redeemer\")) ((Some (\"contracts/Comptroller.py\" 187)) neq ((Some (\"contracts/Comptroller.py\" 187)) size ((Some (\"contracts/Comptroller.py\" 187)) get_item ((Some (\"contracts/Comptroller.py\" 187)) attr ((Some (\"contracts/Comptroller.py\" 187)) storage) \"loans\") ((Some (\"contracts/Comptroller.py\" 180)) attr (None parameter) \"redeemer\"))) ((Some (\"contracts/Comptroller.py\" 187)) literal (intOrNat 0)))) (((Some (\"contracts/Comptroller.py\" 798)) verify ((Some (\"contracts/Comptroller.py\" 798)) contains ((Some (\"contracts/Comptroller.py\" 798)) attr ((Some (\"contracts/Comptroller.py\" 798)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 180)) attr (None parameter) \"redeemer\")) ((Some (\"contracts/Comptroller.py\" 798)) literal (string \"CMPT_LIQUIDITY_ABSENT\"))) ((Some (\"contracts/Comptroller.py\" 800)) verify ((Some (\"contracts/Comptroller.py\" 801)) attr ((Some (\"contracts/Comptroller.py\" 801)) get_item ((Some (\"contracts/Comptroller.py\" 801)) attr ((Some (\"contracts/Comptroller.py\" 801)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 180)) attr (None parameter) \"redeemer\")) \"valid\") ((Some (\"contracts/Comptroller.py\" 800)) literal (string \"CMPT_LIQUIDITY_INVALID\"))) ((Some (\"contracts/utils/Exponential.py\" 193)) set_type (None level) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/Comptroller.py\" 803)) attr ((Some (\"contracts/Comptroller.py\" 803)) get_item ((Some (\"contracts/Comptroller.py\" 803)) attr ((Some (\"contracts/Comptroller.py\" 803)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 180)) attr (None parameter) \"redeemer\")) \"updateLevel\") \"nat\") ((Some (\"contracts/Comptroller.py\" 802)) define_local \"compute_Comptroller_802\" ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub (None level) ((Some (\"contracts/Comptroller.py\" 803)) attr ((Some (\"contracts/Comptroller.py\" 803)) get_item ((Some (\"contracts/Comptroller.py\" 803)) attr ((Some (\"contracts/Comptroller.py\" 803)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 180)) attr (None parameter) \"redeemer\")) \"updateLevel\"))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) True) ((Some (\"contracts/Comptroller.py\" 804)) verify ((Some (\"contracts/Comptroller.py\" 804)) eq ((Some (\"contracts/Comptroller.py\" 802)) var \"compute_Comptroller_802\") ((Some (\"contracts/Comptroller.py\" 804)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 804)) literal (string \"CMPT_LIQUIDITY_OLD\"))) ((Some (\"contracts/Comptroller.py\" 315)) verify ((Some (\"contracts/Comptroller.py\" 315)) eq (None level) ((Some (\"contracts/Comptroller.py\" 315)) attr ((Some (\"contracts/Comptroller.py\" 315)) get_item ((Some (\"contracts/Comptroller.py\" 315)) attr ((Some (\"contracts/Comptroller.py\" 315)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 180)) attr (None parameter) \"cToken\")) \"updateLevel\")) ((Some (\"contracts/Comptroller.py\" 315)) literal (string \"CMPT_UPDATE_PRICE\"))) ((Some (\"contracts/Comptroller.py\" 234)) verify ((Some (\"contracts/Comptroller.py\" 234)) gt ((Some (\"contracts/Comptroller.py\" 234)) attr ((Some (\"contracts/Comptroller.py\" 316)) attr ((Some (\"contracts/Comptroller.py\" 316)) get_item ((Some (\"contracts/Comptroller.py\" 316)) attr ((Some (\"contracts/Comptroller.py\" 316)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 180)) attr (None parameter) \"cToken\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 234)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 234)) literal (string \"CMPT_INVALID_PRICE\"))) ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 196)) attr ((Some (\"contracts/Comptroller.py\" 196)) get_item ((Some (\"contracts/Comptroller.py\" 196)) attr ((Some (\"contracts/Comptroller.py\" 196)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 180)) attr (None parameter) \"cToken\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 196)) attr ((Some (\"contracts/Comptroller.py\" 196)) get_item ((Some (\"contracts/Comptroller.py\" 196)) attr ((Some (\"contracts/Comptroller.py\" 196)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 180)) attr (None parameter) \"cToken\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 180)) attr (None parameter) \"redeemAmount\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 196)) attr ((Some (\"contracts/Comptroller.py\" 196)) get_item ((Some (\"contracts/Comptroller.py\" 196)) attr ((Some (\"contracts/Comptroller.py\" 196)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 180)) attr (None parameter) \"cToken\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 180)) attr (None parameter) \"redeemAmount\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 196)) attr ((Some (\"contracts/Comptroller.py\" 196)) get_item ((Some (\"contracts/Comptroller.py\" 196)) attr ((Some (\"contracts/Comptroller.py\" 196)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 180)) attr (None parameter) \"cToken\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 180)) attr (None parameter) \"redeemAmount\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 195)) define_local \"compute_Comptroller_195\" ((Some (\"contracts/Comptroller.py\" 195)) sub ((Some (\"contracts/Comptroller.py\" 195)) attr ((Some (\"contracts/Comptroller.py\" 195)) get_item ((Some (\"contracts/Comptroller.py\" 195)) attr ((Some (\"contracts/Comptroller.py\" 195)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 180)) attr (None parameter) \"redeemer\")) \"liquidity\") ((Some (\"contracts/Comptroller.py\" 195)) to_int ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 196)) attr ((Some (\"contracts/Comptroller.py\" 196)) get_item ((Some (\"contracts/Comptroller.py\" 196)) attr ((Some (\"contracts/Comptroller.py\" 196)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 180)) attr (None parameter) \"cToken\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 180)) attr (None parameter) \"redeemAmount\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))) True) ((Some (\"contracts/Comptroller.py\" 197)) verify ((Some (\"contracts/Comptroller.py\" 197)) ge ((Some (\"contracts/Comptroller.py\" 195)) var \"compute_Comptroller_195\") ((Some (\"contracts/Comptroller.py\" 197)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 197)) literal (string \"CMPT_REDEEMER_SHORTFALL\"))))))) ((Some (\"contracts/Comptroller.py\" 807)) if_block ((Some (\"contracts/Comptroller.py\" 807)) contains ((Some (\"contracts/Comptroller.py\" 807)) attr ((Some (\"contracts/Comptroller.py\" 807)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 180)) attr (None parameter) \"redeemer\")) (((Some (\"contracts/Comptroller.py\" 808)) set ((Some (\"contracts/Comptroller.py\" 808)) attr ((Some (\"contracts/Comptroller.py\" 808)) get_item ((Some (\"contracts/Comptroller.py\" 808)) attr ((Some (\"contracts/Comptroller.py\" 808)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 180)) attr (None parameter) \"redeemer\")) \"valid\") ((Some (\"contracts/Comptroller.py\" 808)) literal (bool False))))))) (removeFromLoans True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 244)) (((Some (\"contracts/Comptroller.py\" 245)) verify ((Some (\"contracts/Comptroller.py\" 245)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 245)) MUL ((Some (\"contracts/Comptroller.py\" 245)) type_annotation ((Some (\"contracts/Comptroller.py\" 245)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 245)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 245)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 784)) verify ((Some (\"contracts/Comptroller.py\" 784)) and ((Some (\"contracts/Comptroller.py\" 784)) contains ((Some (\"contracts/Comptroller.py\" 784)) attr ((Some (\"contracts/Comptroller.py\" 784)) storage) \"markets\") (None sender)) ((Some (\"contracts/Comptroller.py\" 785)) attr ((Some (\"contracts/Comptroller.py\" 785)) get_item ((Some (\"contracts/Comptroller.py\" 785)) attr ((Some (\"contracts/Comptroller.py\" 785)) storage) \"markets\") (None sender)) \"isListed\")) ((Some (\"contracts/Comptroller.py\" 784)) literal (string \"CMPT_MARKET_NOT_LISTED\"))) ((Some (\"contracts/Comptroller.py\" 248)) if_block ((Some (\"contracts/Comptroller.py\" 248)) and ((Some (\"contracts/Comptroller.py\" 248)) contains ((Some (\"contracts/Comptroller.py\" 248)) attr ((Some (\"contracts/Comptroller.py\" 248)) storage) \"loans\") (None parameter)) ((Some (\"contracts/Comptroller.py\" 248)) contains ((Some (\"contracts/Comptroller.py\" 248)) get_item ((Some (\"contracts/Comptroller.py\" 248)) attr ((Some (\"contracts/Comptroller.py\" 248)) storage) \"loans\") (None parameter)) (None sender))) (((Some (\"contracts/Comptroller.py\" 249)) update_set ((Some (\"contracts/Comptroller.py\" 249)) get_item ((Some (\"contracts/Comptroller.py\" 249)) attr ((Some (\"contracts/Comptroller.py\" 249)) storage) \"loans\") (None parameter)) (None sender) False))))) (repayBorrowAllowed True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 261)) (((Some (\"contracts/Comptroller.py\" 262)) verify ((Some (\"contracts/Comptroller.py\" 262)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 262)) MUL ((Some (\"contracts/Comptroller.py\" 262)) type_annotation ((Some (\"contracts/Comptroller.py\" 262)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 262)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 262)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 264)) set_type (None parameter) (record ((borrower \"address\") (cToken \"address\") (payer \"address\") (repayAmount \"nat\")) (Value ((\"cToken\") ((\"payer\") ((\"borrower\") (\"repayAmount\"))))) (Some (\"contracts/interfaces/ComptrollerInterface.py\" 13)))) ((Some (\"contracts/Comptroller.py\" 784)) verify ((Some (\"contracts/Comptroller.py\" 784)) and ((Some (\"contracts/Comptroller.py\" 784)) contains ((Some (\"contracts/Comptroller.py\" 784)) attr ((Some (\"contracts/Comptroller.py\" 784)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 265)) attr (None parameter) \"cToken\")) ((Some (\"contracts/Comptroller.py\" 785)) attr ((Some (\"contracts/Comptroller.py\" 785)) get_item ((Some (\"contracts/Comptroller.py\" 785)) attr ((Some (\"contracts/Comptroller.py\" 785)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 265)) attr (None parameter) \"cToken\")) \"isListed\")) ((Some (\"contracts/Comptroller.py\" 784)) literal (string \"CMPT_MARKET_NOT_LISTED\"))) ((Some (\"contracts/Comptroller.py\" 807)) if_block ((Some (\"contracts/Comptroller.py\" 807)) contains ((Some (\"contracts/Comptroller.py\" 807)) attr ((Some (\"contracts/Comptroller.py\" 807)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 266)) attr (None parameter) \"borrower\")) (((Some (\"contracts/Comptroller.py\" 808)) set ((Some (\"contracts/Comptroller.py\" 808)) attr ((Some (\"contracts/Comptroller.py\" 808)) get_item ((Some (\"contracts/Comptroller.py\" 808)) attr ((Some (\"contracts/Comptroller.py\" 808)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 266)) attr (None parameter) \"borrower\")) \"valid\") ((Some (\"contracts/Comptroller.py\" 808)) literal (bool False))))) ((Some (\"contracts/Comptroller.py\" 807)) if_block ((Some (\"contracts/Comptroller.py\" 807)) contains ((Some (\"contracts/Comptroller.py\" 807)) attr ((Some (\"contracts/Comptroller.py\" 807)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 267)) attr (None parameter) \"payer\")) (((Some (\"contracts/Comptroller.py\" 808)) set ((Some (\"contracts/Comptroller.py\" 808)) attr ((Some (\"contracts/Comptroller.py\" 808)) get_item ((Some (\"contracts/Comptroller.py\" 808)) attr ((Some (\"contracts/Comptroller.py\" 808)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 267)) attr (None parameter) \"payer\")) \"valid\") ((Some (\"contracts/Comptroller.py\" 808)) literal (bool False))))))) (setAccountLiquidityWithView True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 340)) (((Some (\"contracts/Comptroller.py\" 341)) verify ((Some (\"contracts/Comptroller.py\" 341)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 341)) MUL ((Some (\"contracts/Comptroller.py\" 341)) type_annotation ((Some (\"contracts/Comptroller.py\" 341)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 341)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 341)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 343)) set_type (None parameter) \"address\") ((Some (\"contracts/Comptroller.py\" 495)) define_local \"calculation\" ((Some (\"contracts/Comptroller.py\" 495)) record (sumBorrowPlusEffects ((Some (\"contracts/Comptroller.py\" 496)) literal (nat 0))) (sumCollateral ((Some (\"contracts/Comptroller.py\" 496)) literal (nat 0)))) True) ((Some (\"contracts/Comptroller.py\" 497)) define_local \"temp\" ((Some (\"contracts/Comptroller.py\" 497)) record (sumBorrowPlusEffects ((Some (\"contracts/Comptroller.py\" 498)) literal (nat 0))) (sumCollateral ((Some (\"contracts/Comptroller.py\" 497)) literal (nat 0)))) True) ((Some (\"contracts/Comptroller.py\" 499)) if_block ((Some (\"contracts/Comptroller.py\" 499)) contains ((Some (\"contracts/Comptroller.py\" 499)) attr ((Some (\"contracts/Comptroller.py\" 499)) storage) \"collaterals\") (None parameter)) (((Some (\"contracts/Comptroller.py\" 500)) for_group \"asset\" ((Some (\"contracts/Comptroller.py\" 500)) elements ((Some (\"contracts/Comptroller.py\" 500)) get_item ((Some (\"contracts/Comptroller.py\" 500)) attr ((Some (\"contracts/Comptroller.py\" 500)) storage) \"collaterals\") (None parameter))) (((Some (\"contracts/Comptroller.py\" 529)) verify ((Some (\"contracts/Comptroller.py\" 529)) is_variant ((Some (\"contracts/Comptroller.py\" 528)) open_variant ((Some (\"contracts/Comptroller.py\" 527)) view \"getAccountSnapshotView\" (None parameter) ((Some (\"contracts/Comptroller.py\" 500)) var \"asset\") (option (record ((account \"address\") (borrowBalance \"nat\") (cTokenBalance \"nat\") (exchangeRateMantissa \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 21))))) \"Some\" ((Some (\"contracts/Comptroller.py\" 528)) literal (string \"INVALID ACCOUNT SNAPSHOT VIEW\"))) \"Some\") ((Some (\"contracts/Comptroller.py\" 529)) literal (string \"CMPT_OUTDATED_ACCOUNT_SNAPSHOT\"))) ((Some (\"contracts/Comptroller.py\" 530)) define_local \"params\" ((Some (\"contracts/Comptroller.py\" 530)) open_variant ((Some (\"contracts/Comptroller.py\" 528)) open_variant ((Some (\"contracts/Comptroller.py\" 527)) view \"getAccountSnapshotView\" (None parameter) ((Some (\"contracts/Comptroller.py\" 500)) var \"asset\") (option (record ((account \"address\") (borrowBalance \"nat\") (cTokenBalance \"nat\") (exchangeRateMantissa \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 21))))) \"Some\" ((Some (\"contracts/Comptroller.py\" 528)) literal (string \"INVALID ACCOUNT SNAPSHOT VIEW\"))) \"Some\" \"None\") True) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 531)) var \"params\") \"exchangeRateMantissa\") \"nat\") ((Some (\"contracts/Comptroller.py\" 531)) define_local \"compute_Comptroller_531\" ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 531)) var \"params\") \"exchangeRateMantissa\"))) True) ((Some (\"contracts/Comptroller.py\" 315)) verify ((Some (\"contracts/Comptroller.py\" 315)) eq (None level) ((Some (\"contracts/Comptroller.py\" 315)) attr ((Some (\"contracts/Comptroller.py\" 315)) get_item ((Some (\"contracts/Comptroller.py\" 315)) attr ((Some (\"contracts/Comptroller.py\" 315)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 500)) var \"asset\")) \"updateLevel\")) ((Some (\"contracts/Comptroller.py\" 315)) literal (string \"CMPT_UPDATE_PRICE\"))) ((Some (\"contracts/Comptroller.py\" 234)) verify ((Some (\"contracts/Comptroller.py\" 234)) gt ((Some (\"contracts/Comptroller.py\" 234)) attr ((Some (\"contracts/Comptroller.py\" 316)) attr ((Some (\"contracts/Comptroller.py\" 316)) get_item ((Some (\"contracts/Comptroller.py\" 316)) attr ((Some (\"contracts/Comptroller.py\" 316)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 500)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 234)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 234)) literal (string \"CMPT_INVALID_PRICE\"))) ((Some (\"contracts/utils/Exponential.py\" 205)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 500)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 206)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 500)) var \"asset\")) \"collateralFactor\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 500)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 500)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 205)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 500)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 500)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 206)) set_type ((Some (\"contracts/Comptroller.py\" 531)) var \"compute_Comptroller_531\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 500)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 500)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 531)) var \"compute_Comptroller_531\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/Comptroller.py\" 535)) define_local \"compute_Comptroller_535\" ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 500)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 500)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 531)) var \"compute_Comptroller_531\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")))) True) ((Some (\"contracts/Comptroller.py\" 536)) define_local \"calc\" ((Some (\"contracts/Comptroller.py\" 536)) record (sumBorrowPlusEffects ((Some (\"contracts/Comptroller.py\" 537)) literal (nat 0))) (sumCollateral ((Some (\"contracts/Comptroller.py\" 536)) literal (nat 0)))) True) ((Some (\"contracts/Comptroller.py\" 539)) if_block ((Some (\"contracts/Comptroller.py\" 539)) and ((Some (\"contracts/Comptroller.py\" 539)) contains ((Some (\"contracts/Comptroller.py\" 539)) attr ((Some (\"contracts/Comptroller.py\" 539)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 539)) attr ((Some (\"contracts/Comptroller.py\" 539)) var \"params\") \"account\")) ((Some (\"contracts/Comptroller.py\" 539)) contains ((Some (\"contracts/Comptroller.py\" 539)) get_item ((Some (\"contracts/Comptroller.py\" 539)) attr ((Some (\"contracts/Comptroller.py\" 539)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 539)) attr ((Some (\"contracts/Comptroller.py\" 539)) var \"params\") \"account\")) ((Some (\"contracts/Comptroller.py\" 500)) var \"asset\"))) (((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 535)) var \"compute_Comptroller_535\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 535)) var \"compute_Comptroller_535\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 541)) attr ((Some (\"contracts/Comptroller.py\" 541)) var \"params\") \"cTokenBalance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 535)) var \"compute_Comptroller_535\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 541)) attr ((Some (\"contracts/Comptroller.py\" 541)) var \"params\") \"cTokenBalance\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 535)) var \"compute_Comptroller_535\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 541)) attr ((Some (\"contracts/Comptroller.py\" 541)) var \"params\") \"cTokenBalance\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 540)) set ((Some (\"contracts/Comptroller.py\" 540)) attr ((Some (\"contracts/Comptroller.py\" 537)) var \"calc\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 540)) add ((Some (\"contracts/Comptroller.py\" 540)) attr ((Some (\"contracts/Comptroller.py\" 537)) var \"calc\") \"sumCollateral\") ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 535)) var \"compute_Comptroller_535\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 541)) attr ((Some (\"contracts/Comptroller.py\" 541)) var \"params\") \"cTokenBalance\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))))) ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) get_item ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 500)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) get_item ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 500)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) var \"params\") \"borrowBalance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) get_item ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 500)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) var \"params\") \"borrowBalance\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) get_item ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 500)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) var \"params\") \"borrowBalance\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 542)) set ((Some (\"contracts/Comptroller.py\" 542)) attr ((Some (\"contracts/Comptroller.py\" 537)) var \"calc\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 542)) add ((Some (\"contracts/Comptroller.py\" 542)) attr ((Some (\"contracts/Comptroller.py\" 537)) var \"calc\") \"sumBorrowPlusEffects\") ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) get_item ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 500)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) var \"params\") \"borrowBalance\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))) ((Some (\"contracts/Comptroller.py\" 505)) set ((Some (\"contracts/Comptroller.py\" 505)) attr ((Some (\"contracts/Comptroller.py\" 496)) var \"calculation\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 505)) add ((Some (\"contracts/Comptroller.py\" 505)) attr ((Some (\"contracts/Comptroller.py\" 496)) var \"calculation\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 540)) attr ((Some (\"contracts/Comptroller.py\" 537)) var \"calc\") \"sumCollateral\"))) ((Some (\"contracts/Comptroller.py\" 506)) set ((Some (\"contracts/Comptroller.py\" 506)) attr ((Some (\"contracts/Comptroller.py\" 496)) var \"calculation\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 506)) add ((Some (\"contracts/Comptroller.py\" 506)) attr ((Some (\"contracts/Comptroller.py\" 496)) var \"calculation\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 542)) attr ((Some (\"contracts/Comptroller.py\" 537)) var \"calc\") \"sumBorrowPlusEffects\"))))))) ((Some (\"contracts/Comptroller.py\" 507)) if_block ((Some (\"contracts/Comptroller.py\" 507)) contains ((Some (\"contracts/Comptroller.py\" 507)) attr ((Some (\"contracts/Comptroller.py\" 507)) storage) \"loans\") (None parameter)) (((Some (\"contracts/Comptroller.py\" 508)) for_group \"asset\" ((Some (\"contracts/Comptroller.py\" 508)) elements ((Some (\"contracts/Comptroller.py\" 508)) get_item ((Some (\"contracts/Comptroller.py\" 508)) attr ((Some (\"contracts/Comptroller.py\" 508)) storage) \"loans\") (None parameter))) (((Some (\"contracts/Comptroller.py\" 510)) if_block ((Some (\"contracts/Comptroller.py\" 510)) contains ((Some (\"contracts/Comptroller.py\" 510)) attr ((Some (\"contracts/Comptroller.py\" 510)) storage) \"collaterals\") (None parameter)) (((Some (\"contracts/Comptroller.py\" 511)) if_block ((Some (\"contracts/Comptroller.py\" 511)) not ((Some (\"contracts/Comptroller.py\" 511)) contains ((Some (\"contracts/Comptroller.py\" 511)) get_item ((Some (\"contracts/Comptroller.py\" 511)) attr ((Some (\"contracts/Comptroller.py\" 511)) storage) \"collaterals\") (None parameter)) ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\"))) (((Some (\"contracts/Comptroller.py\" 529)) verify ((Some (\"contracts/Comptroller.py\" 529)) is_variant ((Some (\"contracts/Comptroller.py\" 528)) open_variant ((Some (\"contracts/Comptroller.py\" 527)) view \"getAccountSnapshotView\" (None parameter) ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\") (option (record ((account \"address\") (borrowBalance \"nat\") (cTokenBalance \"nat\") (exchangeRateMantissa \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 21))))) \"Some\" ((Some (\"contracts/Comptroller.py\" 528)) literal (string \"INVALID ACCOUNT SNAPSHOT VIEW\"))) \"Some\") ((Some (\"contracts/Comptroller.py\" 529)) literal (string \"CMPT_OUTDATED_ACCOUNT_SNAPSHOT\"))) ((Some (\"contracts/Comptroller.py\" 530)) define_local \"params\" ((Some (\"contracts/Comptroller.py\" 530)) open_variant ((Some (\"contracts/Comptroller.py\" 528)) open_variant ((Some (\"contracts/Comptroller.py\" 527)) view \"getAccountSnapshotView\" (None parameter) ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\") (option (record ((account \"address\") (borrowBalance \"nat\") (cTokenBalance \"nat\") (exchangeRateMantissa \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 21))))) \"Some\" ((Some (\"contracts/Comptroller.py\" 528)) literal (string \"INVALID ACCOUNT SNAPSHOT VIEW\"))) \"Some\" \"None\") True) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 531)) var \"params\") \"exchangeRateMantissa\") \"nat\") ((Some (\"contracts/Comptroller.py\" 531)) define_local \"compute_Comptroller_531\" ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 531)) var \"params\") \"exchangeRateMantissa\"))) True) ((Some (\"contracts/Comptroller.py\" 315)) verify ((Some (\"contracts/Comptroller.py\" 315)) eq (None level) ((Some (\"contracts/Comptroller.py\" 315)) attr ((Some (\"contracts/Comptroller.py\" 315)) get_item ((Some (\"contracts/Comptroller.py\" 315)) attr ((Some (\"contracts/Comptroller.py\" 315)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"updateLevel\")) ((Some (\"contracts/Comptroller.py\" 315)) literal (string \"CMPT_UPDATE_PRICE\"))) ((Some (\"contracts/Comptroller.py\" 234)) verify ((Some (\"contracts/Comptroller.py\" 234)) gt ((Some (\"contracts/Comptroller.py\" 234)) attr ((Some (\"contracts/Comptroller.py\" 316)) attr ((Some (\"contracts/Comptroller.py\" 316)) get_item ((Some (\"contracts/Comptroller.py\" 316)) attr ((Some (\"contracts/Comptroller.py\" 316)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 234)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 234)) literal (string \"CMPT_INVALID_PRICE\"))) ((Some (\"contracts/utils/Exponential.py\" 205)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 206)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"collateralFactor\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 205)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 206)) set_type ((Some (\"contracts/Comptroller.py\" 531)) var \"compute_Comptroller_531\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 531)) var \"compute_Comptroller_531\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/Comptroller.py\" 535)) define_local \"compute_Comptroller_535\" ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 531)) var \"compute_Comptroller_531\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")))) True) ((Some (\"contracts/Comptroller.py\" 536)) define_local \"calc\" ((Some (\"contracts/Comptroller.py\" 536)) record (sumBorrowPlusEffects ((Some (\"contracts/Comptroller.py\" 537)) literal (nat 0))) (sumCollateral ((Some (\"contracts/Comptroller.py\" 536)) literal (nat 0)))) True) ((Some (\"contracts/Comptroller.py\" 539)) if_block ((Some (\"contracts/Comptroller.py\" 539)) and ((Some (\"contracts/Comptroller.py\" 539)) contains ((Some (\"contracts/Comptroller.py\" 539)) attr ((Some (\"contracts/Comptroller.py\" 539)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 539)) attr ((Some (\"contracts/Comptroller.py\" 539)) var \"params\") \"account\")) ((Some (\"contracts/Comptroller.py\" 539)) contains ((Some (\"contracts/Comptroller.py\" 539)) get_item ((Some (\"contracts/Comptroller.py\" 539)) attr ((Some (\"contracts/Comptroller.py\" 539)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 539)) attr ((Some (\"contracts/Comptroller.py\" 539)) var \"params\") \"account\")) ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\"))) (((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 535)) var \"compute_Comptroller_535\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 535)) var \"compute_Comptroller_535\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 541)) attr ((Some (\"contracts/Comptroller.py\" 541)) var \"params\") \"cTokenBalance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 535)) var \"compute_Comptroller_535\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 541)) attr ((Some (\"contracts/Comptroller.py\" 541)) var \"params\") \"cTokenBalance\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 535)) var \"compute_Comptroller_535\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 541)) attr ((Some (\"contracts/Comptroller.py\" 541)) var \"params\") \"cTokenBalance\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 540)) set ((Some (\"contracts/Comptroller.py\" 540)) attr ((Some (\"contracts/Comptroller.py\" 537)) var \"calc\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 540)) add ((Some (\"contracts/Comptroller.py\" 540)) attr ((Some (\"contracts/Comptroller.py\" 537)) var \"calc\") \"sumCollateral\") ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 535)) var \"compute_Comptroller_535\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 541)) attr ((Some (\"contracts/Comptroller.py\" 541)) var \"params\") \"cTokenBalance\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))))) ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) get_item ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) get_item ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) var \"params\") \"borrowBalance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) get_item ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) var \"params\") \"borrowBalance\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) get_item ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) var \"params\") \"borrowBalance\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 542)) set ((Some (\"contracts/Comptroller.py\" 542)) attr ((Some (\"contracts/Comptroller.py\" 537)) var \"calc\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 542)) add ((Some (\"contracts/Comptroller.py\" 542)) attr ((Some (\"contracts/Comptroller.py\" 537)) var \"calc\") \"sumBorrowPlusEffects\") ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) get_item ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) var \"params\") \"borrowBalance\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))) ((Some (\"contracts/Comptroller.py\" 516)) set ((Some (\"contracts/Comptroller.py\" 505)) attr ((Some (\"contracts/Comptroller.py\" 496)) var \"calculation\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 516)) add ((Some (\"contracts/Comptroller.py\" 505)) attr ((Some (\"contracts/Comptroller.py\" 496)) var \"calculation\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 540)) attr ((Some (\"contracts/Comptroller.py\" 537)) var \"calc\") \"sumCollateral\"))) ((Some (\"contracts/Comptroller.py\" 517)) set ((Some (\"contracts/Comptroller.py\" 506)) attr ((Some (\"contracts/Comptroller.py\" 496)) var \"calculation\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 517)) add ((Some (\"contracts/Comptroller.py\" 506)) attr ((Some (\"contracts/Comptroller.py\" 496)) var \"calculation\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 542)) attr ((Some (\"contracts/Comptroller.py\" 537)) var \"calc\") \"sumBorrowPlusEffects\"))))))) (else_block (((Some (\"contracts/Comptroller.py\" 529)) verify ((Some (\"contracts/Comptroller.py\" 529)) is_variant ((Some (\"contracts/Comptroller.py\" 528)) open_variant ((Some (\"contracts/Comptroller.py\" 527)) view \"getAccountSnapshotView\" (None parameter) ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\") (option (record ((account \"address\") (borrowBalance \"nat\") (cTokenBalance \"nat\") (exchangeRateMantissa \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 21))))) \"Some\" ((Some (\"contracts/Comptroller.py\" 528)) literal (string \"INVALID ACCOUNT SNAPSHOT VIEW\"))) \"Some\") ((Some (\"contracts/Comptroller.py\" 529)) literal (string \"CMPT_OUTDATED_ACCOUNT_SNAPSHOT\"))) ((Some (\"contracts/Comptroller.py\" 530)) define_local \"params\" ((Some (\"contracts/Comptroller.py\" 530)) open_variant ((Some (\"contracts/Comptroller.py\" 528)) open_variant ((Some (\"contracts/Comptroller.py\" 527)) view \"getAccountSnapshotView\" (None parameter) ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\") (option (record ((account \"address\") (borrowBalance \"nat\") (cTokenBalance \"nat\") (exchangeRateMantissa \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 21))))) \"Some\" ((Some (\"contracts/Comptroller.py\" 528)) literal (string \"INVALID ACCOUNT SNAPSHOT VIEW\"))) \"Some\" \"None\") True) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 531)) var \"params\") \"exchangeRateMantissa\") \"nat\") ((Some (\"contracts/Comptroller.py\" 531)) define_local \"compute_Comptroller_531\" ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/Comptroller.py\" 531)) attr ((Some (\"contracts/Comptroller.py\" 531)) var \"params\") \"exchangeRateMantissa\"))) True) ((Some (\"contracts/Comptroller.py\" 315)) verify ((Some (\"contracts/Comptroller.py\" 315)) eq (None level) ((Some (\"contracts/Comptroller.py\" 315)) attr ((Some (\"contracts/Comptroller.py\" 315)) get_item ((Some (\"contracts/Comptroller.py\" 315)) attr ((Some (\"contracts/Comptroller.py\" 315)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"updateLevel\")) ((Some (\"contracts/Comptroller.py\" 315)) literal (string \"CMPT_UPDATE_PRICE\"))) ((Some (\"contracts/Comptroller.py\" 234)) verify ((Some (\"contracts/Comptroller.py\" 234)) gt ((Some (\"contracts/Comptroller.py\" 234)) attr ((Some (\"contracts/Comptroller.py\" 316)) attr ((Some (\"contracts/Comptroller.py\" 316)) get_item ((Some (\"contracts/Comptroller.py\" 316)) attr ((Some (\"contracts/Comptroller.py\" 316)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 234)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 234)) literal (string \"CMPT_INVALID_PRICE\"))) ((Some (\"contracts/utils/Exponential.py\" 205)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 206)) set_type ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"collateralFactor\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 205)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 206)) set_type ((Some (\"contracts/Comptroller.py\" 531)) var \"compute_Comptroller_531\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 531)) var \"compute_Comptroller_531\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) \"nat\") ((Some (\"contracts/Comptroller.py\" 535)) define_local \"compute_Comptroller_535\" ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) get_item ((Some (\"contracts/Comptroller.py\" 534)) attr ((Some (\"contracts/Comptroller.py\" 534)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"collateralFactor\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 531)) var \"compute_Comptroller_531\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/utils/Exponential.py\" 207)) storage) \"expScale\")))) True) ((Some (\"contracts/Comptroller.py\" 536)) define_local \"calc\" ((Some (\"contracts/Comptroller.py\" 536)) record (sumBorrowPlusEffects ((Some (\"contracts/Comptroller.py\" 537)) literal (nat 0))) (sumCollateral ((Some (\"contracts/Comptroller.py\" 536)) literal (nat 0)))) True) ((Some (\"contracts/Comptroller.py\" 539)) if_block ((Some (\"contracts/Comptroller.py\" 539)) and ((Some (\"contracts/Comptroller.py\" 539)) contains ((Some (\"contracts/Comptroller.py\" 539)) attr ((Some (\"contracts/Comptroller.py\" 539)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 539)) attr ((Some (\"contracts/Comptroller.py\" 539)) var \"params\") \"account\")) ((Some (\"contracts/Comptroller.py\" 539)) contains ((Some (\"contracts/Comptroller.py\" 539)) get_item ((Some (\"contracts/Comptroller.py\" 539)) attr ((Some (\"contracts/Comptroller.py\" 539)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 539)) attr ((Some (\"contracts/Comptroller.py\" 539)) var \"params\") \"account\")) ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\"))) (((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 535)) var \"compute_Comptroller_535\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 535)) var \"compute_Comptroller_535\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 541)) attr ((Some (\"contracts/Comptroller.py\" 541)) var \"params\") \"cTokenBalance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 535)) var \"compute_Comptroller_535\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 541)) attr ((Some (\"contracts/Comptroller.py\" 541)) var \"params\") \"cTokenBalance\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 535)) var \"compute_Comptroller_535\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 541)) attr ((Some (\"contracts/Comptroller.py\" 541)) var \"params\") \"cTokenBalance\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 540)) set ((Some (\"contracts/Comptroller.py\" 540)) attr ((Some (\"contracts/Comptroller.py\" 537)) var \"calc\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 540)) add ((Some (\"contracts/Comptroller.py\" 540)) attr ((Some (\"contracts/Comptroller.py\" 537)) var \"calc\") \"sumCollateral\") ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 535)) var \"compute_Comptroller_535\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 541)) attr ((Some (\"contracts/Comptroller.py\" 541)) var \"params\") \"cTokenBalance\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))))) ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) get_item ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) get_item ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) var \"params\") \"borrowBalance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) get_item ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) var \"params\") \"borrowBalance\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) get_item ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) var \"params\") \"borrowBalance\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 542)) set ((Some (\"contracts/Comptroller.py\" 542)) attr ((Some (\"contracts/Comptroller.py\" 537)) var \"calc\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 542)) add ((Some (\"contracts/Comptroller.py\" 542)) attr ((Some (\"contracts/Comptroller.py\" 537)) var \"calc\") \"sumBorrowPlusEffects\") ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) get_item ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 508)) var \"asset\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 543)) attr ((Some (\"contracts/Comptroller.py\" 543)) var \"params\") \"borrowBalance\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))) ((Some (\"contracts/Comptroller.py\" 521)) set ((Some (\"contracts/Comptroller.py\" 505)) attr ((Some (\"contracts/Comptroller.py\" 496)) var \"calculation\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 521)) add ((Some (\"contracts/Comptroller.py\" 505)) attr ((Some (\"contracts/Comptroller.py\" 496)) var \"calculation\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 540)) attr ((Some (\"contracts/Comptroller.py\" 537)) var \"calc\") \"sumCollateral\"))) ((Some (\"contracts/Comptroller.py\" 522)) set ((Some (\"contracts/Comptroller.py\" 506)) attr ((Some (\"contracts/Comptroller.py\" 496)) var \"calculation\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 522)) add ((Some (\"contracts/Comptroller.py\" 506)) attr ((Some (\"contracts/Comptroller.py\" 496)) var \"calculation\") \"sumBorrowPlusEffects\") ((Some (\"contracts/Comptroller.py\" 542)) attr ((Some (\"contracts/Comptroller.py\" 537)) var \"calc\") \"sumBorrowPlusEffects\"))))))))) ((Some (\"contracts/Comptroller.py\" 344)) define_local \"liquidity\" ((Some (\"contracts/Comptroller.py\" 496)) var \"calculation\") True) ((Some (\"contracts/utils/OperationProtector.py\" 43)) verify ((Some (\"contracts/utils/OperationProtector.py\" 43)) contains ((Some (\"contracts/utils/OperationProtector.py\" 43)) attr ((Some (\"contracts/utils/OperationProtector.py\" 43)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 31)) literal (nat 4))) ((Some (\"contracts/utils/OperationProtector.py\" 43)) literal (string \"OP_NOT_ACTIVE\"))) ((Some (\"contracts/utils/OperationProtector.py\" 49)) update_set ((Some (\"contracts/utils/OperationProtector.py\" 49)) attr ((Some (\"contracts/utils/OperationProtector.py\" 49)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 31)) literal (nat 4)) False) ((Some (\"contracts/Comptroller.py\" 347)) set ((Some (\"contracts/Comptroller.py\" 347)) get_item ((Some (\"contracts/Comptroller.py\" 347)) attr ((Some (\"contracts/Comptroller.py\" 347)) storage) \"account_liquidity\") (None parameter)) ((Some (\"contracts/Comptroller.py\" 347)) record (liquidity ((Some (\"contracts/Comptroller.py\" 348)) sub ((Some (\"contracts/Comptroller.py\" 348)) attr ((Some (\"contracts/Comptroller.py\" 345)) var \"liquidity\") \"sumCollateral\") ((Some (\"contracts/Comptroller.py\" 348)) attr ((Some (\"contracts/Comptroller.py\" 345)) var \"liquidity\") \"sumBorrowPlusEffects\"))) (updateLevel (None level)) (valid ((Some (\"contracts/Comptroller.py\" 347)) literal (bool True))))))) (setAccountSnapAndExitMarket True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 128)) (((Some (\"contracts/Comptroller.py\" 129)) verify ((Some (\"contracts/Comptroller.py\" 129)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 129)) MUL ((Some (\"contracts/Comptroller.py\" 129)) type_annotation ((Some (\"contracts/Comptroller.py\" 129)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 129)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 129)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 131)) set_type (None parameter) (record ((account \"address\") (borrowBalance \"nat\") (cTokenBalance \"nat\") (exchangeRateMantissa \"nat\")) Variable (Some (\"contracts/interfaces/CTokenInterface.py\" 21)))) ((Some (\"contracts/utils/OperationProtector.py\" 43)) verify ((Some (\"contracts/utils/OperationProtector.py\" 43)) contains ((Some (\"contracts/utils/OperationProtector.py\" 43)) attr ((Some (\"contracts/utils/OperationProtector.py\" 43)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 28)) literal (nat 1))) ((Some (\"contracts/utils/OperationProtector.py\" 43)) literal (string \"OP_NOT_ACTIVE\"))) ((Some (\"contracts/utils/OperationProtector.py\" 49)) update_set ((Some (\"contracts/utils/OperationProtector.py\" 49)) attr ((Some (\"contracts/utils/OperationProtector.py\" 49)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 28)) literal (nat 1)) False) ((Some (\"contracts/Comptroller.py\" 133)) verify ((Some (\"contracts/Comptroller.py\" 133)) eq ((Some (\"contracts/Comptroller.py\" 133)) attr (None parameter) \"borrowBalance\") ((Some (\"contracts/Comptroller.py\" 134)) literal (nat 0))) ((Some (\"contracts/Comptroller.py\" 133)) literal (string \"CMPT_BORROW_IN_MARKET\"))) ((Some (\"contracts/Comptroller.py\" 784)) verify ((Some (\"contracts/Comptroller.py\" 784)) and ((Some (\"contracts/Comptroller.py\" 784)) contains ((Some (\"contracts/Comptroller.py\" 784)) attr ((Some (\"contracts/Comptroller.py\" 784)) storage) \"markets\") (None sender)) ((Some (\"contracts/Comptroller.py\" 785)) attr ((Some (\"contracts/Comptroller.py\" 785)) get_item ((Some (\"contracts/Comptroller.py\" 785)) attr ((Some (\"contracts/Comptroller.py\" 785)) storage) \"markets\") (None sender)) \"isListed\")) ((Some (\"contracts/Comptroller.py\" 784)) literal (string \"CMPT_MARKET_NOT_LISTED\"))) ((Some (\"contracts/Comptroller.py\" 185)) if_block ((Some (\"contracts/Comptroller.py\" 185)) and ((Some (\"contracts/Comptroller.py\" 185)) contains ((Some (\"contracts/Comptroller.py\" 185)) attr ((Some (\"contracts/Comptroller.py\" 185)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 137)) attr (None parameter) \"account\")) ((Some (\"contracts/Comptroller.py\" 185)) contains ((Some (\"contracts/Comptroller.py\" 185)) get_item ((Some (\"contracts/Comptroller.py\" 185)) attr ((Some (\"contracts/Comptroller.py\" 185)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 137)) attr (None parameter) \"account\")) (None sender))) (((Some (\"contracts/Comptroller.py\" 187)) if_block ((Some (\"contracts/Comptroller.py\" 187)) and ((Some (\"contracts/Comptroller.py\" 187)) contains ((Some (\"contracts/Comptroller.py\" 187)) attr ((Some (\"contracts/Comptroller.py\" 187)) storage) \"loans\") ((Some (\"contracts/Comptroller.py\" 137)) attr (None parameter) \"account\")) ((Some (\"contracts/Comptroller.py\" 187)) neq ((Some (\"contracts/Comptroller.py\" 187)) size ((Some (\"contracts/Comptroller.py\" 187)) get_item ((Some (\"contracts/Comptroller.py\" 187)) attr ((Some (\"contracts/Comptroller.py\" 187)) storage) \"loans\") ((Some (\"contracts/Comptroller.py\" 137)) attr (None parameter) \"account\"))) ((Some (\"contracts/Comptroller.py\" 187)) literal (intOrNat 0)))) (((Some (\"contracts/Comptroller.py\" 798)) verify ((Some (\"contracts/Comptroller.py\" 798)) contains ((Some (\"contracts/Comptroller.py\" 798)) attr ((Some (\"contracts/Comptroller.py\" 798)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 137)) attr (None parameter) \"account\")) ((Some (\"contracts/Comptroller.py\" 798)) literal (string \"CMPT_LIQUIDITY_ABSENT\"))) ((Some (\"contracts/Comptroller.py\" 800)) verify ((Some (\"contracts/Comptroller.py\" 801)) attr ((Some (\"contracts/Comptroller.py\" 801)) get_item ((Some (\"contracts/Comptroller.py\" 801)) attr ((Some (\"contracts/Comptroller.py\" 801)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 137)) attr (None parameter) \"account\")) \"valid\") ((Some (\"contracts/Comptroller.py\" 800)) literal (string \"CMPT_LIQUIDITY_INVALID\"))) ((Some (\"contracts/utils/Exponential.py\" 193)) set_type (None level) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/Comptroller.py\" 803)) attr ((Some (\"contracts/Comptroller.py\" 803)) get_item ((Some (\"contracts/Comptroller.py\" 803)) attr ((Some (\"contracts/Comptroller.py\" 803)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 137)) attr (None parameter) \"account\")) \"updateLevel\") \"nat\") ((Some (\"contracts/Comptroller.py\" 802)) define_local \"compute_Comptroller_802\" ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub (None level) ((Some (\"contracts/Comptroller.py\" 803)) attr ((Some (\"contracts/Comptroller.py\" 803)) get_item ((Some (\"contracts/Comptroller.py\" 803)) attr ((Some (\"contracts/Comptroller.py\" 803)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 137)) attr (None parameter) \"account\")) \"updateLevel\"))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) True) ((Some (\"contracts/Comptroller.py\" 804)) verify ((Some (\"contracts/Comptroller.py\" 804)) eq ((Some (\"contracts/Comptroller.py\" 802)) var \"compute_Comptroller_802\") ((Some (\"contracts/Comptroller.py\" 804)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 804)) literal (string \"CMPT_LIQUIDITY_OLD\"))) ((Some (\"contracts/Comptroller.py\" 315)) verify ((Some (\"contracts/Comptroller.py\" 315)) eq (None level) ((Some (\"contracts/Comptroller.py\" 315)) attr ((Some (\"contracts/Comptroller.py\" 315)) get_item ((Some (\"contracts/Comptroller.py\" 315)) attr ((Some (\"contracts/Comptroller.py\" 315)) storage) \"markets\") (None sender)) \"updateLevel\")) ((Some (\"contracts/Comptroller.py\" 315)) literal (string \"CMPT_UPDATE_PRICE\"))) ((Some (\"contracts/Comptroller.py\" 234)) verify ((Some (\"contracts/Comptroller.py\" 234)) gt ((Some (\"contracts/Comptroller.py\" 234)) attr ((Some (\"contracts/Comptroller.py\" 316)) attr ((Some (\"contracts/Comptroller.py\" 316)) get_item ((Some (\"contracts/Comptroller.py\" 316)) attr ((Some (\"contracts/Comptroller.py\" 316)) storage) \"markets\") (None sender)) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 234)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 234)) literal (string \"CMPT_INVALID_PRICE\"))) ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 196)) attr ((Some (\"contracts/Comptroller.py\" 196)) get_item ((Some (\"contracts/Comptroller.py\" 196)) attr ((Some (\"contracts/Comptroller.py\" 196)) storage) \"markets\") (None sender)) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 196)) attr ((Some (\"contracts/Comptroller.py\" 196)) get_item ((Some (\"contracts/Comptroller.py\" 196)) attr ((Some (\"contracts/Comptroller.py\" 196)) storage) \"markets\") (None sender)) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 137)) attr (None parameter) \"cTokenBalance\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 196)) attr ((Some (\"contracts/Comptroller.py\" 196)) get_item ((Some (\"contracts/Comptroller.py\" 196)) attr ((Some (\"contracts/Comptroller.py\" 196)) storage) \"markets\") (None sender)) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 137)) attr (None parameter) \"cTokenBalance\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 196)) attr ((Some (\"contracts/Comptroller.py\" 196)) get_item ((Some (\"contracts/Comptroller.py\" 196)) attr ((Some (\"contracts/Comptroller.py\" 196)) storage) \"markets\") (None sender)) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 137)) attr (None parameter) \"cTokenBalance\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 195)) define_local \"compute_Comptroller_195\" ((Some (\"contracts/Comptroller.py\" 195)) sub ((Some (\"contracts/Comptroller.py\" 195)) attr ((Some (\"contracts/Comptroller.py\" 195)) get_item ((Some (\"contracts/Comptroller.py\" 195)) attr ((Some (\"contracts/Comptroller.py\" 195)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 137)) attr (None parameter) \"account\")) \"liquidity\") ((Some (\"contracts/Comptroller.py\" 195)) to_int ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 196)) attr ((Some (\"contracts/Comptroller.py\" 196)) get_item ((Some (\"contracts/Comptroller.py\" 196)) attr ((Some (\"contracts/Comptroller.py\" 196)) storage) \"markets\") (None sender)) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 137)) attr (None parameter) \"cTokenBalance\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))) True) ((Some (\"contracts/Comptroller.py\" 197)) verify ((Some (\"contracts/Comptroller.py\" 197)) ge ((Some (\"contracts/Comptroller.py\" 195)) var \"compute_Comptroller_195\") ((Some (\"contracts/Comptroller.py\" 197)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 197)) literal (string \"CMPT_REDEEMER_SHORTFALL\"))))))) ((Some (\"contracts/Comptroller.py\" 807)) if_block ((Some (\"contracts/Comptroller.py\" 807)) contains ((Some (\"contracts/Comptroller.py\" 807)) attr ((Some (\"contracts/Comptroller.py\" 807)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 137)) attr (None parameter) \"account\")) (((Some (\"contracts/Comptroller.py\" 808)) set ((Some (\"contracts/Comptroller.py\" 808)) attr ((Some (\"contracts/Comptroller.py\" 808)) get_item ((Some (\"contracts/Comptroller.py\" 808)) attr ((Some (\"contracts/Comptroller.py\" 808)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 137)) attr (None parameter) \"account\")) \"valid\") ((Some (\"contracts/Comptroller.py\" 808)) literal (bool False))))) ((Some (\"contracts/Comptroller.py\" 138)) if_block ((Some (\"contracts/Comptroller.py\" 138)) and ((Some (\"contracts/Comptroller.py\" 138)) contains ((Some (\"contracts/Comptroller.py\" 138)) attr ((Some (\"contracts/Comptroller.py\" 138)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 137)) attr (None parameter) \"account\")) ((Some (\"contracts/Comptroller.py\" 138)) contains ((Some (\"contracts/Comptroller.py\" 138)) get_item ((Some (\"contracts/Comptroller.py\" 138)) attr ((Some (\"contracts/Comptroller.py\" 138)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 137)) attr (None parameter) \"account\")) (None sender))) (((Some (\"contracts/Comptroller.py\" 140)) update_set ((Some (\"contracts/Comptroller.py\" 140)) get_item ((Some (\"contracts/Comptroller.py\" 140)) attr ((Some (\"contracts/Comptroller.py\" 140)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 137)) attr (None parameter) \"account\")) (None sender) False))) ((Some (\"contracts/Comptroller.py\" 807)) if_block ((Some (\"contracts/Comptroller.py\" 807)) contains ((Some (\"contracts/Comptroller.py\" 807)) attr ((Some (\"contracts/Comptroller.py\" 807)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 137)) attr (None parameter) \"account\")) (((Some (\"contracts/Comptroller.py\" 808)) set ((Some (\"contracts/Comptroller.py\" 808)) attr ((Some (\"contracts/Comptroller.py\" 808)) get_item ((Some (\"contracts/Comptroller.py\" 808)) attr ((Some (\"contracts/Comptroller.py\" 808)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 137)) attr (None parameter) \"account\")) \"valid\") ((Some (\"contracts/Comptroller.py\" 808)) literal (bool False))))))) (setBorrowPaused True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 625)) (((Some (\"contracts/Comptroller.py\" 626)) verify ((Some (\"contracts/Comptroller.py\" 626)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 626)) MUL ((Some (\"contracts/Comptroller.py\" 626)) type_annotation ((Some (\"contracts/Comptroller.py\" 626)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 626)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 626)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 628)) set_type (None parameter) (record ((cToken \"address\") (state \"bool\")) Variable (Some (\"contracts/Comptroller.py\" 628)))) ((Some (\"contracts/Comptroller.py\" 784)) verify ((Some (\"contracts/Comptroller.py\" 784)) and ((Some (\"contracts/Comptroller.py\" 784)) contains ((Some (\"contracts/Comptroller.py\" 784)) attr ((Some (\"contracts/Comptroller.py\" 784)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 629)) attr (None parameter) \"cToken\")) ((Some (\"contracts/Comptroller.py\" 785)) attr ((Some (\"contracts/Comptroller.py\" 785)) get_item ((Some (\"contracts/Comptroller.py\" 785)) attr ((Some (\"contracts/Comptroller.py\" 785)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 629)) attr (None parameter) \"cToken\")) \"isListed\")) ((Some (\"contracts/Comptroller.py\" 784)) literal (string \"CMPT_MARKET_NOT_LISTED\"))) ((Some (\"contracts/Comptroller.py\" 792)) verify ((Some (\"contracts/Comptroller.py\" 792)) eq (None sender) ((Some (\"contracts/Comptroller.py\" 792)) attr ((Some (\"contracts/Comptroller.py\" 792)) storage) \"administrator\")) ((Some (\"contracts/Comptroller.py\" 792)) literal (string \"CMPT_NOT_ADMIN\"))) ((Some (\"contracts/Comptroller.py\" 631)) set ((Some (\"contracts/Comptroller.py\" 631)) attr ((Some (\"contracts/Comptroller.py\" 631)) get_item ((Some (\"contracts/Comptroller.py\" 631)) attr ((Some (\"contracts/Comptroller.py\" 631)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 629)) attr (None parameter) \"cToken\")) \"borrowPaused\") ((Some (\"contracts/Comptroller.py\" 631)) attr (None parameter) \"state\")))) (setCloseFactor True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 674)) (((Some (\"contracts/Comptroller.py\" 675)) verify ((Some (\"contracts/Comptroller.py\" 675)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 675)) MUL ((Some (\"contracts/Comptroller.py\" 675)) type_annotation ((Some (\"contracts/Comptroller.py\" 675)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 675)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 675)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 677)) set_type (None parameter) \"nat\") ((Some (\"contracts/Comptroller.py\" 792)) verify ((Some (\"contracts/Comptroller.py\" 792)) eq (None sender) ((Some (\"contracts/Comptroller.py\" 792)) attr ((Some (\"contracts/Comptroller.py\" 792)) storage) \"administrator\")) ((Some (\"contracts/Comptroller.py\" 792)) literal (string \"CMPT_NOT_ADMIN\"))) ((Some (\"contracts/Comptroller.py\" 679)) set ((Some (\"contracts/Comptroller.py\" 679)) attr ((Some (\"contracts/Comptroller.py\" 679)) storage) \"closeFactorMantissa\") (None parameter)))) (setCollateralFactor True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 706)) (((Some (\"contracts/Comptroller.py\" 707)) verify ((Some (\"contracts/Comptroller.py\" 707)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 707)) MUL ((Some (\"contracts/Comptroller.py\" 707)) type_annotation ((Some (\"contracts/Comptroller.py\" 707)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 707)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 707)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 709)) set_type (None parameter) (record ((cToken \"address\") (newCollateralFactor \"nat\")) Variable (Some (\"contracts/Comptroller.py\" 709)))) ((Some (\"contracts/Comptroller.py\" 792)) verify ((Some (\"contracts/Comptroller.py\" 792)) eq (None sender) ((Some (\"contracts/Comptroller.py\" 792)) attr ((Some (\"contracts/Comptroller.py\" 792)) storage) \"administrator\")) ((Some (\"contracts/Comptroller.py\" 792)) literal (string \"CMPT_NOT_ADMIN\"))) ((Some (\"contracts/Comptroller.py\" 784)) verify ((Some (\"contracts/Comptroller.py\" 784)) and ((Some (\"contracts/Comptroller.py\" 784)) contains ((Some (\"contracts/Comptroller.py\" 784)) attr ((Some (\"contracts/Comptroller.py\" 784)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 712)) attr (None parameter) \"cToken\")) ((Some (\"contracts/Comptroller.py\" 785)) attr ((Some (\"contracts/Comptroller.py\" 785)) get_item ((Some (\"contracts/Comptroller.py\" 785)) attr ((Some (\"contracts/Comptroller.py\" 785)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 712)) attr (None parameter) \"cToken\")) \"isListed\")) ((Some (\"contracts/Comptroller.py\" 784)) literal (string \"CMPT_MARKET_NOT_LISTED\"))) ((Some (\"contracts/Comptroller.py\" 713)) set ((Some (\"contracts/Comptroller.py\" 713)) attr ((Some (\"contracts/Comptroller.py\" 713)) attr ((Some (\"contracts/Comptroller.py\" 713)) get_item ((Some (\"contracts/Comptroller.py\" 713)) attr ((Some (\"contracts/Comptroller.py\" 713)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 712)) attr (None parameter) \"cToken\")) \"collateralFactor\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 713)) attr (None parameter) \"newCollateralFactor\")))) (setLiquidationIncentive True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 723)) (((Some (\"contracts/Comptroller.py\" 724)) verify ((Some (\"contracts/Comptroller.py\" 724)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 724)) MUL ((Some (\"contracts/Comptroller.py\" 724)) type_annotation ((Some (\"contracts/Comptroller.py\" 724)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 724)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 724)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 726)) set_type (None parameter) \"nat\") ((Some (\"contracts/Comptroller.py\" 792)) verify ((Some (\"contracts/Comptroller.py\" 792)) eq (None sender) ((Some (\"contracts/Comptroller.py\" 792)) attr ((Some (\"contracts/Comptroller.py\" 792)) storage) \"administrator\")) ((Some (\"contracts/Comptroller.py\" 792)) literal (string \"CMPT_NOT_ADMIN\"))) ((Some (\"contracts/Comptroller.py\" 728)) set ((Some (\"contracts/Comptroller.py\" 728)) attr ((Some (\"contracts/Comptroller.py\" 728)) storage) \"liquidationIncentiveMantissa\") (None parameter)))) (setMaxAssetsPerUser True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 689)) (((Some (\"contracts/Comptroller.py\" 690)) verify ((Some (\"contracts/Comptroller.py\" 690)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 690)) MUL ((Some (\"contracts/Comptroller.py\" 690)) type_annotation ((Some (\"contracts/Comptroller.py\" 690)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 690)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 690)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 692)) set_type (None parameter) \"nat\") ((Some (\"contracts/Comptroller.py\" 792)) verify ((Some (\"contracts/Comptroller.py\" 792)) eq (None sender) ((Some (\"contracts/Comptroller.py\" 792)) attr ((Some (\"contracts/Comptroller.py\" 792)) storage) \"administrator\")) ((Some (\"contracts/Comptroller.py\" 792)) literal (string \"CMPT_NOT_ADMIN\"))) ((Some (\"contracts/Comptroller.py\" 694)) set ((Some (\"contracts/Comptroller.py\" 694)) attr ((Some (\"contracts/Comptroller.py\" 694)) storage) \"maxAssetsPerUser\") (None parameter)))) (setMintPaused True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 607)) (((Some (\"contracts/Comptroller.py\" 608)) verify ((Some (\"contracts/Comptroller.py\" 608)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 608)) MUL ((Some (\"contracts/Comptroller.py\" 608)) type_annotation ((Some (\"contracts/Comptroller.py\" 608)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 608)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 608)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 610)) set_type (None parameter) (record ((cToken \"address\") (state \"bool\")) Variable (Some (\"contracts/Comptroller.py\" 610)))) ((Some (\"contracts/Comptroller.py\" 784)) verify ((Some (\"contracts/Comptroller.py\" 784)) and ((Some (\"contracts/Comptroller.py\" 784)) contains ((Some (\"contracts/Comptroller.py\" 784)) attr ((Some (\"contracts/Comptroller.py\" 784)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 611)) attr (None parameter) \"cToken\")) ((Some (\"contracts/Comptroller.py\" 785)) attr ((Some (\"contracts/Comptroller.py\" 785)) get_item ((Some (\"contracts/Comptroller.py\" 785)) attr ((Some (\"contracts/Comptroller.py\" 785)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 611)) attr (None parameter) \"cToken\")) \"isListed\")) ((Some (\"contracts/Comptroller.py\" 784)) literal (string \"CMPT_MARKET_NOT_LISTED\"))) ((Some (\"contracts/Comptroller.py\" 792)) verify ((Some (\"contracts/Comptroller.py\" 792)) eq (None sender) ((Some (\"contracts/Comptroller.py\" 792)) attr ((Some (\"contracts/Comptroller.py\" 792)) storage) \"administrator\")) ((Some (\"contracts/Comptroller.py\" 792)) literal (string \"CMPT_NOT_ADMIN\"))) ((Some (\"contracts/Comptroller.py\" 613)) set ((Some (\"contracts/Comptroller.py\" 613)) attr ((Some (\"contracts/Comptroller.py\" 613)) get_item ((Some (\"contracts/Comptroller.py\" 613)) attr ((Some (\"contracts/Comptroller.py\" 613)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 611)) attr (None parameter) \"cToken\")) \"mintPaused\") ((Some (\"contracts/Comptroller.py\" 613)) attr (None parameter) \"state\")))) (setPendingGovernance True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 573)) (((Some (\"contracts/Comptroller.py\" 574)) verify ((Some (\"contracts/Comptroller.py\" 574)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 574)) MUL ((Some (\"contracts/Comptroller.py\" 574)) type_annotation ((Some (\"contracts/Comptroller.py\" 574)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 574)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 574)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 576)) set_type (None parameter) \"address\") ((Some (\"contracts/Comptroller.py\" 792)) verify ((Some (\"contracts/Comptroller.py\" 792)) eq (None sender) ((Some (\"contracts/Comptroller.py\" 792)) attr ((Some (\"contracts/Comptroller.py\" 792)) storage) \"administrator\")) ((Some (\"contracts/Comptroller.py\" 792)) literal (string \"CMPT_NOT_ADMIN\"))) ((Some (\"contracts/Comptroller.py\" 578)) set ((Some (\"contracts/Comptroller.py\" 578)) attr ((Some (\"contracts/Comptroller.py\" 578)) storage) \"pendingAdministrator\") ((Some (\"contracts/Comptroller.py\" 578)) variant \"Some\" (None parameter))))) (setPriceOracleAndTimeDiff True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 658)) (((Some (\"contracts/Comptroller.py\" 659)) verify ((Some (\"contracts/Comptroller.py\" 659)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 659)) MUL ((Some (\"contracts/Comptroller.py\" 659)) type_annotation ((Some (\"contracts/Comptroller.py\" 659)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 659)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 659)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 661)) set_type (None parameter) (record ((priceOracle \"address\") (timeDiff \"int\")) Variable (Some (\"contracts/Comptroller.py\" 661)))) ((Some (\"contracts/Comptroller.py\" 792)) verify ((Some (\"contracts/Comptroller.py\" 792)) eq (None sender) ((Some (\"contracts/Comptroller.py\" 792)) attr ((Some (\"contracts/Comptroller.py\" 792)) storage) \"administrator\")) ((Some (\"contracts/Comptroller.py\" 792)) literal (string \"CMPT_NOT_ADMIN\"))) ((Some (\"contracts/Comptroller.py\" 663)) set ((Some (\"contracts/Comptroller.py\" 663)) attr ((Some (\"contracts/Comptroller.py\" 663)) storage) \"maxPriceTimeDifference\") ((Some (\"contracts/Comptroller.py\" 663)) attr (None parameter) \"timeDiff\")) ((Some (\"contracts/Comptroller.py\" 664)) set ((Some (\"contracts/Comptroller.py\" 664)) attr ((Some (\"contracts/Comptroller.py\" 664)) storage) \"oracleAddress\") ((Some (\"contracts/Comptroller.py\" 664)) attr (None parameter) \"priceOracle\")))) (setTransferPaused True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 641)) (((Some (\"contracts/Comptroller.py\" 642)) verify ((Some (\"contracts/Comptroller.py\" 642)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 642)) MUL ((Some (\"contracts/Comptroller.py\" 642)) type_annotation ((Some (\"contracts/Comptroller.py\" 642)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 642)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 642)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 644)) set_type (None parameter) \"bool\") ((Some (\"contracts/Comptroller.py\" 792)) verify ((Some (\"contracts/Comptroller.py\" 792)) eq (None sender) ((Some (\"contracts/Comptroller.py\" 792)) attr ((Some (\"contracts/Comptroller.py\" 792)) storage) \"administrator\")) ((Some (\"contracts/Comptroller.py\" 792)) literal (string \"CMPT_NOT_ADMIN\"))) ((Some (\"contracts/Comptroller.py\" 646)) set ((Some (\"contracts/Comptroller.py\" 646)) attr ((Some (\"contracts/Comptroller.py\" 646)) storage) \"transferPaused\") (None parameter)))) (supportMarket True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 741)) (((Some (\"contracts/Comptroller.py\" 742)) verify ((Some (\"contracts/Comptroller.py\" 742)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 742)) MUL ((Some (\"contracts/Comptroller.py\" 742)) type_annotation ((Some (\"contracts/Comptroller.py\" 742)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 742)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 742)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 744)) set_type (None parameter) (record ((cToken \"address\") (name \"string\") (priceExp \"nat\")) Variable (Some (\"contracts/Comptroller.py\" 744)))) ((Some (\"contracts/Comptroller.py\" 792)) verify ((Some (\"contracts/Comptroller.py\" 792)) eq (None sender) ((Some (\"contracts/Comptroller.py\" 792)) attr ((Some (\"contracts/Comptroller.py\" 792)) storage) \"administrator\")) ((Some (\"contracts/Comptroller.py\" 792)) literal (string \"CMPT_NOT_ADMIN\"))) ((Some (\"contracts/Comptroller.py\" 788)) verify ((Some (\"contracts/Comptroller.py\" 788)) not ((Some (\"contracts/Comptroller.py\" 788)) and ((Some (\"contracts/Comptroller.py\" 788)) contains ((Some (\"contracts/Comptroller.py\" 788)) attr ((Some (\"contracts/Comptroller.py\" 788)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 747)) attr (None parameter) \"cToken\")) ((Some (\"contracts/Comptroller.py\" 789)) attr ((Some (\"contracts/Comptroller.py\" 789)) get_item ((Some (\"contracts/Comptroller.py\" 789)) attr ((Some (\"contracts/Comptroller.py\" 789)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 747)) attr (None parameter) \"cToken\")) \"isListed\"))) ((Some (\"contracts/Comptroller.py\" 788)) literal (string \"CMPT_MARKET_ALREADY_LISTED\"))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/Comptroller.py\" 750)) literal (nat 500000000000000000)) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/Comptroller.py\" 756)) literal (nat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 748)) set ((Some (\"contracts/Comptroller.py\" 748)) get_item ((Some (\"contracts/Comptroller.py\" 748)) attr ((Some (\"contracts/Comptroller.py\" 748)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 747)) attr (None parameter) \"cToken\")) ((Some (\"contracts/Comptroller.py\" 748)) record (borrowPaused ((Some (\"contracts/Comptroller.py\" 752)) literal (bool True))) (collateralFactor ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/Comptroller.py\" 750)) literal (nat 500000000000000000))))) (isListed ((Some (\"contracts/Comptroller.py\" 748)) literal (bool True))) (mintPaused ((Some (\"contracts/Comptroller.py\" 751)) literal (bool True))) (name ((Some (\"contracts/Comptroller.py\" 754)) attr (None parameter) \"name\")) (price ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/Comptroller.py\" 756)) literal (nat 0))))) (priceExp ((Some (\"contracts/Comptroller.py\" 757)) attr (None parameter) \"priceExp\")) (priceTimestamp ((Some (\"contracts/Comptroller.py\" 759)) literal (timestamp 0))) (updateLevel ((Some (\"contracts/Comptroller.py\" 758)) literal (nat 0))))) ((Some (\"contracts/Comptroller.py\" 760)) set ((Some (\"contracts/Comptroller.py\" 760)) get_item ((Some (\"contracts/Comptroller.py\" 760)) attr ((Some (\"contracts/Comptroller.py\" 760)) storage) \"marketNameToAddress\") ((Some (\"contracts/Comptroller.py\" 760)) add ((Some (\"contracts/Comptroller.py\" 754)) attr (None parameter) \"name\") ((Some (\"contracts/Comptroller.py\" 760)) literal (string \"-USD\")))) ((Some (\"contracts/Comptroller.py\" 747)) attr (None parameter) \"cToken\")))) (sweepFA12 True None None None True None (Some (\"contracts/utils/SweepTokens.py\" 35)) (((Some (\"contracts/utils/SweepTokens.py\" 36)) set_type (None parameter) (record ((amount \"nat\") (tokenAddress \"address\")) Variable (Some (\"contracts/utils/SweepTokens.py\" 36)))) ((Some (\"contracts/utils/TransferTokens.py\" 19)) set ((Some (\"contracts/utils/TransferTokens.py\" 19)) operations) ((Some (\"contracts/utils/TransferTokens.py\" 19)) cons ((Some (\"contracts/utils/TransferTokens.py\" 19)) transfer ((Some (\"contracts/utils/TransferTokens.py\" 6)) record (from_ (None self_address)) (to_ ((Some (\"contracts/utils/SweepTokens.py\" 39)) attr ((Some (\"contracts/utils/SweepTokens.py\" 39)) storage) \"administrator\")) (value ((Some (\"contracts/utils/SweepTokens.py\" 40)) attr (None parameter) \"amount\"))) ((Some (\"contracts/utils/TransferTokens.py\" 19)) literal (mutez 0)) ((Some (\"contracts/utils/TransferTokens.py\" 17)) open_variant ((Some (\"contracts/utils/TransferTokens.py\" 12)) contract \"transfer\" (record ((from_ \"address\") (to_ \"address\") (value \"nat\")) (Value ((\"from_ as from\") ((\"to_ as to\") (\"value\")))) (Some (\"contracts/utils/TransferTokens.py\" 13))) ((Some (\"contracts/utils/SweepTokens.py\" 38)) attr (None parameter) \"tokenAddress\")) \"Some\" \"None\")) ((Some (\"contracts/utils/TransferTokens.py\" 19)) operations))))) (sweepFA2 True None None None True None (Some (\"contracts/utils/SweepTokens.py\" 51)) (((Some (\"contracts/utils/SweepTokens.py\" 52)) set_type (None parameter) (record ((amount \"nat\") (id \"nat\") (tokenAddress \"address\")) Variable (Some (\"contracts/utils/SweepTokens.py\" 52)))) ((Some (\"contracts/utils/TransferTokens.py\" 45)) set ((Some (\"contracts/utils/TransferTokens.py\" 45)) operations) ((Some (\"contracts/utils/TransferTokens.py\" 45)) cons ((Some (\"contracts/utils/TransferTokens.py\" 45)) transfer ((Some (\"contracts/utils/TransferTokens.py\" 45)) list ((Some (\"contracts/utils/TransferTokens.py\" 26)) record (from_ (None self_address)) (txs ((Some (\"contracts/utils/TransferTokens.py\" 26)) list ((Some (\"contracts/utils/TransferTokens.py\" 29)) record (amount ((Some (\"contracts/utils/SweepTokens.py\" 56)) attr (None parameter) \"amount\")) (to_ ((Some (\"contracts/utils/SweepTokens.py\" 55)) attr ((Some (\"contracts/utils/SweepTokens.py\" 55)) storage) \"administrator\")) (token_id ((Some (\"contracts/utils/SweepTokens.py\" 54)) attr (None parameter) \"id\"))))))) ((Some (\"contracts/utils/TransferTokens.py\" 45)) literal (mutez 0)) ((Some (\"contracts/utils/TransferTokens.py\" 43)) open_variant ((Some (\"contracts/utils/TransferTokens.py\" 38)) contract \"transfer\" (list (record ((from_ \"address\") (txs (list (record ((amount \"nat\") (to_ \"address\") (token_id \"nat\")) (Value ((\"to_\") ((\"token_id\") (\"amount\")))) (Some (\"contracts/utils/TransferTokens.py\" 22)))))) (Value ((\"from_\") (\"txs\"))) (Some (\"contracts/utils/TransferTokens.py\" 40)))) ((Some (\"contracts/utils/SweepTokens.py\" 54)) attr (None parameter) \"tokenAddress\")) \"Some\" \"None\")) ((Some (\"contracts/utils/TransferTokens.py\" 45)) operations))))) (sweepMutez True None None None True None (Some (\"contracts/utils/SweepTokens.py\" 16)) (((Some (\"contracts/utils/SweepTokens.py\" 17)) set_type (None parameter) \"bool\") ((Some (\"contracts/utils/SweepTokens.py\" 19)) if_block (None parameter) (((Some (\"contracts/utils/SweepTokens.py\" 22)) set ((Some (\"contracts/utils/SweepTokens.py\" 22)) operations) ((Some (\"contracts/utils/SweepTokens.py\" 22)) cons ((Some (\"contracts/utils/SweepTokens.py\" 22)) transfer (None literal (unit)) (None balance) ((Some (\"contracts/utils/SweepTokens.py\" 21)) open_variant ((Some (\"contracts/utils/SweepTokens.py\" 20)) contract \"receive\" \"unit\" ((Some (\"contracts/utils/SweepTokens.py\" 21)) attr ((Some (\"contracts/utils/SweepTokens.py\" 21)) storage) \"administrator\")) \"Some\" \"None\")) ((Some (\"contracts/utils/SweepTokens.py\" 22)) operations))))) (else_block (((Some (\"contracts/utils/SweepTokens.py\" 24)) set ((Some (\"contracts/utils/SweepTokens.py\" 24)) operations) ((Some (\"contracts/utils/SweepTokens.py\" 24)) cons ((Some (\"contracts/utils/SweepTokens.py\" 24)) transfer (None literal (unit)) (None balance) ((Some (\"contracts/utils/SweepTokens.py\" 24)) open_variant ((Some (\"contracts/utils/SweepTokens.py\" 24)) contract \"\" \"unit\" ((Some (\"contracts/utils/SweepTokens.py\" 24)) attr ((Some (\"contracts/utils/SweepTokens.py\" 24)) storage) \"administrator\")) \"Some\" \"None\")) ((Some (\"contracts/utils/SweepTokens.py\" 24)) operations))))))) (transferAllowed True (Some True) None None True None (Some (\"contracts/Comptroller.py\" 283)) (((Some (\"contracts/Comptroller.py\" 284)) verify ((Some (\"contracts/Comptroller.py\" 284)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 284)) MUL ((Some (\"contracts/Comptroller.py\" 284)) type_annotation ((Some (\"contracts/Comptroller.py\" 284)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 284)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 284)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 286)) set_type (None parameter) (record ((cToken \"address\") (dst \"address\") (src \"address\") (transferTokens \"nat\")) (Value (((\"cToken\") (\"src\")) ((\"dst\") (\"transferTokens\")))) (Some (\"contracts/interfaces/ComptrollerInterface.py\" 16)))) ((Some (\"contracts/Comptroller.py\" 287)) verify ((Some (\"contracts/Comptroller.py\" 287)) not ((Some (\"contracts/Comptroller.py\" 287)) attr ((Some (\"contracts/Comptroller.py\" 287)) storage) \"transferPaused\")) ((Some (\"contracts/Comptroller.py\" 287)) literal (string \"CMPT_TRANSFER_PAUSED\"))) ((Some (\"contracts/Comptroller.py\" 784)) verify ((Some (\"contracts/Comptroller.py\" 784)) and ((Some (\"contracts/Comptroller.py\" 784)) contains ((Some (\"contracts/Comptroller.py\" 784)) attr ((Some (\"contracts/Comptroller.py\" 784)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 289)) attr (None parameter) \"cToken\")) ((Some (\"contracts/Comptroller.py\" 785)) attr ((Some (\"contracts/Comptroller.py\" 785)) get_item ((Some (\"contracts/Comptroller.py\" 785)) attr ((Some (\"contracts/Comptroller.py\" 785)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 289)) attr (None parameter) \"cToken\")) \"isListed\")) ((Some (\"contracts/Comptroller.py\" 784)) literal (string \"CMPT_MARKET_NOT_LISTED\"))) ((Some (\"contracts/Comptroller.py\" 185)) if_block ((Some (\"contracts/Comptroller.py\" 185)) and ((Some (\"contracts/Comptroller.py\" 185)) contains ((Some (\"contracts/Comptroller.py\" 185)) attr ((Some (\"contracts/Comptroller.py\" 185)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 289)) attr (None parameter) \"src\")) ((Some (\"contracts/Comptroller.py\" 185)) contains ((Some (\"contracts/Comptroller.py\" 185)) get_item ((Some (\"contracts/Comptroller.py\" 185)) attr ((Some (\"contracts/Comptroller.py\" 185)) storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 289)) attr (None parameter) \"src\")) ((Some (\"contracts/Comptroller.py\" 289)) attr (None parameter) \"cToken\"))) (((Some (\"contracts/Comptroller.py\" 187)) if_block ((Some (\"contracts/Comptroller.py\" 187)) and ((Some (\"contracts/Comptroller.py\" 187)) contains ((Some (\"contracts/Comptroller.py\" 187)) attr ((Some (\"contracts/Comptroller.py\" 187)) storage) \"loans\") ((Some (\"contracts/Comptroller.py\" 289)) attr (None parameter) \"src\")) ((Some (\"contracts/Comptroller.py\" 187)) neq ((Some (\"contracts/Comptroller.py\" 187)) size ((Some (\"contracts/Comptroller.py\" 187)) get_item ((Some (\"contracts/Comptroller.py\" 187)) attr ((Some (\"contracts/Comptroller.py\" 187)) storage) \"loans\") ((Some (\"contracts/Comptroller.py\" 289)) attr (None parameter) \"src\"))) ((Some (\"contracts/Comptroller.py\" 187)) literal (intOrNat 0)))) (((Some (\"contracts/Comptroller.py\" 798)) verify ((Some (\"contracts/Comptroller.py\" 798)) contains ((Some (\"contracts/Comptroller.py\" 798)) attr ((Some (\"contracts/Comptroller.py\" 798)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 289)) attr (None parameter) \"src\")) ((Some (\"contracts/Comptroller.py\" 798)) literal (string \"CMPT_LIQUIDITY_ABSENT\"))) ((Some (\"contracts/Comptroller.py\" 800)) verify ((Some (\"contracts/Comptroller.py\" 801)) attr ((Some (\"contracts/Comptroller.py\" 801)) get_item ((Some (\"contracts/Comptroller.py\" 801)) attr ((Some (\"contracts/Comptroller.py\" 801)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 289)) attr (None parameter) \"src\")) \"valid\") ((Some (\"contracts/Comptroller.py\" 800)) literal (string \"CMPT_LIQUIDITY_INVALID\"))) ((Some (\"contracts/utils/Exponential.py\" 193)) set_type (None level) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 194)) set_type ((Some (\"contracts/Comptroller.py\" 803)) attr ((Some (\"contracts/Comptroller.py\" 803)) get_item ((Some (\"contracts/Comptroller.py\" 803)) attr ((Some (\"contracts/Comptroller.py\" 803)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 289)) attr (None parameter) \"src\")) \"updateLevel\") \"nat\") ((Some (\"contracts/Comptroller.py\" 802)) define_local \"compute_Comptroller_802\" ((Some (\"contracts/utils/Exponential.py\" 195)) open_variant ((Some (\"contracts/utils/Exponential.py\" 195)) is_nat ((Some (\"contracts/utils/Exponential.py\" 195)) sub (None level) ((Some (\"contracts/Comptroller.py\" 803)) attr ((Some (\"contracts/Comptroller.py\" 803)) get_item ((Some (\"contracts/Comptroller.py\" 803)) attr ((Some (\"contracts/Comptroller.py\" 803)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 289)) attr (None parameter) \"src\")) \"updateLevel\"))) \"Some\" ((Some (\"contracts/utils/Exponential.py\" 195)) literal (string \"SUBTRACTION_UNDERFLOW\"))) True) ((Some (\"contracts/Comptroller.py\" 804)) verify ((Some (\"contracts/Comptroller.py\" 804)) eq ((Some (\"contracts/Comptroller.py\" 802)) var \"compute_Comptroller_802\") ((Some (\"contracts/Comptroller.py\" 804)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 804)) literal (string \"CMPT_LIQUIDITY_OLD\"))) ((Some (\"contracts/Comptroller.py\" 315)) verify ((Some (\"contracts/Comptroller.py\" 315)) eq (None level) ((Some (\"contracts/Comptroller.py\" 315)) attr ((Some (\"contracts/Comptroller.py\" 315)) get_item ((Some (\"contracts/Comptroller.py\" 315)) attr ((Some (\"contracts/Comptroller.py\" 315)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 289)) attr (None parameter) \"cToken\")) \"updateLevel\")) ((Some (\"contracts/Comptroller.py\" 315)) literal (string \"CMPT_UPDATE_PRICE\"))) ((Some (\"contracts/Comptroller.py\" 234)) verify ((Some (\"contracts/Comptroller.py\" 234)) gt ((Some (\"contracts/Comptroller.py\" 234)) attr ((Some (\"contracts/Comptroller.py\" 316)) attr ((Some (\"contracts/Comptroller.py\" 316)) get_item ((Some (\"contracts/Comptroller.py\" 316)) attr ((Some (\"contracts/Comptroller.py\" 316)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 289)) attr (None parameter) \"cToken\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 234)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 234)) literal (string \"CMPT_INVALID_PRICE\"))) ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 196)) attr ((Some (\"contracts/Comptroller.py\" 196)) get_item ((Some (\"contracts/Comptroller.py\" 196)) attr ((Some (\"contracts/Comptroller.py\" 196)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 289)) attr (None parameter) \"cToken\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 196)) attr ((Some (\"contracts/Comptroller.py\" 196)) get_item ((Some (\"contracts/Comptroller.py\" 196)) attr ((Some (\"contracts/Comptroller.py\" 196)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 289)) attr (None parameter) \"cToken\")) \"price\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 289)) attr (None parameter) \"transferTokens\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 196)) attr ((Some (\"contracts/Comptroller.py\" 196)) get_item ((Some (\"contracts/Comptroller.py\" 196)) attr ((Some (\"contracts/Comptroller.py\" 196)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 289)) attr (None parameter) \"cToken\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 289)) attr (None parameter) \"transferTokens\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 196)) attr ((Some (\"contracts/Comptroller.py\" 196)) get_item ((Some (\"contracts/Comptroller.py\" 196)) attr ((Some (\"contracts/Comptroller.py\" 196)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 289)) attr (None parameter) \"cToken\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 289)) attr (None parameter) \"transferTokens\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 195)) define_local \"compute_Comptroller_195\" ((Some (\"contracts/Comptroller.py\" 195)) sub ((Some (\"contracts/Comptroller.py\" 195)) attr ((Some (\"contracts/Comptroller.py\" 195)) get_item ((Some (\"contracts/Comptroller.py\" 195)) attr ((Some (\"contracts/Comptroller.py\" 195)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 289)) attr (None parameter) \"src\")) \"liquidity\") ((Some (\"contracts/Comptroller.py\" 195)) to_int ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 196)) attr ((Some (\"contracts/Comptroller.py\" 196)) get_item ((Some (\"contracts/Comptroller.py\" 196)) attr ((Some (\"contracts/Comptroller.py\" 196)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 289)) attr (None parameter) \"cToken\")) \"price\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 289)) attr (None parameter) \"transferTokens\")) ((Some (\"contracts/utils/Exponential.py\" 61)) attr ((Some (\"contracts/utils/Exponential.py\" 61)) storage) \"expScale\")))) True) ((Some (\"contracts/Comptroller.py\" 197)) verify ((Some (\"contracts/Comptroller.py\" 197)) ge ((Some (\"contracts/Comptroller.py\" 195)) var \"compute_Comptroller_195\") ((Some (\"contracts/Comptroller.py\" 197)) literal (intOrNat 0))) ((Some (\"contracts/Comptroller.py\" 197)) literal (string \"CMPT_REDEEMER_SHORTFALL\"))))))) ((Some (\"contracts/Comptroller.py\" 807)) if_block ((Some (\"contracts/Comptroller.py\" 807)) contains ((Some (\"contracts/Comptroller.py\" 807)) attr ((Some (\"contracts/Comptroller.py\" 807)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 289)) attr (None parameter) \"src\")) (((Some (\"contracts/Comptroller.py\" 808)) set ((Some (\"contracts/Comptroller.py\" 808)) attr ((Some (\"contracts/Comptroller.py\" 808)) get_item ((Some (\"contracts/Comptroller.py\" 808)) attr ((Some (\"contracts/Comptroller.py\" 808)) storage) \"account_liquidity\") ((Some (\"contracts/Comptroller.py\" 289)) attr (None parameter) \"src\")) \"valid\") ((Some (\"contracts/Comptroller.py\" 808)) literal (bool False))))))) (updateAccountLiquidityWithView True None None None True None (Some (\"contracts/Comptroller.py\" 324)) (((Some (\"contracts/Comptroller.py\" 325)) verify ((Some (\"contracts/Comptroller.py\" 325)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 325)) MUL ((Some (\"contracts/Comptroller.py\" 325)) type_annotation ((Some (\"contracts/Comptroller.py\" 325)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 325)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 325)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 327)) set_type (None parameter) \"address\") ((Some (\"contracts/Comptroller.py\" 301)) for_group \"asset\" ((Some (\"contracts/Comptroller.py\" 301)) values ((Some (\"contracts/Comptroller.py\" 301)) attr ((Some (\"contracts/Comptroller.py\" 301)) storage) \"marketNameToAddress\")) (((Some (\"contracts/Comptroller.py\" 302)) if_block ((Some (\"contracts/Comptroller.py\" 302)) lt ((Some (\"contracts/Comptroller.py\" 302)) attr ((Some (\"contracts/Comptroller.py\" 302)) get_item ((Some (\"contracts/Comptroller.py\" 302)) attr ((Some (\"contracts/Comptroller.py\" 302)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 301)) var \"asset\")) \"updateLevel\") (None level)) (((Some (\"contracts/Comptroller.py\" 303)) define_local \"pricePair\" ((Some (\"contracts/Comptroller.py\" 305)) open_variant ((Some (\"contracts/Comptroller.py\" 304)) view \"getPrice\" ((Some (\"contracts/Comptroller.py\" 304)) add ((Some (\"contracts/Comptroller.py\" 304)) attr ((Some (\"contracts/Comptroller.py\" 304)) get_item ((Some (\"contracts/Comptroller.py\" 304)) attr ((Some (\"contracts/Comptroller.py\" 304)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 301)) var \"asset\")) \"name\") ((Some (\"contracts/Comptroller.py\" 304)) literal (string \"-USD\"))) ((Some (\"contracts/Comptroller.py\" 304)) attr ((Some (\"contracts/Comptroller.py\" 304)) storage) \"oracleAddress\") (tuple \"timestamp\" \"nat\")) \"Some\" ((Some (\"contracts/Comptroller.py\" 305)) literal (string \"invalid oracle view call\"))) True) ((Some (\"contracts/Comptroller.py\" 307)) if_block ((Some (\"contracts/Comptroller.py\" 307)) neq ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) get_item ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 301)) var \"asset\")) \"priceTimestamp\") ((Some (\"contracts/Comptroller.py\" 307)) literal (timestamp 0))) (((Some (\"contracts/Comptroller.py\" 308)) verify ((Some (\"contracts/Comptroller.py\" 308)) le ((Some (\"contracts/Comptroller.py\" 308)) sub (None now) ((Some (\"contracts/Comptroller.py\" 308)) first ((Some (\"contracts/Comptroller.py\" 308)) var \"pricePair\"))) ((Some (\"contracts/Comptroller.py\" 308)) attr ((Some (\"contracts/Comptroller.py\" 308)) storage) \"maxPriceTimeDifference\")) ((Some (\"contracts/Comptroller.py\" 308)) literal (string \"STALE_ASSET_PRICE\"))))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/Comptroller.py\" 310)) mul_homo ((Some (\"contracts/Comptroller.py\" 310)) second ((Some (\"contracts/Comptroller.py\" 310)) var \"pricePair\")) ((Some (\"contracts/Comptroller.py\" 310)) attr ((Some (\"contracts/Comptroller.py\" 310)) get_item ((Some (\"contracts/Comptroller.py\" 310)) attr ((Some (\"contracts/Comptroller.py\" 310)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 301)) var \"asset\")) \"priceExp\")) \"nat\") ((Some (\"contracts/Comptroller.py\" 309)) set ((Some (\"contracts/Comptroller.py\" 309)) attr ((Some (\"contracts/Comptroller.py\" 309)) get_item ((Some (\"contracts/Comptroller.py\" 309)) attr ((Some (\"contracts/Comptroller.py\" 309)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 301)) var \"asset\")) \"price\") ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/Comptroller.py\" 310)) mul_homo ((Some (\"contracts/Comptroller.py\" 310)) second ((Some (\"contracts/Comptroller.py\" 310)) var \"pricePair\")) ((Some (\"contracts/Comptroller.py\" 310)) attr ((Some (\"contracts/Comptroller.py\" 310)) get_item ((Some (\"contracts/Comptroller.py\" 310)) attr ((Some (\"contracts/Comptroller.py\" 310)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 301)) var \"asset\")) \"priceExp\"))))) ((Some (\"contracts/Comptroller.py\" 311)) set ((Some (\"contracts/Comptroller.py\" 311)) attr ((Some (\"contracts/Comptroller.py\" 311)) get_item ((Some (\"contracts/Comptroller.py\" 311)) attr ((Some (\"contracts/Comptroller.py\" 311)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 301)) var \"asset\")) \"priceTimestamp\") ((Some (\"contracts/Comptroller.py\" 311)) first ((Some (\"contracts/Comptroller.py\" 311)) var \"pricePair\"))) ((Some (\"contracts/Comptroller.py\" 312)) set ((Some (\"contracts/Comptroller.py\" 312)) attr ((Some (\"contracts/Comptroller.py\" 312)) get_item ((Some (\"contracts/Comptroller.py\" 312)) attr ((Some (\"contracts/Comptroller.py\" 312)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 301)) var \"asset\")) \"updateLevel\") (None level)))))) ((Some (\"contracts/Comptroller.py\" 354)) for_group \"asset\" ((Some (\"contracts/Comptroller.py\" 354)) values ((Some (\"contracts/Comptroller.py\" 354)) attr ((Some (\"contracts/Comptroller.py\" 354)) storage) \"marketNameToAddress\")) (((Some (\"contracts/Comptroller.py\" 355)) set ((Some (\"contracts/Comptroller.py\" 355)) operations) ((Some (\"contracts/Comptroller.py\" 355)) cons ((Some (\"contracts/Comptroller.py\" 355)) transfer (None literal (unit)) ((Some (\"contracts/Comptroller.py\" 355)) literal (mutez 0)) ((Some (\"contracts/Comptroller.py\" 356)) open_variant ((Some (\"contracts/Comptroller.py\" 355)) contract \"accrueInterest\" \"unit\" ((Some (\"contracts/Comptroller.py\" 354)) var \"asset\")) \"Some\" \"None\")) ((Some (\"contracts/Comptroller.py\" 355)) operations))))) ((Some (\"contracts/utils/OperationProtector.py\" 46)) update_set ((Some (\"contracts/utils/OperationProtector.py\" 46)) attr ((Some (\"contracts/utils/OperationProtector.py\" 46)) storage) \"activeOperations\") ((Some (\"contracts/utils/OperationProtector.py\" 31)) literal (nat 4)) True) ((Some (\"contracts/Comptroller.py\" 331)) set ((Some (\"contracts/Comptroller.py\" 331)) operations) ((Some (\"contracts/Comptroller.py\" 331)) cons ((Some (\"contracts/Comptroller.py\" 331)) transfer (None parameter) ((Some (\"contracts/Comptroller.py\" 331)) literal (mutez 0)) ((Some (\"contracts/Comptroller.py\" 331)) self \"setAccountLiquidityWithView\")) ((Some (\"contracts/Comptroller.py\" 331)) operations))))) (updateAllAssetPricesWithView True None None None False None (Some (\"contracts/Comptroller.py\" 295)) (((Some (\"contracts/Comptroller.py\" 296)) verify ((Some (\"contracts/Comptroller.py\" 296)) eq (None amount) ((Some (\"contracts/Comptroller.py\" 296)) MUL ((Some (\"contracts/Comptroller.py\" 296)) type_annotation ((Some (\"contracts/Comptroller.py\" 296)) literal (intOrNat 0)) \"nat\") ((Some (\"contracts/Comptroller.py\" 296)) literal (mutez 1)))) ((Some (\"contracts/Comptroller.py\" 296)) literal (string \"TEZ_TRANSFERED\"))) ((Some (\"contracts/Comptroller.py\" 301)) for_group \"asset\" ((Some (\"contracts/Comptroller.py\" 301)) values ((Some (\"contracts/Comptroller.py\" 301)) attr ((Some (\"contracts/Comptroller.py\" 301)) storage) \"marketNameToAddress\")) (((Some (\"contracts/Comptroller.py\" 302)) if_block ((Some (\"contracts/Comptroller.py\" 302)) lt ((Some (\"contracts/Comptroller.py\" 302)) attr ((Some (\"contracts/Comptroller.py\" 302)) get_item ((Some (\"contracts/Comptroller.py\" 302)) attr ((Some (\"contracts/Comptroller.py\" 302)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 301)) var \"asset\")) \"updateLevel\") (None level)) (((Some (\"contracts/Comptroller.py\" 303)) define_local \"pricePair\" ((Some (\"contracts/Comptroller.py\" 305)) open_variant ((Some (\"contracts/Comptroller.py\" 304)) view \"getPrice\" ((Some (\"contracts/Comptroller.py\" 304)) add ((Some (\"contracts/Comptroller.py\" 304)) attr ((Some (\"contracts/Comptroller.py\" 304)) get_item ((Some (\"contracts/Comptroller.py\" 304)) attr ((Some (\"contracts/Comptroller.py\" 304)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 301)) var \"asset\")) \"name\") ((Some (\"contracts/Comptroller.py\" 304)) literal (string \"-USD\"))) ((Some (\"contracts/Comptroller.py\" 304)) attr ((Some (\"contracts/Comptroller.py\" 304)) storage) \"oracleAddress\") (tuple \"timestamp\" \"nat\")) \"Some\" ((Some (\"contracts/Comptroller.py\" 305)) literal (string \"invalid oracle view call\"))) True) ((Some (\"contracts/Comptroller.py\" 307)) if_block ((Some (\"contracts/Comptroller.py\" 307)) neq ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) get_item ((Some (\"contracts/Comptroller.py\" 307)) attr ((Some (\"contracts/Comptroller.py\" 307)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 301)) var \"asset\")) \"priceTimestamp\") ((Some (\"contracts/Comptroller.py\" 307)) literal (timestamp 0))) (((Some (\"contracts/Comptroller.py\" 308)) verify ((Some (\"contracts/Comptroller.py\" 308)) le ((Some (\"contracts/Comptroller.py\" 308)) sub (None now) ((Some (\"contracts/Comptroller.py\" 308)) first ((Some (\"contracts/Comptroller.py\" 308)) var \"pricePair\"))) ((Some (\"contracts/Comptroller.py\" 308)) attr ((Some (\"contracts/Comptroller.py\" 308)) storage) \"maxPriceTimeDifference\")) ((Some (\"contracts/Comptroller.py\" 308)) literal (string \"STALE_ASSET_PRICE\"))))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/Comptroller.py\" 310)) mul_homo ((Some (\"contracts/Comptroller.py\" 310)) second ((Some (\"contracts/Comptroller.py\" 310)) var \"pricePair\")) ((Some (\"contracts/Comptroller.py\" 310)) attr ((Some (\"contracts/Comptroller.py\" 310)) get_item ((Some (\"contracts/Comptroller.py\" 310)) attr ((Some (\"contracts/Comptroller.py\" 310)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 301)) var \"asset\")) \"priceExp\")) \"nat\") ((Some (\"contracts/Comptroller.py\" 309)) set ((Some (\"contracts/Comptroller.py\" 309)) attr ((Some (\"contracts/Comptroller.py\" 309)) get_item ((Some (\"contracts/Comptroller.py\" 309)) attr ((Some (\"contracts/Comptroller.py\" 309)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 301)) var \"asset\")) \"price\") ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/Comptroller.py\" 310)) mul_homo ((Some (\"contracts/Comptroller.py\" 310)) second ((Some (\"contracts/Comptroller.py\" 310)) var \"pricePair\")) ((Some (\"contracts/Comptroller.py\" 310)) attr ((Some (\"contracts/Comptroller.py\" 310)) get_item ((Some (\"contracts/Comptroller.py\" 310)) attr ((Some (\"contracts/Comptroller.py\" 310)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 301)) var \"asset\")) \"priceExp\"))))) ((Some (\"contracts/Comptroller.py\" 311)) set ((Some (\"contracts/Comptroller.py\" 311)) attr ((Some (\"contracts/Comptroller.py\" 311)) get_item ((Some (\"contracts/Comptroller.py\" 311)) attr ((Some (\"contracts/Comptroller.py\" 311)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 301)) var \"asset\")) \"priceTimestamp\") ((Some (\"contracts/Comptroller.py\" 311)) first ((Some (\"contracts/Comptroller.py\" 311)) var \"pricePair\"))) ((Some (\"contracts/Comptroller.py\" 312)) set ((Some (\"contracts/Comptroller.py\" 312)) attr ((Some (\"contracts/Comptroller.py\" 312)) get_item ((Some (\"contracts/Comptroller.py\" 312)) attr ((Some (\"contracts/Comptroller.py\" 312)) storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 301)) var \"asset\")) \"updateLevel\") (None level)))))))))\nflags ()\nprivates ()\nviews ((onchain getMaxAssetsPerUser False (Some (\"contracts/Comptroller.py\" 562)) False \"\" (((Some (\"contracts/Comptroller.py\" 563)) result ((Some (\"contracts/Comptroller.py\" 563)) attr (None storage) \"maxAssetsPerUser\")))) (onchain getUserAssetsCount True (Some (\"contracts/Comptroller.py\" 552)) False \"\" (((Some (\"contracts/Comptroller.py\" 553)) set_type ((Some (\"contracts/Comptroller.py\" 552)) parameter) \"address\") ((Some (\"contracts/Comptroller.py\" 811)) define_local \"unique_assets\" ((Some (\"contracts/Comptroller.py\" 811)) type_annotation ((Some (\"contracts/Comptroller.py\" 811)) set ) (set \"address\")) True) ((Some (\"contracts/Comptroller.py\" 813)) if_block ((Some (\"contracts/Comptroller.py\" 813)) contains ((Some (\"contracts/Comptroller.py\" 813)) attr (None storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 552)) parameter)) (((Some (\"contracts/Comptroller.py\" 814)) for_group \"asset\" ((Some (\"contracts/Comptroller.py\" 814)) elements ((Some (\"contracts/Comptroller.py\" 814)) get_item ((Some (\"contracts/Comptroller.py\" 813)) attr (None storage) \"collaterals\") ((Some (\"contracts/Comptroller.py\" 552)) parameter))) (((Some (\"contracts/Comptroller.py\" 815)) update_set ((Some (\"contracts/Comptroller.py\" 815)) var \"unique_assets\") ((Some (\"contracts/Comptroller.py\" 814)) var \"asset\") True))))) ((Some (\"contracts/Comptroller.py\" 817)) if_block ((Some (\"contracts/Comptroller.py\" 817)) contains ((Some (\"contracts/Comptroller.py\" 817)) attr (None storage) \"loans\") ((Some (\"contracts/Comptroller.py\" 552)) parameter)) (((Some (\"contracts/Comptroller.py\" 818)) for_group \"asset\" ((Some (\"contracts/Comptroller.py\" 818)) elements ((Some (\"contracts/Comptroller.py\" 818)) get_item ((Some (\"contracts/Comptroller.py\" 817)) attr (None storage) \"loans\") ((Some (\"contracts/Comptroller.py\" 552)) parameter))) (((Some (\"contracts/Comptroller.py\" 819)) update_set ((Some (\"contracts/Comptroller.py\" 819)) var \"unique_assets\") ((Some (\"contracts/Comptroller.py\" 818)) var \"asset\") True))))) ((Some (\"contracts/Comptroller.py\" 554)) result ((Some (\"contracts/Comptroller.py\" 821)) size ((Some (\"contracts/Comptroller.py\" 821)) var \"unique_assets\"))))) (onchain liquidateCalculateSeizeTokens True (Some (\"contracts/Comptroller.py\" 403)) False \"\" (((Some (\"contracts/Comptroller.py\" 404)) set_type ((Some (\"contracts/Comptroller.py\" 403)) parameter) (record ((actualRepayAmount \"nat\") (cTokenBorrowed \"address\") (cTokenCollateral \"address\")) Variable (Some (\"contracts/interfaces/ComptrollerInterface.py\" 25)))) ((Some (\"contracts/Comptroller.py\" 315)) verify ((Some (\"contracts/Comptroller.py\" 315)) eq (None level) ((Some (\"contracts/Comptroller.py\" 315)) attr ((Some (\"contracts/Comptroller.py\" 315)) get_item ((Some (\"contracts/Comptroller.py\" 315)) attr (None storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 407)) attr ((Some (\"contracts/Comptroller.py\" 403)) parameter) \"cTokenBorrowed\")) \"updateLevel\")) ((Some (\"contracts/Comptroller.py\" 315)) literal (string \"CMPT_UPDATE_PRICE\"))) ((Some (\"contracts/Comptroller.py\" 406)) define_local \"priceBorrowedMantissa\" ((Some (\"contracts/Comptroller.py\" 316)) attr ((Some (\"contracts/Comptroller.py\" 316)) get_item ((Some (\"contracts/Comptroller.py\" 315)) attr (None storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 407)) attr ((Some (\"contracts/Comptroller.py\" 403)) parameter) \"cTokenBorrowed\")) \"price\") True) ((Some (\"contracts/Comptroller.py\" 315)) verify ((Some (\"contracts/Comptroller.py\" 315)) eq (None level) ((Some (\"contracts/Comptroller.py\" 315)) attr ((Some (\"contracts/Comptroller.py\" 315)) get_item ((Some (\"contracts/Comptroller.py\" 315)) attr (None storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 409)) attr ((Some (\"contracts/Comptroller.py\" 403)) parameter) \"cTokenCollateral\")) \"updateLevel\")) ((Some (\"contracts/Comptroller.py\" 315)) literal (string \"CMPT_UPDATE_PRICE\"))) ((Some (\"contracts/Comptroller.py\" 408)) define_local \"priceCollateralMantissa\" ((Some (\"contracts/Comptroller.py\" 316)) attr ((Some (\"contracts/Comptroller.py\" 316)) get_item ((Some (\"contracts/Comptroller.py\" 315)) attr (None storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 409)) attr ((Some (\"contracts/Comptroller.py\" 403)) parameter) \"cTokenCollateral\")) \"price\") True) ((Some (\"contracts/Comptroller.py\" 411)) verify ((Some (\"contracts/Comptroller.py\" 411)) and ((Some (\"contracts/Comptroller.py\" 411)) neq ((Some (\"contracts/Comptroller.py\" 411)) attr ((Some (\"contracts/Comptroller.py\" 411)) var \"priceBorrowedMantissa\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 411)) literal (nat 0))) ((Some (\"contracts/Comptroller.py\" 412)) neq ((Some (\"contracts/Comptroller.py\" 412)) attr ((Some (\"contracts/Comptroller.py\" 412)) var \"priceCollateralMantissa\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 412)) literal (nat 0)))) ((Some (\"contracts/Comptroller.py\" 411)) literal (string \"CMPT_PRICE_ERROR\"))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/Comptroller.py\" 421)) attr (None storage) \"liquidationIncentiveMantissa\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 205)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/Comptroller.py\" 421)) attr (None storage) \"liquidationIncentiveMantissa\"))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 206)) set_type ((Some (\"contracts/Comptroller.py\" 421)) var \"priceBorrowedMantissa\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/Comptroller.py\" 421)) attr (None storage) \"liquidationIncentiveMantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 421)) var \"priceBorrowedMantissa\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr (None storage) \"expScale\")) \"nat\") ((Some (\"contracts/Comptroller.py\" 420)) define_local \"numerator\" ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/Comptroller.py\" 421)) attr (None storage) \"liquidationIncentiveMantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 421)) var \"priceBorrowedMantissa\") \"mantissa\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr (None storage) \"expScale\")))) True) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/Comptroller.py\" 417)) first ((Some (\"contracts/Comptroller.py\" 415)) open_variant ((Some (\"contracts/Comptroller.py\" 414)) view \"exchangeRateStoredView\" (None literal (unit)) ((Some (\"contracts/Comptroller.py\" 409)) attr ((Some (\"contracts/Comptroller.py\" 403)) parameter) \"cTokenCollateral\") (tuple \"nat\" \"nat\")) \"Some\" ((Some (\"contracts/Comptroller.py\" 415)) literal (string \"INVALID EXCHANGE RATE VIEW\")))) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 205)) set_type ((Some (\"contracts/Comptroller.py\" 423)) var \"priceCollateralMantissa\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 206)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/Comptroller.py\" 417)) first ((Some (\"contracts/Comptroller.py\" 415)) open_variant ((Some (\"contracts/Comptroller.py\" 414)) view \"exchangeRateStoredView\" (None literal (unit)) ((Some (\"contracts/Comptroller.py\" 409)) attr ((Some (\"contracts/Comptroller.py\" 403)) parameter) \"cTokenCollateral\") (tuple \"nat\" \"nat\")) \"Some\" ((Some (\"contracts/Comptroller.py\" 415)) literal (string \"INVALID EXCHANGE RATE VIEW\")))))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 423)) var \"priceCollateralMantissa\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 417)) first ((Some (\"contracts/Comptroller.py\" 415)) open_variant ((Some (\"contracts/Comptroller.py\" 414)) view \"exchangeRateStoredView\" (None literal (unit)) ((Some (\"contracts/Comptroller.py\" 409)) attr ((Some (\"contracts/Comptroller.py\" 403)) parameter) \"cTokenCollateral\") (tuple \"nat\" \"nat\")) \"Some\" ((Some (\"contracts/Comptroller.py\" 415)) literal (string \"INVALID EXCHANGE RATE VIEW\"))))) ((Some (\"contracts/utils/Exponential.py\" 207)) attr (None storage) \"expScale\")) \"nat\") ((Some (\"contracts/Comptroller.py\" 422)) define_local \"denominator\" ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 207)) div ((Some (\"contracts/utils/Exponential.py\" 207)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 207)) attr ((Some (\"contracts/Comptroller.py\" 423)) var \"priceCollateralMantissa\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 417)) first ((Some (\"contracts/Comptroller.py\" 415)) open_variant ((Some (\"contracts/Comptroller.py\" 414)) view \"exchangeRateStoredView\" (None literal (unit)) ((Some (\"contracts/Comptroller.py\" 409)) attr ((Some (\"contracts/Comptroller.py\" 403)) parameter) \"cTokenCollateral\") (tuple \"nat\" \"nat\")) \"Some\" ((Some (\"contracts/Comptroller.py\" 415)) literal (string \"INVALID EXCHANGE RATE VIEW\"))))) ((Some (\"contracts/utils/Exponential.py\" 207)) attr (None storage) \"expScale\")))) True) ((Some (\"contracts/utils/Exponential.py\" 241)) set_type ((Some (\"contracts/Comptroller.py\" 426)) var \"numerator\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 242)) set_type ((Some (\"contracts/Comptroller.py\" 426)) var \"denominator\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 243)) verify ((Some (\"contracts/utils/Exponential.py\" 243)) gt ((Some (\"contracts/utils/Exponential.py\" 243)) attr ((Some (\"contracts/Comptroller.py\" 426)) var \"denominator\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 243)) literal (intOrNat 0))) ((Some (\"contracts/utils/Exponential.py\" 243)) literal (string \"DIVISION_BY_ZERO\"))) ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 244)) div ((Some (\"contracts/utils/Exponential.py\" 244)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 244)) attr ((Some (\"contracts/Comptroller.py\" 426)) var \"numerator\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr (None storage) \"expScale\")) ((Some (\"contracts/utils/Exponential.py\" 243)) attr ((Some (\"contracts/Comptroller.py\" 426)) var \"denominator\") \"mantissa\")) \"nat\") ((Some (\"contracts/Comptroller.py\" 425)) define_local \"ratio\" ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 244)) div ((Some (\"contracts/utils/Exponential.py\" 244)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 244)) attr ((Some (\"contracts/Comptroller.py\" 426)) var \"numerator\") \"mantissa\") ((Some (\"contracts/utils/Exponential.py\" 207)) attr (None storage) \"expScale\")) ((Some (\"contracts/utils/Exponential.py\" 243)) attr ((Some (\"contracts/Comptroller.py\" 426)) var \"denominator\") \"mantissa\")))) True) ((Some (\"contracts/utils/Exponential.py\" 73)) set_type ((Some (\"contracts/Comptroller.py\" 429)) var \"ratio\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 217)) set_type ((Some (\"contracts/Comptroller.py\" 429)) var \"ratio\") (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/utils/Exponential.py\" 218)) set_type ((Some (\"contracts/Comptroller.py\" 429)) attr ((Some (\"contracts/Comptroller.py\" 403)) parameter) \"actualRepayAmount\") \"nat\") ((Some (\"contracts/utils/Exponential.py\" 34)) set_type ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 429)) var \"ratio\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 429)) attr ((Some (\"contracts/Comptroller.py\" 403)) parameter) \"actualRepayAmount\")) \"nat\") ((Some (\"contracts/utils/Exponential.py\" 60)) set_type ((Some (\"contracts/utils/Exponential.py\" 35)) record (mantissa ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 429)) var \"ratio\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 429)) attr ((Some (\"contracts/Comptroller.py\" 403)) parameter) \"actualRepayAmount\")))) (record ((mantissa \"nat\")) Variable (Some (\"contracts/utils/Exponential.py\" 15)))) ((Some (\"contracts/Comptroller.py\" 428)) result ((Some (\"contracts/Comptroller.py\" 428)) tuple ((Some (\"contracts/utils/Exponential.py\" 61)) div ((Some (\"contracts/utils/Exponential.py\" 219)) mul_homo ((Some (\"contracts/utils/Exponential.py\" 219)) attr ((Some (\"contracts/Comptroller.py\" 429)) var \"ratio\") \"mantissa\") ((Some (\"contracts/Comptroller.py\" 429)) attr ((Some (\"contracts/Comptroller.py\" 403)) parameter) \"actualRepayAmount\")) ((Some (\"contracts/utils/Exponential.py\" 207)) attr (None storage) \"expScale\")) ((Some (\"contracts/Comptroller.py\" 418)) second ((Some (\"contracts/Comptroller.py\" 415)) open_variant ((Some (\"contracts/Comptroller.py\" 414)) view \"exchangeRateStoredView\" (None literal (unit)) ((Some (\"contracts/Comptroller.py\" 409)) attr ((Some (\"contracts/Comptroller.py\" 403)) parameter) \"cTokenCollateral\") (tuple \"nat\" \"nat\")) \"Some\" ((Some (\"contracts/Comptroller.py\" 415)) literal (string \"INVALID EXCHANGE RATE VIEW\")))))))) (onchain seizeAllowed True (Some (\"contracts/Comptroller.py\" 468)) False \"\" (((Some (\"contracts/Comptroller.py\" 469)) set_type ((Some (\"contracts/Comptroller.py\" 468)) parameter) (record ((cTokenBorrowed \"address\") (cTokenCollateral \"address\")) Variable (Some (\"contracts/Comptroller.py\" 469)))) ((Some (\"contracts/Comptroller.py\" 478)) if_block ((Some (\"contracts/Comptroller.py\" 478)) or ((Some (\"contracts/Comptroller.py\" 478)) not ((Some (\"contracts/Comptroller.py\" 472)) and ((Some (\"contracts/Comptroller.py\" 472)) contains ((Some (\"contracts/Comptroller.py\" 472)) attr (None storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 472)) attr ((Some (\"contracts/Comptroller.py\" 468)) parameter) \"cTokenBorrowed\")) ((Some (\"contracts/Comptroller.py\" 473)) attr ((Some (\"contracts/Comptroller.py\" 473)) get_item ((Some (\"contracts/Comptroller.py\" 472)) attr (None storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 472)) attr ((Some (\"contracts/Comptroller.py\" 468)) parameter) \"cTokenBorrowed\")) \"isListed\"))) ((Some (\"contracts/Comptroller.py\" 478)) not ((Some (\"contracts/Comptroller.py\" 475)) and ((Some (\"contracts/Comptroller.py\" 475)) contains ((Some (\"contracts/Comptroller.py\" 472)) attr (None storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 475)) attr ((Some (\"contracts/Comptroller.py\" 468)) parameter) \"cTokenCollateral\")) ((Some (\"contracts/Comptroller.py\" 476)) attr ((Some (\"contracts/Comptroller.py\" 476)) get_item ((Some (\"contracts/Comptroller.py\" 472)) attr (None storage) \"markets\") ((Some (\"contracts/Comptroller.py\" 475)) attr ((Some (\"contracts/Comptroller.py\" 468)) parameter) \"cTokenCollateral\")) \"isListed\")))) (((Some (\"contracts/Comptroller.py\" 479)) result ((Some (\"contracts/Comptroller.py\" 479)) literal (bool False))))) (else_block (((Some (\"contracts/Comptroller.py\" 484)) if_block ((Some (\"contracts/Comptroller.py\" 484)) or ((Some (\"contracts/Comptroller.py\" 484)) is_variant ((Some (\"contracts/Comptroller.py\" 481)) view \"comptroller\" (None literal (unit)) ((Some (\"contracts/Comptroller.py\" 472)) attr ((Some (\"contracts/Comptroller.py\" 468)) parameter) \"cTokenBorrowed\") \"address\") \"None\") ((Some (\"contracts/Comptroller.py\" 484)) is_variant ((Some (\"contracts/Comptroller.py\" 482)) view \"comptroller\" (None literal (unit)) ((Some (\"contracts/Comptroller.py\" 475)) attr ((Some (\"contracts/Comptroller.py\" 468)) parameter) \"cTokenCollateral\") \"address\") \"None\")) (((Some (\"contracts/Comptroller.py\" 485)) result ((Some (\"contracts/Comptroller.py\" 485)) literal (bool False))))) (else_block (((Some (\"contracts/Comptroller.py\" 489)) result ((Some (\"contracts/Comptroller.py\" 489)) eq ((Some (\"contracts/Comptroller.py\" 487)) open_variant ((Some (\"contracts/Comptroller.py\" 481)) view \"comptroller\" (None literal (unit)) ((Some (\"contracts/Comptroller.py\" 472)) attr ((Some (\"contracts/Comptroller.py\" 468)) parameter) \"cTokenBorrowed\") \"address\") \"Some\" \"None\") ((Some (\"contracts/Comptroller.py\" 488)) open_variant ((Some (\"contracts/Comptroller.py\" 482)) view \"comptroller\" (None literal (unit)) ((Some (\"contracts/Comptroller.py\" 475)) attr ((Some (\"contracts/Comptroller.py\" 468)) parameter) \"cTokenCollateral\") \"address\") \"Some\" \"None\"))))))))))\nentrypoints_layout ()\ninitial_metadata ()\nbalance ())", "id": "(None static_id 0)", "line_no": "(Some (\"\" -1))", "show": true